VistA Analysis » VistA Reference » RPCs » ORWPT BYWARD

ORWPT BYWARD

Returns a list of patients currently residing on a specified wardlocation.

Properties

Property Value
Label BYWARD
MUMPS Implementation ORWPT
Return Type ARRAY

MUMPS Method Description

Property Value
Method BYWARD^ORWPT
Method Comment Return a list of patients in a ward
Input Parameters WARD
Code 
 N ILST,DFN
 I +$G(WARD)<1 S LST(1)="^No ward identified" Q
 S (ILST,DFN)=0
 S WARD=$P(^DIC(42,WARD,0),"^")   ;DBIA #36
 F  S DFN=$O(^DPT("CN",WARD,DFN)) Q:DFN'>0  D
 . S ILST=ILST+1,LST(ILST)=+DFN_U_$P(^DPT(+DFN,0),U)_U_$G(^DPT(+DFN,.101))
 I ILST<1 S LST(1)="^No patients found."

CPRS

File Type Description
Pascal File rCore.pas


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