©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
IBPFU ;ALB/CPM - FIND BILLING DATA TO ARCHIVE - UTILITIES ; 20-APR-92
Source file <IBPFU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LAST(NUM) | ; Find last valid date for archiving a billing record.
|
|
| TEMPLQ | ||
| TEMPL(IBFILE,LOGDA) | ; Add a new search template to file #.401 (SORT TEMPLATES)
|
|
| LOGADD(IBFILE) | ; File a log entry in file #350.6
|
|
| LOGADDQ |
| FileNo | Call Tags |
|---|---|
| ^IBE(350.6 - [#350.6] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(350.6 - [#350.6] | LOGADD+4, LOGADD+5, LOGADD+7, LOGADD+9, LOGADDQ |
| Name | Line Occurrences |
|---|---|
| LOGADDQ | LOGADD+4, LOGADD+5 |
| TEMPLQ | TEMPL+5 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | LOGADD+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | LOGADD+3~, LOGADD+8*, TEMPL+4~, TEMPL+7* |
| DD | LOGADD+3~, TEMPL+4~ |
| DIC | LOGADD+3~, LOGADD+6*, TEMPL+4~, TEMPL+6*, TEMPL+7 |
| DIC(0 | LOGADD+6*, TEMPL+6* |
| DIE | LOGADD+3~, LOGADD+8*, TEMPL+4~, TEMPL+7* |
| >> DINUM | LOGADD+7* |
| DLAYGO | LOGADD+3~, LOGADD+6* |
| DO | LOGADD+3~, TEMPL+4~ |
| DR | LOGADD+3~, LOGADD+8*, TEMPL+4~, TEMPL+7* |
| DT | LAST+4, TEMPL+7 |
| DUZ | TEMPL+7 |
| DUZ(0 | TEMPL+7 |
| FY | LAST+3~, LAST+4*, LAST+5 |
| IBFILE | LOGADD~, LOGADD+8, TEMPL~, TEMPL+5, TEMPL+7 |
| IEN | LOGADD+3~, LOGADD+4*, LOGADD+8*, LOGADD+9*, LOGADDQ, TEMPL+4~, TEMPL+5*, TEMPL+7*, TEMPL+8*, TEMPLQ |
| LOGDA | TEMPL~, TEMPL+5, TEMPL+6 |
| NUM | LAST~, LAST+3*, LAST+4 |
| X | LOGADD+3~, LOGADD+5*, LOGADD+7*, TEMPL+4~, TEMPL+6* |
| >> Y | LOGADD+7, LOGADD+8, LOGADD+9, TEMPL+7, TEMPL+8 |