source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZL1.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 5.2 KB
Line 
1EASEZL1 ;ALB/jap - 1010EZ List Manager Processing Screens (cont.) ;10/12/00 13:07
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
3 ;
4EN ;Entry point to build list area for EAS EZ Applications processing
5 ;
6 D EN^VALM("EAS EZ 1010EZ INITIAL SCREEN")
7 Q
8 ;
9EXPND ;
10 N V
11 K EASDFN,EASEZNEW,EASAPP,EASLOCK,EASLN
12 K ^TMP("EASEXP",$J)
13 S EASARY="EASEXP"
14 S VALMBCK=""
15 D SEL^EASEZLM
16 Q:$G(EASERR)
17 Q:'$G(EASSEL)
18 S EASAPP=$O(^TMP("EASEZ",$J,"IDX",EASSEL,0))
19 S EASLOCK=1 L +^EAS(712,EASAPP,0):5 I '$T S EASLOCK=0
20 I 'EASLOCK D Q
21 .W !,"Another user is processing that Application... try later.",!
22 .D PAUSE^VALM1
23 .S VALMBCK="R"
24 S V=EASVIEW,EASPSTAT=$S(V=1:"NEW",V=2:"REV",V=3:"PRT",V=4:"SIG",V=5:"FIL",V=6:"CLS",1:"")
25 I EASVIEW=1 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW1")
26 I EASVIEW=2 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW2")
27 I EASVIEW=3 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW3")
28 I EASVIEW=4 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW4")
29 I EASVIEW=5 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW5")
30 I EASVIEW=6 W ! D WAIT^DICD,EN^VALM("EAS EZ 1010EZ REVIEW6")
31 ;revision of 01/09/01 -- 'filed' separated from 'signed' so
32 ; EASVIEW=4 --> signed
33 ; EASVIEW=5 --> filed
34 ; EASVIEW=6 --> closed/inactivated
35 Q
36 ;
37INIT2 ;
38 ;generate ^TMP("EZDISP",$J, in order to build display
39 S EASDFN=+$P(^EAS(712,EASAPP,0),U,10)
40 D EN^EASEZC1(EASAPP,EASDFN)
41 D HDR2
42 D BLD2
43 I '$G(VALMCNT) D NOLINES^EASEZLM
44 Q
45 ;
46HDR2 ;
47 N H,V,X,XX,SEL,FAC,JNAME,EDATE,WEBID,WILLSEND
48 S SEL=^TMP("EASEZIDX",$J,EASAPP)
49 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)
50 S WILLSEND=$S(WILLSEND:"YES",1:"NO")
51 S V=EASPSTAT
52 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:"")
53 I H="FILED",$P($G(^EAS(712,EASAPP,2)),U,11)'="" S H="Still filing..."
54 S X="Application #:",X=$$SETSTR^VALM1(X,"",1,14)
55 S X=$$SETSTR^VALM1(EASAPP,X,16,6)
56 S FAC="("_FAC_")",X=$$SETSTR^VALM1(FAC,X,27,8)
57 S XX="Status:",X=$$SETSTR^VALM1(XX,X,46,12)
58 S X=$$SETSTR^VALM1(H,X,59,21)
59 S VALMHDR(1)=X
60 S X="Applicant:",X=$$SETSTR^VALM1(X,"",1,14)
61 S X=$$SETSTR^VALM1(JNAME,X,16,28)
62 S XX="Date Rec'd:",X=$$SETSTR^VALM1(XX,X,46,12)
63 S X=$$SETSTR^VALM1(EDATE,X,59,21)
64 S VALMHDR(2)=X
65 S X="Web ID #:",X=$$SETSTR^VALM1(X,"",1,14)
66 S X=$$SETSTR^VALM1(WEBID,X,16,28)
67 S XX="Vet Sending Signed Form?: "_WILLSEND,X=$$SETSTR^VALM1(XX,X,46,30)
68 S VALMHDR(3)=X
69 Q
70 ;
71BLD2 ;
72 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
73 D CLEAR^VALM1
74 K ^TMP("EASEXPSRT",$J),^TMP("EASEXPIDX",$J)
75 S VALMBG=1,VALMCNT=0
76 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)
77 S EASLN=0,EASNUM=0
78 ;build ^TMP("EASEXP", array which creates screen listing
79 S S="" F S S=$O(^TMP("EZDISP",$J,S)) Q:S="" D
80 .S MULTIPLE=0 F S MULTIPLE=$O(^TMP("EZDISP",$J,S,MULTIPLE)) Q:'MULTIPLE D
81 ..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
82 ...S X=^TMP("EZDISP",$J,S,MULTIPLE,Q1,QX)
83 ...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)
84 ...S EASLN=EASLN+1,EASNUM=EASNUM+1
85 ...S X=$$SETSTR^VALM1(EASLN,"",EASCOL("NUMBER"),EASWID("NUMBER"))
86 ...S X=$$SETSTR^VALM1(DISPNM,X,EASCOL("DATA ITEM"),EASWID("DATA ITEM"))
87 ...;S X=$$SETSTR^VALM1(ACCEPT,X,EASCOL("ACCEPT"),EASWID("ACCEPT"))
88 ...S X=$$SETSTR^VALM1(EZDATA,X,EASCOL("EZDATA"),EASWID("EZDATA"))
89 ...S X=$$SETSTR^VALM1(PTDATA,X,EASCOL("PTDATA"),EASWID("PTDATA"))
90 ...D SET^VALM10(EASLN,X)
91 ...I ACCEPT>0 D FLDCTRL^VALM10(EASLN,"EZDATA",IORVON,IORVOFF)
92 ...S ^TMP("EASEXP",$J,"IDX",EASLN)=SUBIEN_U_MULTIPLE_U_KEYIEN
93 ;add info from Section of 1010EZ
94 K FARRAY
95 S DA=EASAPP,DIC="^EAS(712,",DR="4.3;4.4;12",DIQ="FARRAY",DIQ(0)="E"
96 D EN^DIQ1
97 S DR=13,DIQ="WARRAY"
98 D EN^DIQ1
99 ;
100 S EASLN=EASLN+1
101 S X=$$SETSTR^VALM1(" ","",1,2) D SET^VALM10(EASLN,X)
102 S EASLN=EASLN+1
103 S X=$$SETSTR^VALM1(" ","",1,2) D SET^VALM10(EASLN,X)
104 S EASLN=EASLN+1
105 S X=$$SETSTR^VALM1("Appointment Requested: ","",1,24),X=$$SETSTR^VALM1($G(FARRAY(712,EASAPP,4.4,"E")),X,25,30)
106 D SET^VALM10(EASLN,X)
107 ;
108 S EASLN=EASLN+1
109 S X=$$SETSTR^VALM1(" ","",1,2) D SET^VALM10(EASLN,X)
110 S EASLN=EASLN+1
111 S X=$$SETSTR^VALM1("Services Requested: ","",1,24) D SET^VALM10(EASLN,X)
112 S EASLN=EASLN+1
113 S X=$$SETSTR^VALM1($G(FARRAY(712,EASAPP,12,"E")),"",3,78) D SET^VALM10(EASLN,X)
114 ;
115 S EASLN=EASLN+1
116 S X=$$SETSTR^VALM1(" ","",1,2) D SET^VALM10(EASLN,X)
117 S EASLN=EASLN+1
118 S X=$$SETSTR^VALM1("Comments: ","",1,12) D SET^VALM10(EASLN,X)
119 I $D(WARRAY)>1 S WOUT=0,JJ=0 F D Q:WOUT
120 .S JJ=JJ+1,C=$G(WARRAY(712,EASAPP,13,JJ))
121 .I C="" S WOUT=1 Q
122 .S EASLN=EASLN+1
123 .S X=$$SETSTR^VALM1(C,"",3,78) D SET^VALM10(EASLN,X)
124 ;
125 S EASLN=EASLN+1
126 S X=$$SETSTR^VALM1(" ","",1,2) D SET^VALM10(EASLN,X)
127 S EASLN=EASLN+1
128 S X=$$SETSTR^VALM1("E-mail: ","",1,9),X=$$SETSTR^VALM1($G(FARRAY(712,EASAPP,4.3,"E")),X,10,60)
129 D SET^VALM10(EASLN,X)
130 ;
131 S VALMCNT=EASLN,$P(^TMP("EASEXP",$J,0),U,4)=VALMCNT
132 Q
133 ;
134EXIT2 ;
135 D CLEAN^VALM10
136 L -^EAS(712,EASAPP,0)
137 K ^TMP("EASEXP",$J),^TMP("EASEZPSRT",$J),^TMP("EASEZPIDX",$J)
138 K ^TMP("EZDATA",$J),^TMP("EZINDEX",$J),^TMP("EZTEMP",$J),^TMP("EZDISP",$J)
139 Q
Note: See TracBrowser for help on using the repository browser.