Routine: ABPACKS0

Package	Total	Call Graph
Third Party Tracking	3	MAIN^ABPACKLK ^ABPAHD (DTCVT,PAUSE)^ABPAMAIN
Kernel	1	^%ZIS
VA Fileman	1	WAIT^DICD

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;PROCEDURE TO DRAW SCREEN HEADING
HEAD2	;PROCEDURE TO DRAW CHECK SUMMARY HEADER
CLEAR	;PROCEDURE TO KILL ALL TEMPORARY VARIABLES
DETAIL	;PROCEDURE TO EXTRACT AND WRITE OUT THE DETAIL RECORDS
DEVICE	;PROCEDURE TO PROCESS OUTPUT DEVICE SELECTION
CLOSE	;PROCEDURE TO PROCESS OUTPUT DEVICE CLOSING
MAIN	;THE OVERALL ROUTINE DRIVER - ENTRY POINT TO THIS PROGRAM
GETCHK	;PROCEDURE PROCESS INPUT OF A CHECK NUMBER

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+1, CLOSE+1
MAIN^ABPACKLK	GETCHK+2
^ABPAHD	HEAD+2
DTCVT^ABPAMAIN	GETCHK+5, HEAD2+2, DETAIL+25, DETAIL+27
PAUSE^ABPAMAIN	DETAIL+41, MAIN+4
WAIT^DICD	MAIN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<<< NOT AN ENTRY POINT - ACCESS DENIED >>>",!! Line Location: ABPACKS0+2
Function Call: WRITE	Prompt: *7," ??" Line Location: GETCHK+1
Function Call: WRITE	Prompt: !! Line Location: GETCHK+2
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: @IOF,! Line Location: HEAD2+1
Function Call: WRITE	Prompt: ABPA("DTOUT") Line Location: HEAD2+2
Function Call: WRITE	Prompt: ?40-($L(X)/2),X Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?79-$L(X),X,! Line Location: HEAD2+4
Function Call: WRITE	Prompt: "=" Line Location: HEAD2+5
Function Call: WRITE	Prompt: ! Line Location: HEAD2+5
Function Call: WRITE	Prompt: " Check #: ",ABPACHK("NUM")," for ",$E(ABPACHK("APNAM"),1,27) Line Location: HEAD2+6
Function Call: WRITE	Prompt: ?56,"Amount: ",$J(ABPACHK("AMT"),8,2) Line Location: HEAD2+7
Function Call: WRITE	Prompt: !," Payor: ",ABPACHK("PAYOR"),?55,"Balance: " Line Location: HEAD2+8
Function Call: WRITE	Prompt: $J(ABPACHK("RAMT"),8,2),!,"Received: ",ABPACHK("RCVD"),?53 Line Location: HEAD2+9
Function Call: WRITE	Prompt: "Last User: ",ABPACHK("LUSR"),! Line Location: HEAD2+10
Function Call: WRITE	Prompt: "=" Line Location: HEAD2+10
Function Call: WRITE	Prompt: "=" Line Location: HEAD2+10
Function Call: WRITE	Prompt: "Facility",?13,"Patient Name",?38,"DOS Beg/End",?54 Line Location: HEAD2+11
Function Call: WRITE	Prompt: "Amount Insurer Name",! Line Location: HEAD2+12
Function Call: WRITE	Prompt: !?52,"--------",!?52,$J(ABPA("TAMT"),8,2) Line Location: DETAIL+44
Function Call: WRITE	Prompt: ! Line Location: CLOSE+1
Function Call: WRITE	Prompt: ! Line Location: MAIN+2
Routine Call	%ZIS Line Location: DEVICE+1 CLOSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	CLOSE+1
^ABPVAO - [#9002270.02]	DETAIL+6, DETAIL+7, DETAIL+13, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+21, DETAIL+22, DETAIL+29 , DETAIL+31, DETAIL+32, DETAIL+33, DETAIL+34
^ABPVAO("CK"	DETAIL+3, DETAIL+5
^AUTNINS - [#9999999.18]	DETAIL+23, DETAIL+24
^AUTTLOC - [#9999999.06]	DETAIL+8, DETAIL+9, DETAIL+10

Label References

Name	Line Occurrences
CLEAR	MAIN+1
CLOSE	MAIN+3
DETAIL	MAIN+3
DEVICE	MAIN+2
GETCHK	MAIN+1
HEAD	MAIN+1
HEAD2	DETAIL+38, MAIN+3
MAIN	MAIN+3, MAIN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	DEVICE+1!*
%IS("A"	DEVICE+1*
>> ABPA("AMT"	DETAIL+28, DETAIL+34, DETAIL+35, DETAIL+37
>> ABPA("BDOS"	DETAIL+12, DETAIL+18, DETAIL+25, DETAIL+26*, DETAIL+36
>> ABPA("DOS"	DETAIL+17*, DETAIL+18, DETAIL+19
>> ABPA("DTIN"	GETCHK+5, HEAD2+2, DETAIL+25, DETAIL+27
>> ABPA("DTOUT"	GETCHK+6, HEAD2+2, DETAIL+26, DETAIL+28
>> ABPA("EDOS"	DETAIL+12, DETAIL+19, DETAIL+27, DETAIL+28*, DETAIL+37
>> ABPA("FAC"	DETAIL+6, DETAIL+10, DETAIL+36
>> ABPA("HD"	HEAD+1!*
>> ABPA("INS"	DETAIL+12, DETAIL+24, DETAIL+37
>> ABPA("PAT"	DETAIL+6, DETAIL+7, DETAIL+36
>> ABPA("TAMT"	DETAIL+1, DETAIL+35, DETAIL+42, DETAIL+44
ABPACHK	CLEAR+1!, GETCHK+3
ABPACHK("AMT"	HEAD2+7
ABPACHK("AP"	DETAIL+9
ABPACHK("APNAM"	HEAD2+6
ABPACHK("LUSR"	HEAD2+10
ABPACHK("NUM"	HEAD2+6, DETAIL+3, DETAIL+5
ABPACHK("PAYOR"	HEAD2+8
ABPACHK("RAMT"	HEAD2+9
ABPACHK("RCVD"	GETCHK+6*, HEAD2+9
ABPACHK("XMIT"	GETCHK+5
>> ABPAI	DETAIL+2*
>> ABPAJ	DETAIL+4*
>> ABPAK	DETAIL+14, DETAIL+30
>> ABPAMESS	DETAIL+40*
>> ABPAPG	HEAD2+1, HEAD2+4, MAIN+3
>> ABPAPTR	DETAIL+8, DETAIL+9, DETAIL+10, DETAIL+20, DETAIL+21, DETAIL+22*, DETAIL+23, DETAIL+24
>> ABPATLE	HEAD+1, HEAD2+3
>> ABPAX	DETAIL+1, DETAIL+2, DETAIL+4, DETAIL+9, DETAIL+11*, DETAIL+38, DETAIL+42, MAIN+3
>> DA	DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+30, DETAIL+31, DETAIL+32, DETAIL+33, DETAIL+34
>> DA(1	DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+13, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+29, DETAIL+31 , DETAIL+32, DETAIL+33, DETAIL+34
>> DA(2	DETAIL+1, DETAIL+2, DETAIL+3, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+13, DETAIL+15, DETAIL+16, DETAIL+17 , DETAIL+20, DETAIL+21, DETAIL+22, DETAIL+29, DETAIL+31, DETAIL+32, DETAIL+33, DETAIL+34
>> DATA	DETAIL+7, DETAIL+8, DETAIL+10
DT	HEAD2+2
GOTCHECK	CLEAR+1!, GETCHK+1, GETCHK+3, GETCHK+4, MAIN+1
I	CLEAR+1!, GETCHK+1, HEAD2+5, HEAD2+10*
IO	DEVICE+1, DETAIL+41, CLOSE+1, MAIN+2
IO(0	DETAIL+41, MAIN+2
IOF	HEAD2+1
IOP	CLOSE+1*!
IOSL	DETAIL+38
IOST	DETAIL+39, MAIN+2
RESTRICT	CLEAR+1!, GETCHK+2*
>> X	HEAD2+3, HEAD2+4
>> XQO	HEAD+1
>> Y	GETCHK+1, GETCHK+3*

Customize PDF page

Package: Third Party Tracking

Routine: ABPACKS0

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: