source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZL2.m@ 846

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

initial load of WorldVistAEHR
File size: 4.3 KB
RevLine 
[613]1EASEZL2 ;ALB/jap - 1010EZ List Manager Processing Screens (cont.) ;12/12/00 13:07
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
3 ;
4HELP2 ;Help code
5 I $D(X),X'["??" D Q
6 .D CLEAR^VALM1
7 .W !!,?2,"Only two actions require a list line number indentifier --",!
8 .W !,?6,IOINHI,"AF Accept Field",IOINORM," -->",?22,"Enter ",IORVON,"AF=n",IORVOFF," to act on the field shown in line #n."
9 .W !,?6,IOINHI,"UF Update Field",IOINORM," -->",?22,"Enter ",IORVON,"UF=n",IORVOFF," to act on the field shown in line #n."
10 .W !!,?2,"All other actions act on the Application as a whole,"
11 .W !,?2,"so a line number is not used."
12 .W !!,?2,"Actions ",IOINHI,"Verify Signature",IOINORM,", ",IOINHI,"File 10-10EZ",IOINORM,", and ",IOINHI,"Inactivate",IOINORM
13 .W !,?2,"can be used only once per Application."
14 .D PAUSE^VALM1 S VALMBCK="R"
15 D CLEAR^VALM1
16 I EASPSTAT="NEW" D Q
17 .W !!,"Allowed actions for NEW Applications are:",!
18 .D HLZ
19 .D HIZ
20 .D PAUSE^VALM1 S VALMBCK="R"
21 I EASPSTAT="REV" D Q
22 .W !!,"Allowed actions for IN REVIEW Applications are:",!
23 .D HAF
24 .D HAZ
25 .D HUF
26 .D HCZ
27 .D PAUSE^VALM1
28 .D HRZ
29 .D HPZ
30 .D HVZ
31 .D HIZ
32 .D PAUSE^VALM1 S VALMBCK="R"
33 I EASPSTAT="PRT" D Q
34 .W !!,"Allowed actions for PENDING SIGNATURE Applications are:",!
35 .D HRZ
36 .D HPZ
37 .D PAUSE^VALM1
38 .D HVZ
39 .D HIZ
40 .D PAUSE^VALM1 S VALMBCK="R"
41 I EASPSTAT="SIG" D Q
42 .W !!,"Allowed actions for SIGNED Applications are:",!
43 .D HUF
44 .D HPZ
45 .D PAUSE^VALM1
46 .D HFZ
47 .D PAUSE^VALM1 S VALMBCK="R"
48 I EASPSTAT="FIL" D Q
49 .W !!,"Allowed actions for FILED Applications are:",!
50 .D HPZ
51 .D PAUSE^VALM1 S VALMBCK="R"
52 I EASPSTAT="CLS" D Q
53 .W !!,"There are no allowed actions for an INACTIVATED Application.",!
54 .D PAUSE^VALM1 S VALMBCK="R"
55 Q
56 ;
57HLZ ;
58 W !!,?2,IOINHI,"LZ Link to Patient File",IOINORM
59 W !,?6,"The veteran associated with a NEW Application must be 'linked' to"
60 W !,?6,"the VistA Patient database."
61 W !,?6,"VistA Patient Lookup function is employed to match the applicant"
62 W !,?6,"to an existing Patient OR to establish a new Patient record."
63 Q
64 ;
65HAF ;
66 W !!,?2,IOINHI,"AF Accept Field",IOINORM," --> Enter ",IORVON,"AF=n",IORVOFF," to act on the field shown in line #n."
67 W !,?6,"The 10-10 EZ data element on line #n is 'accepted' for later filing"
68 W !,?6,"into the VistA Patient database."
69 W !,?6,"Using this action on a previously 'accepted' data element,"
70 W !,?6,"removes the 'accepted' indicator."
71 Q
72 ;
73HAZ ;
74 W !!,?2,IOINHI,"AZ Accept All",IOINORM
75 W !,?6,"All 10-10 EZ data element are 'accepted' for later filing into"
76 W !,?6,"the VistA Patient database."
77 Q
78 ;
79HCZ ;
80 W !!,?2,IOINHI,"CZ Clear All",IOINORM
81 W !,?6,"The 'accepted' indicator is removed from any fields previously"
82 W !,?6,"'accepted'."
83 Q
84 ;
85HRZ ;
86 W !!,?2,IOINHI,"RZ Reset to New",IOINORM
87 W !,?6,"The Application is returned to the 'New' processing status."
88 W !,?6,"It can be re-matched to the VistA database."
89 Q
90 ;
91HIZ ;
92 W !!,?2,IOINHI,"IZ Inactivate",IOINORM
93 W !,?6,"Once the Application is inactivated, it will no longer be available"
94 W !,?6,"for processing."
95 W !,?6,"Use this action only if the Application is deemed invalid or is being"
96 W !,?6,"replaced by a new Application."
97 Q
98 ;
99HPZ ;
100 W !!,?2,IOINHI,"PZ Print 10-10EZ",IOINORM
101 W !,?6,"Once the 10-10EZ is Printed, actions of Accept Field, Accept All,"
102 W !,?6,"Clear All, and Update Field can no longer be used."
103 W !,?6,"The 10-10EZ form is printed using all 'accepted' data. "
104 W !,?6,"VistA Patient data is used for any fields not 'accepted'."
105 W !,?6,"Printing must be queued to a valid print device."
106 Q
107 ;
108HVZ ;
109 W !!,?2,IOINHI,"VZ Verify Signature",IOINORM
110 W !,?6,"The user verifies that the Applicant's signature appears on a"
111 W !,?6,"printed 10-10EZ."
112 Q
113 ;
114HUF ;
115 W !!,?2,IOINHI,"UF Update Field",IOINORM," --> Enter ",IORVON,"UF=n",IORVOFF," to act on the field shown in line #n."
116 W !,?6,"The 10-10 EZ data element on line #n can be overwritten by the user for"
117 W !,?6,"later filing into VistA."
118 W !,?6,"This action should be used to enter the Applicant's hand-written"
119 W !,?6,"changes to the signed 10-10EZ."
120 Q
121 ;
122HFZ ;
123 W !!,?2,IOINHI,"FZ File 10-10EZ",IOINORM
124 W !,?6,"All 'accepted' data elements on the 10-10EZ are filed to the"
125 W !,?6,"VistA Patient database."
126 W !,?6,"Use this action with caution -- 10-10EZ data elements will overwrite"
127 W !,?6,"any existing data in Vista."
128 Q
Note: See TracBrowser for help on using the repository browser.