EASMTL6B.m

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 ---EASMTL6B   1088     printed  Apr 09, 2024@20:59:37                                                                                                                                                                                                    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)