Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EASEZQ

EASEZQ.m

Go to the documentation of this file. 
  1. EASEZQ ;ALB/jap - 1010EZ Quick Lookup ;02/26/2001  13:07
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
  1.  ;
  1. EN ;Main entry point from 1010EZ menu option
  1.  N X,Y,DIC,DA,OUT,DTOUT,DUOUT
  1.  ;Ask user to select processing status
  1.  W @IOF
  1.  W !,"10-10EZ Application Quick Lookup --",!
  1.  W !,"At the prompt, you may enter any one of the following:"
  1.  W !!,?5,"(1) Application ID"
  1.  W !,?5,"    Example: 158"
  1.  W !!,?5,"(2) Web Submission ID"
  1.  W !,?5,"    Example: 4537-15222-2001"
  1.  W !,?5,"             Hyphens must appear just as received from"
  1.  W !,?5,"             the On-Line 1010-EZ application."
  1.  W !!,?5,"(3) Applicant Name"
  1.  W !,?5,"    Examples: SMITH,JOHN R"
  1.  W !,?5,"              JONES,D"
  1.  W !,?5,"              No space between last and first name."
  1.  W !!,?5,"(4) Applicant SSN"
  1.  W !,?5,"    Example: 111-22-3333"
  1.  W !,?5,"             Must be entered as nnn-nn-nnnn."
  1.  W !
  1.  ;do lookup
  1.  S OUT=0 F  D  Q:OUT
  1.  .K X,Y
  1.  .S DIC=712,DIC(0)="AEQMZ" D ^DIC
  1.  .I ($D(DUOUT))!($D(DTOUT))!(Y=-1) S OUT=1 Q
  1.  .I Y>0 D DISPLAY K X,Y
  1.  D KILL^%ZISS
  1.  Q
  1.  ;
  1. DISPLAY ;display application data
  1.  N APPNO,WEBID,APPNM,APPSSN,APPDOB,RECDT,NEWPT,EXPECT,FIDIS,CURR,COMM,ARRAY,DA,DIQ,DIC,DR,XX
  1.  S X="IORVON;IORVOFF" D ENDR^%ZISS
  1.  W @IOF
  1.  I $G(Y(0))'="" D
  1.  .S APPNO=$P(Y(0),U,1),WEBID=$P(Y(0),U,2),APPNM=$P(Y(0),U,4)
  1.  .S APPSSN=$P($P(Y(0),U,5),"&",1),APPDOB=$P($P(Y(0),U,5),"&",2)
  1.  .S X=$P(Y(0),U,11),NEWPT=$S(X=1:"YES",1:"")
  1.  .S X=$P(Y(0),U,13),EXPECT=$S(X=1:"YES",X=0:"NO",1:"")
  1.  .S X=$P(Y(0),U,14),FIDIS=$S(X=1:"YES",X=0:"NO",1:"")
  1.  .S Y=$P(Y(0),U,6) D DD^%DT S RECDT=Y
  1.  .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
  1.  .S X=$$GET1^DIQ(712,APPNO_",",13,"","COMM")
  1.  .S X=$$CURRSTAT^EASEZU2(APPNO)
  1.  .S CURR=$S(X="CLS":"INACTIVATED",X="FIL":"FILED",X="SIG":"SIGNED",X="PRT":"PRINTED,PENDING SIG.",X="REV":"IN REVIEW",1:"NEW")
  1.  .;display screen1 of data
  1.  .;line1
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("App #: ",X,1,8),X=$$SETSTR^VALM1(APPNO,X,9,6)
  1.  .S X=$$SETSTR^VALM1("Web ID: ",X,40,8),X=$$SETSTR^VALM1(WEBID,X,53,20)
  1.  .W !,X
  1.  .;line2
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("To: ",X,1,7),XX=$G(ARRAY(712,APPNO,4.5,"E")),X=$$SETSTR^VALM1(XX,X,9,8)
  1.  .S X=$$SETSTR^VALM1("Date Rec'd: ",X,40,12),X=$$SETSTR^VALM1(RECDT,X,53,18)
  1.  .W !,X
  1.  .;line3
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Status: ",X,1,8),X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
  1.  .W !,X
  1.  .;line4
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Applicant: ",X,1,11),X=$$SETSTR^VALM1(APPNM,X,12,26)
  1.  .S X=$$SETSTR^VALM1("SSN: ",X,40,5),X=$$SETSTR^VALM1(APPSSN,X,45,11)
  1.  .S X=$$SETSTR^VALM1("DOB: ",X,61,5),X=$$SETSTR^VALM1(APPDOB,X,66,14)
  1.  .W !,X
  1.  .W !
  1.  .;line5
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Vet Type: ",X,1,11),XX=$G(ARRAY(712,APPNO,3.3,"E")),X=$$SETSTR^VALM1(XX,X,12,10)
  1.  .S X=$$SETSTR^VALM1("Vet new to Vista?:",X,40,22),X=$$SETSTR^VALM1(NEWPT,X,63,4)
  1.  .W !,X
  1.  .;line6
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Financial Disclosure: ",X,1,22),X=$$SETSTR^VALM1(FIDIS,X,23,4)
  1.  .S X=$$SETSTR^VALM1("Expect copy from vet?:",X,40,22),X=$$SETSTR^VALM1(EXPECT,X,63,4)
  1.  .W !,X
  1.  .W !
  1.  .;line7
  1.  .S X=""
  1.  .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)
  1.  .S X=$$SETSTR^VALM1("Print date: ",X,40,13),XX=$G(ARRAY(712,APPNO,6.1,"E")),X=$$SETSTR^VALM1(XX,X,53,14)
  1.  .W !,X
  1.  .;line8
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Sign date: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
  1.  .S X=$$SETSTR^VALM1("File date: ",X,40,13),XX=$G(ARRAY(712,APPNO,7.1,"E")),X=$$SETSTR^VALM1(XX,X,53,14)
  1.  .W !,X
  1.  .;line9
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Inactivate date: ",X,1,20),XX=$G(ARRAY(712,APPNO,9.1,"E")),X=$$SETSTR^VALM1(XX,X,21,14)
  1.  .W !,X
  1.  .W !
  1.  .;line10
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Services Requested: ",X,1,20),XX=$G(ARRAY(712,APPNO,12,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
  1.  .W !,X
  1.  .;line11
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Appt. Requested: ",X,1,20),XX=$G(ARRAY(712,APPNO,4.4,"E")),X=$$SETSTR^VALM1(XX,X,21,78)
  1.  .W !,X
  1.  .;line12
  1.  .S X=""
  1.  .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)
  1.  .W !,X
  1.  .;end of screen1
  1.  .K DIR D PAUSE^VALM1
  1.  .Q:X="^"
  1.  .;display screen2 of data
  1.  .W @IOF
  1.  .;line1
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("App #: ",X,1,8),X=$$SETSTR^VALM1(APPNO,X,9,6)
  1.  .S X=$$SETSTR^VALM1("Web ID: ",X,40,8),X=$$SETSTR^VALM1(WEBID,X,53,20)
  1.  .W !,X
  1.  .;line2
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Status: ",X,1,8),X=$$SETSTR^VALM1(IORVON_CURR_IORVOFF,X,9,30)
  1.  .W !,X
  1.  .;line3
  1.  .S X=""
  1.  .S X=$$SETSTR^VALM1("Applicant: ",X,1,11),X=$$SETSTR^VALM1(APPNM,X,12,26)
  1.  .W !,X
  1.  .W !
  1.  .;comments
  1.  .W !,"Comments --"
  1.  .S I=0 F  S I=$O(COMM(I)) Q:'I  D
  1.  ..W !,?3,COMM(I)
  1.  ..W !
  1.  .K DIR D PAUSE^VALM1
  1.  Q