Routine: ABPAALK1

Package	Total	Call Graph
Third Party Tracking	5	^ABPAALK2 ^ABPAALK3 ^ABPAHD PAUSE^ABPAMAIN ^ABPAPATL
Kernel	1	^%ZIS
VA Fileman	1	WAIT^DICD

Package

Total

Call Graph

^%ZIS

WAIT^DICD

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: ! Line Location: DEVICE+3
Function Call: WRITE	Prompt: !,$J(ABPAI,2),?5,$J("",14-$L(ABPAINS)\2)_ABPAINS,?22,$J((+$E(Y,4,5)_"/"_+$E(Y,6,7)_"/"_+$E(Y,2,3)),8),?33,$J($P(Y,U,7),8,2) Line Location: DT3+2
Function Call: WRITE	Prompt: ?43,ABPASTAT,$S(ABPASTAT="C":"LOSED",ABPASTAT="D":"ENIED",ABPASTAT="PA":"ID",ABPASTAT="PE":"NDING",ABPASTAT="O":"PEN",1:"??????") Line Location: DT3+4
Function Call: WRITE	Prompt: ! Condition for execution: +CNT>1 Line Location: LOOP+7
Function Call: WRITE	Prompt: ?50,ABPAPDT Line Location: LOOP+7
Function Call: WRITE	Prompt: ?62,$J(+^ABPVAO(DA,"P",R,"A",RRR,0),10,2) Line Location: LOOP+11
Function Call: WRITE	Prompt: @IOF Line Location: CONT+3
Function Call: WRITE	Prompt: ! Line Location: ENDLST+1
Routine Call	%ZIS Line Location: DEVICE+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	ENDLST
^ABPVAO - [#9002270.02]	DT0, DT0+1, DT3, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+9, LOOP+10 , LOOP+11, LOOP+12
^ABPVAO("CS"	OPEN+1, PENDING+1
^AUTNINS - [#9999999.18]	DT3+1
^DIC(4 - [#4]	DT0+1

Name	Field # of Occurrence
%DT	END!
%IS	DEVICE+1!*
%IS("A"	DEVICE+1*
ABPA	XIT+1!
ABPA(	DT3*
ABPA("HD"	PAT+1, PAT+2
ABPA("STAT"	LOOP+13!
ABPAC	DT0+2, OPEN, OPEN+1, OPEN+2, PENDING, PENDING+1, PENDING+2*, DT3, LOOP+4, END!
ABPADDFN	XIT!
ABPADT	XIT!, XIT+1!
ABPADTD	XIT!
ABPAENT	XIT!
ABPAHRN	DT0*, XIT+1!
ABPAI	OPEN, PENDING, DT3, DT3+2, END!
ABPAINS	DT3+1*, DT3+2, END!
ABPAL	DT0+1*, XIT+1!
>> ABPAMESS	ENDLST+1*
ABPAPAT	XIT!
ABPAPD	XIT!
ABPAPDT	LOOP+5, LOOP+6, LOOP+7, END!
ABPAQK	XIT+1!
ABPAQKS	XIT+1!
ABPARECV	XIT!, XIT+1!
>> ABPASTAT	DT3+3*, DT3+4, LOOP
ABPATDFN	PAT+3, PAT+4, DT0, OPEN+1, PENDING+1, XIT!
>> ABPATLE	PAT+1
ABPAX	DT0*, END!
ABPAXX	DT0+2*, END!
ABPAZ	END!
C	XIT+1!
CNT	LOOP, LOOP+7, LOOP+13!
D	XIT!
DA	DT0+1, DT3, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+9, LOOP+10, LOOP+11 , LOOP+12, XIT+1!
DIC	XIT+1!
DIE	END!
DR	END!
I	LOOP, LOOP+1, LOOP+13!
IO	DEVICE+1, DEVICE+3, CONT, ENDLST
IO(0	DEVICE+3, CONT, ENDLST
IOF	CONT+3, ENDLST
J	LOOP+8*, LOOP+11, XIT+1!
K	XIT+1!
QFLG	OPEN!, PENDING!, CONT, CONT+2*, END!
R	LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+9, LOOP+10, LOOP+11, LOOP+12 , LOOP+13!
RR	LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+7*, LOOP+13!
>> RRR	LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12
U	DT0+1, DT3+1, DT3+2
>> X	CONT+1*, CONT+2
XQH	XIT+1!
>> Y	DT3*, DT3+1, DT3+2, DT3+3
Z	XIT+1!

Information

Name	Comments	DBIA/ICR reference
PAT
PAID
DT3
XIT
LOOP
DEVICE	;PROCEDURE TO PROCESS OUTPUT DEVICE SELECTION
CONT
ENDLST
DT0
OPEN
PENDING
END