VistA Analysis » VistA Reference » RPCs » ORWDPS4 CPINFO

ORWDPS4 CPINFO

Save outpatient med order co-pay information.

Properties

Property Value
Label CPINFO
MUMPS Implementation ORWDPS4
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method CPINFO^ORWDPS4
Method Comment Save reponses to CP questions
Input Parameters ORINFO
Code
 Q:'$D(ORINFO)
N ORIFN,ORI,ORX,ANS S ORI=0
F S ORI=$O(ORINFO(ORI)) Q:'ORI D
.S ORIFN=$P($P(ORINFO(ORI),U,1),";",1)
.S ANS=$P(ORINFO(ORI),U,2)
.D REFMT(.ORX,ANS)
.D SC^ORCSAVE2(.ORX,ORIFN)
S Y=1
K ORIFN,ORX,ORI,ANS

CPRS

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


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