source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS29.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1VAQDIS29 ;ALB/JFP,JRP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
2 ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
3SCR6 ; -- SCREEN 6 (FIRST HALF)
4 ; Calls VAQDIS30 for second half
5R0 ; -- HEADER
6 D BLANK^VAQDIS20
7 S VAQLN=$$REPEAT^VAQUTL1(" ",79)
8 S VAQCTR=" -- MILITARY SERVICE -- "
9 S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
10 D TMP,BLANK^VAQDIS20
11 K VAQLN,VAQCTR
12R1 ;
13 S X=$$SETSTR^VALM1("Service Branch","",5,22)
14 S X=$$SETSTR^VALM1("Service #",X,25,19)
15 S X=$$SETSTR^VALM1("Entered",X,47,12)
16 S X=$$SETSTR^VALM1("Separated",X,59,12)
17 S X=$$SETSTR^VALM1("Discharge",X,70,9)
18 D TMP
19R2 ;
20 S X=$$SETSTR^VALM1("--------------","",5,22)
21 S X=$$SETSTR^VALM1("---------",X,25,19)
22 S X=$$SETSTR^VALM1("---------",X,47,12)
23 S X=$$SETSTR^VALM1("---------",X,59,12)
24 S X=$$SETSTR^VALM1("---------",X,70,9)
25 D TMP
26R3 ;LAST SERVICE
27 S VAQCHK=$G(@XTRCT@("VALUE",2,.325,0))
28 S X=$$SETSTR^VALM1(VAQCHK,"",5,22)
29 S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2,.328,0)),X,25,19)
30 S VAQTMP=$G(@XTRCT@("VALUE",2,.326,0)) D SCR6A
31 S X=$$SETSTR^VALM1(VAQINF,X,47,12)
32 S VAQTMP=$G(@XTRCT@("VALUE",2,.327,0)) D SCR6A
33 S X=$$SETSTR^VALM1(VAQINF,X,59,12)
34 S VAQTMP=$G(@XTRCT@("VALUE",2,.324,0)) D SCR6B
35 S X=$$SETSTR^VALM1(VAQINF,X,70,9)
36 D:VAQCHK'="" TMP
37R4 ;NEXT TO LAST SERVICE
38 S VAQCHK=$G(@XTRCT@("VALUE",2,.3291,0))
39 S X=$$SETSTR^VALM1(VAQCHK,"",5,22)
40 S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2,.3294,0)),X,25,19)
41 S VAQTMP=$G(@XTRCT@("VALUE",2,.3292,0)) D SCR6A
42 S X=$$SETSTR^VALM1(VAQINF,X,47,12)
43 S VAQTMP=$G(@XTRCT@("VALUE",2,.3293,0)) D SCR6A
44 S X=$$SETSTR^VALM1(VAQINF,X,59,12)
45 S VAQTMP=$G(@XTRCT@("VALUE",2,.329,0)) D SCR6B
46 S X=$$SETSTR^VALM1(VAQINF,X,70,9)
47 D:VAQCHK'="" TMP
48R5 ;THIRD SERVICE
49 S VAQCHK=$G(@XTRCT@("VALUE",2,.3296,0))
50 S X=$$SETSTR^VALM1(VAQCHK,"",5,22)
51 S X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2,.3299,0)),X,25,19)
52 S VAQTMP=$G(@XTRCT@("VALUE",2,.3297,0)) D SCR6A
53 S X=$$SETSTR^VALM1(VAQINF,X,47,12)
54 S VAQTMP=$G(@XTRCT@("VALUE",2,.3298,0)) D SCR6A
55 S X=$$SETSTR^VALM1(VAQINF,X,59,12)
56 S VAQTMP=$G(@XTRCT@("VALUE",2,.3295,0)) D SCR6B
57 S X=$$SETSTR^VALM1(VAQINF,X,70,9)
58 D:VAQCHK'="" TMP
59R6 ;
60 D BLANK^VAQDIS20
61 S X=$$SETSTR^VALM1("POW: "_$G(@XTRCT@("VALUE",2,.525,0)),"",13,12)
62 S VAQTMP=$G(@XTRCT@("VALUE",2,.527,0)) D SCR6A
63 S X=$$SETSTR^VALM1("From: "_VAQINF,X,25,21)
64 S VAQTMP=$G(@XTRCT@("VALUE",2,.528,0)) D SCR6A
65 S X=$$SETSTR^VALM1("To: "_VAQINF,X,46,16)
66 S VAQINF="War: "_$$SCRWW($G(@XTRCT@("VALUE",2,.526,0)))
67 S X=$$SETSTR^VALM1(VAQINF,X,63,17)
68 D TMP
69R7 ;
70 S X=$$SETSTR^VALM1("Combat: "_$G(@XTRCT@("VALUE",2,.5291,0)),"",10,15)
71 S VAQTMP=$G(@XTRCT@("VALUE",2,.5293,0)) D SCR6A
72 S X=$$SETSTR^VALM1("From: "_VAQINF,X,25,21)
73 S VAQTMP=$G(@XTRCT@("VALUE",2,.5294,0)) D SCR6A
74 S X=$$SETSTR^VALM1("To: "_VAQINF,X,46,16)
75 S VAQINF="Loc: "_$$SCRWW($G(@XTRCT@("VALUE",2,.5292,0)))
76 S X=$$SETSTR^VALM1(VAQINF,X,63,17)
77 D TMP
78R8 ;
79 S X=$$SETSTR^VALM1("Vietnam: "_$G(@XTRCT@("VALUE",2,.32101,0)),"",9,16)
80 S VAQTMP=$G(@XTRCT@("VALUE",2,.32104,0)) D SCR6A
81 S X=$$SETSTR^VALM1("From: "_VAQINF,X,25,21)
82 S VAQTMP=$G(@XTRCT@("VALUE",2,.32105,0)) D SCR6A
83 S X=$$SETSTR^VALM1("To: "_VAQINF,X,46,33)
84 D TMP
85MAS6B ;SCREEN 6 (SECOND HALF)
86 D SCR6^VAQDIS30
87EXIT K VAQCHK,VAQTMP,VAQINF
88 Q
89TMP ; -- Sets up display array
90 S VALMCNT=VALMCNT+1
91 S @ROOT@(VALMCNT,0)=$E(X,1,79)
92 Q
93SCR6A ;DATE CONVERSION
94 I VAQTMP="" S VAQINF="" QUIT
95 S VAQTMP=$$DATE^VAQUTL99(VAQTMP)
96 S VAQINF=$S(VAQTMP'="":$E(VAQTMP,4,5)_"/"_$E(VAQTMP,6,7)_"/"_$E(VAQTMP,2,3),1:VAQTMP)
97 Q
98SCR6B I VAQTMP["OTHER THAN" S VAQINF="OTHER"
99 S VAQINF=$E(VAQTMP,1,12)
100 Q
101SCRWW(LOC) ;SCREEN FOR WWI & WWII
102 S LOC=$G(LOC)
103 Q:($E(LOC,1,5)'="WORLD") LOC
104 S LOC="WWI"_$E(LOC,12,22)
105 Q $TR(LOC," ","")
Note: See TracBrowser for help on using the repository browser.