VAQDIS33.m

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 ---VAQDIS33   1887     printed  Apr 09, 2024@21:28:23                                                                                                                                                                                                    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