VAQDIS31.m

VAQDIS31 ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91

 ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993

SCR7 ;SCREEN 7 of MAS

R0 ; -- HEADER

 D BLANK^VAQDIS20

 S VAQLN=$$REPEAT^VAQUTL1(" ",79)

 S VAQCTR=" -- ELIGIBILITY STATUS -- "

 S X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)

 D TMP,BLANK^VAQDIS20

 K VAQLN,VAQCTR

R1 ;

 S X=$$SETSTR^VALM1("Patient Type: "_$G(@XTRCT@("VALUE",2,391,0)),"",10,49)

 S X=$$SETSTR^VALM1("Veteran: "_$G(@XTRCT@("VALUE",2,1901,0)),X,61,18)

 D TMP

R2 ;

 S X=$$SETSTR^VALM1("SVC Connected: "_$G(@XTRCT@("VALUE",2,.301,0)),"",9,48)

 S X=$$SETSTR^VALM1("SC Percent: "_$G(@XTRCT@("VALUE",2,.302,0))_"%",X,58,21)

 D TMP

R3 ;

 S X=$$SETSTR^VALM1("P&T: "_$G(@XTRCT@("VALUE",2,.304,0)),"",19,35)

 S X=$$SETSTR^VALM1("Unemployable: "_$G(@XTRCT@("VALUE",2,.305,0)),X,56,23)

 D TMP

R4 ;

 S X=$$SETSTR^VALM1("SC Award Date: "_$G(@XTRCT@("VALUE",2,.3012,0)),"",9,69)

 D TMP

R5 ;

 S X=$$SETSTR^VALM1("Rated Incomp: "_$G(@XTRCT@("VALUE",2,.293,0)),"",10,18)

 S X=$$SETSTR^VALM1("Date (CIVIL): "_$G(@XTRCT@("VALUE",2,.292,0)),X,29,30)

 S X=$$SETSTR^VALM1("Date (VA): "_$G(@XTRCT@("VALUE",2,.291,0)),X,59,20)

 D TMP

R6 ;

 S X=$$SETSTR^VALM1("Claim Number: "_$G(@XTRCT@("VALUE",2,.313,0)),"",10,68) D TMP

R7 ;

 S X=$$SETSTR^VALM1("Folder Loc: "_$G(@XTRCT@("VALUE",2,.314,0)),"",12,67)

 D TMP

R8 ;

 S X=$$SETSTR^VALM1("Aid & Attendance: "_$G(@XTRCT@("VALUE",2,.36205,0)),"",6,50)

 S X=$$SETSTR^VALM1("Housebound: "_$G(@XTRCT@("VALUE",2,.36215,0)),X,58,21)

 D TMP

R9 ;

 S X=$$SETSTR^VALM1("VA Pension: "_$G(@XTRCT@("VALUE",2,.36235,0)),"",12,40)

 S X=$$SETSTR^VALM1("VA Disability: "_$G(@XTRCT@("VALUE",2,.3025,0)),X,55,24)

 D TMP

R10 ;

 S X=$$SETSTR^VALM1("Total Check Amount: "_$G(@XTRCT@("VALUE",2,.36295,0)),"",4,74)

 D TMP

R11 ;

 S X=$$SETSTR^VALM1("GI Insurance: "_$G(@XTRCT@("VALUE",2,.36265,0)),"",10,50)

 S X=$$SETSTR^VALM1("Amount: "_$G(@XTRCT@("VALUE",2,.3626,0)),X,62,17)

 D TMP

R12 ;

 S X=$$SETSTR^VALM1("Primary Elig Code: "_$G(@XTRCT@("VALUE",2,.361,0)),"",5,74) D TMP

R13 ;

 S SEQ=""

 F J=1:1  S SEQ=$O(@XTRCT@("VALUE",2.0361,.01,SEQ))  Q:SEQ=""  D

 .S:J=1 X=$$SETSTR^VALM1("Other Elig Code(s): "_$G(@XTRCT@("VALUE",2.0361,.01,SEQ)),"",4,75)

 .S:J'=1 X=$$SETSTR^VALM1($G(@XTRCT@("VALUE",2.0361,.01,SEQ)),"",24,54)

 .D TMP

 I J=1 S X=$$SETSTR^VALM1("Other Elig Code(s): NONE","",4,75)

 K SEQ,J

R14 ;

 S X=$$SETSTR^VALM1("Period of Service: "_$G(@XTRCT@("VALUE",2,.323,0)),"",5,74)

 D TMP

R15 ;

 D BLANK^VAQDIS20

 S X=$$SETSTR^VALM1("Service Connected Condition as stated by Applicant","",4,75) D TMP

 S X=$$SETSTR^VALM1("--------------------------------------------------",X,4,75) D TMP

 S SEQ=""

 F J=1:1  S SEQ=$O(@XTRCT@("VALUE",2.05,.01,SEQ))  Q:SEQ=""  D

 .S VAQTMP1=$G(@XTRCT@("VALUE",2.05,.01,SEQ))

 .S VAQTMP2=$G(@XTRCT@("VALUE",2.05,.02,SEQ))

 .S X=$$SETSTR^VALM1(VAQTMP1_" ("_VAQTMP2_"%)","",4,75)

 .D TMP

 I J=1 S X=$$SETSTR^VALM1("None Stated","",4,75)

 K SEQ,J,VAQTMP1,VAQTMP2

 ;

EXIT K VAQINF

 QUIT

 ;

TMP ; -- Sets up the 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 ---VAQDIS31   3143     printed  Apr 09, 2024@21:28:30                                                                                                                                                                                                    Page 2

VAQDIS31  ;ALB/JFP - BUILDS DISPLAY ARRAY FOR (MAS DATA);3JUL91

 +1       ;;1.5;PATIENT DATA EXCHANGE;**13**;NOV 17, 1993

SCR7      ;SCREEN 7 of MAS

R0        ; -- HEADER

 +1        DO BLANK^VAQDIS20

 +2        SET VAQLN=$$REPEAT^VAQUTL1(" ",79)

 +3        SET VAQCTR=" -- ELIGIBILITY STATUS -- "

 +4        SET X=$$CENTER^VAQDIS20(VAQLN,VAQCTR)

 +5        DO TMP

           DO BLANK^VAQDIS20

 +6        KILL VAQLN,VAQCTR

R1        ;

 +1        SET X=$$SETSTR^VALM1("Patient Type: "_$GET(@XTRCT@("VALUE",2,391,0)),"",10,49)

 +2        SET X=$$SETSTR^VALM1("Veteran: "_$GET(@XTRCT@("VALUE",2,1901,0)),X,61,18)

 +3        DO TMP

R2        ;

 +1        SET X=$$SETSTR^VALM1("SVC Connected: "_$GET(@XTRCT@("VALUE",2,.301,0)),"",9,48)

 +2        SET X=$$SETSTR^VALM1("SC Percent: "_$GET(@XTRCT@("VALUE",2,.302,0))_"%",X,58,21)

 +3        DO TMP

R3        ;

 +1        SET X=$$SETSTR^VALM1("P&T: "_$GET(@XTRCT@("VALUE",2,.304,0)),"",19,35)

 +2        SET X=$$SETSTR^VALM1("Unemployable: "_$GET(@XTRCT@("VALUE",2,.305,0)),X,56,23)

 +3        DO TMP

R4        ;

 +1        SET X=$$SETSTR^VALM1("SC Award Date: "_$GET(@XTRCT@("VALUE",2,.3012,0)),"",9,69)

 +2        DO TMP

R5        ;

 +1        SET X=$$SETSTR^VALM1("Rated Incomp: "_$GET(@XTRCT@("VALUE",2,.293,0)),"",10,18)

 +2        SET X=$$SETSTR^VALM1("Date (CIVIL): "_$GET(@XTRCT@("VALUE",2,.292,0)),X,29,30)

 +3        SET X=$$SETSTR^VALM1("Date (VA): "_$GET(@XTRCT@("VALUE",2,.291,0)),X,59,20)

 +4        DO TMP

R6        ;

 +1        SET X=$$SETSTR^VALM1("Claim Number: "_$GET(@XTRCT@("VALUE",2,.313,0)),"",10,68)

           DO TMP

R7        ;

 +1        SET X=$$SETSTR^VALM1("Folder Loc: "_$GET(@XTRCT@("VALUE",2,.314,0)),"",12,67)

 +2        DO TMP

R8        ;

 +1        SET X=$$SETSTR^VALM1("Aid & Attendance: "_$GET(@XTRCT@("VALUE",2,.36205,0)),"",6,50)

 +2        SET X=$$SETSTR^VALM1("Housebound: "_$GET(@XTRCT@("VALUE",2,.36215,0)),X,58,21)

 +3        DO TMP

R9        ;

 +1        SET X=$$SETSTR^VALM1("VA Pension: "_$GET(@XTRCT@("VALUE",2,.36235,0)),"",12,40)

 +2        SET X=$$SETSTR^VALM1("VA Disability: "_$GET(@XTRCT@("VALUE",2,.3025,0)),X,55,24)

 +3        DO TMP

R10       ;

 +1        SET X=$$SETSTR^VALM1("Total Check Amount: "_$GET(@XTRCT@("VALUE",2,.36295,0)),"",4,74)

 +2        DO TMP

R11       ;

 +1        SET X=$$SETSTR^VALM1("GI Insurance: "_$GET(@XTRCT@("VALUE",2,.36265,0)),"",10,50)

 +2        SET X=$$SETSTR^VALM1("Amount: "_$GET(@XTRCT@("VALUE",2,.3626,0)),X,62,17)

 +3        DO TMP

R12       ;

 +1        SET X=$$SETSTR^VALM1("Primary Elig Code: "_$GET(@XTRCT@("VALUE",2,.361,0)),"",5,74)

           DO TMP

R13       ;

 +1        SET SEQ=""

 +2        FOR J=1:1

               SET SEQ=$ORDER(@XTRCT@("VALUE",2.0361,.01,SEQ))

               if SEQ=""

                   QUIT 

               Begin DoDot:1

 +3                if J=1

                       SET X=$$SETSTR^VALM1("Other Elig Code(s): "_$GET(@XTRCT@("VALUE",2.0361,.01,SEQ)),"",4,75)

 +4                if J'=1

                       SET X=$$SETSTR^VALM1($GET(@XTRCT@("VALUE",2.0361,.01,SEQ)),"",24,54)

 +5                DO TMP

               End DoDot:1

 +6        IF J=1

               SET X=$$SETSTR^VALM1("Other Elig Code(s): NONE","",4,75)

 +7        KILL SEQ,J

R14       ;

 +1        SET X=$$SETSTR^VALM1("Period of Service: "_$GET(@XTRCT@("VALUE",2,.323,0)),"",5,74)

 +2        DO TMP

R15       ;

 +1        DO BLANK^VAQDIS20

 +2        SET X=$$SETSTR^VALM1("Service Connected Condition as stated by Applicant","",4,75)

           DO TMP

 +3        SET X=$$SETSTR^VALM1("--------------------------------------------------",X,4,75)

           DO TMP

 +4        SET SEQ=""

 +5        FOR J=1:1

               SET SEQ=$ORDER(@XTRCT@("VALUE",2.05,.01,SEQ))

               if SEQ=""

                   QUIT 

               Begin DoDot:1

 +6                SET VAQTMP1=$GET(@XTRCT@("VALUE",2.05,.01,SEQ))

 +7                SET VAQTMP2=$GET(@XTRCT@("VALUE",2.05,.02,SEQ))

 +8                SET X=$$SETSTR^VALM1(VAQTMP1_" ("_VAQTMP2_"%)","",4,75)

 +9                DO TMP

               End DoDot:1

 +10       IF J=1

               SET X=$$SETSTR^VALM1("None Stated","",4,75)

 +11       KILL SEQ,J,VAQTMP1,VAQTMP2

 +12      ;

EXIT       KILL VAQINF

 +1        QUIT 

 +2       ;

TMP       ; -- Sets up the 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