IBTOPW ;ALB/AAS - CLAIMS TRACKING PENDING REVIEWS REPORT ; 27-OCT-93
Source file <IBTOPW.m>
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IBT OUTPUT PENDING ITEMS |
Name | Comments | DBIA/ICR reference |
---|---|---|
SORT | ||
END | ; -- Clean up
|
|
HDR | ; -- Print header for billing report
|
|
STOP | ; -- see if should stop
|
|
DEV | ; -- select device, run option
|
|
ONE | ; -- print one patients data
|
|
DATE | ; -- select date
|
|
BLD | ; -- build list
|
|
REVS | ; -- ask if hospital review, insurance reviews or both
|
|
BLDQ | ||
DQ | ; -- print one billing report from ct
|
Name | Field # of Occurrence |
---|---|
^%ZIS | DEV+2 |
HOME^%ZIS | DEV+3 |
^%ZISC | END+4 |
^%ZTLOAD | DEV+3 |
$$S^%ZTLOAD | HDR+1, STOP+1 |
DT^DICRW | % |
^DIR | REVS+8 |
PSDR^IBODIV | REVS+14 |
$$DAT1^IBOUTL | ONE+13, ONE+15 |
DATE^IBOUTL | DATE+1 |
^IBTRKR2 | DQ+10 |
SORT^IBTRPR0 | SORT |
TYPE^IBTRPR0 | REVS+13 |
WHOSE^IBTRPR0 | REVS+12 |
1^IBTRPR01 | BLD+9 |
2^IBTRPR01 | BLD+11 |
PID^VADPT | ONE+9 |
PAUSE^VALM1 | HDR+3 |
$$FMTE^XLFDT | HDR+7 |
$$HTE^XLFDT | DQ+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | ONE+11 |
^IBE(356.11 - [#356.11] | ONE+12 |
^IBE(356.6 - [#356.6] | ONE+14 |
^IBT(356 - [#356] | ONE+14, ONE+15 |
^TMP("IBSRT" | END+2!, BLD+4!, BLD+14, BLD+17, BLD+18, BLD+19, ONE+2 |
^TMP("IBSRT1" | END+2!, BLD+4!, ONE+7 |
Name | Line Occurrences |
---|---|
BLD | DQ+12 |
BLDQ | BLD+9, BLD+11 |
DQ | DEV+5 |
END | REVS+9, REVS+12, REVS+13, REVS+14, DATE+2, DEV+2, DEV+3, DEV+5, DQ+14 |
HDR | DQ+13, BLD+16, ONE+1, STOP+1 |
ONE | BLD+19 |
STOP | BLD+9, BLD+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | DEV+2*, END+5! |
DFN | END+5!, ONE+4*, ONE+7, ONE+11 |
DIR | REVS+1~, REVS+8! |
DIR("?" | REVS+5*, REVS+6*, REVS+7* |
DIR("A" | REVS+3* |
DIR("B" | REVS+4* |
DIR(0 | REVS+2* |
DIRUT | REVS+9, END+5!, HDR+3 |
DT | % |
DUOUT | END+5! |
ENTRY | END+6!, ONE+3* |
FILE | END+6!, ONE+8* |
I | END+5!, DQ+7* |
IBASSIGN | END+6!, ONE+6*, ONE+13 |
IBBDT | DATE+2, DATE+3, END+6!, HDR+7 |
IBCNT | END+6!, DQ+13, BLD+6*, ONE+10* |
IBDATA | END+6!, ONE+2*, ONE+3, ONE+4, ONE+5, ONE+6, ONE+8, ONE+13 |
IBDATE | END+6! |
IBDISDT | END+5! |
IBDIV | END+5! |
IBDIV( | DQ+7*, BLD+15 |
IBDV | END+6!, HDR+6, BLD+14*, BLD+15, BLD+17, BLD+18, BLD+19, ONE+2 |
IBEDT | DATE+2, DATE+3, END+6!, HDR+7 |
IBETYP | END+5! |
IBFLAG | END+6!, ONE+7*, ONE+11 |
IBHDT | END+5!, DQ+3*, HDR+6 |
IBI | BLD+5~, BLD+6*, BLD+18*, BLD+19, ONE+2 |
IBJ | END+6!, BLD+5~, BLD+18*, BLD+19, ONE+2 |
IBK | END+6!, BLD+19*, ONE+2 |
IBL | END+6!, BLD+19*, ONE+2 |
IBNEXT | END+6! |
IBPAG | END+5!, DQ+3*, HDR+3, HDR+4, HDR+5*, HDR+6 |
IBQUIT | END+5!, DQ+3*, HDR+1*, HDR+2, HDR+3*, BLD+9*, BLD+11*, BLD+14, BLD+17, BLD+18 , BLD+19, ONE+1, STOP+1* |
IBREV | END+6!, ONE+5*, ONE+12 |
IBSORT | REVS+12, REVS+13, REVS+14, END+6! |
IBSTATUS | END+6!, ONE+5*, ONE+13 |
IBTAG | END+5! |
IBTOPW | END+5!, BLD+6* |
IBTPBDT | DATE+3*, END+6! |
IBTPEDT | DATE+3*, END+6! |
IBTPRT | REVS+13*, END+5! |
IBTRC | END+6! |
IBTRN | END+5!, ONE+3*, ONE+14, ONE+15 |
IBTRND | END+5! |
IBTRND1 | END+5! |
IBTRPRF | REVS+10*, END+5!, BLD+7*, BLD+9, BLD+11 |
IBTRV | END+6! |
IBTSORT | END+5! |
IBTWHO | REVS+12*, END+5! |
IBWARD | END+6! |
IO | DQ+11 |
IO("Q" | DEV+3! |
IOF | HDR+4 |
IOM | HDR+6, HDR+9 |
IOSL | ONE+1 |
IOST | HDR+3, HDR+4 |
J | END+5! |
>> POP | DEV+2 |
TYPE | END+6!, BLD+17*, BLD+18, BLD+19, ONE+2, ONE+12 |
U | ONE+14, ONE+15 |
VA | END+5! |
VA("BID" | ONE+11 |
VAERR | END+5! |
>> VALMQUIT | REVS+12, REVS+13 |
VAUTD | REVS+13*, END+6!, DQ+6*, DQ+7, BLD+15 |
VAUTD( | DQ+7 |
X | END+5! |
Y | REVS+9, REVS+10, REVS+14, END+5! |
>> ZTDESC | DEV+3* |
>> ZTQUEUED | END+3, DQ+14, HDR+1, STOP+1 |
>> ZTREQ | END+3* |
>> ZTRTN | DEV+3* |
>> ZTSAVE("IB*" | DEV+3* |
>> ZTSAVE("VAUTD" | DEV+3* |
>> ZTSAVE("VAUTD(" | DEV+3* |
ZTSK | DEV+3! |
>> ZTSTOP | HDR+1*, STOP+1* |