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

EASEZU4.m

Go to the documentation of this file. 
  1. EASEZU4 ;ALB/jap - Utilities for 1010EZ Processing ;10/25/00  08:08
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,70**;Mar 15, 2001;Build 26
  1.  ;
  1. PRT1010 ;print 10-10EZ form with data
  1.  ;
  1.  N TASK,REVDATE,PRTDATE,ACTION,DIR
  1.  S ACTION="'Print 10-10EZ'"
  1.  ;no action if closed
  1.  I EASPSTAT="CLS" D NOACT^EASEZLM("Inactivated",ACTION) Q
  1.  ;don't print if not at least reviewed
  1.  S REVDATE=$P($G(^EAS(712,EASAPP,2)),U,1)
  1.  I 'REVDATE D NOACT^EASEZLM("Unreviewed",ACTION) Q
  1.  ;just in case
  1.  I EASPSTAT="NEW" D NOACT^EASEZLM("New",ACTION) Q
  1.  ;call to Steve's routine to print 10-10EZ
  1.  D FULL^VALM1
  1.  S TASK=$$QUE^EASEZPF(EASAPP,EASDFN)
  1.  ;should return Task # if actually queued to print
  1.  ;if printed, update processing status if necessary; can be printed multiple times
  1.  S PRTDATE=$P(^EAS(712,EASAPP,2),U,3)
  1.  I 'PRTDATE,$G(TASK) D
  1.  . D SETDATE^EASEZU2(EASAPP,"PRT") S EASPSTAT="PRT"
  1.  . ;rebuild selection list since this application is removed from list
  1.  . D BLD^EASEZLM,HDR2^EASEZL1
  1.  S VALMBCK="R"
  1.  D PAUSE^VALM1
  1.  Q
  1.  ;
  1. VERSIG ;verify Applicant signature on 10-10EZ
  1.  ;
  1.  N REVDATE,ACTION,DIR
  1.  S ACTION="'Verify Signature'"
  1.  ;no action if closed
  1.  I EASPSTAT="CLS" D NOACT^EASEZLM("Inactivated",ACTION) Q
  1.  ;can't verify sig if not at least reviewed
  1.  S REVDATE=$P($G(^EAS(712,EASAPP,2)),U,1)
  1.  I 'REVDATE D NOACT^EASEZLM("Unreviewed",ACTION) Q
  1.  ;can't sign if already done
  1.  I EASPSTAT="SIG" D NOACT^EASEZLM("Previously Signed",ACTION) Q
  1.  ;just in case
  1.  I EASPSTAT="NEW" D NOACT^EASEZLM("New",ACTION) Q
  1.  I EASPSTAT="FIL" D NOACT^EASEZLM("Filed",ACTION) Q
  1.  ;update processing status
  1.  D SETDATE^EASEZU2(EASAPP,"SIG")
  1.  S EASPSTAT="SIG"
  1.  W !,"Applicant signature is verified...",!
  1.  ;rebuild selection list since this application is removed from list
  1.  D BLD^EASEZLM,HDR2^EASEZL1
  1.  S VALMBCK="Q"
  1.  D PAUSE^VALM1
  1.  Q
  1.  ;
  1. FILE ;file 10-10EZ 'accepted' data to VistA Patient database
  1.  ;
  1.  N SIGDATE,ACTION,SAVE,ZTSK,STAT,DIR
  1.  S ACTION="'File 10-10EZ'"
  1.  ;no action if closed
  1.  I EASPSTAT="CLS" D NOACT^EASEZLM("Inactivated",ACTION) Q
  1.  ;must be signed before filing
  1.  S SIGDATE=$P($G(^EAS(712,EASAPP,1)),U,1)
  1.  I 'SIGDATE D NOACT^EASEZLM("Unsigned",ACTION) Q
  1.  ;can't repeat filing
  1.  I EASPSTAT="FIL" D NOACT^EASEZLM("Previously Filed",ACTION) Q
  1.  S STAT=$$CURRSTAT^EASEZU2(EASAPP) I STAT="FIL" D NOACT^EASEZLM("Previously Filed",ACTION) Q
  1.  ;just in case
  1.  I EASPSTAT="NEW" D NOACT^EASEZLM("New",ACTION) Q
  1.  I EASPSTAT="REV" D NOACT^EASEZLM("Unsigned",ACTION) Q
  1.  I EASPSTAT="PRT" D NOACT^EASEZLM("Unsigned",ACTION) Q
  1.  ;
  1.  D FILE2
  1.  ;rebuild selection list since this application is removed from list
  1.  S VALMBCK="R"
  1.  I $D(ZTSK) D
  1.  . D SETDATE^EASEZU2(EASAPP,"FIL")
  1.  . S EASPSTAT="FIL"
  1.  . S $P(^EAS(712,EASAPP,2),U,11)=ZTSK
  1.  . D BLD^EASEZLM S VALMBCK="Q"
  1.  Q
  1.  ;
  1. CLOSE ;close/inactivate the Application
  1.  ;
  1.  N SIGDATE,FILDATE,ACTION
  1.  S ACTION="'Inactivate'"
  1.  ;not allowed if signed or filed
  1.  S FILDATE=$P($G(^EAS(712,EASAPP,2)),U,5)
  1.  I FILDATE D NOACT^EASEZLM("Filed",ACTION) Q
  1.  S SIGDATE=$P($G(^EAS(712,EASAPP,1)),U,1)
  1.  I SIGDATE D NOACT^EASEZLM("Signed",ACTION) Q
  1.  ;no action if already closed
  1.  I EASPSTAT="CLS" D NOACT^EASEZLM("Previously Inactivated",ACTION) Q
  1.  ;clear accept flags and updates
  1.  D OKRESET^EASEZU3
  1.  ;update processing status
  1.  D SETDATE^EASEZU2(EASAPP,"CLS")
  1.  S EASPSTAT="CLS"
  1.  W !,"Application has been closed/inactivated...",!
  1.  D PAUSE^VALM1
  1.  ;rebuild selection list since this application is removed from list
  1.  D BLD^EASEZLM
  1.  S VALMBCK="Q"
  1.  Q
  1.  ;
  1. FILE2 ;
  1.  N VALMDDF,ZTSAVE,ZTDESC,ZTRTN,ZTIO
  1.  K ZTSAVE
  1.  S ZTDESC="Filing 10-10EZ Data (Appl. #"_EASAPP_") to VistA",ZTRTN="QUE^EASEZFM",ZTIO=""
  1.  S ZTSAVE("EASAPP")=""
  1.  D ^%ZTLOAD
  1.  I $D(ZTSK) D
  1.  . ;update processing status
  1.  . W !,"10-10EZ data is being filed as a background job."
  1.  . W !,"Task #: ",ZTSK,!
  1.  . K DIR D PAUSE^VALM1
  1.  Q
  1.  ;
  1. SUPPRESS(EASAPP,DATAKEY,TYPE,VERSION) ;alb/cmf/51
  1.  ;EASAPP = file 712 ien
  1.  ;DATAKEY = file 711/.1
  1.  ;TYPE = 0:display[default], 1:file, 2:accept
  1.  ;VERSION = version # of an application
  1.  ;
  1.  ;RETURN VALUE = 1 if node should not be displayed, filed, or accepted
  1.  ;               0, otherwise
  1.  ;
  1.  N FLAG,CHKKEY
  1.  Q:$G(EASAPP)="" 0
  1.  Q:$G(DATAKEY)="" 0
  1.  S:$G(VERSION)="" VERSION=$$VERSION(EASAPP)
  1.  Q:+VERSION<6 0
  1.  S FLAG=0
  1.  ;EAS*1.0*70 -- added CHKKEY and up-arrows around datakeys below
  1.  S CHKKEY="^"_DATAKEY_"^"
  1.  S TYPE=$S($G(TYPE)=1:1,$G(TYPE)=2:2,1:0)
  1.  I TYPE=0 D  Q FLAG
  1.  . I "^I;18A.^I;18B.^I;18C.^I;18D.^"[CHKKEY S FLAG=1 Q   ;obs
  1.  . I "^IIC;1.1^IIC;1.2^IIC;1.3^"[CHKKEY S FLAG=1 Q       ;obs
  1.  . I "^I;1A.5^IIC;3.^I;14D1.^"[CHKKEY S FLAG=1 Q         ;obs
  1.  . I "^I;14C.^I;14D.^I;14D2.^I;14H.^"[CHKKEY S FLAG=1 Q  ;obs
  1.  . I "^IIE;1.^IIE;2.^IIE;3.^"[CHKKEY S FLAG=1 Q          ;print only
  1.  . ;EAS*1.0*70 - until added to the web form,
  1.  . ;only print and file APPLICANT COUNTRY
  1.  . I "^I;9H.^"[CHKKEY S FLAG=1 Q
  1.  . Q
  1.  I TYPE=1 D  Q FLAG
  1.  . I "^I;14D.^I;14D1.^I;14D2.^"[CHKKEY S FLAG=1 Q    ;obs
  1.  . I "^IIC;1.1^IIC;1.2^IIC;1.3^"[CHKKEY S FLAG=1 Q   ;obs
  1.  . I "^IIE;1.^IIE;2.^IIE;3.^"[CHKKEY S FLAG=1 Q      ;print only
  1.  . I "^IIC;1.6^IIC;2.3^IIC;3.3^"[CHKKEY S FLAG=1 Q   ;disp only
  1.  . Q
  1.  ;
  1.  Q FLAG
  1.  ;
  1. VERSION(EASAPP) ;alb/cmf/51
  1.  ;return the version # of an application
  1.  Q:$G(EASAPP)="" -1
  1.  Q:'$D(^EAS(712,EASAPP)) -1
  1.  Q +$P(^EAS(712,EASAPP,0),U,12)
  1.  ;