VistA Analysis » VistA Reference » RPCs » ORWPT ADMITLST

ORWPT ADMITLST

Returns a list of admissions for a patient (for visit selection).

Properties

Property Value
Label ADMITLST
MUMPS Implementation ORWPT
Return Type ARRAY

MUMPS Method Description

Property Value
Method ADMITLST^ORWPT
Method Comment return a list of admissions
Input Parameters DFN
First Comment
 MOVETIME^LOCIEN^LOCNAME^TYPE
Code
 N TIM,MOV,X0,Y,MTIM,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
. . N VSTR,TIUDA
. . S X0=$G(^DGPM(MOV,0)) I X0']"" Q
. . S MTIM=$P(X0,U)
. . 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 VSTR=HLOC_";"_MTIM_";H",TIUDA=$$HASDS^TIULX(DFN,VSTR)
. . S ILST=ILST+1,LST(ILST)=MTIM_U_HLOC_U_XLOC_U_XTYP_U_MOV_U_TIUDA

CPRS

File Type Description
Pascal File rCore.pas


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