IBTRKR5 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK PROSTHETICS ;13-JAN-94
Source file <IBTRKR5.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IBT SUP MANUALLY QUE PRSTHTCS IBTRKR |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- entry point to ask date range
|
|
ENQ | ||
EN1 | ; -- add prostethics to claims tracking file
|
|
EN1Q | ||
PRCHK | ; -- check and add item
|
|
CLQ | ; -- ok to add to tracking module
|
|
PRCHKQ | ||
IBPHP(IBDA) | ; non billable PSAS HCPCS codes
; input-patient item in #660 ; output-value if the code with the first 2 chars in the string is found |
|
BULL | ; -- send bulletin
|
|
BULLQ | ||
CLTXT | ; classification text for reason not billable
|
|
CL2 | ;;AGENT ORANGE
|
|
CL3 | ;;IONIZING RADIATION
|
|
CL4 | ;;SC TREATMENT
|
|
CL5 | ;;SOUTHWEST ASIA
|
|
CL6 | ;;MILITARY SEXUAL TRAUMA
|
|
CL7 | ;;HEAD/NECK CANCER
|
|
CL8 | ;;COMBAT VETERAN
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | ENQ+1 |
^%ZTLOAD | EN+26 |
$$PIN^IBATUTL | IBPHP+6 |
$$SWSTAT^IBBAPI | EN+1, EN1+2 |
$$INSURED^IBCNS1 | PRCHK+20 |
$$PTCOV^IBCNSU3 | CLQ+2 |
$$DAT1^IBOUTL | EN+18, EN1+10, BULL+5, BULL+6 |
DATE^IBOUTL | EN+6 |
SEND^IBTRKR31 | BULL+14 |
PRO^IBTUTL1 | CLQ+5 |
CL^SDCO21 | PRCHK+9 |
$$FMADD^XLFDT | %+2, %+3, EN+20, EN1+10 |
$$FMTE^XLFDT | EN+14 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBE(350.9 - [#350.9] | EN+4, EN+16, EN1+5 |
^IBT(356 - [#356] | PRCHK+17 |
^RMPR(660 - [#660] | EN1+20, EN1+23, EN1+27, EN1+30, PRCHK+5, PRCHK+12, PRCHK+13, PRCHK+27 |
Name | Field # of Occurrence |
---|---|
^(0 | PRCHK+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | EN1+1~, PRCHK+6*, PRCHK+9, PRCHK+20, CLQ+2, CLQ+5, CLQ+8! |
DT | %+2, %+3, EN+20, EN1+10 |
I | EN1+1~ |
IBARR | PRCHK+1~, PRCHK+9, PRCHK+26 |
IBARR( | PRCHK+31 |
IBBDT | EN+2~, EN+7, EN+8 |
IBCNT | EN1+1~, EN1+15*, PRCHK+2*, BULL+9 |
IBCNT1 | EN1+1~, EN1+15*, CLQ+7*, BULL+10 |
IBCNT2 | EN1+1~, EN1+15*, CLQ+6*, BULL+11 |
IBDA | EN1+23*, EN1+30*, PRCHK+5, PRCHK+8, PRCHK+12, PRCHK+13, PRCHK+17, PRCHK+27, CLQ+5, IBPHP~ , IBPHP+6 |
IBDATA | EN1+1~, PRCHK+5*, PRCHK+6, CLQ+8! |
IBDT | EN1+1~, EN1+16*, EN1+20*, EN1+22, EN1+23, EN1+26*, EN1+27*, EN1+29, EN1+30, PRCHK+9 , PRCHK+20, CLQ+2, CLQ+5 |
IBDTS | EN1+1~, EN1+16*, EN1+26 |
IBDX | PRCHK+1~ |
IBDX( | PRCHK+27*, PRCHK+28 |
IBE | PRCHK+1~, PRCHK+31* |
IBEDT | EN+2~, EN+7, EN+8 |
IBINS | PRCHK+1~ |
>> IBMESS | EN1+10*, BULL+7 |
IBP | PRCHK+1~, PRCHK+27*, PRCHK+28, PRCHK+32*, PRCHK+33 |
IBPIN | IBPHP+3~*, IBPHP+6*, IBPHP+7*, IBPHP+8*, IBPHP+9 |
IBPSAS | IBPHP+3~, IBPHP+4*, IBPHP+8 |
IBRMARK | PRCHK+1~, PRCHK+2*, PRCHK+29*, PRCHK+30*, PRCHK+31, PRCHK+32, PRCHK+34*, CLQ+3*, CLQ+4*, CLQ+5 |
IBSC | PRCHK+24~ |
IBSC( | PRCHK+28*, PRCHK+33 |
IBSWINFO | EN+1~*, EN+12, EN+14, EN1+2~*, EN1+22, EN1+29 |
IBT | PRCHK+1~ |
IBT( | BULL+4*, BULL+7* |
IBT(1 | BULL+3* |
IBT(2 | BULL+5* |
IBT(3 | BULL+6* |
IBT(4 | BULL+8* |
IBT(5 | BULL+9* |
IBT(6 | BULL+10* |
IBT(7 | BULL+11* |
IBT(8 | BULL+12* |
IBT(9 | BULL+13* |
IBTALK | EN+2~, EN+3*, EN1+32, PRCHK+3, CLQ+5 |
IBTRKR | EN+16*, EN+18, EN1+1~, EN1+5*, EN1+6, EN1+7, PRCHK+20 |
IBTSBDT | %+1~, %+2*, EN+2~, EN+8*, EN+12, EN+18*, EN1+7*, EN1+16, BULL+5 |
IBTSEDT | %+1~, %+3*, EN+2~, EN+8*, EN+12, EN+20, EN1+10*, EN1+20, EN1+27, BULL+6 |
J | EN1+1~ |
PROCOV | EN1+1~, CLQ+1*, CLQ+2*, CLQ+3, CLQ+4 |
>> REC | PRCHK+33*, PRCHK+34 |
SCP | PRCHK+24~, PRCHK+28* |
SCR | PRCHK+24~, PRCHK+25*, PRCHK+28*, PRCHK+29, CLQ+1*, CLQ+6, CLQ+7 |
SUB | PRCHK+24~, PRCHK+33* |
U | PRCHK+13, PRCHK+28, IBPHP+7 |
VA | CLQ+8! |
VAEL | CLQ+8! |
X | EN1+1~, CLQ+8! |
>> XMSUB | BULL+2* |
Y | EN1+1~, CLQ+8! |
ZTDESC | EN+25*, ENQ! |
ZTIO | EN+25*, ENQ! |
>> ZTQUEUED | EN1Q, PRCHK+3, CLQ+5 |
>> ZTREQ | EN1Q* |
ZTRTN | EN+25*, ENQ! |
ZTSAVE | ENQ! |
ZTSAVE("IB*" | EN+25* |
ZTSK | EN+26!, ENQ! |
Name | Field # of Occurrence |
---|---|
$T(@SUB | PRCHK+33 |