Routine: ABPAACHD

Information

ABPAACHD ;OUTSTANDING CLAIM REPORTS HEADER; [ 05/17/91 4:22 PM ]

Source file <ABPAACHD.m>

Package	Total	Call Graph
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Third Party Tracking	2	ABPAAGE2 ABPAAGS2

Name	Field # of Occurrence
NOW^%DTC	WRITE+8

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: WRITE+10
Function Call: WRITE	Prompt: "RUN DATE: ",RUNDT Line Location: WRITE+11
Function Call: WRITE	Prompt: ?((+IOM/2)-($L(X)/2)),X,?((+IOM-1)-($L(PG))),PG,!,XX Line Location: WRITE+12
Function Call: WRITE	Prompt: ! Line Location: WRITE+21
Function Call: WRITE	Prompt: "=" Line Location: WRITE+21
Function Call: WRITE	Prompt: ! Line Location: WRITE+22

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WRITE+8
^DIC(4 - [#4]	START

Name	Line Occurrences
MOVE	NXTX
NXTX	NXTX+1

Name	Field # of Occurrence
>> %	WRITE+8
>> %I(1	WRITE+9
>> %I(2	WRITE+9
>> %I(3	WRITE+9
>> ABPA("HD"	NXTX, MOVE, WRITE, WRITE+2, WRITE+4, WRITE+5, WRITE+6, WRITE+14, WRITE+23!, WRITE+24
>> ABPA("RTYP"	WRITE+1, WRITE+3, WRITE+15, WRITE+18, WRITE+21
>> ABPAPG	WRITE+10*
>> ABPATLE	WRITE+2, WRITE+4
>> AU("LINE"	WRITE+5*, WRITE+6, WRITE+22!
>> AU("MAX"	NXTX+1, MOVE, WRITE+6, WRITE+13, WRITE+22!
DUZ(2	START
I	MOVE, WRITE+13, WRITE+14, WRITE+21, WRITE+22!, WRITE+23, WRITE+24
IOF	WRITE+10
IOM	WRITE+7, WRITE+12, WRITE+14, WRITE+21
PG	WRITE+10*, WRITE+12, WRITE+22!
RUNDT	WRITE+9*, WRITE+11, WRITE+22!
RUNTM	WRITE+8*, WRITE+9, WRITE+22!
SITENAME	START*, WRITE, WRITE+22!
X	START, NXTX, NXTX+1, WRITE+11*, WRITE+12, WRITE+22!
XX	WRITE+7*, WRITE+12, WRITE+13, WRITE+22!
Y	WRITE+8*, WRITE+22!
>> ZTNN	WRITE+11