- 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 Feb 18, 2025@23:21:52 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)