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

EASEZPDG.m

Go to the documentation of this file. 
  1. EASEZPDG ;ALB/AMA/GTS/CMF - PRINT 10-10EZ OR EZR FROM DG OPTIONS ; 8/1/08 1:23pm
  1.  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57,70**;Mar 15, 2001;Build 26
  1.  ;
  1.  Q
  1.  ;
  1. ENEZR(EASDFN,EASMTIEN) ;DBIA 4600 - PRINT THE 10-10EZR FROM DG OPTIONS
  1.  ;   INPUT:
  1.  ;      EASDFN - POINTER TO THE PATIENT FILE (#2) - required
  1.  ;      EASMTIEN - POINTER TO MEANS TEST FILE (#408.31) - optional
  1.  ;       (+ien, "", or 0)
  1.  ;   OUTPUT:
  1.  ;      (+ien or ""):ZTSK - TASKMAN JOB NUMBER
  1.  ;      (0):mt ien (forces test lookup only)
  1.  ;
  1.  N EASFLAG,X
  1.  S EASFLAG="EZR"
  1.  S EASDFN=$G(EASDFN)
  1.  S EASMTIEN=$G(EASMTIEN)
  1.  ;
  1.  S X=$$ENEZ(EASDFN,EASMTIEN)
  1.  Q X
  1.  ;
  1. ENEZ(EASDFN,EASMTIEN) ;DBIA 4600 - PRINT THE 10-10EZ FROM DG OPTIONS
  1.  ;   INPUT:
  1.  ;      EASDFN - POINTER TO THE PATIENT FILE (#2) - required
  1.  ;      EASMTIEN - POINTER TO MEANS TEST FILE (#408.31) - optional
  1.  ;       (+ien, "", or 0)
  1.  ;   OUTPUT:
  1.  ;      (+ien or ""):ZTSK - TASKMAN JOB NUMBER
  1.  ;      (0):mt ien (forces test lookup only)
  1.  ;
  1.  S EASDFN=$G(EASDFN)
  1.  S EASMTIEN=$G(EASMTIEN)
  1.  I EASMTIEN=0 Q $$PICK^EASEZPVU(EASDFN,0)
  1.  E  S EASMTIEN=$$PICK^EASEZPVU(EASDFN,EASMTIEN)
  1.  ;
  1.  ;If any EAS applications exist, ensure they're all filed
  1.  N X,INPROG
  1.  S X=0,INPROG=0 F  S X=$O(^EAS(712,"AC",EASDFN,X)) Q:'X!INPROG  D
  1.  . I $$GET1^DIQ(712,X,7.1)="" D
  1.  . . N IX,DATE F IX="REV","PRT","SIG" Q:INPROG  D
  1.  . . . S DATE=0 F  S DATE=$O(^EAS(712,IX,DATE)) Q:'DATE!INPROG  D
  1.  . . . . I $D(^EAS(712,IX,DATE,X)) S INPROG=1
  1.  I INPROG D  Q 0
  1.  . N DIR
  1.  . W !!,"No data have been found for the selected patient, or"
  1.  . W !,"the patient may have an on-line 10-10EZ application"
  1.  . W !,"in progress.  The 10-10EZ"_$S($G(EASFLAG)="EZR":"R",1:"")_" form shall not be printed."
  1.  . S DIR(0)="E" D ^DIR
  1.  ;
  1.  N %ZIS,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZUSR,POP,ERR
  1.  ;
  1.  W !!?5,*7,"Do not select a slave device for output."
  1.  W !?5,"This output requires a 132 column output printer."
  1.  W !?5,"Output to SCREEN will be unreadable.",!
  1.  ;
  1.  ;
  1. DEV S %ZIS="QM"
  1.  S %ZIS("S")="I $P($G(^(1)),U)'[""SLAVE""&($P($G(^(0)),U)'[""SLAVE"")"
  1.  S %ZIS("B")=""
  1.  ;S IOP="Q"
  1.  D ^%ZIS
  1.  ;
  1.  I POP D  G EXIT
  1.  . I $D(IO("Q")) K IO("Q")
  1.  . W !,"Print request cancelled!"
  1.  . Q
  1.  I IO=IO(0),$E(IOST,1,2)="C-" D  G DEV
  1.  . W !,*7,"CANNOT QUEUE TO HOME DEVICE!",!
  1.  . Q
  1.  ;
  1.  I $G(EASFLAG)="EZR" S ZTDESC="1010EZR PRINT"
  1.  E  S ZTDESC="1010EZ PRINT"
  1.  S ZUSR=DUZ,ZTRTN="EN^EASEZPDG"
  1.  ;
  1.  F X="ZUSR","EASDFN","EASMTIEN","EASFLAG" S ZTSAVE(X)=""
  1.  D ^%ZTLOAD
  1.  D HOME^%ZIS
  1.  ;
  1. EXIT Q +$G(ZTSK)
  1.  ;
  1. EN ;BACKGROUND JOB ENTRY POINT TO PRINT EZ/EZR FROM DG OPTIONS
  1.  ;
  1.  N EASAPP,C2711
  1.  S EASAPP=0
  1.  I '$G(EASVRSN) S EASVRSN=6
  1.  ;
  1.  ;SET UP ^TMP("EZDATA" AND ^TMP("EZINDEX" FROM ^EAS(711,"A","A"
  1.  D LOCAL711^EASEZU2
  1.  ;
  1.  S C2711=+$$KEY711^EASEZU1("TYPE OF BENEFIT-ENROLLMENT")
  1.  D VISTA^EASEZPVD(EASDFN,EASMTIEN)
  1.  ;
  1.  ;SET UP ^TMP("EZTEMP" AND ^TMP("EZDISP" GLOBALS
  1.  D SORT^EASEZC3(0)
  1.  ;
  1.  ;SET UP PRINT VARIABLES
  1.  N EALNE,EAINFO,EAABRT,EAADL,EAMULT,EAAD,EACNT,KEY
  1.  D SETUP^EASEZPDU(.EALNE,.EAINFO)
  1.  ;
  1.  ;DETERMINE WHICH FORM TO PRINT
  1.  I $G(EASFLAG)="EZR" D EZR I 1
  1.  E  D EZ
  1.  ;
  1.  K ^TMP("EASEZ",$J),^TMP("EASEZR",$J)
  1.  K ^TMP("EZDATA",$J),^TMP("EZRDATA",$J)
  1.  K ^TMP("EZINDEX",$J),^TMP("EZRINDEX",$J)
  1.  K ^TMP("EZTEMP",$J),^TMP("EZRTEMP",$J)
  1.  K ^TMP("EZDISP",$J),^TMP("EZRDISP",$J)
  1.  Q
  1.  ;
  1. EZR ; Entry point to print 1010EZR
  1.  ;
  1.  N EASDG,EAADL,EAAD,EACNT
  1.  M ^TMP("EASEZR",$J)=^TMP("EASEZ",$J) K ^TMP("EASEZ",$J)
  1.  M ^TMP("EZRDATA",$J)=^TMP("EZDATA",$J) K ^TMP("EZDATA",$J)
  1.  M ^TMP("EZRINDEX",$J)=^TMP("EZINDEX",$J) K ^TMP("EZINDEX",$J)
  1.  M ^TMP("EZRTEMP",$J)=^TMP("EZTEMP",$J) K ^TMP("EZTEMP",$J)
  1.  M ^TMP("EZRDISP",$J)=^TMP("EZDISP",$J) K ^TMP("EZDISP",$J)
  1.  ;
  1.  D PAGE1^EASEZRPU
  1.  D EN^EASEZRP1(.EALNE,.EAINFO)
  1.  ;
  1.  D PAGE2^EASEZRPP
  1.  S EASDG=1   ;FLAG VARIABLE TO SIGNIFY PRINTING FROM DG
  1.  D EN^EASEZRP2(.EALNE,.EAINFO,EASDG)
  1.  ;
  1.  ;EAS*1.0*70
  1.  N EASMTV
  1.  I +$G(EASMTIEN) S EASMTV=+$P($G(^DGMT(408.31,EASMTIEN,2)),U,11)
  1.  I +$G(EASMTV)=0 D NETEZR^EASEZPDU(.EALNE,.EAINFO,EASDG) I 1
  1.  E  D EN^EASEZRP3(.EALNE,.EAINFO,EASDG)
  1.  ;
  1.  ;Print additional insurance pages if more than 1 insurance company
  1.  F EAADL=1:1 Q:'$D(^TMP("EZRTEMP",$J,"IA",EAADL))  D
  1.  . S EAAD=1
  1.  . D PAGEI^EASEZRPU(EAADL)
  1.  I $G(EAAD) D EN^EASEZRPI(.EALNE,.EAINFO)
  1.  ;
  1.  ;Print additional dependent pages if more than 1 dependent
  1.  S EAAD=0 F EAADL=1:1 Q:'$D(^TMP("EZRTEMP",$J,"IIB",EAADL))  D
  1.  . S EAAD=1   ;FLAG THAT THERE ARE ADDITIONAL DEPENDENTS
  1.  . D PAGEN^EASEZRPU(EAADL)
  1.  I EAAD D EN^EASEZRPD(.EALNE,.EAINFO)
  1.  ;
  1.  ;Print additional dependent financial pages if more
  1.  ;than 1 dependent, starting with the 2nd one
  1.  ;(since Child 1 info already displayed on pages 2 & 3)
  1.  S EAAD=0,EAADL=1 F  S EAADL=$O(^TMP("EZRTEMP",$J,"IIF",EAADL)) Q:'EAADL  D
  1.  . S EAAD=1,KEY=+$$KEY711^EASEZU1("CHILD(N) CHILD #")
  1.  . S ^TMP("EZRTEMP",$J,"IIF",EAADL,"7.")=KEY_"^CHILD "_EAADL_"^1"
  1.  . D PAGEDFF^EASEZRPP(EAADL)
  1.  ;
  1.  ;EAS*1.0*70
  1.  I +$G(EASMTV)=0 D  Q
  1.  . ;SINCE ANY ADDITIONAL DEPENDENTS' NET WORTH AMOUNTS (SECTION IIG)
  1.  . ;ARE INCLUDED IN THE VET'S AMOUNT, DISPLAY A MESSAGE ON THE FORM
  1.  . I EAAD D
  1.  . . N TEMP,HDR,FTR,BEGF,BEGG,ADFF,FNP,GNP
  1.  . . S TEMP="EASEZR",HDR="HDR^EASEZRPF(.EALNE,.EAINFO)"
  1.  . . S FTR="FT^EASEZRPF(.EALNE,.EAINFO)",BEGF="BEGINF^EASEZRPM"
  1.  . . S BEGG="BEGING^EASEZRPM",ADFF="ADFF^EASEZRPM"
  1.  . . S FNP=9,GNP=7
  1.  . . D NETMSG
  1.  . ;
  1.  E  D
  1.  . ;WITH NEW MEANS TEST VERSION, DISPLAY EACH CHILD'S NET WORTH AMOUNTS
  1.  . N EAADG
  1.  . S EAADG=0,EAADL=1 F  S EAADL=$O(^TMP("EZRTEMP",$J,"IIG",EAADL)) Q:'EAADL  D
  1.  . . S EAADG=1,KEY=+$$KEY711^EASEZU1("CHILD(N) CHILD #")
  1.  . . S ^TMP("EZRTEMP",$J,"IIG",EAADL,"9.")=KEY_"^CHILD "_EAADL_"^1"
  1.  . . D PAGEDFG^EASEZRPP(EAADL)
  1.  . I EAAD!EAADG D EN^EASEZRPM(.EALNE,.EAINFO,EASDG)
  1.  ;
  1.  Q
  1.  ;
  1. EZ ;PRINT THE 10-10EZ FORM (copied from EASEZP6F)
  1.  ;
  1.  N EASDG,EAADL,EAAD,EACNT
  1.  D PAGE1^EASEZP6U
  1.  D PAGE1^EASEZPU3
  1.  D EN^EASEZP61(.EALNE,.EAINFO)
  1.  ;
  1.  D PAGE2^EASEZPU2
  1.  D EN^EASEZP62(.EALNE,.EAINFO)
  1.  ;
  1.  S EASDG=1   ;FLAG VARIABLE TO SIGNIFY PRINTING FROM DG
  1.  D EN^EASEZP63(.EALNE,.EAINFO,EASDG)
  1.  ;
  1.  ;EAS*1.0*70
  1.  N EASMTV
  1.  I +$G(EASMTIEN) S EASMTV=+$P($G(^DGMT(408.31,EASMTIEN,2)),U,11)
  1.  I +$G(EASMTV)=0 D NETEZ^EASEZPDU(.EALNE,.EAINFO,EASDG) I 1
  1.  E  D EN^EASEZP64(.EALNE,.EAINFO,EASDG)
  1.  ;
  1.  ;Print additional insurance pages if more than 1 insurance company
  1.  F EAADL=1:1 Q:'$D(^TMP("EZTEMP",$J,"IA",EAADL))  D
  1.  . S EAAD=1
  1.  . D PAGEI^EASEZPU3(EAADL)
  1.  I $G(EAAD) D EN^EASEZP6I(.EALNE,.EAINFO)
  1.  ;
  1.  ;Print additional dependent pages if more than 1 dependent
  1.  S EAAD=0 F EAADL=1:1 Q:'$D(^TMP("EZTEMP",$J,"IIB",EAADL))  D
  1.  . S EAAD=1   ;FLAG THAT THERE ARE ADDITIONAL DEPENDENTS
  1.  . D PAGEN^EASEZPU3(EAADL)
  1.  I EAAD D EN^EASEZP6D(.EALNE,.EAINFO)
  1.  ;
  1.  ;Print additional dependent financial pages if more
  1.  ;than 1 dependent, starting with the 2nd one
  1.  ;(since Child 1 info already displayed on pages 2 & 3)
  1.  S EAAD=0,EAADL=1 F  S EAADL=$O(^TMP("EZTEMP",$J,"IIF",EAADL)) Q:'EAADL  D
  1.  . S EAAD=1,KEY=+$$KEY711^EASEZU1("CHILD(N) CHILD #")
  1.  . S ^TMP("EZTEMP",$J,"IIF",EAADL,"7.")=KEY_"^CHILD "_EAADL_"^1"
  1.  . D PAGEDFF^EASEZPU2(EAADL)
  1.  ;
  1.  ;EAS*1.0*70
  1.  I +$G(EASMTV)=0 D  Q
  1.  . ;SINCE ANY ADDITIONAL DEPENDENTS' NET WORTH AMOUNTS (SECTION IIG)
  1.  . ;ARE INCLUDED IN THE VET'S AMOUNT, DISPLAY A MESSAGE ON THE FORM
  1.  . I EAAD D
  1.  . . ;PRINT IIF AND IIG SECTIONS
  1.  . . N TEMP,HDR,FTR,BEGF,BEGG,ADFF,FNP,GNP
  1.  . . S TEMP="EASEZ",HDR="HDR^EASEZP6F(.EALNE,.EAINFO)"
  1.  . . S FTR="FT^EASEZP6F(.EALNE,.EAINFO)",BEGF="BEGINF^EASEZP6M"
  1.  . . S BEGG="BEGING^EASEZP6M",ADFF="ADFF^EASEZP6M"
  1.  . . S FNP=9,GNP=7
  1.  . . D NETMSG
  1.  . ;
  1.  E  D
  1.  . ;WITH NEW MEANS TEST VERSION, DISPLAY EACH CHILD'S NET WORTH AMOUNTS
  1.  . N EAADG
  1.  . S EAADG=0,EAADL=1 F  S EAADL=$O(^TMP("EZTEMP",$J,"IIG",EAADL)) Q:'EAADL  D
  1.  . . S EAADG=1,KEY=+$$KEY711^EASEZU1("CHILD(N) CHILD #")
  1.  . . S ^TMP("EZTEMP",$J,"IIG",EAADL,"9.")=KEY_"^CHILD "_EAADL_"^1"
  1.  . . D PAGEDFG^EASEZPU2(EAADL)
  1.  . I EAAD!EAADG D EN^EASEZP6M(.EALNE,.EAINFO,EASDG)
  1.  ;
  1.  Q
  1.  ;
  1. NETMSG ;PRINT THE MESSAGE FOR THE NET WORTH SECTION
  1.  ;
  1.  N EASF,DEPF,DFCNT,NEWPG
  1.  ;
  1.  S EASF=$NA(^TMP(TEMP,$J,"DFF"))
  1.  I $O(@EASF@(1)) D @BEGF
  1.  ;
  1.  ;Start printing with 2nd dependent
  1.  S DEPF=1,DFCNT=0 F  S DEPF=$O(@EASF@(DEPF)) Q:'DEPF  D
  1.  . S DFCNT=DFCNT+1
  1.  . ;Check to see if a new page is needed
  1.  . I (DFCNT>1),'((DFCNT-1)#FNP) D
  1.  . . D @FTR
  1.  . . D @BEGF
  1.  . I (DFCNT#FNP)'=1 W !?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  . D @ADFF
  1.  ;
  1.  ;PRINT NET WORTH MESSAGE IF THERE ARE *any* ADDITIONAL DEPENDENTS
  1.  I ((DFCNT#FNP)'=0),((DFCNT#FNP)'=GNP) W !!,?131,$C(13) W:EALNE("ULC")="-" ! W EALNE("UL")
  1.  ;At the end of IIF, to find when to jump to the next page, 
  1.  ;55 print lines, minus 3 lines for Section IIG title header,
  1.  ;minus the number of lines already used on current page,
  1.  ;divided by the number of lines for a Section IIG entry
  1.  S NEWPG=(52-((DFCNT#FNP)*6))\7
  1.  I '(DFCNT#FNP)!'NEWPG!(NEWPG=GNP) S NEWPG=GNP D @FTR
  1.  D @BEGG
  1.  W !!?23,"ANY PREVIOUS CALENDAR YEAR NET WORTH AMOUNTS FROM ANY ADDITIONAL DEPENDENT CHILD(REN)"
  1.  W !!?29,"WILL BE INCLUDED IN THE VETERAN'S PREVIOUS CALENDAR YEAR NET WORTH AMOUNTS.",!
  1.  D @FTR
  1.  ;
  1.  Q