Routine: EASEZL1

EASEZL1 ;ALB/jap - 1010EZ List Manager Processing Screens (cont.) ;10/12/00  13:07

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001

EN ;Entry point to build list area for EAS EZ Applications processing

 D EN^VALM("EAS EZ 1010EZ INITIAL SCREEN")

EXPND ;

N V

 K EASDFN,EASEZNEW,EASAPP,EASLOCK,EASLN

 K ^TMP("EASEXP",$J)

 S EASARY="EASEXP"

 S VALMBCK=""

 D SEL^EASEZLM

 Q:$G(EASERR)

 Q:'$G(EASSEL)

 S EASAPP=$O(^TMP("EASEZ",$J,"IDX",EASSEL,0))

 S EASLOCK=1 L +^EAS(712,EASAPP,0):5 I '$T S EASLOCK=0

 I 'EASLOCK D  Q

 .W !,"Another user is processing that Application... try later.",!

 .D PAUSE^VALM1

 .S VALMBCK="R"

 S V=EASVIEW,EASPSTAT=$S(V=1:"NEW",V=2:"REV",V=3:"PRT",V=4:"SIG",V=5:"FIL",V=6:"CLS",1:"")

 I EASVIEW=1 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW1")

 I EASVIEW=2 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW2")

 I EASVIEW=3 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW3")

 I EASVIEW=4 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW4")

 I EASVIEW=5 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW5")

 I EASVIEW=6 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW6")

 ;revision of 01/09/01 -- 'filed' separated from 'signed' so

 ; EASVIEW=4 --> signed

 ; EASVIEW=5 --> filed

 ; EASVIEW=6 --> closed/inactivated

INIT2 ;

 ;generate ^TMP("EZDISP",$J, in order to build display

 S EASDFN=+$P(^EAS(712,EASAPP,0),U,10)

 D EN^EASEZC1(EASAPP,EASDFN)

 D HDR2

 D BLD2

 I '$G(VALMCNT) D NOLINES^EASEZLM

HDR2 ;

 N H,V,X,XX,SEL,FAC,JNAME,EDATE,WEBID,WILLSEND

 S SEL=^TMP("EASEZIDX",$J,EASAPP)

 S JNAME=$P(SEL,U,1),EDATE=$P(SEL,U,2),WEBID=$P(SEL,U,3),WILLSEND=$P(SEL,U,4),FAC=$P(SEL,U,5)

 S WILLSEND=$S(WILLSEND:"YES",1:"NO")

 S V=EASPSTAT

 S H=$S(V="NEW":"NEW",V="REV":"IN REVIEW",V="PRT":"PRINTED,PENDING SIG.",V="SIG":"SIGNED",V="FIL":"FILED",V="CLS":"INACTIVATED",1:"")

 I H="FILED",$P($G(^EAS(712,EASAPP,2)),U,11)'="" S H="Still filing..."

 S X="Application #:",X=$$SETSTR^VALM1(X,"",1,14)

 S X=$$SETSTR^VALM1(EASAPP,X,16,6)

 S FAC="("_FAC_")",X=$$SETSTR^VALM1(FAC,X,27,8)

 S XX="Status:",X=$$SETSTR^VALM1(XX,X,46,12)

 S X=$$SETSTR^VALM1(H,X,59,21)

 S VALMHDR(1)=X

 S X="Applicant:",X=$$SETSTR^VALM1(X,"",1,14)

 S X=$$SETSTR^VALM1(JNAME,X,16,28)

 S XX="Date Rec'd:",X=$$SETSTR^VALM1(XX,X,46,12)

 S X=$$SETSTR^VALM1(EDATE,X,59,21)

 S VALMHDR(2)=X

 S X="Web ID #:",X=$$SETSTR^VALM1(X,"",1,14)

 S X=$$SETSTR^VALM1(WEBID,X,16,28)

 S XX="Vet Sending Signed Form?: "_WILLSEND,X=$$SETSTR^VALM1(XX,X,46,30)

 S VALMHDR(3)=X

BLD2 ;

 N S,C,IT,JJ,ACCEPT,MULTIPLE,OLDM,QUES,Q1,QX,KEYIEN,DISPNM,EZDATA,PTDATA,X,FARRAY,WARRAY,WOUT,DA,DR,DIC,DIQ,X,Y

 D CLEAR^VALM1

 K ^TMP("EASEXPSRT",$J),^TMP("EASEXPIDX",$J)

 S VALMBG=1,VALMCNT=0

 S IT="" F  S IT=$O(VALMDDF(IT)) Q:IT=""  S X=VALMDDF(IT),EASCOL(IT)=$P(X,U,2),EASWID(IT)=$P(X,U,3)

 S EASLN=0,EASNUM=0

 ;build ^TMP("EASEXP", array which creates screen listing

 S S="" F  S S=$O(^TMP("EZDISP",$J,S)) Q:S=""  D

 .S MULTIPLE=0 F  S MULTIPLE=$O(^TMP("EZDISP",$J,S,MULTIPLE)) Q:'MULTIPLE  D

 ..S Q1="" F  S Q1=$O(^TMP("EZDISP",$J,S,MULTIPLE,Q1)) Q:Q1=""  S QX="" F  S QX=$O(^TMP("EZDISP",$J,S,MULTIPLE,Q1,QX)) Q:QX=""  D

 ...S X=^TMP("EZDISP",$J,S,MULTIPLE,Q1,QX)

 ...S KEYIEN=$P(X,U,1),EZDATA=$P(X,U,2),ACCEPT=$P(X,U,3),SUBIEN=$P(X,U,4),PTDATA=$P(X,U,5),DISPNM=$P(X,U,6)

 ...S EASLN=EASLN+1,EASNUM=EASNUM+1

 ...S X=$$SETSTR^VALM1(EASLN,"",EASCOL("NUMBER"),EASWID("NUMBER"))

 ...S X=$$SETSTR^VALM1(DISPNM,X,EASCOL("DATA ITEM"),EASWID("DATA ITEM"))

 ...;S X=$$SETSTR^VALM1(ACCEPT,X,EASCOL("ACCEPT"),EASWID("ACCEPT"))

 ...S X=$$SETSTR^VALM1(EZDATA,X,EASCOL("EZDATA"),EASWID("EZDATA"))

 ...S X=$$SETSTR^VALM1(PTDATA,X,EASCOL("PTDATA"),EASWID("PTDATA"))

 ...D SET^VALM10(EASLN,X)

 ...I ACCEPT>0 D FLDCTRL^VALM10(EASLN,"EZDATA",IORVON,IORVOFF)

 ...S ^TMP("EASEXP",$J,"IDX",EASLN)=SUBIEN_U_MULTIPLE_U_KEYIEN

 ;add info from Section of 1010EZ

 K FARRAY

 S DA=EASAPP,DIC="^EAS(712,",DR="4.3;4.4;12",DIQ="FARRAY",DIQ(0)="E"

 D EN^DIQ1

 S DR=13,DIQ="WARRAY"

 D EN^DIQ1

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("  ","",1,2) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("  ","",1,2) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("Appointment Requested: ","",1,24),X=$$SETSTR^VALM1($G(FARRAY(712,EASAPP,4.4,"E")),X,25,30)

 D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("  ","",1,2) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("Services Requested: ","",1,24) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1($G(FARRAY(712,EASAPP,12,"E")),"",3,78) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("  ","",1,2) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("Comments: ","",1,12) D SET^VALM10(EASLN,X)

 I $D(WARRAY)>1 S WOUT=0,JJ=0 F  D  Q:WOUT

 .S JJ=JJ+1,C=$G(WARRAY(712,EASAPP,13,JJ))

 .I C="" S WOUT=1 Q

 .S EASLN=EASLN+1

 .S X=$$SETSTR^VALM1(C,"",3,78) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("  ","",1,2) D SET^VALM10(EASLN,X)

 S EASLN=EASLN+1

 S X=$$SETSTR^VALM1("E-mail: ","",1,9),X=$$SETSTR^VALM1($G(FARRAY(712,EASAPP,4.3,"E")),X,10,60)

 D SET^VALM10(EASLN,X)

 S VALMCNT=EASLN,$P(^TMP("EASEXP",$J,0),U,4)=VALMCNT

EXIT2 ;

 D CLEAN^VALM10

 L -^EAS(712,EASAPP,0)

 K ^TMP("EASEXP",$J),^TMP("EASEZPSRT",$J),^TMP("EASEZPIDX",$J)

 K ^TMP("EZDATA",$J),^TMP("EZINDEX",$J),^TMP("EZTEMP",$J),^TMP("EZDISP",$J)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZL1   5419     printed  Mar 13, 2025@20:59:18                                                                                                                                                                                                     Page 2

EASEZL1   ;ALB/jap - 1010EZ List Manager Processing Screens (cont.) ;10/12/00  13:07

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001

 +2       ;

EN        ;Entry point to build list area for EAS EZ Applications processing

 +1       ;

 +2        DO EN^VALM("EAS EZ 1010EZ INITIAL SCREEN")

 +3        QUIT

 +4       ;

EXPND     ;

 +1        NEW V

 +2        KILL EASDFN,EASEZNEW,EASAPP,EASLOCK,EASLN

 +3        KILL ^TMP("EASEXP",$JOB)

 +4        SET EASARY="EASEXP"

 +5        SET VALMBCK=""

 +6        DO SEL^EASEZLM

 +7        if $GET(EASERR)

               QUIT

 +8        if '$GET(EASSEL)

               QUIT

 +9        SET EASAPP=$ORDER(^TMP("EASEZ",$JOB,"IDX",EASSEL,0))

 +10       SET EASLOCK=1

           LOCK +^EAS(712,EASAPP,0):5

           IF '$TEST

               SET EASLOCK=0

 +11       IF 'EASLOCK

               Begin DoDot:1

 +12               WRITE !,"Another user is processing that Application... try later.",!

 +13               DO PAUSE^VALM1

 +14               SET VALMBCK="R"

               End DoDot:1

               QUIT

 +15       SET V=EASVIEW

           SET EASPSTAT=$SELECT(V=1:"NEW",V=2:"REV",V=3:"PRT",V=4:"SIG",V=5:"FIL",V=6:"CLS",1:"")

 +16       IF EASVIEW=1

               WRITE !

               DO WAIT^DICD

               DO EN^VALM("EAS EZ 1010EZ REVIEW1")

 +17       IF EASVIEW=2

               WRITE !

               DO WAIT^DICD

               DO EN^VALM("EAS EZ 1010EZ REVIEW2")

 +18       IF EASVIEW=3

               WRITE !

               DO WAIT^DICD

               DO EN^VALM("EAS EZ 1010EZ REVIEW3")

 +19       IF EASVIEW=4

               WRITE !

               DO WAIT^DICD

               DO EN^VALM("EAS EZ 1010EZ REVIEW4")

 +20       IF EASVIEW=5

               WRITE !

               DO WAIT^DICD

               DO EN^VALM("EAS EZ 1010EZ REVIEW5")

 +21       IF EASVIEW=6

               WRITE !

               DO WAIT^DICD

               DO EN^VALM("EAS EZ 1010EZ REVIEW6")

 +22      ;revision of 01/09/01 -- 'filed' separated from 'signed' so

 +23      ; EASVIEW=4 --> signed

 +24      ; EASVIEW=5 --> filed

 +25      ; EASVIEW=6 --> closed/inactivated

 +26       QUIT

 +27      ;

INIT2     ;

 +1       ;generate ^TMP("EZDISP",$J, in order to build display

 +2        SET EASDFN=+$PIECE(^EAS(712,EASAPP,0),U,10)

 +3        DO EN^EASEZC1(EASAPP,EASDFN)

 +4        DO HDR2

 +5        DO BLD2

 +6        IF '$GET(VALMCNT)

               DO NOLINES^EASEZLM

 +7        QUIT

 +8       ;

HDR2      ;

 +1        NEW H,V,X,XX,SEL,FAC,JNAME,EDATE,WEBID,WILLSEND

 +2        SET SEL=^TMP("EASEZIDX",$JOB,EASAPP)

 +3        SET JNAME=$PIECE(SEL,U,1)

           SET EDATE=$PIECE(SEL,U,2)

           SET WEBID=$PIECE(SEL,U,3)

           SET WILLSEND=$PIECE(SEL,U,4)

           SET FAC=$PIECE(SEL,U,5)

 +4        SET WILLSEND=$SELECT(WILLSEND:"YES",1:"NO")

 +5        SET V=EASPSTAT

 +6        SET H=$SELECT(V="NEW":"NEW",V="REV":"IN REVIEW",V="PRT":"PRINTED,PENDING SIG.",V="SIG":"SIGNED",V="FIL":"FILED",V="CLS":"INACTIVATED",1:"")

 +7        IF H="FILED"

               IF $PIECE($GET(^EAS(712,EASAPP,2)),U,11)'=""

                   SET H="Still filing..."

 +8        SET X="Application #:"

           SET X=$$SETSTR^VALM1(X,"",1,14)

 +9        SET X=$$SETSTR^VALM1(EASAPP,X,16,6)

 +10       SET FAC="("_FAC_")"

           SET X=$$SETSTR^VALM1(FAC,X,27,8)

 +11       SET XX="Status:"

           SET X=$$SETSTR^VALM1(XX,X,46,12)

 +12       SET X=$$SETSTR^VALM1(H,X,59,21)

 +13       SET VALMHDR(1)=X

 +14       SET X="Applicant:"

           SET X=$$SETSTR^VALM1(X,"",1,14)

 +15       SET X=$$SETSTR^VALM1(JNAME,X,16,28)

 +16       SET XX="Date Rec'd:"

           SET X=$$SETSTR^VALM1(XX,X,46,12)

 +17       SET X=$$SETSTR^VALM1(EDATE,X,59,21)

 +18       SET VALMHDR(2)=X

 +19       SET X="Web ID #:"

           SET X=$$SETSTR^VALM1(X,"",1,14)

 +20       SET X=$$SETSTR^VALM1(WEBID,X,16,28)

 +21       SET XX="Vet Sending Signed Form?: "_WILLSEND

           SET X=$$SETSTR^VALM1(XX,X,46,30)

 +22       SET VALMHDR(3)=X

 +23       QUIT

 +24      ;

BLD2      ;

 +1        NEW S,C,IT,JJ,ACCEPT,MULTIPLE,OLDM,QUES,Q1,QX,KEYIEN,DISPNM,EZDATA,PTDATA,X,FARRAY,WARRAY,WOUT,DA,DR,DIC,DIQ,X,Y

 +2        DO CLEAR^VALM1

 +3        KILL ^TMP("EASEXPSRT",$JOB),^TMP("EASEXPIDX",$JOB)

 +4        SET VALMBG=1

           SET VALMCNT=0

 +5        SET IT=""

FOR

               SET IT=$ORDER(VALMDDF(IT))

               if IT=""

                   QUIT

               SET X=VALMDDF(IT)

               SET EASCOL(IT)=$PIECE(X,U,2)

               SET EASWID(IT)=$PIECE(X,U,3)

 +6        SET EASLN=0

           SET EASNUM=0

 +7       ;build ^TMP("EASEXP", array which creates screen listing

 +8        SET S=""

FOR

               SET S=$ORDER(^TMP("EZDISP",$JOB,S))

               if S=""

                   QUIT

               Begin DoDot:1

 +9                SET MULTIPLE=0

FOR

                       SET MULTIPLE=$ORDER(^TMP("EZDISP",$JOB,S,MULTIPLE))

                       if 'MULTIPLE

                           QUIT

                       Begin DoDot:2

 +10                       SET Q1=""

FOR

                               SET Q1=$ORDER(^TMP("EZDISP",$JOB,S,MULTIPLE,Q1))

                               if Q1=""

                                   QUIT

                               SET QX=""

FOR

                                   SET QX=$ORDER(^TMP("EZDISP",$JOB,S,MULTIPLE,Q1,QX))

                                   if QX=""

                                       QUIT

                                   Begin DoDot:3

 +11                                   SET X=^TMP("EZDISP",$JOB,S,MULTIPLE,Q1,QX)

 +12                                   SET KEYIEN=$PIECE(X,U,1)

                                       SET EZDATA=$PIECE(X,U,2)

                                       SET ACCEPT=$PIECE(X,U,3)

                                       SET SUBIEN=$PIECE(X,U,4)

                                       SET PTDATA=$PIECE(X,U,5)

                                       SET DISPNM=$PIECE(X,U,6)

 +13                                   SET EASLN=EASLN+1

                                       SET EASNUM=EASNUM+1

 +14                                   SET X=$$SETSTR^VALM1(EASLN,"",EASCOL("NUMBER"),EASWID("NUMBER"))

 +15                                   SET X=$$SETSTR^VALM1(DISPNM,X,EASCOL("DATA ITEM"),EASWID("DATA ITEM"))

 +16      ;S X=$$SETSTR^VALM1(ACCEPT,X,EASCOL("ACCEPT"),EASWID("ACCEPT"))

 +17                                   SET X=$$SETSTR^VALM1(EZDATA,X,EASCOL("EZDATA"),EASWID("EZDATA"))

 +18                                   SET X=$$SETSTR^VALM1(PTDATA,X,EASCOL("PTDATA"),EASWID("PTDATA"))

 +19                                   DO SET^VALM10(EASLN,X)

 +20                                   IF ACCEPT>0

                                           DO FLDCTRL^VALM10(EASLN,"EZDATA",IORVON,IORVOFF)

 +21                                   SET ^TMP("EASEXP",$JOB,"IDX",EASLN)=SUBIEN_U_MULTIPLE_U_KEYIEN

                                   End DoDot:3

                       End DoDot:2

               End DoDot:1

 +22      ;add info from Section of 1010EZ

 +23       KILL FARRAY

 +24       SET DA=EASAPP

           SET DIC="^EAS(712,"

           SET DR="4.3;4.4;12"

           SET DIQ="FARRAY"

           SET DIQ(0)="E"

 +25       DO EN^DIQ1

 +26       SET DR=13

           SET DIQ="WARRAY"

 +27       DO EN^DIQ1

 +28      ;

 +29       SET EASLN=EASLN+1

 +30       SET X=$$SETSTR^VALM1("  ","",1,2)

           DO SET^VALM10(EASLN,X)

 +31       SET EASLN=EASLN+1

 +32       SET X=$$SETSTR^VALM1("  ","",1,2)

           DO SET^VALM10(EASLN,X)

 +33       SET EASLN=EASLN+1

 +34       SET X=$$SETSTR^VALM1("Appointment Requested: ","",1,24)

           SET X=$$SETSTR^VALM1($GET(FARRAY(712,EASAPP,4.4,"E")),X,25,30)

 +35       DO SET^VALM10(EASLN,X)

 +36      ;

 +37       SET EASLN=EASLN+1

 +38       SET X=$$SETSTR^VALM1("  ","",1,2)

           DO SET^VALM10(EASLN,X)

 +39       SET EASLN=EASLN+1

 +40       SET X=$$SETSTR^VALM1("Services Requested: ","",1,24)

           DO SET^VALM10(EASLN,X)

 +41       SET EASLN=EASLN+1

 +42       SET X=$$SETSTR^VALM1($GET(FARRAY(712,EASAPP,12,"E")),"",3,78)

           DO SET^VALM10(EASLN,X)

 +43      ;

 +44       SET EASLN=EASLN+1

 +45       SET X=$$SETSTR^VALM1("  ","",1,2)

           DO SET^VALM10(EASLN,X)

 +46       SET EASLN=EASLN+1

 +47       SET X=$$SETSTR^VALM1("Comments: ","",1,12)

           DO SET^VALM10(EASLN,X)

 +48       IF $DATA(WARRAY)>1

               SET WOUT=0

               SET JJ=0

FOR

                   Begin DoDot:1

 +49                   SET JJ=JJ+1

                       SET C=$GET(WARRAY(712,EASAPP,13,JJ))

 +50                   IF C=""

                           SET WOUT=1

                           QUIT

 +51                   SET EASLN=EASLN+1

 +52                   SET X=$$SETSTR^VALM1(C,"",3,78)

                       DO SET^VALM10(EASLN,X)

                   End DoDot:1

                   if WOUT

                       QUIT

 +53      ;

 +54       SET EASLN=EASLN+1

 +55       SET X=$$SETSTR^VALM1("  ","",1,2)

           DO SET^VALM10(EASLN,X)

 +56       SET EASLN=EASLN+1

 +57       SET X=$$SETSTR^VALM1("E-mail: ","",1,9)

           SET X=$$SETSTR^VALM1($GET(FARRAY(712,EASAPP,4.3,"E")),X,10,60)

 +58       DO SET^VALM10(EASLN,X)

 +59      ;

 +60       SET VALMCNT=EASLN

           SET $PIECE(^TMP("EASEXP",$JOB,0),U,4)=VALMCNT

 +61       QUIT

 +62      ;

EXIT2     ;

 +1        DO CLEAN^VALM10

 +2        LOCK -^EAS(712,EASAPP,0)

 +3        KILL ^TMP("EASEXP",$JOB),^TMP("EASEZPSRT",$JOB),^TMP("EASEZPIDX",$JOB)

 +4        KILL ^TMP("EZDATA",$JOB),^TMP("EZINDEX",$JOB),^TMP("EZTEMP",$JOB),^TMP("EZDISP",$JOB)

 +5        QUIT

EASEZL1.m