VistA Analysis » VistA Reference » RPCs » ORWPT16 ADMITLST

ORWPT16 ADMITLST

Properties

Property Value
Label ADMITLST
MUMPS Implementation ORWPT16
Return Type ARRAY

MUMPS Method Description

Property Value
Method ADMITLST^ORWPT16
Method Comment procedure
Input Parameters DFN
First Comment
 Return a list of admissions
Code
 N TIM,MOV,X0,Y,MTIM,XTIM,XTYP,XLOC,HLOC,ILST S ILST=0
S TIM="" F S TIM=$O(^DGPM("ATID1",DFN,TIM)) Q:TIM'>0 D
. S MOV=0 F S MOV=$O(^DGPM("ATID1",DFN,TIM,MOV)) Q:MOV'>0 D
. . S X0=^DGPM(MOV,0)
. . S MTIM=$P(X0,U,1),Y=MTIM D DD^%DT S XTIM=Y
. . S XTYP=$P($G(^DG(405.1,+$P(X0,U,4),0)),U,1)
. . S XLOC=$P($G(^DIC(42,+$P(X0,U,6),0)),U,1),HLOC=+$G(^(44))
. . S ILST=ILST+1,LST(ILST)=MTIM_U_HLOC_U_XTIM_U_XTYP_U_"TO: "_XLOC

CPRS

File Type Description
NOT OSEHRA CPRS  


Document generated on August 31st 2022, 2:55:43 pm