ABMZIPS ;IHS/DSD/DMJ - GENERATE CLAIMS FOR AHCCCS PHYSICIAN IP SVCS. [ 05/01/98 11:11 AM ]
Source file <ABMZIPS.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
|
|
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
|
|
ASK | ;ask look-up method
|
|
IND | ;process one at a time
|
|
BY | ;bypass with different ien
|
|
LOOP | ;LOOP HERE
|
|
HDR | ;screen header
|
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 |
^ABMDTXST - [#9002274.6] | Classic Fileman Calls |
^AUTNINS - [#9999999.18] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+6, NBILL+26, NBILL+29 , NBILL+30*, NBILL+31, NBILL+32*, NBILL+33*, MED+1*, MED+2*, MED+3*, SET+1, SET+3, DUP+2 , DUP+3, DUP+4, DUP+5, DUP+7 |
^ABMDFEE(1 | RATE+2, RATE+4 |
^ABMDTMP("IPSVC" | LOOP+7, BY+6* |
^ABMDTXST - [#9002274.6] | BFILE+6 |
^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 |
^(8 | NBILL+31* |
>> | 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+9! |
ABM( | ASK+8 |
ABM("EQ" | HDR+2*, HDR+7 |
ABM(1 | ASK+6* |
ABM(2 | ASK+7* |
>> ABM1 | NBILL+24 |
>> ABM1( | 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*, NBILL+23* |
ABMBATCH | ASK+9!, ONE+10, NB+7*, NB+8, NBILL+21, BFILE+4, BFILE+9 |
>> ABMBDFN | NBILL+24* |
ABMBNAME | ASK+9!, NBILL+26*, NBILL+27, BFILE+3 |
>> ABMCNT | ONE+1*, ONE+7*, PHY+3, PHY+4 |
ABMCODE | CODE+5*, RATE+2, ASK+9!, MED+2 |
>> ABMDA | RATE+2*, RATE+3, RATE+4 |
ABMDICSV | ASK+9! |
>> ABMDPV | DUP+5*, DUP+6 |
ABMDTF | ASK+9!, UNIT+1, SET+3*, DUP+4 |
ABMDTT | ASK+9!, UNIT+1, SET+3* |
ABMDUP | ASK+9!, NBILL+2, NBILL+6, DUP+1!, DUP+2, DUP+8* |
>> ABMI | RATE+1*, RATE+2, RATE+4 |
>> ABMINAME | PAY+7*, LOOP+7, BY+6 |
ABMINS | PAY+5*, PAY+6, PAY+7, ASK+9!, BY+1, NB+10, NBILL+15, DUP+7 |
>> ABMITYP | PAY+6*, NB+10 |
>> 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+29, NBILL+30, SET+1, SET+3 |
ABMPAT | ASK+9!, ONE+3, SET+2*, DUP+2 |
ABMPHY | ASK+9!, PHY+2!, PHY+3*, PHY+4*, PHY+5*, PHY+6, PHY+11*, NBILL+33, DUP+6 |
ABMQUIT | START+1!, ASK+9!, BY+1, BY+9!, IND+6!, ONE+6, ONE+8, ONE+9, ONE+10, PHY+10* , UNIT+6*, NB+6* |
>> ABMRATE | RATE+4*, RATE+6, RATE+8*, NBILL+22, NBILL+23, MED+2 |
>> ABMSDT | LOOP+6*, BY+2 |
ABMUNIT | ASK+9!, UNIT+5*, UNIT+6, NBILL+22, NBILL+23, MED+2 |
>> ABMZERO | BY+4, ONE+3, NBILL+11, NBILL+12, NBILL+17, SET+1*, SET+2 |
DA | ONE+12, NB+8*, NBILL+1!, NBILL+25, NBILL+26, NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1 , MED+2, MED+3 |
DA(1 | BFILE+4*, BFILE+6 |
DIC | PAY+1!, PAY+3*, CODE+1!, CODE+2*, PHY+2!, PHY+7*, NB+1!, NB+2*, NB+9, BFILE+1! , BFILE+5* |
DIC("A" | PHY+8* |
DIC("B" | PAY+2*, CODE+3*, PHY+6* |
DIC(0 | PAY+3*, CODE+2*, PHY+7*, NB+3*, BFILE+2* |
>> DIE | NB+9* |
>> DIK | MED+4* |
DIR | RATE+7!, ASK+4!, BY+8!, UNIT+4!, NBILL+9! |
DIR("A" | RATE+5*, ASK+2*, BY+7*, UNIT+3*, NBILL+7* |
DIR("B" | RATE+6*, ASK+3*, UNIT+1*, NBILL+8* |
DIR(0 | RATE+7*, ASK+1*, BY+7*, UNIT+2*, NBILL+9* |
>> DR | NB+10* |
DT | NBILL+19 |
DUZ | NB+10, NBILL+18 |
DUZ(2 | BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+6, NBILL+26, NBILL+29 , NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1, MED+2, MED+3, BFILE+6, SET+1, SET+3 , DUP+2, DUP+3, DUP+4, DUP+5, DUP+7 |
I | NBILL+28~*, NBILL+29, NBILL+30, DUP+2~*, DUP+3, DUP+4, DUP+5, DUP+7, DUP+8 |
IOSL | ONE+2 |
>> X | UNIT+1, NB+4*, BFILE+3* |
>> X1 | UNIT+1* |
>> X2 | UNIT+1* |
>> Y | PAY+4, PAY+5, CODE+4, CODE+5, RATE+8, ASK+5, ASK+8, LOOP+6, BY+9, PHY+10 , PHY+11, UNIT+5, NB+6, NB+7, NBILL+2, BFILE+8 |