source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS31.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.0 KB
Line 
1VAQDIS31 ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
2 ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993
3SCR7 ;SCREEN 7 of MAS
4R0 ; -- HEADER
5 D BLANK^VAQDIS20
6 S VAQLN=$$REPEAT^VAQUTL1(" ",79)
7 S VAQCTR=" -- ELIGIBILITY STATUS -- "
8 S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
9 D TMP,BLANK^VAQDIS20
10 K VAQLN,VAQCTR
11R1 ;
12 S X=$$SETSTR^VALM1("Patient Type: "_$G(@XTRCT@("VALUE",2,391,0)),"",10,49)
13 S X=$$SETSTR^VALM1("Veteran: "_$G(@XTRCT@("VALUE",2,1901,0)),X,61,18)
14 D TMP
15R2 ;
16 S X=$$SETSTR^VALM1("SVC Connected: "_$G(@XTRCT@("VALUE",2,.301,0)),"",9,48)
17 S X=$$SETSTR^VALM1("SC Percent: "_$G(@XTRCT@("VALUE",2,.302,0))_"%",X,58,21)
18 D TMP
19R3 ;
20 S X=$$SETSTR^VALM1("P&T: "_$G(@XTRCT@("VALUE",2,.304,0)),"",19,35)
21 S X=$$SETSTR^VALM1("Unemployable: "_$G(@XTRCT@("VALUE",2,.305,0)),X,56,23)
22 D TMP
23R4 ;
24 S X=$$SETSTR^VALM1("SC Award Date: "_$G(@XTRCT@("VALUE",2,.3012,0)),"",9,69)
25 D TMP
26R5 ;
27 S X=$$SETSTR^VALM1("Rated Incomp: "_$G(@XTRCT@("VALUE",2,.293,0)),"",10,18)
28 S X=$$SETSTR^VALM1("Date (CIVIL): "_$G(@XTRCT@("VALUE",2,.292,0)),X,29,30)
29 S X=$$SETSTR^VALM1("Date (VA): "_$G(@XTRCT@("VALUE",2,.291,0)),X,59,20)
30 D TMP
31R6 ;
32 S X=$$SETSTR^VALM1("Claim Number: "_$G(@XTRCT@("VALUE",2,.313,0)),"",10,68) D TMP
33R7 ;
34 S X=$$SETSTR^VALM1("Folder Loc: "_$G(@XTRCT@("VALUE",2,.314,0)),"",12,67)
35 D TMP
36R8 ;
37 S X=$$SETSTR^VALM1("Aid & Attendance: "_$G(@XTRCT@("VALUE",2,.36205,0)),"",6,50)
38 S X=$$SETSTR^VALM1("Housebound: "_$G(@XTRCT@("VALUE",2,.36215,0)),X,58,21)
39 D TMP
40R9 ;
41 S X=$$SETSTR^VALM1("VA Pension: "_$G(@XTRCT@("VALUE",2,.36235,0)),"",12,40)
42 S X=$$SETSTR^VALM1("VA Disability: "_$G(@XTRCT@("VALUE",2,.3025,0)),X,55,24)
43 D TMP
44R10 ;
45 S X=$$SETSTR^VALM1("Total Check Amount: "_$G(@XTRCT@("VALUE",2,.36295,0)),"",4,74)
46 D TMP
47R11 ;
48 S X=$$SETSTR^VALM1("GI Insurance: "_$G(@XTRCT@("VALUE",2,.36265,0)),"",10,50)
49 S X=$$SETSTR^VALM1("Amount: "_$G(@XTRCT@("VALUE",2,.3626,0)),X,62,17)
50 D TMP
51R12 ;
52 S X=$$SETSTR^VALM1("Primary Elig Code: "_$G(@XTRCT@("VALUE",2,.361,0)),"",5,74) D TMP
53R13 ;
54 S SEQ=""
55 F J=1:1 S SEQ=$O(@XTRCT@("VALUE",2.0361,.01,SEQ)) Q:SEQ="" D
56 .S:J=1 X=$$SETSTR^VALM1("Other Elig Code(s): "_$G(@XTRCT@("VALUE",2.0361,.01,SEQ)),"",4,75)
57 .S:J'=1 X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2.0361,.01,SEQ)),"",24,54)
58 .D TMP
59 I J=1 S X=$$SETSTR^VALM1("Other Elig Code(s): NONE","",4,75)
60 K SEQ,J
61R14 ;
62 S X=$$SETSTR^VALM1("Period of Service: "_$G(@XTRCT@("VALUE",2,.323,0)),"",5,74)
63 D TMP
64R15 ;
65 D BLANK^VAQDIS20
66 S X=$$SETSTR^VALM1("Service Connected Condition as stated by Applicant","",4,75) D TMP
67 S X=$$SETSTR^VALM1("--------------------------------------------------",X,4,75) D TMP
68 S SEQ=""
69 F J=1:1 S SEQ=$O(@XTRCT@("VALUE",2.05,.01,SEQ)) Q:SEQ="" D
70 .S VAQTMP1=$G(@XTRCT@("VALUE",2.05,.01,SEQ))
71 .S VAQTMP2=$G(@XTRCT@("VALUE",2.05,.02,SEQ))
72 .S X=$$SETSTR^VALM1(VAQTMP1_" ("_VAQTMP2_"%)","",4,75)
73 .D TMP
74 I J=1 S X=$$SETSTR^VALM1("None Stated","",4,75)
75 K SEQ,J,VAQTMP1,VAQTMP2
76 ;
77EXIT K VAQINF
78 QUIT
79 ;
80TMP ; -- Sets up the display array
81 S VALMCNT=VALMCNT+1
82 S @ROOT@(VALMCNT,0)=$E(X,1,79)
83 QUIT
84 ;
85END ;End of Code
86 QUIT
Note: See TracBrowser for help on using the repository browser.