©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBTRE4 ;ALB/AAS - CLAIMS TRACKING EDIT PROCEDURE ; 1-SEP-93
Source file <IBTRE4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD(IBTRN,TYPE) | ; -- Add a new procedure
|
|
| NXT | ||
| ASKQ | ||
| ADDQ | ||
| NEW(ICDI,IBTRN,TYPE) | ; -- file new entry
|
|
| EDTQ | ||
| EN(IBTRN) | ; -- entry point for protocols
|
|
| EDT(IBADG,IBDR) | ; -- edit entry
|
|
| ENQ | ;
|
|
| SET(IBTRN) | ; -- set array
|
|
| PROC(IBTRN,IBETYP) | ; -- add/edit procedure
|
|
| SETQ | ||
| ASK(IBCNT,IBPAR,IBSELDF) | ;Ask user to select from list
|
|
| REASK | ||
| NEWQ | ||
| PROCQ | ||
| LIST(IBXY) | ;List Diagnosis Array
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356.91 - [#356.91] | Classic Fileman Calls |
| ^ICD0 - [#80.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBT(356 - [#356] | EN+7, NEW+5 |
| ^IBT(356.91 - [#356.91] | NXT+4, NEW+5*, EDT+5, EDT+6, EDT+7, SET+4, LIST+6 |
| ^ICD0 - [#80.1] | LIST+5 |
| Name | Line Occurrences |
|---|---|
| $$ASK | PROC+10 |
| $$NEW | NXT+6 |
| ADD | PROC+12 |
| ADDQ | NXT+3 |
| ASKQ | REASK+3, REASK+5, REASK+6, REASK+7 |
| EDT | PROC+13, NXT+7 |
| EDTQ | EDT+5 |
| ENQ | EN+10, EN+13 |
| LIST | PROC+10 |
| NXT | NXT+7 |
| PROC | EN+19 |
| PROCQ | PROC+5, PROC+11 |
| REASK | REASK+8 |
| SET | PROC+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SET+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PROC+3~, NEW+2~, NEW+5*, EDT+2~, EDT+4*, EDT+6 |
| DD | NEW+2~ |
| DIC | PROC+3~, ADD+2~, NXT+2*, NXT+3!, NEW+2~, NEW+3* |
| DIC("A" | NXT* |
| DIC("S" | NXT+1* |
| DIC(0 | NXT+2*, NEW+3* |
| DIE | PROC+3~, EDT+2~, EDT+4* |
| DIK | NEW+2~, NEW+3* |
| DINUM | NEW+2~ |
| DIR | ASK+5~ |
| DIR("?" | REASK*, REASK+8 |
| DIR("A" | REASK+1* |
| DIR(0 | REASK+2* |
| DIRUT | ASK+5~ |
| DLAYGO | NEW+2~, NEW+3* |
| DO | NEW+2~ |
| DR | PROC+3~, EDT+2~, EDT+3* |
| DTOUT | ADD+2~, ASK+5~, REASK+3 |
| DUOUT | ASK+5~, REASK+3 |
| DUTOU | ADD+2~ |
| I | NEW+2~, LIST+3~, LIST+5*, LIST+6, LIST+7 |
| IBADG | NXT+6*, NXT+7, NEW+4*, NEW+5, NEWQ, EDT~, EDT+4, EDT+5, EDT+7 |
| IBCNT | EN+4~, PROC+10, ADD+3*, NXT, NXT+3, NXT+5*, SET+3*, SET+5*, SET+6, ASK~ , REASK, REASK+1, REASK+5 |
| >> IBDA | SET+4*, SET+6 |
| IBDGPM | EN+4~, EN+7*, EN+18, PROC+5, SET+1~, SET+2*, SET+4 |
| IBDR | EDT~, EDT+3 |
| IBETYP | EN+4~, EN+9*, EN+10, EN+13, EN+19, PROC~, PROC+2, PROC+5 |
| IBICD | SET+1~, SET+3*, SET+4*, SET+6 |
| IBPAR | ASK~, REASK, REASK+1, REASK+6 |
| >> IBQUIT | PROC+11* |
| >> IBSEL | PROC+9*, PROC+10*, PROC+11, PROC+12, PROC+13 |
| IBSELDF | ASK~, REASK, REASK+1, REASK+7 |
| >> IBTNOD | LIST+6*, LIST+7 |
| IBTRN | EN~, EN+7, EN+9, EN+19, PROC~, PROC+1, PROC+10, PROC+12, ADD~, NXT+4 , NXT+6, NEW~, NEW+5, SET~, SET+2 |
| IBTRND | EN+4~, EN+7* |
| IBXD | LIST+3~, LIST+5*, LIST+7 |
| IBXY | EN+4~, PROC+10, LIST~ |
| IBXY( | PROC+13, SET+6*, LIST+5, LIST+6 |
| ICDI | NEW~, NEW+3 |
| >> IOINHI | PROC+8 |
| >> IOINORM | PROC+8 |
| J | NEW+2~ |
| TYPE | ADD~, ADD+4*, NXT+6, NXT+7, NEW~ |
| >> VALMBCK | EN+6*, EN+15*, EN+19* |
| X | PROC+7*, ADD+2~, NXT+2*, NEW+2~, NEW+3*, ASK+5~ |
| Y | ADD+2~, NXT+3, NXT+4, NXT+6, NEW+2~, NEW+4, ASK+5~, REASK+3*, REASK+4*, REASK+5 , REASK+6*, REASK+7*, ASKQ |