EASMTL6B ;ALB/SCK - EAS QUEUED MEANS TEST LETTERS ; 2/25/02
;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
;
BCKJOB ; Queued entry point for tasked letter printing
N EATYP,EASMULT,EASKP,EASARY,EASTMP,EASPTR,DFN,EASPRF,EASDEV,EASPRM,EAX,EASTSK,EASERR,EADPTR,EATYP
;
S EASTMP="^TMP(""EASMT"",$J)"
K @EASTMP
;
F EATYP=1,2,4 D
. D BLD^EASMTL6(EATYP,0,EASTMP,.EASKP)
. D RESULT^EASMTL6(.EASKP,EATYP)
. Q:'$D(@EASTMP)
. S EASIEN=0
. F S EASIEN=$O(@EASTMP@(EASIEN)) Q:'EASIEN D
. . D LETTER^EASMTL6A(EASIEN,EATYP)
. . D UPDSTAT^EASMTL6(EASIEN,EATYP)
. K @EASTMP
;
Q
;
LTRTYP(EASIEN) ; Function lookup for current pending letter type.
; Input
; EASIEN - IEN in the Letter status file, #713.2
;
; Output
; Current pending to print letter type
; 60-DAY = 1
; 30-DAY = 2
; 0-DAY = 4
; Unable to determine = 0
;
N RSLT
;
S RSLT=0
I $P($G(^EAS(713.2,EASIEN,"Z")),U,2) S RSLT=4
I $P($G(^EAS(713.2,EASIEN,4)),U,2) S RSLT=2
I $P($G(^EAS(713.2,EASIEN,6)),U,2) S RSLT=1
Q $G(RSLT)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASMTL6B 1088 printed Oct 16, 2024@17:56:15 Page 2
EASMTL6B ;ALB/SCK - EAS QUEUED MEANS TEST LETTERS ; 2/25/02
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
+2 ;
BCKJOB ; Queued entry point for tasked letter printing
+1 NEW EATYP,EASMULT,EASKP,EASARY,EASTMP,EASPTR,DFN,EASPRF,EASDEV,EASPRM,EAX,EASTSK,EASERR,EADPTR,EATYP
+2 ;
+3 SET EASTMP="^TMP(""EASMT"",$J)"
+4 KILL @EASTMP
+5 ;
+6 FOR EATYP=1,2,4
Begin DoDot:1
+7 DO BLD^EASMTL6(EATYP,0,EASTMP,.EASKP)
+8 DO RESULT^EASMTL6(.EASKP,EATYP)
+9 if '$DATA(@EASTMP)
QUIT
+10 SET EASIEN=0
+11 FOR
SET EASIEN=$ORDER(@EASTMP@(EASIEN))
if 'EASIEN
QUIT
Begin DoDot:2
+12 DO LETTER^EASMTL6A(EASIEN,EATYP)
+13 DO UPDSTAT^EASMTL6(EASIEN,EATYP)
End DoDot:2
+14 KILL @EASTMP
End DoDot:1
+15 ;
+16 QUIT
+17 ;
LTRTYP(EASIEN) ; Function lookup for current pending letter type.
+1 ; Input
+2 ; EASIEN - IEN in the Letter status file, #713.2
+3 ;
+4 ; Output
+5 ; Current pending to print letter type
+6 ; 60-DAY = 1
+7 ; 30-DAY = 2
+8 ; 0-DAY = 4
+9 ; Unable to determine = 0
+10 ;
+11 NEW RSLT
+12 ;
+13 SET RSLT=0
+14 IF $PIECE($GET(^EAS(713.2,EASIEN,"Z")),U,2)
SET RSLT=4
+15 IF $PIECE($GET(^EAS(713.2,EASIEN,4)),U,2)
SET RSLT=2
+16 IF $PIECE($GET(^EAS(713.2,EASIEN,6)),U,2)
SET RSLT=1
+17 QUIT $GET(RSLT)
