EASMTL6 ; ALB/SCK,BRM,LBD,PHH - AUTOMATED MEANS TEST LETTER-INTERACTIVE PRINT ; 5/22/03 9:52am
Source file <EASMTL6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point
; Input, set in option call, if not passed in, or called interactively, user is asked to specify. ; EATYP - Used for selective printing of letters and forms ; 1 : 60-Day ; 2 : 30-Day ; 4 : 0-Day |
|
| QUE | ; Queue the report
|
|
| LTR | ; Main entry point
|
|
| RESULT(EASKP,EATYP) | ; Send results of letter printing to mail group
|
|
| BLD(EATYP,EASLOC,EASTMP,EASKP) | ; Build TMP array of letters to print
|
|
| OWNED(PTR1,EAIEN) | ; Check - Does this facility "own" this means test
; Returns '1' if means test 'owned' by facility ; '0' if not owned |
|
| PRINT(EASTMP,EATYP) | ; Print letters
|
|
| THRSHLD(EATYP,EASIEN) | ; Check threshold for letter types
; Input ; EATYP - Letter type to print ; EASIEN - IEN for file #713.2 |
|
| NOPRT(EATYP,EASIEN) | ; Letter not printed, update Letter Status file #713.2
; Input ; EATYP - Letter type to print ; EASIEN - IEN for file #713.2 |
|
| UPDSTAT(EASN,EAX) | ; Update Letter status file, #713.2
|
|
| FACNUM() | ; Get facility number
|
|
| GETFAC(EADFN,EASARY) | ; set facility return address information
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ, GETS^DIQ |
| ^DG(408.34 - [#408.34] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| ^EAS(713 - [#713] | GET1^DIQ |
| ^EAS(713.1 - [#713.1] | GET1^DIQ |
| ^EAS(713.2 - [#713.2] | Classic Fileman Calls, GET1^DIQ |
