VistA Analysis » VistA Reference » RPCs » ORWDPS33 IVDOSFRM

ORWDPS33 IVDOSFRM

Properties

Property Value
Label IVDOSFRM
MUMPS Implementation ORWDPS33
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
ORDERIDS LIST   true  
DEFAULTS LITERAL   true  
ALLIV LITERAL   true  

MUMPS Method Description

Property Value
Method IVDOSFRM^ORWDPS33
Input Parameters ORDERIDS, ALLIV
Code 
 N ORARRAY,CNT,CNT1,OI,POI
 S OI="",CNT=0,CNT1=0
 F  S OI=$O(ORDERIDS(OI)) Q:OI'>0  D
 .S POI=+$P($G(^ORD(101.43,$G(ORDERIDS(OI)),0)),U,2) Q:POI'>0
 .S CNT=CNT+1
 .S ORARRAY(CNT)=POI
 I CNT=0 Q
 S ORARRAY(0)=CNT
 D START1^PSSJORDF(.ORARRAY,ALLIV)
 S CNT="" F  S CNT=$O(ORARRAY(CNT)) Q:CNT'>0  D
 .S CNT1=CNT1+1,LST(CNT1)=$G(ORARRAY(CNT))
 K ^TMP("PSJMR",$J)

CPRS

File Type Description
Pascal File Orders/rODMeds.pas


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