Routine: ABPAOC1

Package	Total	Call Graph
Third Party Tracking	1	A0^ABPAOP0
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
Third Party Tracking	1	ABPAOC0

Entry Points

Name	Field # of Occurrence
A0^ABPAOP0	CONT
YN^DICN	POST+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"NOT AN ENTRY POINT!!!" Line Location: B0+0
Function Call: WRITE	Prompt: !!,?5,"<<<< Please Standby - Transfering PRIVATE INSURANCE Data >>>>",! Line Location: B1+1
Function Call: READ	Timeout: $E(X,1,2)="**" Variable: X G END Line Location: B1+3
Function Call: WRITE	Prompt: *7,!,"<<< RECORD TYPE ERROR AT RECORD #",CT+1," ....JOB TERMINATED >>>" Line Location: RTYPERR+0
Function Call: WRITE	Prompt: !!,?12,"A total of ",(RC/2)," PRIVATE INSURANCE records " Line Location: TXSUM+0
Function Call: WRITE	Prompt: "were MERGED.",!?12,"A total of ",RC," nodes were " Line Location: TXSUM+1
Function Call: WRITE	Prompt: "processed.",! Line Location: TXSUM+2
Function Call: WRITE	Prompt: !!,?20,"No PRIVATE INSURANCE Data Transferred",! Line Location: END1+0
Function Call: WRITE	Prompt: *7,!!,?10,"An Error has been detected while reading these records.",!!,"Please notify you supervisor.",! Line Location: TERROR+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	ENDK
^ABPVGLOB(	TXFER1+5, TXFER1+7, TXFER1+8, TXFER1+9, TXFER1+10, TXFER1+11, TXFER1+12, TXFER1+13, TXFER1+14, TXFER1+15* , TXFER1+16, NXTR+1, TXSUM+5
^ABPVGLOB("COUNT"	TXSUM+3*, TXSUM+4
^ABPVGLOB(0	TXFER1, TXFER1+1, TXFER1+2, TXFER1+3, TXFER1+4, TXFER1+6, TXSUM+4*
^ASMPITMP(	B1+2, S9A+1, S9A+3*, TXFER1, TXFER1+2, TXFER1+7, TXFER1+9, TXFER1+11, TXFER1+13, TXFER1+14 , NXTR, NXTR+1

Name	Field # of Occurrence
^(0	TXFER1+8*

Name	Field # of Occurrence
>> %	POST, POST+2*, POST+3
%MT	ENDK+2!
ASITE	ENDK+1!
AUOK	ENDK+2!, END1*
>> CDT	TXFER1, TXFER1+1, TXFER1+2, TXFER1+3, TXFER1+9, TXFER1+10, TXFER1+11, TXFER1+12, TXFER1+14*, TXFER1+15
CT	B1, S9A+1, S9A+3*, RTYPERR, END, ENDK+1!
CTFI	ENDK+1!
CTPD	ENDK+1!
CTPIG	ENDK+1!
CTV	ENDK+1!
CTVS	ENDK+1!
DLOUT	ENDK+2!
DTOUT	ENDK+2!
DUOUT	ENDK+2!
>> EFLG	B1+3, RTYPERR, END
EMSG	ENDK+2!
G	ENDK+2!
I	B1+3, POST, ENDK+2!
>> ICT	B1*, END
IO	B1+3
IO(0	B1+1, RTYPERR, TXSUM, TXSUM+1, TXSUM+2, ENDK, END1, TERROR
NDT	TXFER1, TXFER1+1, TXFER1+2, TXFER1+3, TXFER1+9, TXFER1+10, TXFER1+11, TXFER1+12, TXFER1+14*, TXFER1+15 , ENDK+2!
R	TXFER1+7, TXFER1+16, NXTR*, NXTR+1, ENDK+2!
RC	TXFER1+7, TXFER1+16, NXTR+1*, TXSUM, TXSUM+1, TXSUM+3, ENDK+1!
RCT	TXFER1+7, TXFER1+16, NXTR+1*, TXSUM+5, ENDK+2!
RTYP	S9A, S9A+2, ENDK+1!
TCNT	TXFER1+8*!
TX2	ENDK+1!
TX3	ENDK+1!
X	B1+3*, ENDK+1!
X1	B1+3*, S9A, S9A+1, ENDK+2!
X2	B1+3*, ENDK+1!
X3	B1, B1+2, B1+3*, S9A+2, S9A+3, ENDK+1!
Y	ENDK+1!
ZOPT	ENDK+2!
ZSITE	B1+2, S9A+1, S9A+3, TXFER1, TXFER1+2, TXFER1+4, TXFER1+5, TXFER1+7, TXFER1+8, TXFER1+9 , TXFER1+10, TXFER1+11, TXFER1+12, TXFER1+13, TXFER1+14, TXFER1+15, TXFER1+16, NXTR, NXTR+1, TXSUM+5 , ENDK+2!
ZTOT	ENDK+1!
ZTYPE	ENDK+2!