Routine: ABMDF27X

Information

ABMDF27X ; IHS/ASDST/DMJ - New HCFA-1500 (08/05) Format ;

Source Information

Source file <ABMDF27X.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	ABMDF27

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
26	;;30;;19
27	;;1^33^54^68;;26^10^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^3^1^1^1^23C^4
9	;;1^14^35^41^47^50^64;;12^13^1^1^1^12C^13
XIT
LOOP2	;Loop thru the pieces of the line array
11	;;1^50;;28^29C
51	;;23^50;;26^29
13	;;1^35^41^53^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^33^50^62;;10D^10^14R^10C^17
31	;;3^13^29^38^50;;^10^10^9^10^29
49	;;1^17^19^23^38^43^51^61^71;;15^1^1^14C^1^1^9$^8$^8$
37	;;1^10^19^22^23^45^50^59^63^65^68;;8T^8T^2R^1R^19^5^8$^4C^2R^2R^10
36	;;1^65^68;;61^2^12
53	;;1^23^50;;21^26^29
52	;;1^23^50;;21^26^29
33	;;3^13^29^38^50;;^10^10^9^10^29C
FRMT
TEST
LOOP	;Loop thru line number array

External References

Name	Field # of Occurrence
BADDR^ABMDLBL1	LOOP+50
$$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+42
Function Call: WRITE	Prompt: ?1,"XXX",?32,"Page "_ABMPGCNT_" of "_ABMPGTOT,?76,"XXX" Line Location: LOOP+45
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP+57
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP2+11
Function Call: WRITE	Prompt: ?52,"(CONT.)" Line Location: LOOP2+13
Function Call: WRITE	Prompt: $J($FN(+ABM("FLD"),",",2),ABM("LTH")) 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+5
Function Call: WRITE	Prompt: $E(ABM("FLD"),4,5)," ",$E(ABM("FLD"),6,7)," ",$E(ABM("FLD"),2,3) Line Location: FRMT+6
Function Call: WRITE	Prompt: $E(ABM("FLD"),4,5)," ",$E(ABM("FLD"),6,7)," ",$E(ABM("FLD"),1,3)+1700 Line Location: FRMT+7
Function Call: WRITE	Prompt: $E(ABM("FLD"),4,7),$E(ABM("FLD"),1,3)+1700 Line Location: FRMT+8
Function Call: WRITE	Prompt: $E(ABM("FLD"),1,ABM("LTH")) Line Location: FRMT+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	LOOP+49
^ABMDEXP(27	MARG+2
^ABMNINS(	OVER+2, OVER+4, OVER+7, OVER+9, OVER+12
^AUTNINS - [#9999999.18]	LOOP+30, LOOP+48

Label References

Name	Line Occurrences
FRMT	LOOP+57, LOOP2+11
LOOP	LOOP+5, LOOP+58, LOOP2+14
LOOP2	LOOP+56
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+52, LOOP+53
ABM("BLNK"	FRMT+11*
ABM("FL"	LOOP+8, LOOP+9, LOOP+10*
ABM("FLD"	LOOP+57, LOOP2+9, LOOP2+10, LOOP2+11, FRMT+1, FRMT+3, FRMT+5, FRMT+6, FRMT+7, FRMT+8 , FRMT+9, FRMT+10, FRMT+11, FRMT+12
ABM("FMAT"	LOOP+14*, LOOP+57, FRMT
ABM("I"	MARG+4, LOOP+4, LOOP+48, LOOP+49, LOOP+57, LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+5 , LOOP2+7, LOOP2+8, LOOP2+9, LOOP2+10, LOOP2+11, LOOP2+13, FRMT
ABM("INS"	LOOP+46!, LOOP+49*
ABM("J"	LOOP+48*, LOOP+49
ABM("LM"	MARG+1, MARG+2, LOOP+57, LOOP2+11
ABM("LN"	MARG+1, LOOP+1, LOOP+4, LOOP+8, LOOP+9, LOOP+10, LOOP+42, LOOP2+1, LOOP2+3, LOOP2+4 , LOOP2+5, LOOP2+7, LOOP2+8, LOOP2+9, LOOP2+10, LOOP2+13, FRMT+1, FRMT+3
ABM("LTH"	FRMT, FRMT+1, FRMT+3, FRMT+5, FRMT+6, FRMT+7, FRMT+8, FRMT+9, FRMT+10, FRMT+11 , FRMT+12
ABM("LTOT"	LOOP2+10, FRMT+1, FRMT+3
ABM("RT"	FRMT+11*
ABM("TABS"	LOOP+13*, LOOP+57, LOOP2+2, LOOP2+11
ABM("TM"	MARG+1, MARG+2, MARG+4, LOOP+42, LOOP+43, LOOP+45, LOOP+47, LOOP+53
ABMCHK	LOOP+20, LOOP+21, LOOP+25!, LOOP+33, LOOP+34, LOOP+38!
ABMF	XIT+1!
ABMF(	LOOP+1, LOOP+9, LOOP+10, LOOP+19, LOOP+20, LOOP+23, LOOP+24, LOOP+32, LOOP+33, LOOP+36 , LOOP+37, LOOP2+1, LOOP2+5, LOOP2+8, LOOP2+9, TEST+1, OVER+17, OVER+18, OVER+21, OVER+24*
ABMF("TEST"	LOOP+44, LOOP+56, TEST*, TEST+1
ABMF("TMP"	LOOP+22, LOOP+24, LOOP+25!, LOOP+35, LOOP+37, LOOP+38!
ABMF(17	LOOP+17, LOOP2+4, LOOP2+7, FRMT+1, FRMT+5
ABMF(37	LOOP+22, LOOP+23, LOOP+35, LOOP+36
ABMLOOP	LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+23, LOOP+24, LOOP+25!, LOOP+31, LOOP+32, LOOP+33 , LOOP+34, LOOP+36, LOOP+37, LOOP+38!
ABMOLN	OVER+2*, OVER+4, OVER+7, OVER+9, OVER+12, OVER+16, OVER+20, OVER+24, OVER+25!
ABMOPC	OVER+4*, OVER+7, OVER+9, OVER+12, OVER+21, OVER+24, OVER+25!
ABMOVTYP	OVER+5!, OVER+7, OVER+9, OVER+10, OVER+12, OVER+25!
>> ABMP("BDFN"	LOOP+48, LOOP+49
>> ABMP("INS"	MARG+5, LOOP+30, LOOP+46, LOOP+48, OVER+2, OVER+4, OVER+7, OVER+9, OVER+12
>> ABMP("ITYPE"	LOOP+30
>> ABMP("LDFN"	OVER+2, OVER+4, OVER+7, OVER+9, OVER+12
>> ABMP("MORE"	LOOP2+10
>> ABMP("PTOT"	LOOP2+10, LOOP2+13
>> ABMP("VTYP"	LOOP+17, OVER+9
>> ABMPGCNT	LOOP+45*, LOOP2+3
>> ABMPGTOT	LOOP+45
>> ABMR("MORE"	LOOP2+13, XIT+1
ABMVALUE	OVER+12*, OVER+21, OVER+24, OVER+25!
DUZ(2	LOOP+49
I	OVER+16~*, OVER+17, OVER+18, OVER+20, OVER+21
>> IOT	MARG+2
U	MARG+2, LOOP+17, LOOP+20, LOOP+30, LOOP+33, LOOP+48, LOOP+53, LOOP+57, LOOP2+1, LOOP2+2 , LOOP2+4, LOOP2+5, LOOP2+7, LOOP2+8, LOOP2+9, LOOP2+11, FRMT, FRMT+1, FRMT+5

Customize PDF page

Package: Third Party Billing

Routine: ABMDF27X

Call Graph Total: 2

Caller Graph Total: 1