EAS1174E ;ALB/HM - ENVIRONMENT CHECK FOR PATCH EAS*1.0*174 FILE 714.1 HAS <13 OR >13 ENTRIES IN IT ;15-DEC-1997
Source file <EAS1174E.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; This routine contains environmental checks which get executed
; before the EAS*1.0*174 is allowed to run. |
|
| START | ; Starting here
|
|
| CHK | ; Check for correct number of file entries in LTC CO-PAY EXEMPTION file (#714.1).
|
|
| GETCNT() | ; Get count of entries in LTC CO-PAY EXEMPTION file (#714.1)
|
| Name | Field # of Occurrence |
|---|---|
| $$INSTALDT^XPDUTL | CHK+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^EAS(714.1 - [#714.1] | CHK+8, GETCNT+3, GETCNT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| EASCNT | CHK+3~, CHK+5*, CHK+7, CHK+10 |
| EASDATA | GETCNT+1~, GETCNT+2*, GETCNT+3*, GETCNT+4 |
| EASECNT | GETCNT+1~, GETCNT+2*, GETCNT+5*, GETCNT+6 |
| EASIEN | GETCNT+1~, GETCNT+4* |
| EASINST | CHK+3~, CHK+4*, CHK+6, CHK+9 |
| ERROR | CHK+3~, CHK+4*, CHK+7*, CHK+8*, CHK+10*, CHK+11, CHK+21 |
| >> XPDABORT | START+5, CHK+20* |
| >> XPDENV | EN+7 |
