VistA Analysis » VistA Reference » RPCs » ORQQPX GET HIST LOCATIONS

ORQQPX GET HIST LOCATIONS

Returns a list of historical locations from the LOCATION file(#9999999.06).

Properties

Property	Value
Label	HISTLOC
MUMPS Implementation	ORQQPX
Return Type	GLOBAL ARRAY

MUMPS Method Description

Property Value

Method HISTLOC^ORQQPX

Method Comment Returns a list of historical locations

Code

Property	Value
Method	HISTLOC^ORQQPX
Method Comment	Returns a list of historical locations
Code	`N IDX,PTR,LINE,NAME K ^TMP("OR",$J,"LOC") S LST=$NA(^TMP("OR",$J,"LOC")) S (LINE,IDX)=0 F S IDX=$O(^AUTTLOC(IDX)) Q:'IDX D .S PTR=+$G(^AUTTLOC(IDX,0)) .I +PTR D ..;S NAME=$P($G(^DIC(4,PTR,0)),U) ..S NAME=$$GET1^DIQ(4,PTR,.01,"I") ..I NAME'="" D ...S LINE=LINE+1 ...S ^TMP("OR",$J,"LOC",LINE)=PTR_U_NAME`

 N IDX,PTR,LINE,NAME
 K ^TMP("OR",$J,"LOC")
 S LST=$NA(^TMP("OR",$J,"LOC"))
 S (LINE,IDX)=0
 F  S IDX=$O(^AUTTLOC(IDX)) Q:'IDX  D
 .S PTR=+$G(^AUTTLOC(IDX,0))
 .I +PTR D
 ..;S NAME=$P($G(^DIC(4,PTR,0)),U)
 ..S NAME=$$GET1^DIQ(4,PTR,.01,"I")
 ..I NAME'="" D
 ...S LINE=LINE+1
 ...S ^TMP("OR",$J,"LOC",LINE)=PTR_U_NAME

CPRS

File Type	Description
Pascal File	Encounter/rPCE.pas

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