| [613] | 1 | VAQDIS33 ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | SCR11 ;SCREEN 11 OF MAS
|
|---|
| 4 | R0 ; -- 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
|
|---|
| 11 | R1 ;
|
|---|
| 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
|
|---|
| 17 | R2 ;
|
|---|
| 18 | S X=$$SETSTR^VALM1("Status Entered by: "_$G(@XTRCT@("VALUE",2,.3616,0)),"",5,74)
|
|---|
| 19 | D TMP
|
|---|
| 20 | R3 ;
|
|---|
| 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
|
|---|
| 25 | R4 ;
|
|---|
| 26 | S X=$$SETSTR^VALM1("Verif. Method: "_$G(@XTRCT@("VALUE",2,.3615,0)),"",9,70)
|
|---|
| 27 | D TMP
|
|---|
| 28 | R5 ;
|
|---|
| 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
|
|---|
| 33 | R6 ;
|
|---|
| 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
|
|---|
| 38 | R7 ;
|
|---|
| 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 | ;
|
|---|
| 52 | EXIT K VAQINF,VAQTMP,Y,X
|
|---|
| 53 | QUIT
|
|---|
| 54 | ;
|
|---|
| 55 | TMP ; -- Sets up display array
|
|---|
| 56 | S VALMCNT=VALMCNT+1
|
|---|
| 57 | S @ROOT@(VALMCNT,0)=$E(X,1,79)
|
|---|
| 58 | QUIT
|
|---|
| 59 | ;
|
|---|
| 60 | END ;End of Code
|
|---|
| 61 | QUIT
|
|---|
