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

EASEZL2.m

Go to the documentation of this file. 
  1. EASEZL2 ;ALB/jap - 1010EZ List Manager Processing Screens (cont.) ;12/12/00  13:07
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;;Mar 15, 2001
  1.  ;
  1. HELP2 ;Help code
  1.  I $D(X),X'["??" D  Q
  1.  .D CLEAR^VALM1
  1.  .W !!,?2,"Only two actions require a list line number indentifier --",!
  1.  .W !,?6,IOINHI,"AF Accept Field",IOINORM," -->",?22,"Enter ",IORVON,"AF=n",IORVOFF," to act on the field shown in line #n."
  1.  .W !,?6,IOINHI,"UF Update Field",IOINORM," -->",?22,"Enter ",IORVON,"UF=n",IORVOFF," to act on the field shown in line #n."
  1.  .W !!,?2,"All other actions act on the Application as a whole,"
  1.  .W !,?2,"so a line number is not used."
  1.  .W !!,?2,"Actions ",IOINHI,"Verify Signature",IOINORM,", ",IOINHI,"File 10-10EZ",IOINORM,", and ",IOINHI,"Inactivate",IOINORM
  1.  .W !,?2,"can be used only once per Application."
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  D CLEAR^VALM1
  1.  I EASPSTAT="NEW" D  Q
  1.  .W !!,"Allowed actions for NEW Applications are:",!
  1.  .D HLZ
  1.  .D HIZ
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  I EASPSTAT="REV" D  Q
  1.  .W !!,"Allowed actions for IN REVIEW Applications are:",!
  1.  .D HAF
  1.  .D HAZ
  1.  .D HUF
  1.  .D HCZ
  1.  .D PAUSE^VALM1
  1.  .D HRZ
  1.  .D HPZ
  1.  .D HVZ
  1.  .D HIZ
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  I EASPSTAT="PRT" D  Q
  1.  .W !!,"Allowed actions for PENDING SIGNATURE Applications are:",!
  1.  .D HRZ
  1.  .D HPZ
  1.  .D PAUSE^VALM1
  1.  .D HVZ
  1.  .D HIZ
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  I EASPSTAT="SIG" D  Q
  1.  .W !!,"Allowed actions for SIGNED Applications are:",!
  1.  .D HUF
  1.  .D HPZ
  1.  .D PAUSE^VALM1
  1.  .D HFZ
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  I EASPSTAT="FIL" D  Q
  1.  .W !!,"Allowed actions for FILED Applications are:",!
  1.  .D HPZ
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  I EASPSTAT="CLS" D  Q
  1.  .W !!,"There are no allowed actions for an INACTIVATED Application.",!
  1.  .D PAUSE^VALM1 S VALMBCK="R"
  1.  Q
  1.  ;
  1. HLZ ;
  1.  W !!,?2,IOINHI,"LZ  Link to Patient File",IOINORM
  1.  W !,?6,"The veteran associated with a NEW Application must be 'linked' to"
  1.  W !,?6,"the VistA Patient database."
  1.  W !,?6,"VistA Patient Lookup function is employed to match the applicant"
  1.  W !,?6,"to an existing Patient OR to establish a new Patient record."
  1.  Q
  1.  ;
  1. HAF ;
  1.  W !!,?2,IOINHI,"AF  Accept Field",IOINORM," --> Enter ",IORVON,"AF=n",IORVOFF," to act on the field shown in line #n."
  1.  W !,?6,"The 10-10 EZ data element on line #n is 'accepted' for later filing"
  1.  W !,?6,"into the VistA Patient database."
  1.  W !,?6,"Using this action on a previously 'accepted' data element,"
  1.  W !,?6,"removes the 'accepted' indicator."
  1.  Q
  1.  ;
  1. HAZ ;
  1.  W !!,?2,IOINHI,"AZ  Accept All",IOINORM
  1.  W !,?6,"All 10-10 EZ data element are 'accepted' for later filing into"
  1.  W !,?6,"the VistA Patient database."
  1.  Q
  1.  ;
  1. HCZ ;
  1.  W !!,?2,IOINHI,"CZ  Clear All",IOINORM
  1.  W !,?6,"The 'accepted' indicator is removed from any fields previously"
  1.  W !,?6,"'accepted'."
  1.  Q
  1.  ;
  1. HRZ ;
  1.  W !!,?2,IOINHI,"RZ  Reset to New",IOINORM
  1.  W !,?6,"The Application is returned to the 'New' processing status."
  1.  W !,?6,"It can be re-matched to the VistA database."
  1.  Q
  1.  ;
  1. HIZ ;
  1.  W !!,?2,IOINHI,"IZ  Inactivate",IOINORM
  1.  W !,?6,"Once the Application is inactivated, it will no longer be available"
  1.  W !,?6,"for processing."
  1.  W !,?6,"Use this action only if the Application is deemed invalid or is being"
  1.  W !,?6,"replaced by a new Application."
  1.  Q
  1.  ;
  1. HPZ ;
  1.  W !!,?2,IOINHI,"PZ  Print 10-10EZ",IOINORM
  1.  W !,?6,"Once the 10-10EZ is Printed, actions of Accept Field, Accept All,"
  1.  W !,?6,"Clear All, and Update Field can no longer be used."
  1.  W !,?6,"The 10-10EZ form is printed using all 'accepted' data. "
  1.  W !,?6,"VistA Patient data is used for any fields not 'accepted'."
  1.  W !,?6,"Printing must be queued to a valid print device."
  1.  Q
  1.  ;
  1. HVZ ;
  1.  W !!,?2,IOINHI,"VZ  Verify Signature",IOINORM
  1.  W !,?6,"The user verifies that the Applicant's signature appears on a"
  1.  W !,?6,"printed 10-10EZ."
  1.  Q
  1.  ;
  1. HUF ;
  1.  W !!,?2,IOINHI,"UF  Update Field",IOINORM," --> Enter ",IORVON,"UF=n",IORVOFF," to act on the field shown in line #n."
  1.  W !,?6,"The 10-10 EZ data element on line #n can be overwritten by the user for"
  1.  W !,?6,"later filing into VistA."
  1.  W !,?6,"This action should be used to enter the Applicant's hand-written"
  1.  W !,?6,"changes to the signed 10-10EZ."
  1.  Q
  1.  ;
  1. HFZ ;
  1.  W !!,?2,IOINHI,"FZ  File 10-10EZ",IOINORM
  1.  W !,?6,"All 'accepted' data elements on the 10-10EZ are filed to the"
  1.  W !,?6,"VistA Patient database."
  1.  W !,?6,"Use this action with caution -- 10-10EZ data elements will overwrite"
  1.  W !,?6,"any existing data in Vista."
  1.  Q