VistA Analysis » VistA Reference » RPCs » ORWPT INPLOC

ORWPT INPLOC

Returns the patient’s current location if an inpatient.

Properties

Property Value
Label INPLOC
MUMPS Implementation ORWPT
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method INPLOC^ORWPT
Method Comment Return a patient's current location
Input Parameters DFN
Code 
 N X
 S X=$G(^DPT(DFN,.102)),REC=0
 I X S X=$P($G(^DGPM(X,0)),U,6)
 I X S REC=+$G(^DIC(42,X,44))
 I X S $P(REC,U,2)=$P($G(^DIC(42,X,0)),U,1)
 I X S X=$P($G(^DIC(42,X,0)),U,3)
 S $P(REC,U,3)=X

CPRS

File Type Description
Pascal File rCore.pas


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