source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZQ.m@ 861

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

initial load of WorldVistAEHR
File size: 4.5 KB
Line 
1EASEZQ ;ALB/jap - 1010EZ Quick Lookup ;02/26/2001 13:07
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
3 ;
4EN ;Main entry point from 1010EZ menu option
5 N X,Y,DIC,DA,OUT,DTOUT,DUOUT
6 ;Ask user to select processing status
7 W @IOF
8 W !,"10-10EZ Application Quick Lookup --",!
9 W !,"At the prompt, you may enter any one of the following:"
10 W !!,?5,"(1) Application ID"
11 W !,?5," Example: 158"
12 W !!,?5,"(2) Web Submission ID"
13 W !,?5," Example: 4537-15222-2001"
14 W !,?5," Hyphens must appear just as received from"
15 W !,?5," the On-Line 1010-EZ application."
16 W !!,?5,"(3) Applicant Name"
17 W !,?5," Examples: SMITH,JOHN R"
18 W !,?5," JONES,D"
19 W !,?5," No space between last and first name."
20 W !!,?5,"(4) Applicant SSN"
21 W !,?5," Example: 111-22-3333"
22 W !,?5," Must be entered as nnn-nn-nnnn."
23 W !
24 ;do lookup
25 S OUT=0 F D Q:OUT
26 .K X,Y
27 .S DIC=712,DIC(0)="AEQMZ" D ^DIC
28 .I ($D(DUOUT))!($D(DTOUT))!(Y=-1) S OUT=1 Q
29 .I Y>0 D DISPLAY K X,Y
30 D KILL^%ZISS
31 Q
32 ;
33DISPLAY ;display application data
34 N APPNO,WEBID,APPNM,APPSSN,APPDOB,RECDT,NEWPT,EXPECT,FIDIS,CURR,COMM,ARRAY,DA,DIQ,DIC,DR,XX
35 S X="IORVON;IORVOFF" D ENDR^%ZISS
36 W @IOF
37 I $G(Y(0))'="" D
38 .S APPNO=$P(Y(0),U,1),WEBID=$P(Y(0),U,2),APPNM=$P(Y(0),U,4)
39 .S APPSSN=$P($P(Y(0),U,5),"&",1),APPDOB=$P($P(Y(0),U,5),"&",2)
40 .S X=$P(Y(0),U,11),NEWPT=$S(X=1:"YES",1:"")
41 .S X=$P(Y(0),U,13),EXPECT=$S(X=1:"YES",X=0:"NO",1:"")
42 .S X=$P(Y(0),U,14),FIDIS=$S(X=1:"YES",X=0:"NO",1:"")
43 .S Y=$P(Y(0),U,6) D DD^%DT S RECDT=Y
44 .S DIQ="ARRAY",DIQ(0)="E",DA=+APPNO,DR="3.3;4;4.1;4.3;4.4;4.5;5.1;6.1;7.1;9.1;12",DIC=712 D EN^DIQ1
45 .S X=$$GET1^DIQ(712,APPNO_",",13,"","COMM")
46 .S X=$$CURRSTAT^EASEZU2(APPNO)
47 .S CURR=$S(X="CLS":"INACTIVATED",X="FIL":"FILED",X="SIG":"SIGNED",X="PRT":"PRINTED,PENDING SIG.",X="REV":"IN REVIEW",1:"NEW")
48 .;display screen1 of data
49 .;line1
50 .S X=""
51 .S X=$$SETSTR^VALM1("App #: ",X,1,8),X=$$SETSTR^VALM1(APPNO,X,9,6)
52 .S X=$$SETSTR^VALM1("Web ID: ",X,40,8),X=$$SETSTR^VALM1(WEBID,X,53,20)
53 .W !,X
54 .;line2
55 .S X=""
56 .S X=$$SETSTR^VALM1("To: ",X,1,7),XX=$G(ARRAY(712,APPNO,4.5,"E")),X=$$SETSTR^VALM1(XX,X,9,8)
57 .S X=$$SETSTR^VALM1("Date Rec'd: ",X,40,12),X=$$SETSTR^VALM1(RECDT,X,53,18)
58 .W !,X
59 .;line3
60 .S X=""
61 .S X=$$SETSTR^VALM1("Status: ",X,1,8),X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
62 .W !,X
63 .;line4
64 .S X=""
65 .S X=$$SETSTR^VALM1("Applicant: ",X,1,11),X=$$SETSTR^VALM1(APPNM,X,12,26)
66 .S X=$$SETSTR^VALM1("SSN: ",X,40,5),X=$$SETSTR^VALM1(APPSSN,X,45,11)
67 .S X=$$SETSTR^VALM1("DOB: ",X,61,5),X=$$SETSTR^VALM1(APPDOB,X,66,14)
68 .W !,X
69 .W !
70 .;line5
71 .S X=""
72 .S X=$$SETSTR^VALM1("Vet Type: ",X,1,11),XX=$G(ARRAY(712,APPNO,3.3,"E")),X=$$SETSTR^VALM1(XX,X,12,10)
73 .S X=$$SETSTR^VALM1("Vet new to Vista?:",X,40,22),X=$$SETSTR^VALM1(NEWPT,X,63,4)
74 .W !,X
75 .;line6
76 .S X=""
77 .S X=$$SETSTR^VALM1("Financial Disclosure: ",X,1,22),X=$$SETSTR^VALM1(FIDIS,X,23,4)
78 .S X=$$SETSTR^VALM1("Expect copy from vet?:",X,40,22),X=$$SETSTR^VALM1(EXPECT,X,63,4)
79 .W !,X
80 .W !
81 .;line7
82 .S X=""
83 .S X=$$SETSTR^VALM1("Review start date: ",X,1,20),XX=$G(ARRAY(712,APPNO,5.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
84 .S X=$$SETSTR^VALM1("Print date: ",X,40,13),XX=$G(ARRAY(712,APPNO,6.1,"E")),X=$$SETSTR^VALM1(XX,X,53,14)
85 .W !,X
86 .;line8
87 .S X=""
88 .S X=$$SETSTR^VALM1("Sign date: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
89 .S X=$$SETSTR^VALM1("File date: ",X,40,13),XX=$G(ARRAY(712,APPNO,7.1,"E")),X=$$SETSTR^VALM1(XX,X,53,14)
90 .W !,X
91 .;line9
92 .S X=""
93 .S X=$$SETSTR^VALM1("Inactivate date: ",X,1,20),XX=$G(ARRAY(712,APPNO,9.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
94 .W !,X
95 .W !
96 .;line10
97 .S X=""
98 .S X=$$SETSTR^VALM1("Services Requested: ",X,1,20),XX=$G(ARRAY(712,APPNO,12,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
99 .W !,X
100 .;line11
101 .S X=""
102 .S X=$$SETSTR^VALM1("Appt. Requested: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.4,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
103 .W !,X
104 .;line12
105 .S X=""
106 .S X=$$SETSTR^VALM1("e-mail Address: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.3,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
107 .W !,X
108 .;end of screen1
109 .K DIR D PAUSE^VALM1
110 .Q:X="^"
111 .;display screen2 of data
112 .W @IOF
113 .;line1
114 .S X=""
115 .S X=$$SETSTR^VALM1("App #: ",X,1,8),X=$$SETSTR^VALM1(APPNO,X,9,6)
116 .S X=$$SETSTR^VALM1("Web ID: ",X,40,8),X=$$SETSTR^VALM1(WEBID,X,53,20)
117 .W !,X
118 .;line2
119 .S X=""
120 .S X=$$SETSTR^VALM1("Status: ",X,1,8),X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
121 .W !,X
122 .;line3
123 .S X=""
124 .S X=$$SETSTR^VALM1("Applicant: ",X,1,11),X=$$SETSTR^VALM1(APPNM,X,12,26)
125 .W !,X
126 .W !
127 .;comments
128 .W !,"Comments --"
129 .S I=0 F S I=$O(COMM(I)) Q:'I D
130 ..W !,?3,COMM(I)
131 ..W !
132 .K DIR D PAUSE^VALM1
133 Q
Note: See TracBrowser for help on using the repository browser.