ABMDF3X ; IHS/ASDST/DMJ - New HCFA-1500 Format ;
Source file <ABMDF3X.m>
Package | Total | Call Graph |
---|---|---|
Third Party Billing | 2 | BADDR^ABMDLBL1 $$EN^ABMVDF |
Name | Comments | DBIA/ICR reference |
---|---|---|
TEXT | ;;TABS;;FIELD LENGTH
; FORMAT ($-$ FORMAT,L-LNGTH REQ'D,C-CENTER,R-RIGHT,D-DATE) |
|
OVER | ;get override values from 3p insurer file
|
|
50 | ;;65;;14
|
|
25 | ;;2^37^54^68;;8D^8D^8D^8D
|
|
27 | ;;1^28^54^68;;26^21C^8D^8D
|
|
23 | ;;6^37^56;;24C^8D^23
|
|
29 | ;;1^52^57^62;;48^1^1^8$
|
|
1 | ;;1^8^15^24^31^39^45^50;;1^1^1^1^1^1^1^29C
|
|
3 | ;;1^31^42^47^50;;28^8D^1^1^29C
|
|
5 | ;;1^33^38^42^47^50;;28^1^1^1^1^29C
|
|
7 | ;;1^27^35^41^47^50^75;;24^2^1^1^1^23C^2
|
|
9 | ;;1^15^35^41^47^50^64;;12^14^1^1^1^12C^14
|
|
XIT | ||
LOOP2 | ;Loop thru the pieces of the line array
|
|
11 | ;;1^50;;28^29C
|
|
51 | ;;23^50;;26^29
|
|
13 | ;;1^35^41^54^68^75;;28^1^1^8D^1^1
|
|
MARG | ;Set left and top margins
|
|
15 | ;;2^18^24^35^41^46^50;;8D^1^1^1^1^2^29C
|
|
17 | ;;1^35^41^50;;28C^1^1^29C
|
|
19 | ;;1^30^52^57;;28C^19C^1^1
|
|
54 | ;;8^23^49^67;;8^26^13R^13C
|
|
31 | ;;3^30^50;;25^19^29
|
|
49 | ;;1^17^19^23^38^43^50^61^71;;15^1^1^14C^1^1^10$^9$^8$
|
|
37 | ;;2^11^18^22^25^42^50^59^62^65^68^71;;8D^8D^2R^2R^16^7C^8$^3R^2R^2R^2R^9
|
|
36 | ;;25^71;;16^9
|
|
53 | ;;1^23^50;;21^26^29
|
|
52 | ;;1^23^50;;21^26^29
|
|
33 | ;;3^30^50;;25^19^29C
|
|
FRMT | ||
TEST | ||
LOOP | ;Loop thru line number array
|
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 |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMDBILL( | LOOP+24 |
^ABMDEXP(3 | MARG+2 |
^ABMNINS( | OVER+1, OVER+2, OVER+4, OVER+5, OVER+7 |
^AUTNINS - [#9999999.18] | LOOP+23 |
Name | Line Occurrences |
---|---|
FRMT | LOOP+32, LOOP2+5 |
LOOP | LOOP+5, LOOP+33, LOOP2+8 |
LOOP2 | LOOP+31 |
MARG | TEST+2 |
OVER | MARG+5 |
XIT | LOOP+1 |
Name | Field # of Occurrence |
---|---|
^(0 | MARG+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABM | TEST+1*, XIT! |
ABM("ADD" | LOOP+27, LOOP+28 |
ABM("BLNK" | FRMT+5* |
ABM("FL" | LOOP+8*, LOOP+9*, LOOP+10* |
ABM("FLD" | LOOP+32*, LOOP2+3*, LOOP2+4*, LOOP2+5, FRMT+1, FRMT+2, FRMT+3*, FRMT+4*, FRMT+5*, FRMT+6 |
ABM("FMAT" | LOOP+14*, LOOP+32, FRMT |
ABM("I" | MARG+4*, LOOP+4*, LOOP+23*, LOOP+24, LOOP+32*, LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+5 , LOOP2+7, FRMT |
ABM("INS" | LOOP+21!, LOOP+24* |
ABM("J" | LOOP+23*, LOOP+24 |
ABM("LM" | MARG+1*, MARG+2*, LOOP+32, LOOP2+5 |
ABM("LN" | MARG+1*, LOOP+1*, LOOP+4, LOOP+8, LOOP+9, LOOP+10, LOOP+17, LOOP2+1, LOOP2+3, LOOP2+4 , LOOP2+7, FRMT+1 |
ABM("LTH" | FRMT*, FRMT+1*, FRMT+2*, FRMT+3*, FRMT+4*, FRMT+5*, FRMT+6 |
ABM("LTOT" | LOOP2+4, FRMT+1* |
ABM("RT" | FRMT+5* |
ABM("TABS" | LOOP+13*, LOOP+32, LOOP2+2, LOOP2+5 |
ABM("TM" | MARG+1*, MARG+2*, MARG+4, LOOP+17, LOOP+18, LOOP+20, LOOP+22, LOOP+28 |
ABMF | XIT! |
ABMF( | LOOP+1, LOOP+9, LOOP+10, LOOP2+1, LOOP2+3, TEST+1*, OVER+9, OVER+10*, OVER+12* |
ABMF("TEST" | LOOP+19, LOOP+31, TEST*, TEST+1 |
ABMOLN | OVER+1*, OVER+2, OVER+4, OVER+5, OVER+7, OVER+8, OVER+11, OVER+12, OVER+13! |
ABMOPC | OVER+2*, OVER+4, OVER+5, OVER+7, OVER+10, OVER+12, OVER+13! |
ABMOVTYP | OVER+3!, OVER+4*, OVER+5*, OVER+6, OVER+7, OVER+13! |
>> ABMP("BDFN" | LOOP+23, LOOP+24 |
>> ABMP("INS" | MARG+5, LOOP+21, LOOP+23, OVER+1, OVER+2, OVER+4, OVER+5, OVER+7 |
>> ABMP("MORE" | LOOP2+4 |
>> ABMP("PTOT" | LOOP2+4, LOOP2+7 |
>> ABMP("VTYP" | OVER+5 |
>> ABMR("MORE" | LOOP2+7, XIT |
ABMVALUE | OVER+7*, OVER+10, OVER+12, OVER+13! |
DUZ(2 | LOOP+24, OVER+1, OVER+2, OVER+4, OVER+5, OVER+7 |
I | OVER+8~*, OVER+9, OVER+10 |
>> IOT | MARG+2 |
U | MARG+2, LOOP+23, LOOP+28, LOOP+32, LOOP2+1, LOOP2+2, LOOP2+3, LOOP2+5, FRMT |
Name | Field # of Occurrence |
---|---|
$T(@ABM(1) | LOOP+13, LOOP+14 |