Routine: ABPAOCS0

Package	Total	Call Graph
Third Party Tracking	5	^ABPADETC ^ABPAHD PAUSE^ABPAMAIN ^ABPAOCS1 ^ABPAPATL
Kernel	1	^%ZIS

Package

Total

Call Graph

^%ZIS

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: ! Line Location: DEVICE+9
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: DT3+12
Function Call: WRITE	Prompt: ?50,ABPAPDT Line Location: DT3+12
Function Call: WRITE	Prompt: ?62,$J(+^ABPVAO(DA,"P",R,"A",RRR,0),10,2) Line Location: DT3+16
Function Call: WRITE	Prompt: !,"Press 'RETURN' to Cont., Enter 'List Number' for Claim " Line Location: CONT+1
Routine Call	%ZIS Line Location: DEVICE+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	DEVICE+8
^ABPVAO - [#9002270.02]	PAT+4, PAT+5, PAT+6, DT3, DT3+6, DT3+7, DT3+8, DT3+9, DT3+10, DT3+14 , DT3+15, DT3+16, DT3+17, CONT+6
^ABPVAO("CS"	DEVICE+6
^AUTNINS - [#9999999.18]	DT3+1
^DIC(4 - [#4]	PAT+6

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

Information

Name	Comments	DBIA/ICR reference
DEVICE	;PROCEDURE TO PROCESS OUTPUT DEVICE SELECTION
DT3
PAT
CONT	;PROCEDURE TO PAUSE DISPLAY AND PROCESS ACTION REQUEST
XIT