Routine: ABMDF1X

Information

ABMDF1X ; IHS/ASDST/DMJ - PRINT UB82 ;

Source file <ABMDF1X.m>

Package	Total	Call Graph
Third Party Billing	1	$$EN^ABMVDF

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

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

Name	Field # of Occurrence
$$EN^ABMVDF	MARG+1

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: MARG+1
Function Call: WRITE	Prompt: ! Line Location: MARG+4
Function Call: WRITE	Prompt: ! Line Location: LOOP+15
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP+19
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)
^ABMDEXP(1	MARG+3

Name	Field # of Occurrence
^(0	MARG+3

Name	Field # of Occurrence
ABM	ABMDF1X+4!, TEST+1*, XIT!
ABM("BLNK"	FRMT+3, FRMT+4
ABM("CTR"	FRMT+3*
ABM("FL"	LOOP+7, LOOP+8
ABM("FLD"	LOOP+19, LOOP2, FRMT+1, FRMT+2, FRMT+3, FRMT+4*, FRMT+5
ABM("FMAT"	LOOP+12*, LOOP+19, FRMT
ABM("I"	MARG+4, LOOP+3, LOOP+19, LOOP2, FRMT
ABM("LM"	MARG+2, MARG+3, LOOP+19, LOOP2
ABM("LN"	MARG+2, LOOP, LOOP+3, LOOP+7, LOOP+8, LOOP+15, LOOP2
ABM("LTH"	FRMT, FRMT+1, FRMT+2, FRMT+3, FRMT+4*, FRMT+5
ABM("RT"	FRMT+4*
ABM("TABS"	LOOP+11*, LOOP+19, LOOP2
ABM("TM"	MARG+2, MARG+3, MARG+4, LOOP+15
ABMF	XIT!
ABMF(	LOOP, LOOP2, TEST+1*
ABMF("TEST"	LOOP+18, TEST*, TEST+1
IO	ABMDF1X+5
U	MARG+2*, MARG+3, LOOP+19, LOOP2, FRMT

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