source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS33.m@ 767

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1VAQDIS33 ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3SCR11 ;SCREEN 11 OF MAS
4R0 ; -- HEADER
5 D BLANK^VAQDIS20
6 S VAQLN=$$REPEAT^VAQUTL1(" ",79)
7 S VAQCTR=" -- ELIGIBILITY VERIFICATION DATA -- "
8 S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
9 D TMP,BLANK^VAQDIS20
10 K VAQLN,VAQCTR
11R1 ;
12 S X=$$SETSTR^VALM1("ELIGIBILITY STATUS: "_$G(@XTRCT@("VALUE",2,.3611,0)),"",4,48)
13 S Y=$G(@XTRCT@("VALUE",2,.3612,0))
14 S VAQINF=$S(Y="":"UNANSWERED",1:Y)
15 S X=$$SETSTR^VALM1("Status Date: "_VAQINF,X,49,30)
16 D TMP
17R2 ;
18 S X=$$SETSTR^VALM1("Status Entered by: "_$G(@XTRCT@("VALUE",2,.3616,0)),"",5,74)
19 D TMP
20R3 ;
21 S Y=$G(@XTRCT@("VALUE",2,.3614,0))
22 S VAQINF=$S(Y="":"UNANSWERED",1:Y)
23 S X=$$SETSTR^VALM1("Interim Response: "_VAQINF,"",6,73)
24 D TMP
25R4 ;
26 S X=$$SETSTR^VALM1("Verif. Method: "_$G(@XTRCT@("VALUE",2,.3615,0)),"",9,70)
27 D TMP
28R5 ;
29 S Y=$G(@XTRCT@("VALUE",2,.306,0))
30 S VAQINF=$S(Y="":"UNANSWERED",1:Y)
31 S X=$$SETSTR^VALM1("Money Verified: "_VAQINF,"",8,71)
32 D TMP
33R6 ;
34 S Y=$G(@XTRCT@("VALUE",2,.322,0))
35 S VAQINF=$S(Y="":"NOT VERIFIED",1:Y)
36 S X=$$SETSTR^VALM1("Service Verified: "_VAQINF,"",6,73)
37 D TMP
38R7 ;
39 S SEQ=""
40 F J=1:1 S SEQ=$O(@XTRCT@("VALUE",2.04,.01,SEQ)) Q:SEQ="" D
41 .S VAQTMP1=$G(@XTRCT@("VALUE",2.04,.01,SEQ))
42 .S VAQTMP2=$G(@XTRCT@("VALUE",2.04,2,SEQ))
43 .S VAQTMP3=$G(@XTRCT@("VALUE",2.04,3,SEQ))
44 .S VAQTMP4=$S(VAQTMP3="YES":"SC",1:"NSC")
45 .S VAQINF=VAQTMP1_" ("_VAQTMP2_"%-"_VAQTMP4_")"
46 .S:J=1 X=$$SETSTR^VALM1("Rated Disabilities: "_VAQINF,"",4,75)
47 .S:J'=1 X=$$SETSTR^VALM1(VAQINF,"",24,55)
48 .D TMP
49 I J=1 S X=$$SETSTR^VALM1("Rated Disability: NONE","",24,19) D TMP
50 K VAQTMP1,VAQTMP2,VAQTMP3,VAQTMP4,SEQ,J
51 ;
52EXIT K VAQINF,VAQTMP,Y,X
53 QUIT
54 ;
55TMP ; -- Sets up display array
56 S VALMCNT=VALMCNT+1
57 S @ROOT@(VALMCNT,0)=$E(X,1,79)
58 QUIT
59 ;
60END ;End of Code
61 QUIT
Note: See TracBrowser for help on using the repository browser.