VistA Analysis » VistA Reference » RPCs » OR GET COMBAT VET

OR GET COMBAT VET

Properties

Property Value
Label CV
MUMPS Implementation ORMARKER
Return Type ARRAY

MUMPS Method Description

Property Value
Method CV^ORMARKER
Method Comment Combat Vet Marker
Input Parameters DFN
Code
 N CVE S CVE=$$CVEDT^DGCV(DFN)
I ($P(CVE,"^",1)'=1)!($P(CVE,"^",3)=0) S RVAL(0)="NOTCV" Q
N VASV
D SVC^VADPT
S RVAL(0)=""
I $D(VASV(6,1))=1 S RVAL(0)=VASV(6,1)
S RVAL(1)=""
I $D(VASV(6,3))=1 S RVAL(1)=VASV(6,3)
S RVAL(2)=""
I $D(VASV(6,5))=1 S RVAL(2)=VASV(6,5)
S RVAL(3)=""
I $D(VASV(10,1))=1 S RVAL(3)=VASV(10,1)
S RVAL(4)=""
I (VASV(11)>0)!(VASV(12)>0)!(VASV(13)>0) S RVAL(4)="OEF/OIF"
S RVAL(5)=""
S RVAL(6)=""
S RVAL(7)=""
D KVA^VADPT

CPRS

File Type Description
Pascal File uCombatVet.pas


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