VistA Analysis » VistA Reference » RPCs » ORWU16 NEWPERS

ORWU16 NEWPERS

Properties

Property Value
Label NEWPERS
MUMPS Implementation ORWU16
Return Type ARRAY

MUMPS Method Description

Property Value
Method NEWPERS^ORWU16
Method Comment Return a bolus from the NEW PERSON file
Input Parameters DIR, FROM, KEY
First Comment 
 .Return Array, Direction, Starting Text
Code 
 N I,IEN,CNT S CNT=44,KEY=$G(KEY)
 I DIR=0 D  ; Forward direction
 . F I=1:1:CNT S FROM=$O(^VA(200,"B",FROM)) Q:FROM=""  D
 . . S IEN=$O(^VA(200,"B",FROM,0)) I $L(KEY),'$D(^XUSEC(KEY,IEN)) Q
 . . 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(^VA(200,"B",FROM),-1) Q:FROM=""  D
 . . S IEN=$O(^VA(200,"B",FROM,0)) I $L(KEY),'$D(^XUSEC(KEY,IEN)) Q
 . . S Y(I)=IEN_"^"_FROM

CPRS

File Type Description
NOT OSEHRA CPRS  


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