source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASMTL6B.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1EASMTL6B ;ALB/SCK - EAS QUEUED MEANS TEST LETTERS ; 2/25/02
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
3 ;
4BCKJOB ; Queued entry point for tasked letter printing
5 N EATYP,EASMULT,EASKP,EASARY,EASTMP,EASPTR,DFN,EASPRF,EASDEV,EASPRM,EAX,EASTSK,EASERR,EADPTR,EATYP
6 ;
7 S EASTMP="^TMP(""EASMT"",$J)"
8 K @EASTMP
9 ;
10 F EATYP=1,2,4 D
11 . D BLD^EASMTL6(EATYP,0,EASTMP,.EASKP)
12 . D RESULT^EASMTL6(.EASKP,EATYP)
13 . Q:'$D(@EASTMP)
14 . S EASIEN=0
15 . F S EASIEN=$O(@EASTMP@(EASIEN)) Q:'EASIEN D
16 . . D LETTER^EASMTL6A(EASIEN,EATYP)
17 . . D UPDSTAT^EASMTL6(EASIEN,EATYP)
18 . K @EASTMP
19 ;
20 Q
21 ;
22LTRTYP(EASIEN) ; Function lookup for current pending letter type.
23 ; Input
24 ; EASIEN - IEN in the Letter status file, #713.2
25 ;
26 ; Output
27 ; Current pending to print letter type
28 ; 60-DAY = 1
29 ; 30-DAY = 2
30 ; 0-DAY = 4
31 ; Unable to determine = 0
32 ;
33 N RSLT
34 ;
35 S RSLT=0
36 I $P($G(^EAS(713.2,EASIEN,"Z")),U,2) S RSLT=4
37 I $P($G(^EAS(713.2,EASIEN,4)),U,2) S RSLT=2
38 I $P($G(^EAS(713.2,EASIEN,6)),U,2) S RSLT=1
39 Q $G(RSLT)
Note: See TracBrowser for help on using the repository browser.