ORMARKER ; SLC/MIP,WAT - Use to get chart markers ;7/30/08 11:25
;;3.0;ORDER ENTRY/RESULTS REPORTING;**296**;Dec 17, 1997;Build 19
;;ICRs in use: #4156 $$CVEDT^DGCV, #10061 ^VADPT API
CV(RVAL,DFN) ;Combat Vet Marker
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
;Service Branch
S RVAL(0)=""
I $D(VASV(6,1))=1 S RVAL(0)=VASV(6,1)
;Status
S RVAL(1)=""
I $D(VASV(6,3))=1 S RVAL(1)=VASV(6,3)
;Service Seperation Date
S RVAL(2)=""
I $D(VASV(6,5))=1 S RVAL(2)=VASV(6,5)
;Combat Vet Expiration Date
S RVAL(3)=""
I $D(VASV(10,1))=1 S RVAL(3)=VASV(10,1)
;OIF/OEF
S RVAL(4)=""
I (VASV(11)>0)!(VASV(12)>0)!(VASV(13)>0) S RVAL(4)="OEF/OIF"
;Remove these later, put these sets for temporary backwards compatiblity
S RVAL(5)=""
S RVAL(6)=""
S RVAL(7)=""
;Clean up VADPT variables
D KVA^VADPT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORMARKER 901 printed Dec 13, 2024@02:31:42 Page 2
ORMARKER ; SLC/MIP,WAT - Use to get chart markers ;7/30/08 11:25
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**296**;Dec 17, 1997;Build 19
+2 ;;ICRs in use: #4156 $$CVEDT^DGCV, #10061 ^VADPT API
CV(RVAL,DFN) ;Combat Vet Marker
+1 NEW CVE
SET CVE=$$CVEDT^DGCV(DFN)
+2 IF ($PIECE(CVE,"^",1)'=1)!($PIECE(CVE,"^",3)=0)
SET RVAL(0)="NOTCV"
QUIT
+3 NEW VASV
+4 DO SVC^VADPT
+5 ;Service Branch
+6 SET RVAL(0)=""
+7 IF $DATA(VASV(6,1))=1
SET RVAL(0)=VASV(6,1)
+8 ;Status
+9 SET RVAL(1)=""
+10 IF $DATA(VASV(6,3))=1
SET RVAL(1)=VASV(6,3)
+11 ;Service Seperation Date
+12 SET RVAL(2)=""
+13 IF $DATA(VASV(6,5))=1
SET RVAL(2)=VASV(6,5)
+14 ;Combat Vet Expiration Date
+15 SET RVAL(3)=""
+16 IF $DATA(VASV(10,1))=1
SET RVAL(3)=VASV(10,1)
+17 ;OIF/OEF
+18 SET RVAL(4)=""
+19 IF (VASV(11)>0)!(VASV(12)>0)!(VASV(13)>0)
SET RVAL(4)="OEF/OIF"
+20 ;Remove these later, put these sets for temporary backwards compatiblity
+21 SET RVAL(5)=""
+22 SET RVAL(6)=""
+23 SET RVAL(7)=""
+24 ;Clean up VADPT variables
+25 DO KVA^VADPT
+26 QUIT
