Routine: ABMDF2X

Information

ABMDF2X ; IHS/ASDST/DMJ - PRINT HCFA 1500 ;

Source file <ABMDF2X.m>

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

Package	Total	Caller Graph
Third Party Billing	2	ABMDF2 ABMDFRDO
Phoenix Devel Center	1	AZXDFRDO

Name	Comments	DBIA/ICR reference
TEXT	;;TABS;;FIELD LENGTH/FORMAT ($-$ FORMAT,L-LNGTH REQ'D,C-CENTER,R-RIGHT)
50	;;0^49^62^71;;29^12$^8R^8C
52	;;0^50;;29^27
25	;;0^17^34^53^68;;12^11^14^10^9
27	;;0^54^69;;48^9^8
20	;;4^39;;31^10
23	;;0^30^50^72;;11^19C^17C^1
29	;;0^53^55^63;;48^1^1^9$
1	;;1^13^26^39^52^65;;1^1^1^1^1^1
4	;;0^32^38^44^50;;29^2^2^2^27C
7	;;0;;29
6	;;0^37^42^50;;29^1^1^27C
9	;;0^50;;29^27C
51	;;0^37^42;;29^1^1
12	;;0^50;;29^27
XIT
LOOP2
38	;;0^13^18^27^47^53^62^66^69;;12R^3C^8C^20^6C^8$^3R^2R^9C
10	;;7^32^37^42^47^55;;21^1^1^1^1^1
13	;;0^37^42^50;;29^1^1^27
MARG	;Set left and top margins
14	;;0^58;;29^18
17	;;0^55^68;;29^1^9C
16	;;0^37^42^55^61;;29^1^1^1^1
19	;;50;;27C
54	;;3^50;;24^27
31	;;1^69^72;;48^1^1
56	;;0^31^53;;29C^18C^24C
37	;;0^13^18^27^47^53^62^66^69;;12^3C^8C^20^6C^8$^3R^2R^9C
36	;;22;;3
53	;;0^31^50;;29^18C^27
34	;;1^62;;48^15
33	;;1;;48
55	;;50;;27
FRMT
TEST
LOOP

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

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+14
Function Call: WRITE	Prompt: " Send PAYMENT to PROVIDER in Block 31 " Line Location: LOOP+16
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP+28
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP2+0
Function Call: WRITE	Prompt: $J($FN(+ABM("FLD"),",",2),ABM("LTH")) Line Location: FRMT+1
Function Call: WRITE	Prompt: $E(ABM("FLD"),1,ABM("LTH")) Line Location: FRMT+5

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	LOOP+20
^ABMDEXP(2	MARG+2
^AUTNINS - [#9999999.18]	LOOP+19

Name	Field # of Occurrence
^(0	MARG+2

Name	Field # of Occurrence
ABM	TEST+1*, XIT!
ABM("ADD"	LOOP+23, LOOP+24
ABM("BLNK"	FRMT+4*
ABM("FL"	LOOP+7*
ABM("FLD"	LOOP+28, LOOP2, FRMT+1, FRMT+2, FRMT+3, FRMT+4*, FRMT+5
ABM("FMAT"	LOOP+11*, LOOP+28, FRMT
ABM("I"	MARG+4, LOOP+3, LOOP+19, LOOP+20, LOOP+28, LOOP2*, FRMT
ABM("IDFN"	LOOP+21*
ABM("INS"	LOOP+17!, LOOP+20*
ABM("J"	LOOP+19*, LOOP+20
ABM("LM"	MARG+1, MARG+2, LOOP+28, LOOP2
ABM("LN"	MARG+1, LOOP, LOOP+3, LOOP+7, LOOP+14, LOOP2
ABM("LTH"	FRMT, FRMT+1, FRMT+2, FRMT+3, FRMT+4*, FRMT+5
ABM("RT"	FRMT+4*
ABM("TABS"	LOOP+10*, LOOP+28, LOOP2
ABM("TM"	MARG+1, MARG+2, MARG+4, LOOP+14, LOOP+15, LOOP+16, LOOP+18, LOOP+24
ABMF	XIT!
ABMF(	LOOP, LOOP2, TEST+1*
ABMF("TEST"	LOOP+27, TEST*, TEST+1
>> ABMP("BDFN"	LOOP+19, LOOP+20
>> ABMP("INS"	LOOP+17, LOOP+19, LOOP+21
>> ABMR("MORE"	XIT
DUZ(2	LOOP+20
U	MARG+1*, MARG+2, LOOP+19, LOOP+24, LOOP+28, LOOP2, FRMT

Name	Field # of Occurrence
$T(@ABM(1)	LOOP+10, LOOP+11