VistA Analysis » VistA Reference » RPCs » ORWDPS4 CPLST

ORWDPS4 CPLST

Get co-pay ralated questions

Properties

Property Value
Label CPLST
MUMPS Implementation ORWDPS4
Return Type ARRAY

MUMPS Method Description

Property Value
Method CPLST^ORWDPS4
Method Comment Get CP questions
Input Parameters PTIFN, ORIFNS
Code 
 N ORIFN,ORDA,ORI,ORPSO,CPX
 S ORI=0,ORPSO=+$O(^DIC(9.4,"C","PSO",0))
 F  S ORI=$O(ORIFNS(ORI)) Q:'ORI  D
 .S ORIFN=+ORIFNS(ORI),ORDA=$P(ORIFNS(ORI),";",2)
 .I $D(^OR(100,ORIFN,0)),($P(^OR(100,ORIFN,0),U,14)=ORPSO) D
 ..N PRIO S PRIO=0
 ..I $D(^OR(100,ORIFN,4.5,"ID","URGENCY")) S PRIO=$O(^("URGENCY",0))
 ..S PRIO=$G(^OR(100,ORIFN,4.5,+PRIO,1))
 ..Q:PRIO=99
 ..S CPX=$$SC(ORIFN)
 ..I $L(CPX)>1 S TEST(ORIFN)=ORIFN_";"_ORDA_CPX
 K PTIFN,ORIFN,ORDA,ORI,CPX

CPRS

File Type Description
Pascal File Orders/rODBase.pas
Pascal File Orders/rOrders.pas


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