ABMDIPS ; IHS/ASDST/DMJ - GENERATE BILLS FOR PHYSICIAN IP SVCS. ;
Source file <ABMDIPS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MED | ;file entry under misc svcs
|
|
CODE | ;enter procedure code
|
|
BFILE | ;file in 3P TX STATUS file
|
|
PAY | ;enter payer
|
|
NB | ;enter new batch in file 9002274.6
|
|
REV | ;revenue code
|
|
PHY | ;enter physician
|
|
ONE | ;process one bill
|
|
DUP | ;check for duplicate bill
|
|
START | ;START
|
|
RATE | ;get rate
|
|
SET | ;set some variables
|
|
NBILL | ;create bill in bill file
|
|
UNIT | ;enter units
|
|
EXP | ;mode of export
|
|
ASK | ;ask look-up method
|
|
IND | ;process one at a time
|
|
BY | ;bypass with different ien
|
|
LOOP | ;LOOP HERE
|
|
HDR | ;screen header
|
Name | Field # of Occurrence |
---|---|
^%DT | LOOP+5 |
^%DTC | UNIT+1 |
NOW^%DTC | NB+4 |
$$CPT^ABMCVAPI | CODE+2 |
$$ADD^ABMDBAD1 | NBILL+23 |
^ABMDBLK | IND+2 |
$$SDT^ABMDUTL | ONE+4, ONE+5 |
EOP^ABMDUTL | PAY+13, ASK+9 |
$$ONE^ABMFEAPI | RATE+5 |
$$EN^ABMVDF | START+2, START+5, HDR+1 |
^DIC | PAY+4, CODE+7, EXP+5, REV+7, PHY+9, NB+5, BFILE+7 |
^DIE | NB+12 |
IX1^DIK | MED+4 |
^DIR | RATE+8, ASK+4, BY+8, UNIT+4, NBILL+8 |
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 |
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^ICPT - [#81] | Classic Fileman Calls |
^ABMDEXP - [#9002274.08] | Classic Fileman Calls |
^ABMDTXST - [#9002274.6] | Classic Fileman Calls |
^AUTNINS - [#9999999.18] | Classic Fileman Calls |
^AUTTREVN - [#9999999.72] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+25, NBILL+28, NBILL+29* , NBILL+30*, NBILL+31*, MED+1*, MED+2*, MED+3*, SET+1, SET+3, DUP+2, DUP+3, DUP+4 , DUP+5, DUP+7 |
^ABMDEXP - [#9002274.08] | EXP+7, NB+11 |
^ABMDFEE(1 | RATE+2 |
^ABMDTMP("IPSVC" | LOOP+7, BY+6* |
^ABMDTXST - [#9002274.6] | BFILE+6 |
^ABMNINS( | PAY+9 |
^AUTNINS - [#9999999.18] | PAY+6, PAY+7 |
^DPT - [#2] | ONE+3 |
^VA(200 - [#200] | PHY+6 |
Name | Line Occurrences |
---|---|
@( | ASK+8 |
BFILE | ONE+13 |
DUP | NBILL+2 |
HDR | ONE+2 |
NB | ONE+10 |
NBILL | ONE+11 |
ONE | BY+5, IND+5 |
PHY | ONE+8 |
SET | BY+3, IND+4 |
UNIT | ONE+9 |
Name | Field # of Occurrence |
---|---|
^(0 | BFILE+6* |
^(7 | SET+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | NB+4 |
>> %DT | LOOP+4* |
>> %DT("A" | LOOP+2* |
>> %DT("B" | LOOP+3* |
ABM | ASK+10! |
ABM( | ASK+8 |
ABM("EQ" | HDR+2*, HDR+7 |
ABM(1 | ASK+6* |
ABM(2 | ASK+7* |
>> ABM1 | NBILL+23 |
>> ABM1( | NBILL+9*, NBILL+10*, NBILL+11*, NBILL+12*, NBILL+13*, NBILL+14*, NBILL+15*, NBILL+16*, NBILL+17*, NBILL+18* , NBILL+19*, NBILL+20*, NBILL+21*, NBILL+22* |
>> ABMAPOK | MED+3* |
ABMBATCH | ASK+10!, ONE+10, NB+7*, NB+8, NBILL+20, BFILE+4, BFILE+9 |
>> ABMBDFN | NBILL+23* |
ABMBNAME | ASK+10!, NBILL+25*, NBILL+26, BFILE+3 |
>> ABMCNT | ONE+1*, ONE+7*, PHY+3, PHY+4 |
ABMCODE | CODE+1*, CODE+2*, CODE+6, CODE+8*, RATE+2, ASK+10!, MED+2 |
>> ABMDA | RATE+2*, RATE+3, RATE+5 |
ABMDICSV | ASK+10! |
>> ABMDPV | DUP+5*, DUP+6 |
ABMDTF | ASK+10!, UNIT+1, SET+3*, DUP+4 |
ABMDTT | ASK+10!, UNIT+1, SET+3* |
ABMDUP | ASK+10!, NBILL+2, DUP+1!, DUP+8* |
>> ABMI | RATE+1*, RATE+2, RATE+5 |
ABMI0 | PAY+9*, PAY+10, CODE+1, EXP+1, REV+2, ASK+10! |
>> ABMINAME | PAY+7*, PAY+11, LOOP+7, BY+6 |
ABMINS | PAY+5*, PAY+6, PAY+7, PAY+9, ASK+10!, BY+1, NB+10, NBILL+14, DUP+7 |
>> ABMITYP | PAY+6*, NB+10 |
ABMMOE | EXP+1*, EXP+2, EXP+5*, EXP+6, EXP+7, ASK+10!, NB+10, NB+11, NBILL+12 |
>> ABMP("BDFN" | LOOP+7*, BY+1*, BY+2, BY+6, IND+1, IND+3, ONE+4, ONE+5, PHY+3, PHY+4 , PHY+5, NBILL+28, NBILL+29, SET+1, SET+3 |
>> ABMP("VDT" | CODE+2, RATE+5 |
ABMPAT | ASK+10!, ONE+3, SET+2*, DUP+2 |
ABMPHY | ASK+10!, PHY+2!, PHY+3*, PHY+4*, PHY+5*, PHY+6, PHY+11*, NBILL+31, DUP+6 |
ABMQUIT | START+1!, ASK+10!, BY+1, BY+9!, IND+6!, ONE+6, ONE+8, ONE+9, ONE+10, PHY+10* , UNIT+6*, NB+6* |
>> ABMRATE | RATE+5*, RATE+7, RATE+9*, NBILL+21, NBILL+22, MED+2 |
ABMRVCD | REV+2*, REV+3, REV+7*, ASK+10!, MED+2 |
>> ABMSDT | LOOP+6*, BY+2 |
>> ABMUB | EXP+7*, REV+1 |
ABMUNIT | ASK+10!, UNIT+5*, UNIT+6, NBILL+21, NBILL+22, MED+2 |
>> ABMZERO | BY+4, ONE+3, NBILL+10, NBILL+11, NBILL+16, SET+1*, SET+2 |
DA | ONE+12, NB+8*, NBILL+1!, NBILL+24, NBILL+25, NBILL+29, NBILL+30, NBILL+31, MED+1, MED+2 , MED+3 |
DA(1 | BFILE+4*, BFILE+6 |
DIC | PAY+1!, PAY+3*, CODE+3!, CODE+4*, EXP+4!*, REV+5!*, ASK+10!, PHY+2!, PHY+7*, NB+1! , NB+2*, NB+9, BFILE+1!, BFILE+5* |
DIC("A" | CODE+5*, REV+6*, PHY+8* |
DIC("B" | PAY+2*, CODE+6*, PHY+6* |
DIC(0 | PAY+3*, CODE+4*, EXP+4*, REV+5*, PHY+7*, NB+3*, BFILE+2* |
>> DIE | NB+9* |
>> DIK | MED+4* |
DIR | RATE+8!, ASK+4!, BY+8!, UNIT+4!, NBILL+8! |
DIR("A" | RATE+6*, ASK+2*, ASK+9*, BY+7*, UNIT+3*, NBILL+6* |
DIR("B" | RATE+7*, ASK+3*, UNIT+1*, NBILL+7* |
DIR(0 | RATE+8*, ASK+1*, BY+7*, UNIT+2*, NBILL+8* |
>> DR | NB+10*, NB+11* |
DT | RATE+5, NBILL+18 |
DUZ | NB+10, NBILL+17 |
DUZ(2 | PAY+9, BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+25, NBILL+28 , NBILL+29, NBILL+30, NBILL+31, MED+1, MED+2, MED+3, BFILE+6, SET+1, SET+3, DUP+2 , DUP+3, DUP+4, DUP+5, DUP+7 |
I | NBILL+27~*, NBILL+28, NBILL+29, DUP+2~*, DUP+3, DUP+4, DUP+5, DUP+7 |
IOSL | ONE+2 |
U | PAY+6, PAY+7, CODE+2, RATE+5, BY+2, ONE+3, ONE+4, PHY+5, PHY+6, NBILL+25 , SET+3, DUP+4, DUP+5 |
>> X | UNIT+1, NB+4*, BFILE+3* |
>> X1 | UNIT+1* |
>> X2 | UNIT+1* |
>> Y | PAY+4, PAY+5, CODE+7, CODE+8, RATE+9, EXP+5, REV+7, ASK+5, ASK+8, LOOP+6 , BY+9, PHY+10, PHY+11, UNIT+5, NB+6, NB+7, NBILL+2, BFILE+8 |