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")
Q
;
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
Q
;
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
Q
;
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
Q
;
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
Q
;
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)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZL1 5419 printed Oct 16, 2024@17:55:25 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
