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

EASMTL6B.m

Go to the documentation of this file.
  1. EASMTL6B ;ALB/SCK - EAS QUEUED MEANS TEST LETTERS ; 2/25/02
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
  1. ;
  1. BCKJOB ; Queued entry point for tasked letter printing
  1. N EATYP,EASMULT,EASKP,EASARY,EASTMP,EASPTR,DFN,EASPRF,EASDEV,EASPRM,EAX,EASTSK,EASERR,EADPTR,EATYP
  1. ;
  1. S EASTMP="^TMP(""EASMT"",$J)"
  1. K @EASTMP
  1. ;
  1. F EATYP=1,2,4 D
  1. . D BLD^EASMTL6(EATYP,0,EASTMP,.EASKP)
  1. . D RESULT^EASMTL6(.EASKP,EATYP)
  1. . Q:'$D(@EASTMP)
  1. . S EASIEN=0
  1. . F S EASIEN=$O(@EASTMP@(EASIEN)) Q:'EASIEN D
  1. . . D LETTER^EASMTL6A(EASIEN,EATYP)
  1. . . D UPDSTAT^EASMTL6(EASIEN,EATYP)
  1. . K @EASTMP
  1. ;
  1. Q
  1. ;
  1. LTRTYP(EASIEN) ; Function lookup for current pending letter type.
  1. ; Input
  1. ; EASIEN - IEN in the Letter status file, #713.2
  1. ;
  1. ; Output
  1. ; Current pending to print letter type
  1. ; 60-DAY = 1
  1. ; 30-DAY = 2
  1. ; 0-DAY = 4
  1. ; Unable to determine = 0
  1. ;
  1. N RSLT
  1. ;
  1. S RSLT=0
  1. I $P($G(^EAS(713.2,EASIEN,"Z")),U,2) S RSLT=4
  1. I $P($G(^EAS(713.2,EASIEN,4)),U,2) S RSLT=2
  1. I $P($G(^EAS(713.2,EASIEN,6)),U,2) S RSLT=1
  1. Q $G(RSLT)