VistA Analysis » VistA Reference » RPCs » ORWGN GNLOC

ORWGN GNLOC

Properties

Property Value
Label GNLOC
MUMPS Implementation ORWGN
Return Type ARRAY

MUMPS Method Description

Property Value
Method GNLOC^ORWGN
Method Comment Is valid GN location? 1: true 0: false
Input Parameters ORFROM, DIR
First Comment 
 .ORY=returned list, ORFROM=text to $O from, DIR=$O direction.
Code 
 N IX,ORLST,CHKVAL,ORERR,ORX
 K ^TMP("ORGN",$J)
 S (ORLST,ORERR)="",CHKVAL=0
 D GETLST^XPAR(.ORLST,"ALL","OR GN LOCATIONS","N",.ORERR)
 I ORERR S ORY=ORERR Q
 Q:$D(ORLST)=1
 S IX=0 F  S IX=$O(ORLST(IX)) Q:'IX  D
 . S CHKVAL=ORLST(IX)
 . S:($$ACTLOC^ORWU(+CHKVAL)) ^TMP("ORGN",$J,$P(CHKVAL,U,2))=ORLST(IX)
 N I,CNT S I=0,CNT=44,ORY=""
 Q:$D(^TMP("ORGN",$J))<10
 F  Q:I' . S I=I+1,ORY(I)=^TMP("ORGN",$J,ORFROM)

CPRS

File Type Description
NOT OSEHRA CPRS  


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