SCMCHLR8 ;ALB/KCL - PCMM HL7 Reject Transmission Report; 22-FEB-2000
Source file <SCMCHLR8.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TERPRT | ; Description: Main entry point for the PCMM HL7 Reject Transmission Report.
|
|
| DEVICE() | ; Description: Allows the user to select a device.
|
|
| SELECT(SCRP) | ; Description: Ask the user to select 'all errors' or errors for a 'date range'.
|
|
| ASKRANGE(SCRP) | ;
; Description: Asks the user to enter a date range for report. |
|
| ASKBEGIN(SCRP) | ;
|
|
| REPEAT | ||
| ASKEND(SCRP) | ;
; Description: Asks the user to enter an end date. |
|
| AGAIN | ||
| SORTBY(SCRP) | ; Description: Ask the user to enter a sort criteria for printing errors.
|
|
| EPS(SCRP) | ; Description: Ask user to enter a error processing status.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEVICE+10* |
| DIR | SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~ |
| DIR("?" | SELECT+13*, SELECT+14*, ASKBEGIN+13*, ASKEND+15*, SORTBY+12*, EPS+13*, EPS+14* |
| DIR("A" | SELECT+12*, ASKBEGIN+11*, ASKEND+12*, SORTBY+11*, EPS+12* |
| DIR("B" | ASKBEGIN+12*, ASKEND+14*, AGAIN+2 |
| DIR(0 | SELECT+11*, ASKBEGIN+10*, ASKEND+11*, SORTBY+10*, EPS+11* |
| >> DIRUT | SELECT+17, REPEAT+1, AGAIN+1, SORTBY+15, EPS+17 |
| DT | ASKRANGE+6, ASKBEGIN+12, REPEAT+2, ASKEND+14 |
| DTOUT | SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~ |
| DUOUT | SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~ |
| IO("Q" | DEVICE+13 |
| OK | DEVICE+8~, DEVICE+9*, DEVICE+12*, DEVICE+13, DEVICE+18*, DEVICE+20 |
| >> POP | DEVICE+12 |
| SCRP | TERPRT+9~, TERPRT+12, TERPRT+13, TERPRT+14, TERPRT+15, SELECT~, ASKRANGE~, ASKRANGE+8, ASKRANGE+9, ASKBEGIN~ , ASKEND~, SORTBY~, EPS~ |
| SCRP("BEGIN" | ASKRANGE+5*, REPEAT+3*, AGAIN+2 |
| SCRP("END" | ASKRANGE+6*, AGAIN+3* |
| SCRP("EPS" | EPS+18* |
| SCRP("SELCT" | SELECT+18*, ASKRANGE+4 |
| SCRP("SORT" | SORTBY+16* |
| X | SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~ |
| Y | SELECT+8~, SELECT+18, ASKBEGIN+9~, REPEAT+2, REPEAT+3, ASKEND+10~, AGAIN+2, AGAIN+3, SORTBY+8~, SORTBY+16 , EPS+9~, EPS+18 |
| >> ZTDESC | DEVICE+14* |
| >> ZTRTN | DEVICE+14* |
| >> ZTSAVE("SCRP(" | DEVICE+14* |
| >> ZTSK | DEVICE+16 |
