EASEZQ ;ALB/jap - 1010EZ Quick Lookup ;02/26/2001 13:07
;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
;
EN ;Main entry point from 1010EZ menu option
N X,Y,DIC,DA,OUT,DTOUT,DUOUT
;Ask user to select processing status
W @IOF
W !,"10-10EZ Application Quick Lookup --",!
W !,"At the prompt, you may enter any one of the following:"
W !!,?5,"(1) Application ID"
W !,?5," Example: 158"
W !!,?5,"(2) Web Submission ID"
W !,?5," Example: 4537-15222-2001"
W !,?5," Hyphens must appear just as received from"
W !,?5," the On-Line 1010-EZ application."
W !!,?5,"(3) Applicant Name"
W !,?5," Examples: SMITH,JOHN R"
W !,?5," JONES,D"
W !,?5," No space between last and first name."
W !!,?5,"(4) Applicant SSN"
W !,?5," Example: 111-22-3333"
W !,?5," Must be entered as nnn-nn-nnnn."
W !
;do lookup
S OUT=0 F D Q:OUT
.K X,Y
.S DIC=712,DIC(0)="AEQMZ" D ^DIC
.I ($D(DUOUT))!($D(DTOUT))!(Y=-1) S OUT=1 Q
.I Y>0 D DISPLAY K X,Y
D KILL^%ZISS
Q
;
DISPLAY ;display application data
N APPNO,WEBID,APPNM,APPSSN,APPDOB,RECDT,NEWPT,EXPECT,FIDIS,CURR,COMM,ARRAY,DA,DIQ,DIC,DR,XX
S X="IORVON;IORVOFF" D ENDR^%ZISS
W @IOF
I $G(Y(0))'="" D
.S APPNO=$P(Y(0),U,1),WEBID=$P(Y(0),U,2),APPNM=$P(Y(0),U,4)
.S APPSSN=$P($P(Y(0),U,5),"&",1),APPDOB=$P($P(Y(0),U,5),"&",2)
.S X=$P(Y(0),U,11),NEWPT=$S(X=1:"YES",1:"")
.S X=$P(Y(0),U,13),EXPECT=$S(X=1:"YES",X=0:"NO",1:"")
.S X=$P(Y(0),U,14),FIDIS=$S(X=1:"YES",X=0:"NO",1:"")
.S Y=$P(Y(0),U,6) D DD^%DT S RECDT=Y
.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
.S X=$$GET1^DIQ(712,APPNO_",",13,"","COMM")
.S X=$$CURRSTAT^EASEZU2(APPNO)
.S CURR=$S(X="CLS":"INACTIVATED",X="FIL":"FILED",X="SIG":"SIGNED",X="PRT":"PRINTED,PENDING SIG.",X="REV":"IN REVIEW",1:"NEW")
.;display screen1 of data
.;line1
.S X=""
.S X=$$SETSTR^VALM1("App #: ",X,1,8),X=$$SETSTR^VALM1(APPNO,X,9,6)
.S X=$$SETSTR^VALM1("Web ID: ",X,40,8),X=$$SETSTR^VALM1(WEBID,X,53,20)
.W !,X
.;line2
.S X=""
.S X=$$SETSTR^VALM1("To: ",X,1,7),XX=$G(ARRAY(712,APPNO,4.5,"E")),X=$$SETSTR^VALM1(XX,X,9,8)
.S X=$$SETSTR^VALM1("Date Rec'd: ",X,40,12),X=$$SETSTR^VALM1(RECDT,X,53,18)
.W !,X
.;line3
.S X=""
.S X=$$SETSTR^VALM1("Status: ",X,1,8),X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
.W !,X
.;line4
.S X=""
.S X=$$SETSTR^VALM1("Applicant: ",X,1,11),X=$$SETSTR^VALM1(APPNM,X,12,26)
.S X=$$SETSTR^VALM1("SSN: ",X,40,5),X=$$SETSTR^VALM1(APPSSN,X,45,11)
.S X=$$SETSTR^VALM1("DOB: ",X,61,5),X=$$SETSTR^VALM1(APPDOB,X,66,14)
.W !,X
.W !
.;line5
.S X=""
.S X=$$SETSTR^VALM1("Vet Type: ",X,1,11),XX=$G(ARRAY(712,APPNO,3.3,"E")),X=$$SETSTR^VALM1(XX,X,12,10)
.S X=$$SETSTR^VALM1("Vet new to Vista?:",X,40,22),X=$$SETSTR^VALM1(NEWPT,X,63,4)
.W !,X
.;line6
.S X=""
.S X=$$SETSTR^VALM1("Financial Disclosure: ",X,1,22),X=$$SETSTR^VALM1(FIDIS,X,23,4)
.S X=$$SETSTR^VALM1("Expect copy from vet?:",X,40,22),X=$$SETSTR^VALM1(EXPECT,X,63,4)
.W !,X
.W !
.;line7
.S X=""
.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)
.S X=$$SETSTR^VALM1("Print date: ",X,40,13),XX=$G(ARRAY(712,APPNO,6.1,"E")),X=$$SETSTR^VALM1(XX,X,53,14)
.W !,X
.;line8
.S X=""
.S X=$$SETSTR^VALM1("Sign date: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
.S X=$$SETSTR^VALM1("File date: ",X,40,13),XX=$G(ARRAY(712,APPNO,7.1,"E")),X=$$SETSTR^VALM1(XX,X,53,14)
.W !,X
.;line9
.S X=""
.S X=$$SETSTR^VALM1("Inactivate date: ",X,1,20),XX=$G(ARRAY(712,APPNO,9.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
.W !,X
.W !
.;line10
.S X=""
.S X=$$SETSTR^VALM1("Services Requested: ",X,1,20),XX=$G(ARRAY(712,APPNO,12,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
.W !,X
.;line11
.S X=""
.S X=$$SETSTR^VALM1("Appt. Requested: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.4,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
.W !,X
.;line12
.S X=""
.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)
.W !,X
.;end of screen1
.K DIR D PAUSE^VALM1
.Q:X="^"
.;display screen2 of data
.W @IOF
.;line1
.S X=""
.S X=$$SETSTR^VALM1("App #: ",X,1,8),X=$$SETSTR^VALM1(APPNO,X,9,6)
.S X=$$SETSTR^VALM1("Web ID: ",X,40,8),X=$$SETSTR^VALM1(WEBID,X,53,20)
.W !,X
.;line2
.S X=""
.S X=$$SETSTR^VALM1("Status: ",X,1,8),X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
.W !,X
.;line3
.S X=""
.S X=$$SETSTR^VALM1("Applicant: ",X,1,11),X=$$SETSTR^VALM1(APPNM,X,12,26)
.W !,X
.W !
.;comments
.W !,"Comments --"
.S I=0 F S I=$O(COMM(I)) Q:'I D
..W !,?3,COMM(I)
..W !
.K DIR D PAUSE^VALM1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASEZQ 4763 printed Nov 22, 2024@17:05:09 Page 2
EASEZQ ;ALB/jap - 1010EZ Quick Lookup ;02/26/2001 13:07
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
+2 ;
EN ;Main entry point from 1010EZ menu option
+1 NEW X,Y,DIC,DA,OUT,DTOUT,DUOUT
+2 ;Ask user to select processing status
+3 WRITE @IOF
+4 WRITE !,"10-10EZ Application Quick Lookup --",!
+5 WRITE !,"At the prompt, you may enter any one of the following:"
+6 WRITE !!,?5,"(1) Application ID"
+7 WRITE !,?5," Example: 158"
+8 WRITE !!,?5,"(2) Web Submission ID"
+9 WRITE !,?5," Example: 4537-15222-2001"
+10 WRITE !,?5," Hyphens must appear just as received from"
+11 WRITE !,?5," the On-Line 1010-EZ application."
+12 WRITE !!,?5,"(3) Applicant Name"
+13 WRITE !,?5," Examples: SMITH,JOHN R"
+14 WRITE !,?5," JONES,D"
+15 WRITE !,?5," No space between last and first name."
+16 WRITE !!,?5,"(4) Applicant SSN"
+17 WRITE !,?5," Example: 111-22-3333"
+18 WRITE !,?5," Must be entered as nnn-nn-nnnn."
+19 WRITE !
+20 ;do lookup
+21 SET OUT=0
FOR
Begin DoDot:1
+22 KILL X,Y
+23 SET DIC=712
SET DIC(0)="AEQMZ"
DO ^DIC
+24 IF ($DATA(DUOUT))!($DATA(DTOUT))!(Y=-1)
SET OUT=1
QUIT
+25 IF Y>0
DO DISPLAY
KILL X,Y
End DoDot:1
if OUT
QUIT
+26 DO KILL^%ZISS
+27 QUIT
+28 ;
DISPLAY ;display application data
+1 NEW APPNO,WEBID,APPNM,APPSSN,APPDOB,RECDT,NEWPT,EXPECT,FIDIS,CURR,COMM,ARRAY,DA,DIQ,DIC,DR,XX
+2 SET X="IORVON;IORVOFF"
DO ENDR^%ZISS
+3 WRITE @IOF
+4 IF $GET(Y(0))'=""
Begin DoDot:1
+5 SET APPNO=$PIECE(Y(0),U,1)
SET WEBID=$PIECE(Y(0),U,2)
SET APPNM=$PIECE(Y(0),U,4)
+6 SET APPSSN=$PIECE($PIECE(Y(0),U,5),"&",1)
SET APPDOB=$PIECE($PIECE(Y(0),U,5),"&",2)
+7 SET X=$PIECE(Y(0),U,11)
SET NEWPT=$SELECT(X=1:"YES",1:"")
+8 SET X=$PIECE(Y(0),U,13)
SET EXPECT=$SELECT(X=1:"YES",X=0:"NO",1:"")
+9 SET X=$PIECE(Y(0),U,14)
SET FIDIS=$SELECT(X=1:"YES",X=0:"NO",1:"")
+10 SET Y=$PIECE(Y(0),U,6)
DO DD^%DT
SET RECDT=Y
+11 SET DIQ="ARRAY"
SET DIQ(0)="E"
SET DA=+APPNO
SET DR="3.3;4;4.1;4.3;4.4;4.5;5.1;6.1;7.1;9.1;12"
SET DIC=712
DO EN^DIQ1
+12 SET X=$$GET1^DIQ(712,APPNO_",",13,"","COMM")
+13 SET X=$$CURRSTAT^EASEZU2(APPNO)
+14 SET CURR=$SELECT(X="CLS":"INACTIVATED",X="FIL":"FILED",X="SIG":"SIGNED",X="PRT":"PRINTED,PENDING SIG.",X="REV":"IN REVIEW",1:"NEW")
+15 ;display screen1 of data
+16 ;line1
+17 SET X=""
+18 SET X=$$SETSTR^VALM1("App #: ",X,1,8)
SET X=$$SETSTR^VALM1(APPNO,X,9,6)
+19 SET X=$$SETSTR^VALM1("Web ID: ",X,40,8)
SET X=$$SETSTR^VALM1(WEBID,X,53,20)
+20 WRITE !,X
+21 ;line2
+22 SET X=""
+23 SET X=$$SETSTR^VALM1("To: ",X,1,7)
SET XX=$GET(ARRAY(712,APPNO,4.5,"E"))
SET X=$$SETSTR^VALM1(XX,X,9,8)
+24 SET X=$$SETSTR^VALM1("Date Rec'd: ",X,40,12)
SET X=$$SETSTR^VALM1(RECDT,X,53,18)
+25 WRITE !,X
+26 ;line3
+27 SET X=""
+28 SET X=$$SETSTR^VALM1("Status: ",X,1,8)
SET X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
+29 WRITE !,X
+30 ;line4
+31 SET X=""
+32 SET X=$$SETSTR^VALM1("Applicant: ",X,1,11)
SET X=$$SETSTR^VALM1(APPNM,X,12,26)
+33 SET X=$$SETSTR^VALM1("SSN: ",X,40,5)
SET X=$$SETSTR^VALM1(APPSSN,X,45,11)
+34 SET X=$$SETSTR^VALM1("DOB: ",X,61,5)
SET X=$$SETSTR^VALM1(APPDOB,X,66,14)
+35 WRITE !,X
+36 WRITE !
+37 ;line5
+38 SET X=""
+39 SET X=$$SETSTR^VALM1("Vet Type: ",X,1,11)
SET XX=$GET(ARRAY(712,APPNO,3.3,"E"))
SET X=$$SETSTR^VALM1(XX,X,12,10)
+40 SET X=$$SETSTR^VALM1("Vet new to Vista?:",X,40,22)
SET X=$$SETSTR^VALM1(NEWPT,X,63,4)
+41 WRITE !,X
+42 ;line6
+43 SET X=""
+44 SET X=$$SETSTR^VALM1("Financial Disclosure: ",X,1,22)
SET X=$$SETSTR^VALM1(FIDIS,X,23,4)
+45 SET X=$$SETSTR^VALM1("Expect copy from vet?:",X,40,22)
SET X=$$SETSTR^VALM1(EXPECT,X,63,4)
+46 WRITE !,X
+47 WRITE !
+48 ;line7
+49 SET X=""
+50 SET X=$$SETSTR^VALM1("Review start date: ",X,1,20)
SET XX=$GET(ARRAY(712,APPNO,5.1,"E"))
SET X=$$SETSTR^VALM1(XX,X,21,14)
+51 SET X=$$SETSTR^VALM1("Print date: ",X,40,13)
SET XX=$GET(ARRAY(712,APPNO,6.1,"E"))
SET X=$$SETSTR^VALM1(XX,X,53,14)
+52 WRITE !,X
+53 ;line8
+54 SET X=""
+55 SET X=$$SETSTR^VALM1("Sign date: ",X,1,20)
SET XX=$GET(ARRAY(712,APPNO,4.1,"E"))
SET X=$$SETSTR^VALM1(XX,X,21,14)
+56 SET X=$$SETSTR^VALM1("File date: ",X,40,13)
SET XX=$GET(ARRAY(712,APPNO,7.1,"E"))
SET X=$$SETSTR^VALM1(XX,X,53,14)
+57 WRITE !,X
+58 ;line9
+59 SET X=""
+60 SET X=$$SETSTR^VALM1("Inactivate date: ",X,1,20)
SET XX=$GET(ARRAY(712,APPNO,9.1,"E"))
SET X=$$SETSTR^VALM1(XX,X,21,14)
+61 WRITE !,X
+62 WRITE !
+63 ;line10
+64 SET X=""
+65 SET X=$$SETSTR^VALM1("Services Requested: ",X,1,20)
SET XX=$GET(ARRAY(712,APPNO,12,"E"))
SET X=$$SETSTR^VALM1(XX,X,21,78)
+66 WRITE !,X
+67 ;line11
+68 SET X=""
+69 SET X=$$SETSTR^VALM1("Appt. Requested: ",X,1,20)
SET XX=$GET(ARRAY(712,APPNO,4.4,"E"))
SET X=$$SETSTR^VALM1(XX,X,21,78)
+70 WRITE !,X
+71 ;line12
+72 SET X=""
+73 SET X=$$SETSTR^VALM1("e-mail Address: ",X,1,20)
SET XX=$GET(ARRAY(712,APPNO,4.3,"E"))
SET X=$$SETSTR^VALM1(XX,X,21,78)
+74 WRITE !,X
+75 ;end of screen1
+76 KILL DIR
DO PAUSE^VALM1
+77 if X="^"
QUIT
+78 ;display screen2 of data
+79 WRITE @IOF
+80 ;line1
+81 SET X=""
+82 SET X=$$SETSTR^VALM1("App #: ",X,1,8)
SET X=$$SETSTR^VALM1(APPNO,X,9,6)
+83 SET X=$$SETSTR^VALM1("Web ID: ",X,40,8)
SET X=$$SETSTR^VALM1(WEBID,X,53,20)
+84 WRITE !,X
+85 ;line2
+86 SET X=""
+87 SET X=$$SETSTR^VALM1("Status: ",X,1,8)
SET X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
+88 WRITE !,X
+89 ;line3
+90 SET X=""
+91 SET X=$$SETSTR^VALM1("Applicant: ",X,1,11)
SET X=$$SETSTR^VALM1(APPNM,X,12,26)
+92 WRITE !,X
+93 WRITE !
+94 ;comments
+95 WRITE !,"Comments --"
+96 SET I=0
FOR
SET I=$ORDER(COMM(I))
if 'I
QUIT
Begin DoDot:2
+97 WRITE !,?3,COMM(I)
+98 WRITE !
End DoDot:2
+99 KILL DIR
DO PAUSE^VALM1
End DoDot:1
+100 QUIT