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

EASEC10E.m

Go to the documentation of this file.
  1. EASEC10E ;ALB/BRM,LBD - Print 1010EC LTC Enrollment form ; 9/20/01 1:46pm
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,40**;Mar 15, 2001
  1. ;
  1. ; The EASEC10* routines print a version of the OMB approved
  1. ; VA10-10EC form (Long Term Care).
  1. ;
  1. ; No Local modifications to these routines will be made. Any changes
  1. ; will be provided through the National Patch Module release process.
  1. ;
  1. Q
  1. OEN ;Entry point to print an LTC Co-Pay test from the menu option
  1. ;
  1. N DIC,DFN,DGMTI,ZTSK,DGMSGF
  1. S DGMSGF=1 ;this flag is set to suppress the financial query
  1. S DIC("S")="I $D(^DGMT(408.31,""AID"",3,+Y))"
  1. S DIC="^DPT(",DIC(0)="AEMQ" W ! D ^DIC K DIC G Q:Y<0 S DFN=+Y
  1. S DIC("A")="Select DATE OF TEST: "
  1. I $D(^DGMT(408.31,+$$LST^EASECU(DFN,"",3),0)) S DIC("B")=$P(^(0),"^")
  1. S DIC("S")="I $P(^(0),U,2)=DFN,$P(^(0),U,19)=3"
  1. S DIC="^DGMT(408.31,",DIC(0)="EQZ" W ! D EN^DGMTLK K DIC G Q:Y<0
  1. S DGMTI=+Y
  1. S ZTSK=$$QUE(DFN,DGMTI)
  1. Q Q
  1. QUE(DFN,DGMTIEN) ; queue the 1010EC print job
  1. ; Input:
  1. ; DFN - Internal entry number for the #2 (Patient) file
  1. ; Output:
  1. ; ZTSK - Task Number returned from call to Task Manager
  1. ;
  1. N ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZUSR,POP,X,ERR
  1. W !!?5,$C(7),"This output requires a 132 column printer."
  1. W !?5,"Output to SCREEN will be unreadable.",!
  1. K IOP,%ZIS
  1. S %ZIS="Q" D ^%ZIS G:POP EXIT
  1. I $D(IO("Q")) D Q +$G(ZTSK)
  1. .S ZTSAVE("ZUSR")=+$G(DUZ)
  1. .S ZTRTN="EN^EASEC10E("_DFN_","_$G(DGMTIEN)_")",ZTDESC="1010EC PRINT"
  1. .D ^%ZTLOAD
  1. .D ^%ZISC,HOME^%ZIS
  1. .W !,$S($D(ZTSK):"REQUEST QUEUED!",1:"REQUEST CANCELLED!")
  1. D EN(DFN,$G(DGMTIEN))
  1. EXIT D ^%ZISC,HOME^%ZIS
  1. Q +$G(ZTSK)
  1. ;
  1. EN(EASDFN,DGMTIEN) ; Entry point to print the 1010EC form
  1. ; Input:
  1. ; EASDFN - Internal entry number for the #2 (Patient) file
  1. ; DTMTDT - Date of Long Term Care Test to print
  1. ; DGMTIEN - IEN of the Long term Care test in the #408.31 file
  1. ;
  1. U IO
  1. Q:'$G(EASDFN)
  1. N EALNE,EAINFO
  1. S:$G(DGMTIEN) EAINFO("DGMTIEN")=DGMTIEN
  1. ; set-up print variables
  1. D SETUP(.EALNE,.EAINFO,EASDFN)
  1. ; get veteran data to be printed
  1. D GETDATA^EASEC100(EASDFN,.EAINFO)
  1. ; print page 1
  1. D PAGE1^EASEC101(.EALNE,.EAINFO,EASDFN)
  1. ; print pages 2 and 3
  1. I $G(EAINFO("FORM")) D G ENQUIT
  1. .; new 10-10EC format (LTC Phase IV - EAS*1*40)
  1. .D PAGE2^EASEC10R(.EALNE,.EAINFO,EASDFN)
  1. .D PAGE3^EASEC10R(.EALNE,.EAINFO,EASDFN)
  1. E D
  1. .; old 10-10EC format
  1. .D PAGE2^EASEC102(.EALNE,.EAINFO,EASDFN)
  1. .D PAGE3^EASEC103(.EALNE,.EAINFO,EASDFN)
  1. ;
  1. ENQUIT ; cleanup temp globals after printing has completed
  1. K ^TMP("1010EC",$J,EASDFN)
  1. Q
  1. ;
  1. SETUP(EALNE,EAINFO,EASDFN) ;setup print variables
  1. ; Input:
  1. ; EALNE - Line format array
  1. ; EAINFO - Misc data array
  1. ; ("CLRK") - Clerk's Initials
  1. ; ("PGE") - Page number
  1. ; ("PD") - Print Date
  1. ; ("VET") - Veteran's Name
  1. ; ("SSN") - Veteran's SSN
  1. ; ("MTDT") - Long Term Care Test date
  1. ; ("DGMTIEN") - ien of LTC Test in 408.31
  1. ; EASDFN - DFN of applicant in the Patient file (#2)
  1. ;
  1. N X,SSN
  1. ;
  1. ;Build Line array for printout
  1. S EALNE("ULC")=$S('($D(IOST)#2):"-",IOST["C-":"-",1:"_")
  1. S EALNE("D")="",EALNE("DD")="",EALNE("UL")=""
  1. S $P(EALNE("D"),"-",131)="",$P(EALNE("DD"),"=",131)="",$P(EALNE("UL"),EALNE("ULC"),131)=""
  1. S EAINFO("L")="W !,EALNE(""UL"")"
  1. S:EALNE("ULC")'="-" EAINFO("L")=$TR(EAINFO("L"),"!,")
  1. ;
  1. ;Get clerk's initials
  1. S ZUSR=$G(ZUSR)
  1. S:$G(ZUSR)="" ZUSR=$G(DUZ)
  1. I +ZUSR>0 D
  1. .S EAINFO("CLRK")=$$GET1^DIQ(200,ZUSR,1)
  1. .I EAINFO("CLRK")']"" D
  1. ..S X=$$GET1^DIQ(200,ZUSR,.01)
  1. ..S EAINFO("CLRK")=$E($P(X,",",2),1)_$E($P(X,","),1)
  1. E D
  1. .S EAINFO("CLRK")="unk"
  1. ;
  1. ;Get LTC Test date (if it is not passed, use latest LTC test date)
  1. I $G(EAINFO("DGMTIEN")) S EAINFO("MTDT")=$$GET1^DIQ(408.31,EAINFO("DGMTIEN"),.01,"I")
  1. E D ;
  1. .N MTDTNEG
  1. .S MTDTNEG=+$O(^DGMT(408.31,"AID",3,EASDFN,""))
  1. .S EAINFO("MTDT")=$TR(MTDTNEG,"-")
  1. .S EAINFO("DGMTIEN")=$O(^DGMT(408.31,"AID",3,EASDFN,MTDTNEG,""))
  1. ;
  1. ;Set data elements
  1. S EAINFO("PGE")=0
  1. S EAINFO("PD")=$$FMTE^XLFDT($$NOW^XLFDT)
  1. S EAINFO("VET")=$$GET1^DIQ(2,EASDFN_",",.01)
  1. S SSN=$$GET1^DIQ(2,EASDFN_",",.09)
  1. S EAINFO("SSN")=$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)
  1. ;Line added to set new variable to indicate which version of the
  1. ;10-10EC form is to be printed. LTC Phase IV (EAS*1*40)
  1. S EAINFO("FORM")=$$FORM^EASECU(EAINFO("DGMTIEN"))
  1. Q
  1. ;
  1. HDRMAIN(EALNE) ;
  1. W @IOF
  1. W !,EALNE("DD")
  1. W !,"D E P A R T M E N T O F V E T E R A N S A F F A I R S",?90,"APPLICATION FOR EXTENDED CARE SERVICES",!,EALNE("DD")
  1. W !?50,"SECTION I - GENERAL INFORMATION",!,EALNE("D")
  1. Q
  1. ;
  1. HDR(EALNE,EAINFO) ;
  1. W @IOF
  1. W EALNE("DD")
  1. W !,"APPLICATION FOR EXTENDED CARE SERVICES, Continued"
  1. W ?65,"| Veteran's Name",?100,"| Social Security Number"
  1. W !?65,"| ",EAINFO("VET"),?100,"| ",EAINFO("SSN")
  1. W !,EALNE("DD")
  1. Q
  1. ;
  1. FT(EALNE,EAINFO) ;
  1. N %,Y
  1. W !,EALNE("DD")
  1. ;Modified date printed on form if new 10-10EC format.
  1. ;Added for LTC Phase IV (EAS*1*40).
  1. W !,"VA FORM 10-10EC DEC "_$S(EAINFO("FORM"):"2002",1:"2000"),?40,"PRINTED: ",EAINFO("PD")
  1. W ?80,"Clerk: ",EAINFO("CLRK")
  1. S EAINFO("PGE")=EAINFO("PGE")+1
  1. W ?120,"Page ",EAINFO("PGE"),?131,$C(13)
  1. Q