©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
IBTOSA ;ALB/AAS - CLAIMS TRACKING SCHEDULED ADMISSION REPORT ; 27-OCT-93
Source file <IBTOSA.m>
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 2 | IBT OUTPUT SCHED ADM W/INS IBTOUA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PR | ||
| SET | ; -- set tmp array
|
|
| END | ; -- Clean up
|
|
| HDR | ; -- Print header for billing report
|
|
| SCHQ | ||
| F1(IBTRN) | ; fix EPISODE DATE
|
|
| FIX | ; -- find bad episode dates and fix
|
|
| DEV | ; -- select device, run option
|
|
| ONE | ; -- Print one patients data
|
|
| ; -- print one billing report from ct
|
||
| DATE | ; -- select date
|
|
| SCH(IBTRN) | ; -- is patient either admitted or still scheduled
|
|
| DQ |
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | DEV+2 |
| HOME^%ZIS | DEV+3 |
| ^%ZISC | END+3 |
| ^%ZTLOAD | DEV+3 |
| $$S^%ZTLOAD | HDR+9, SET+1 |
| DT^DICRW | % |
| ^DIE | SCH+9, F1+5 |
| $$INSURED^IBCNS1 | PRINT+11 |
| $$DAT1^IBOUTL | ONE+5, HDR+6 |
| DATE^IBOUTL | DATE+1 |
| $$EXPAND^IBTRE | ONE+7 |
| EN^IBTRKR2 | PRINT+2 |
| PID^VADPT | ONE+4 |
| PAUSE^VALM1 | HDR+2 |
| $$HTE^XLFDT | PRINT+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("RM" | DEV+6 |
| ^DGS(41.1 - [#41.1] | SCH+6 |
| ^DPT - [#2] | ONE+7, SET+2 |
| ^IBE(356.6 - [#356.6] | PRINT+11 |
| ^IBE(356.8 - [#356.8] | ONE+6 |
| ^IBT(356 - [#356] | PRINT+7, PRINT+8, SCH+3, FIX+2, F1+3, F1+4 |
| ^TMP($J | END+1!, PRINT+3!, PR+1, PR+3, SET+2* |
| Name | Line Occurrences |
|---|---|
| $$SCH | PRINT+11 |
| END | DATE+2, DEV+2, DEV+3, DQ, PR+8 |
| F1 | FIX+2 |
| FIX | PRINT+5 |
| HDR | PR, ONE+2, SET+1 |
| ONE | PR+3 |
| DQ | |
| SCHQ | SCH+4, SCH+5 |
| SET | PRINT+11 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PR+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | DEV+2*, END+4! |
| DA | SCH+7~, SCH+8*, F1+1~, F1+5* |
| DFN | END+4!, ONE+4*, ONE+7 |
| DIC | SCH+7~, F1+1~ |
| DIE | SCH+7~, SCH+8*, F1+1~, F1+5* |
| >> DIRUT | HDR+2 |
| DR | SCH+7~, SCH+8*, F1+1~, F1+5* |
| DT | %, FIX+1 |
| I | END+4! |
| IBBDT | DATE+2, END+4!, PRINT+2, PRINT+6, PRINT+10, HDR+6 |
| >> IBCNT | PR+2*, PR+7, ONE+3* |
| IBDT | END+4!, PRINT+6*, PRINT+7*, PRINT+10, PRINT+11, PR+3*, SET+2, FIX+1*, FIX+2*, F1+1~ , F1+4*, F1+5* |
| IBEDT | DATE+2, END+4!, PRINT+2, PRINT+7, HDR+6 |
| IBHDT | END+4!, PRINT+1*, HDR+5 |
| >> IBNAM | PR+2*, PR+3*, ONE+5 |
| IBPAG | END+4!, PRINT+1*, HDR+2, HDR+3, HDR+4*, HDR+5 |
| IBQUIT | END+4!, PRINT+1*, PRINT+7, PR+3, PR+5, ONE+1, ONE+2, HDR+1, HDR+2*, HDR+9* , SET+1* |
| IBTRN | END+4!, PRINT+7*, PRINT+8, PRINT+11, PR+3*, SET+2, SCH~, SCH+3, SCH+8, FIX+2* , F1~, F1+2, F1+3, F1+4, F1+5 |
| IBTRND | END+4!, PRINT+8*, PRINT+9, PRINT+11, PR+3*, ONE+4, ONE+5, ONE+6, ONE+7, SET+2 , SCH+2~, SCH+3*, SCH+4, SCH+5, SCH+6 |
| >> IBTSBDT | PRINT+2* |
| >> IBTSEDT | PRINT+2* |
| IBX | SCH+2~*, SCH+6*, SCHQ |
| IO | DEV+5 |
| IO("Q" | DEV+3! |
| IOF | HDR+3 |
| IOM | HDR+5, HDR+8 |
| IOSL | ONE+2 |
| IOST | HDR+2, HDR+3 |
| J | END+4! |
| >> POP | DEV+2 |
| VA | END+4! |
| VA("PID" | ONE+5 |
| X | DEV+6*, END+4!, SCH+6* |
| Y | END+4! |
| >> ZTDESC | DEV+3* |
| >> ZTQUEUED | END+2, PR+8, HDR+9, SET+1 |
| >> ZTREQ | END+2* |
| >> ZTRTN | DEV+3* |
| >> ZTSAVE("IB*" | DEV+3* |
| ZTSK | DEV+3! |
| >> ZTSTOP | HDR+9*, SET+1* |