VAQDIS33 ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
SCR11 ;SCREEN 11 OF MAS
R0 ; -- HEADER
D BLANK^VAQDIS20
S VAQLN=$$REPEAT^VAQUTL1(" ",79)
S VAQCTR=" -- ELIGIBILITY VERIFICATION DATA -- "
S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
D TMP,BLANK^VAQDIS20
K VAQLN,VAQCTR
R1 ;
S X=$$SETSTR^VALM1("ELIGIBILITY STATUS: "_$G(@XTRCT@("VALUE",2,.3611,0)),"",4,48)
S Y=$G(@XTRCT@("VALUE",2,.3612,0))
S VAQINF=$S(Y="":"UNANSWERED",1:Y)
S X=$$SETSTR^VALM1("Status Date: "_VAQINF,X,49,30)
D TMP
R2 ;
S X=$$SETSTR^VALM1("Status Entered by: "_$G(@XTRCT@("VALUE",2,.3616,0)),"",5,74)
D TMP
R3 ;
S Y=$G(@XTRCT@("VALUE",2,.3614,0))
S VAQINF=$S(Y="":"UNANSWERED",1:Y)
S X=$$SETSTR^VALM1("Interim Response: "_VAQINF,"",6,73)
D TMP
R4 ;
S X=$$SETSTR^VALM1("Verif. Method: "_$G(@XTRCT@("VALUE",2,.3615,0)),"",9,70)
D TMP
R5 ;
S Y=$G(@XTRCT@("VALUE",2,.306,0))
S VAQINF=$S(Y="":"UNANSWERED",1:Y)
S X=$$SETSTR^VALM1("Money Verified: "_VAQINF,"",8,71)
D TMP
R6 ;
S Y=$G(@XTRCT@("VALUE",2,.322,0))
S VAQINF=$S(Y="":"NOT VERIFIED",1:Y)
S X=$$SETSTR^VALM1("Service Verified: "_VAQINF,"",6,73)
D TMP
R7 ;
S SEQ=""
F J=1:1 S SEQ=$O(@XTRCT@("VALUE",2.04,.01,SEQ)) Q:SEQ="" D
.S VAQTMP1=$G(@XTRCT@("VALUE",2.04,.01,SEQ))
.S VAQTMP2=$G(@XTRCT@("VALUE",2.04,2,SEQ))
.S VAQTMP3=$G(@XTRCT@("VALUE",2.04,3,SEQ))
.S VAQTMP4=$S(VAQTMP3="YES":"SC",1:"NSC")
.S VAQINF=VAQTMP1_" ("_VAQTMP2_"%-"_VAQTMP4_")"
.S:J=1 X=$$SETSTR^VALM1("Rated Disabilities: "_VAQINF,"",4,75)
.S:J'=1 X=$$SETSTR^VALM1(VAQINF,"",24,55)
.D TMP
I J=1 S X=$$SETSTR^VALM1("Rated Disability: NONE","",24,19) D TMP
K VAQTMP1,VAQTMP2,VAQTMP3,VAQTMP4,SEQ,J
;
EXIT K VAQINF,VAQTMP,Y,X
QUIT
;
TMP ; -- Sets up display array
S VALMCNT=VALMCNT+1
S @ROOT@(VALMCNT,0)=$E(X,1,79)
QUIT
;
END ;End of Code
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQDIS33 1887 printed Oct 16, 2024@18:26:18 Page 2
VAQDIS33 ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
SCR11 ;SCREEN 11 OF MAS
R0 ; -- HEADER
+1 DO BLANK^VAQDIS20
+2 SET VAQLN=$$REPEAT^VAQUTL1(" ",79)
+3 SET VAQCTR=" -- ELIGIBILITY VERIFICATION DATA -- "
+4 SET X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)
+5 DO TMP
DO BLANK^VAQDIS20
+6 KILL VAQLN,VAQCTR
R1 ;
+1 SET X=$$SETSTR^VALM1("ELIGIBILITY STATUS: "_$GET(@XTRCT@("VALUE",2,.3611,0)),"",4,48)
+2 SET Y=$GET(@XTRCT@("VALUE",2,.3612,0))
+3 SET VAQINF=$SELECT(Y="":"UNANSWERED",1:Y)
+4 SET X=$$SETSTR^VALM1("Status Date: "_VAQINF,X,49,30)
+5 DO TMP
R2 ;
+1 SET X=$$SETSTR^VALM1("Status Entered by: "_$GET(@XTRCT@("VALUE",2,.3616,0)),"",5,74)
+2 DO TMP
R3 ;
+1 SET Y=$GET(@XTRCT@("VALUE",2,.3614,0))
+2 SET VAQINF=$SELECT(Y="":"UNANSWERED",1:Y)
+3 SET X=$$SETSTR^VALM1("Interim Response: "_VAQINF,"",6,73)
+4 DO TMP
R4 ;
+1 SET X=$$SETSTR^VALM1("Verif. Method: "_$GET(@XTRCT@("VALUE",2,.3615,0)),"",9,70)
+2 DO TMP
R5 ;
+1 SET Y=$GET(@XTRCT@("VALUE",2,.306,0))
+2 SET VAQINF=$SELECT(Y="":"UNANSWERED",1:Y)
+3 SET X=$$SETSTR^VALM1("Money Verified: "_VAQINF,"",8,71)
+4 DO TMP
R6 ;
+1 SET Y=$GET(@XTRCT@("VALUE",2,.322,0))
+2 SET VAQINF=$SELECT(Y="":"NOT VERIFIED",1:Y)
+3 SET X=$$SETSTR^VALM1("Service Verified: "_VAQINF,"",6,73)
+4 DO TMP
R7 ;
+1 SET SEQ=""
+2 FOR J=1:1
SET SEQ=$ORDER(@XTRCT@("VALUE",2.04,.01,SEQ))
if SEQ=""
QUIT
Begin DoDot:1
+3 SET VAQTMP1=$GET(@XTRCT@("VALUE",2.04,.01,SEQ))
+4 SET VAQTMP2=$GET(@XTRCT@("VALUE",2.04,2,SEQ))
+5 SET VAQTMP3=$GET(@XTRCT@("VALUE",2.04,3,SEQ))
+6 SET VAQTMP4=$SELECT(VAQTMP3="YES":"SC",1:"NSC")
+7 SET VAQINF=VAQTMP1_" ("_VAQTMP2_"%-"_VAQTMP4_")"
+8 if J=1
SET X=$$SETSTR^VALM1("Rated Disabilities: "_VAQINF,"",4,75)
+9 if J'=1
SET X=$$SETSTR^VALM1(VAQINF,"",24,55)
+10 DO TMP
End DoDot:1
+11 IF J=1
SET X=$$SETSTR^VALM1("Rated Disability: NONE","",24,19)
DO TMP
+12 KILL VAQTMP1,VAQTMP2,VAQTMP3,VAQTMP4,SEQ,J
+13 ;
EXIT KILL VAQINF,VAQTMP,Y,X
+1 QUIT
+2 ;
TMP ; -- Sets up display array
+1 SET VALMCNT=VALMCNT+1
+2 SET @ROOT@(VALMCNT,0)=$EXTRACT(X,1,79)
+3 QUIT
+4 ;
END ;End of Code
+1 QUIT
