IBCIPAY ;DSI/ESG - Extract data and create Ingenix Payor File ;11-JAN-2001
Source file <IBCIPAY.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 |
|---|---|---|
| ENTRY | ; Entry point for routine (or called from the top)
|
|
| EXIT | ;
; Routine Exit |
|
| INIT | ; Procedure to initialize some routine-wide variables
|
|
| INITX | ;
|
|
| INTRO | ; This procedure displays introductory text and asks if the user
; wants to proceed with the creation of the PAYOR file. |
|
| INTROX | ;
|
|
| OUTPUT | ; This procedure displays a VistA "please wait" message to the user
; while it loops through the "B" cross reference to the INSURANCE ; COMPANY FILE (#36). The file is closed here and a confirmation ; message is shown to the user. |
|
| OUTPUTX | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | OUTPUT+13, OUTPUT+15, OUTPUT+16, OUTPUT+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | OUTPUT+5~, OUTPUT+12*, OUTPUT+21*, OUTPUT+28 |
| DIR | INTRO+4~ |
| DIR("A" | INTRO+17* |
| DIR("B" | INTRO+18* |
| DIR(0 | INTRO+16* |
| DIROUT | INTRO+4~ |
| DIRUT | INTRO+4~ |
| DTOUT | INTRO+4~ |
| DUOUT | INTRO+4~ |
| IBCIFILE | ENTRY+1~, INIT+3* |
| IBCIMSG | INTRO+4~, INTRO+12, OUTPUT+5~, OUTPUT+32 |
| IBCIMSG(1 | INTRO+6*, OUTPUT+28*, OUTPUT+31* |
| IBCIMSG(2 | INTRO+7*, OUTPUT+29* |
| IBCIMSG(3 | INTRO+8*, OUTPUT+30* |
| IBCIMSG(4 | INTRO+9* |
| IBCIMSG(5 | INTRO+10* |
| IBCIPATH | ENTRY+1~ |
| IBCIRTN | ENTRY+1~, INIT+1*, OUTPUT+26 |
| IEN | OUTPUT+5~, OUTPUT+14*, OUTPUT+15*, OUTPUT+16, OUTPUT+17, OUTPUT+18 |
| INSNAME | OUTPUT+5~, OUTPUT+12*, OUTPUT+13*, OUTPUT+15, OUTPUT+19 |
| IO | OUTPUT+9 |
| IO(0 | OUTPUT+27 |
| IOF | INTRO+3 |
| POP | OUTPUT+5~ |
| STOP | ENTRY+1~, ENTRY+4, ENTRY+6, INIT+2*, INTRO+20* |
| U | OUTPUT+16, OUTPUT+17 |
| X | INTRO+4~, OUTPUT+5~, OUTPUT+18*, OUTPUT+19* |
| X1 | OUTPUT+5~, OUTPUT+18*, OUTPUT+19* |
| X2 | OUTPUT+5~ |
| X3 | OUTPUT+5~ |
| X4 | OUTPUT+5~, OUTPUT+18*, OUTPUT+19* |
| Y | INTRO+4~, INTRO+20, OUTPUT+5~ |