VistA Analysis » VistA Reference » RPCs » ORWU1 NEWLOC

ORWU1 NEWLOC

Returns a list of Clinics, Wards, and “Other” category entries from the HOSPITAL LOCATION (#44) file.

Properties

Property Value
Label NEWLOC
MUMPS Implementation ORWU1
Return Type ARRAY

MUMPS Method Description

Property Value
Method NEWLOC^ORWU1
Method Comment Return "CZ" locations from HOSPITAL LOCATION file.
Input Parameters ORFROM, DIR
First Comment
 C=Clinics, Z=Other, screened by $$ACTLOC^ORWU.
.Y=returned list, ORFROM=text to $O from, DIR=$O direction.
Code
 N I,IEN,CNT S I=0,CNT=44
F Q:I' . S IEN="" F S IEN=$O(^SC("B",ORFROM,IEN),DIR) Q:'IEN D
. . Q:("C"'[$P($G(^SC(IEN,0)),U,3)!('$$ACTLOC^ORWU(IEN)))
. . S I=I+1,Y(I)=IEN_"^"_ORFROM

CPRS

File Type Description
Pascal File rCore.pas


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