VistA Analysis » VistA Reference » RPCs » ORWU16 HOSPLOC

ORWU16 HOSPLOC

Properties

Property Value
Label HOSPLOC
MUMPS Implementation ORWU16
Return Type ARRAY

MUMPS Method Description

Property Value
Method HOSPLOC^ORWU16
Method Comment Return a bolus from the HOSPITAL LOCATION file
Input Parameters DIR, FROM
First Comment 
 .Return Array, Direction, Starting Text
Code 
 N I,IEN,CNT S CNT=44
 I DIR=0 D  ; Forward direction
 . F I=1:1:CNT S FROM=$O(^SC("B",FROM)) Q:FROM=""  D
 . . S IEN=$O(^SC("B",FROM,0))
 . . I $$ACTLOC(IEN) S Y(I)=IEN_"^"_FROM
 . I $G(Y(CNT))="" S Y(I)=""
 I DIR=1 D  ; Reverse direction
 . F I=1:1:CNT S FROM=$O(^SC("B",FROM),-1) Q:FROM=""  D
 . . S IEN=$O(^SC("B",FROM,0))
 . . I $$ACTLOC(IEN) S Y(I)=IEN_"^"_FROM

CPRS

File Type Description
NOT OSEHRA CPRS  


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