Routine: ABPAOC0

Package	Total	Call Graph
Third Party Tracking	3	^ABPAHD ^ABPAOC0A (B1,END1)^ABPAOC1
Kernel	1	^%ZIS
VA Fileman	1	IX^DIC

Entry Points

Name	Comments	DBIA/ICR reference
A
AA
READ
A0
B0
CHECK
SBRS

External References

Name	Field # of Occurrence
^%ZIS	AA+3
^ABPAHD	A+3
^ABPAOC0A	AA
B1^ABPAOC1	B0+1
END1^ABPAOC1	AA, AA+2, READ+2, CHECK, CHECK+8, CHECK+18, CHECK+22
IX^DIC	CHECK+6, CHECK+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: A+3
Function Call: WRITE	Prompt: @(%MT("REW")) Line Location: A0+1
Function Call: WRITE	Prompt: !!,*7,?10,"File DOES NOT Contain PRIVATE INSURANCE Data -- JOB CANCELLED" Line Location: READ+2
Function Call: WRITE	Prompt: !!,?10,"Are You Sure All Data was POSTED to the Area files? NO// " Line Location: CHECK+1
Function Call: WRITE	Prompt: *7,!,"FACILITY CODE LOOK-UP ERROR ON CODE '",X,"'" Line Location: CHECK+8
Function Call: WRITE	Prompt: !!,*7,?12,"File Contains PRIVATE INSURANCE Data -- As listed Below: ",! Line Location: CHECK+11
Function Call: WRITE	Prompt: !,?10,"FACILITY CODE = ",?40,$P(X3,"^",1) Line Location: CHECK+12
Function Call: WRITE	Prompt: !,?10,"FACILITY NAME = ",?40,$P(X3,"^",2) Line Location: CHECK+13
Function Call: WRITE	Prompt: !,?10,"DATE EXPORT CREATED = " Line Location: CHECK+14
Function Call: WRITE	Prompt: ?40,Y Line Location: CHECK+14
Function Call: WRITE	Prompt: !,?10,"BEGINNING CLAIM DATE = " Line Location: CHECK+15
Function Call: WRITE	Prompt: ?40,Y Line Location: CHECK+15
Function Call: WRITE	Prompt: !,?10,"ENDING CLAIM DATE = " Line Location: CHECK+16
Function Call: WRITE	Prompt: ?40,Y Line Location: CHECK+16
Function Call: WRITE	Prompt: !,?10,"NUMBER OF CLAIM RECORDS = ",?40,$P(X3,"^",7),! Line Location: CHECK+17
Function Call: WRITE	Prompt: !!,*7,?10,"Data Already on File for this Facility",! Line Location: CHECK+20
Function Call: WRITE	Prompt: ?10,"Do you want to merge this File (Y/N) N// " Line Location: CHECK+21
Function Call: READ	Timeout: DTIME Variable: Y Line Location: SBRS+0
Function Call: READ	Timeout: 5 Variable: Y Line Location: SBRS+0
Routine Call	%ZIS Line Location: AA+3
Routine Call	DIC Line Location: CHECK+6 CHECK+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("MAGTAPE"	A0+1
^%ZOSF("OS"	AA, AA+2, A0+1
^ABPVGLOB(	CHECK+3!, CHECK+18
^ABPVGLOB("COUNT"	CHECK, CHECK+4*
^ABPVGLOB(0	CHECK+4*
^ASMPITMP(	B0!
^DD("DD"	CHECK+14, CHECK+15, CHECK+16

Label References

Name	Line Occurrences
B0	CHECK+10, CHECK+18, CHECK+22
CHECK	CHECK
SBRS	CHECK+1, CHECK+21, SBRS

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %MT("REW"	A0+1
>> ABPA("HD"	A+1!, A+2
>> ABPATLE	A+1
>> D	CHECK+6, CHECK+7
DFOUT	CHECK, CHECK+1, SBRS!, SBRS+1*
>> DIC	CHECK+6*
>> DIC(0	CHECK+6*
DLOUT	CHECK+22, SBRS!, SBRS+1*
DQOUT	CHECK, CHECK+5, SBRS!, SBRS+1
DTIME	CHECK+19, SBRS
DTOUT	SBRS!*
DUOUT	CHECK, CHECK+1, CHECK+22, SBRS!, SBRS+1*
>> EFLG	A+3, AA, AA+2, AA+5, A0, CHECK
>> EMSG	AA+1
>> G	READ+1*, READ+2
IO	AA+3, A0+1, READ
IO(0	A+3*, READ+2, CHECK+1, CHECK+8, CHECK+11, CHECK+12
IOP	AA+3*!
>> X	READ, CHECK+6, CHECK+8, CHECK+9, CHECK+19*
>> X1	READ*
>> X2	READ*, READ+1
>> X3	READ*, CHECK+6, CHECK+12, CHECK+13, CHECK+14, CHECK+15, CHECK+16, CHECK+17
Y	CHECK!, CHECK+1, CHECK+2, CHECK+7, CHECK+8, CHECK+14, CHECK+15, CHECK+16, CHECK+22, SBRS , SBRS+1*
>> ZOPT	A*, CHECK+10
>> ZSITE	CHECK+9*, CHECK+18

Customize PDF page

Package: Third Party Tracking

Routine: ABPAOC0

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: