Routine: ABMDF14X

Information

ABMDF14X ; IHS/ASDST/DMJ - New HCFA-1500 Format ;

Source Information

Source file <ABMDF14X.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Third Party Billing	2	BADDR^ABMDLBL1 $$EN^ABMVDF

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Third Party Billing	1	ABMDF14

Entry Points

Name	Comments	DBIA/ICR reference
TEXT	;;TABS;;FIELD LENGTH ; FORMAT ($-$ FORMAT,L-LNGTH REQ'D,C-CENTER,R-RIGHT,D-DATE)
OVER	;GET OVRRIDE VALUES FROM 3P INSURER FILE
50	;;65;;14
25	;;2^37^54^68;;10D^10D^10D^10D
27	;;1^28^54^68;;26^21C^10D^10D
23	;;6^37^56;;24C^10D^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^10D^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^14^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^10D^1^1
MARG	;Set left and top margins
15	;;2^18^24^35^41^46^50;;10D^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	;;12^23^49^67;;10D^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	;;1^10^19^22^25^42^50^59^62^65^68^70;;8Y^8Y^2R^2R^16^7C^8$^3R^2R^2R^2R^10
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

External References

Name	Field # of Occurrence
BADDR^ABMDLBL1	LOOP+36
$$EN^ABMVDF	MARG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: MARG+3
Function Call: WRITE	Prompt: ! Line Location: MARG+4
Function Call: WRITE	Prompt: ! Line Location: LOOP+28
Function Call: WRITE	Prompt: ?1,"XXX",?76,"XXX" Line Location: LOOP+31
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP+43
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP2+10
Function Call: WRITE	Prompt: ?52,"(CONT.)" Line Location: LOOP2+12
Function Call: WRITE	Prompt: $E(ABM("FLD"),4,5),$E(ABM("FLD"),6,7),$E(ABM("FLD"),1,3)+1700 Line Location: FRMT+3
Function Call: WRITE	Prompt: $E(ABM("FLD"),4,5)," ",$E(ABM("FLD"),6,7)," ",$E(ABM("FLD"),1,3)+1700 Line Location: FRMT+4
Function Call: WRITE	Prompt: $E(ABM("FLD"),4,7),$E(ABM("FLD"),1,3)+1700 Line Location: FRMT+5
Function Call: WRITE	Prompt: $E(ABM("FLD"),1,ABM("LTH")) Line Location: FRMT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	LOOP+35
^ABMDEXP(14	MARG+2
^ABMNINS(	OVER+1, OVER+2, OVER+4, OVER+5, OVER+7
^AUTNINS - [#9999999.18]	LOOP+34

Label References

Name	Line Occurrences
FRMT	LOOP+43, LOOP2+10
LOOP	LOOP+5, LOOP+44, LOOP2+13
LOOP2	LOOP+42
MARG	TEST+2
OVER	MARG+5
XIT	LOOP+1

Naked Globals

Name	Field # of Occurrence
^(0	MARG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	TEST+1*, XIT!
ABM("ADD"	LOOP+38, LOOP+39
ABM("BLNK"	FRMT+8*
ABM("FL"	LOOP+8, LOOP+9, LOOP+10*
ABM("FLD"	LOOP+43, LOOP2+8, LOOP2+9, LOOP2+10, FRMT+1, FRMT+3, FRMT+4, FRMT+5, FRMT+6, FRMT+7* , FRMT+8*, FRMT+9
ABM("FMAT"	LOOP+14*, LOOP+43, FRMT
ABM("I"	MARG+4, LOOP+4, LOOP+34, LOOP+35, LOOP+43, LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+6 , LOOP2+7, LOOP2+8, LOOP2+9, LOOP2+10, LOOP2+12, FRMT
ABM("INS"	LOOP+32!, LOOP+35*
ABM("J"	LOOP+34*, LOOP+35
ABM("LM"	MARG+1, MARG+2, LOOP+43, LOOP2+10
ABM("LN"	MARG+1, LOOP+1, LOOP+4, LOOP+8, LOOP+9, LOOP+10, LOOP+28, LOOP2+1, LOOP2+3, LOOP2+4 , LOOP2+6, LOOP2+7, LOOP2+8, LOOP2+9, LOOP2+12, FRMT+1
ABM("LTH"	FRMT, FRMT+1, FRMT+3, FRMT+4, FRMT+5, FRMT+6, FRMT+7, FRMT+8, FRMT+9
ABM("LTOT"	LOOP2+9, FRMT+1*
ABM("RT"	FRMT+8*
ABM("TABS"	LOOP+13*, LOOP+43, LOOP2+2, LOOP2+10
ABM("TM"	MARG+1, MARG+2, MARG+4, LOOP+28, LOOP+29, LOOP+31, LOOP+33, LOOP+39
ABMCHK	LOOP+20*, LOOP+21, LOOP+25!
ABMF	XIT+1!
ABMF(	LOOP+1, LOOP+9, LOOP+10, LOOP+19, LOOP+20, LOOP+23, LOOP+24, LOOP2+1, LOOP2+4, LOOP2+7* , LOOP2+8, TEST+1, OVER+9, OVER+10, OVER+11, OVER+13*
ABMF("TEST"	LOOP+30, LOOP+42, TEST*, TEST+1
ABMF("TMP"	LOOP+22*, LOOP+24, LOOP+25!
ABMF(17	LOOP+17, LOOP2+3, LOOP2+6, FRMT+3
ABMF(37	LOOP+22, LOOP+23*
ABMLOOP	LOOP+18*, LOOP+19, LOOP+20, LOOP+21, LOOP+23, LOOP+24, LOOP+25!
ABMOLN	OVER+1*, OVER+2, OVER+4, OVER+5, OVER+7, OVER+8, OVER+12, OVER+13, OVER+14!
ABMOPC	OVER+2*, OVER+4, OVER+5, OVER+7, OVER+11, OVER+13, OVER+14!
ABMOVTYP	OVER+3!, OVER+4, OVER+5, OVER+6, OVER+7, OVER+14!
>> ABMP("BDFN"	LOOP+34, LOOP+35
>> ABMP("INS"	MARG+5, LOOP+32, LOOP+34, OVER+1, OVER+2, OVER+4, OVER+5, OVER+7
>> ABMP("MORE"	LOOP2+9
>> ABMP("PTOT"	LOOP2+9, LOOP2+12
>> ABMP("VTYP"	LOOP+17, OVER+5
>> ABMR("MORE"	LOOP2+12, XIT+1
ABMVALUE	OVER+7*, OVER+11, OVER+13, OVER+14!
DUZ(2	LOOP+35, OVER+1, OVER+2, OVER+4, OVER+5, OVER+7
I	OVER+8~*, OVER+9, OVER+10, OVER+11
>> IOT	MARG+2
U	MARG+2, LOOP+17, LOOP+20, LOOP+34, LOOP+39, LOOP+43, LOOP2+1, LOOP2+2, LOOP2+3, LOOP2+4 , LOOP2+6, LOOP2+7, LOOP2+8, LOOP2+10, FRMT, FRMT+3

Customize PDF page

Package: Third Party Billing

Routine: ABMDF14X

Call Graph Total: 2

Caller Graph Total: 1