Routine: ABMDF4X

Information

ABMDF4X ; IHS/ASDST/DMJ - ADA-90 FORM ;

Source file <ABMDF4X.m>

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

Package	Total	Caller Graph
Third Party Billing	1	ABMDF4

Name	Comments	DBIA/ICR reference
TEXT	;;TABS;;FIELD LENGTH ; FORMAT ($-$ FORMAT,L-LNGTH REQ'D,C-CENTER,R-RIGHT,D-DATE)
25	;;2^52^54^56;;38^1^1^22
27	;;2^52^54^56;;38^1^1^22
20	;;2^31^43^70;;26^8D^26^8D
23	;;2^52^54^56;;38^1^1^22
29	;;2^17^28^52^54^56^71;;13^10^12^1^1^13^8D
1	;;1^41;;1^37
3	;;41;;37
2	;;1^41;;1^37
5	;;28^33^58;;1^1^20R
6	;;2^28^33^37^43^45^47^50^53^58;;24^1^1^5^1^1^2^2^4^20R
9	;;2^27^50^68;;24^11^17^11C
8	;;2^50^68;;24^17^11C
12	;;6^10^17^41^57;;1^1^24^15^22
XIT
LOOP2
10	;;2^27^39^42^45^50^68;;24^12^2^2^4^17^12C
13	;;17^41^57;;24^15C^22
MARG	;Set left and top margins
59	;;64;;6
14	;;11^14^17^41^57;;1^1^24^15C^22
17	;;2^29^43^48^52^59^64^68;;26^11^2^2^4^1^1^5
16	;;2^59^64;;26^1^1
31	;;2^12^16^19^22^34^36^38^52^54^64^76;;8D^1^1^1^1^1^1^2^1^1^8D^2
50	;;1^64;;62^6$
35	;;13^17^23^49^51^53^56^64;;3R^5^25^2^2^2^7R^6$
FRMT
TEST
57	;;2^27^42^61;;23^11R^8D^9$
LOOP

Name	Field # of Occurrence
$$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+13
Function Call: WRITE	Prompt: ?($P(ABM("TABS"),U,ABM("I"))+ABM("LM")) Line Location: LOOP+17
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"),4,5),"-",$E(ABM("FLD"),6,7),"-",$E(ABM("FLD"),2,3) Line Location: FRMT+2
Function Call: WRITE	Prompt: $E(ABM("FLD"),1,ABM("LTH")) Line Location: FRMT+6

Name	Line Occurrences (* Changed, ! Killed)
^ABMDEXP(4	MARG+2

Name	Field # of Occurrence
^(0	MARG+2

Name	Field # of Occurrence
ABM	TEST+1*, XIT!
ABM("BLNK"	FRMT+5*
ABM("FL"	LOOP+3, LOOP+4, LOOP+5, LOOP+6
ABM("FLD"	LOOP+17, LOOP2, FRMT+1, FRMT+2, FRMT+3, FRMT+4, FRMT+5*, FRMT+6
ABM("FMAT"	LOOP+10*, LOOP+17, FRMT
ABM("I"	MARG+4, LOOP+17, LOOP2*, FRMT
ABM("LM"	MARG+1, MARG+2, LOOP+17, LOOP2
ABM("LN"	MARG+1, LOOP, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+13, LOOP2
ABM("LTH"	FRMT, FRMT+1, FRMT+2, FRMT+3, FRMT+4, FRMT+5, FRMT+6
ABM("MORE"	XIT, XIT+1!
ABM("RT"	FRMT+5*
ABM("TABS"	LOOP+9*, LOOP+17, LOOP2
ABM("TM"	MARG+1, MARG+2, MARG+4, LOOP+13
ABMF	XIT!
ABMF(	LOOP, LOOP2, TEST+1*
ABMF("TEST"	LOOP+16, TEST*, TEST+1
U	MARG+1*, MARG+2, LOOP+17, LOOP2, FRMT

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