Routine: APSPT05

Package	Total	Call Graph
VA Fileman	11	^DIC E^DIE0 (,0,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR)^DIED QQ^DIEQ $$GETTMP^DIKC1 ^DIR RW^DIR2 DIEN^DIWE

Entry Points

Name	Comments	DBIA/ICR reference
DE
15
X10
26
12
X9
20
X21
X18
PR
1
BEGIN
SET
RP
21
22
23
25
TR
X15
RD
RE
3
2
5
4
7
6
X2
C2
C1
X1
X6
KEYCHK()
X5
A
24
B
D
C2S
I
X3
O
N
C2F1
P
X19
R
T
W
V
Y
X
Z
X14
13
X17
11
10
QS
C5F1
C5S
14
17
16
19
18
9
NKEY
C5
X4
C1S
8
C1F1
X13
SAVEVALS

External References

Name	Field # of Occurrence
^DIC	X1, X15
E^DIE0	I+1, 2+5, 4+4
^DIE17	RD
0^DIE17	26
F^DIE17	2, 3, 6, 7, 10, 14, 18
FIREREC^DIE17	6, 10, 14, 18
M^DIE17	T
N^DIE17	RP, 2+5, 4+4
OUT^DIE17	6, 10, 14, 18
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
QQ^DIEQ	QS
$$GETTMP^DIKC1	BEGIN+1
^DIR	SET+2
RW^DIR2	O+1
DIEN^DIWE	7+1, 11+1, 22+1, 23+1, 24+1, 25+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?DL+DL-2,DLB_": " Line Location: W+0
Function Call: WRITE	Prompt: W Line Location: O+0
Function Call: WRITE	Prompt: Y Line Location: O+0
Function Call: WRITE	Prompt: !?9 Condition for execution: $X>45 Line Location: O+0
Function Call: WRITE	Prompt: " (No Editing)" Line Location: O+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: TR+0
Function Call: WRITE	Prompt: $C(7) Line Location: TR+0
Function Call: WRITE	Prompt: " "_X Line Location: RD+2
Routine Call	DIC Line Location: X1 X15
Routine Call	DIR Line Location: SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APSPQA(32.4 - [#9009032.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	DE, C1+2!, C1S+2, C2+2!, C2+4!, C2S+2, C2S+4, C5+2!, C5S+2
^DD(	T, R, R+1
^DD("DD"	R+2
^DD("KEY" - [#.31]	N
^DIE(1370	BEGIN+2
^DISV(	RD+2, Z*

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	N, Z, Y, RP, 2+5, 4+4, 6, 7+1, 10, 11+1 , 14, 18, 22+1, 23+1, 24+1, 25+1
B	QS
BEGIN	APSPT05+1
C1F1	C1S
C1S	C1
C2F1	C2S
C2S	C2
C5F1	C5S
C5S	C5
D	RD, RD+1, P+1, QS
DE	APSPT05+1, 2, 3, 6, 7, 10, 14, 18
N	Y
NKEY	N
O	Y, RP
P	T
PR	RE, I+1
QS	RD, NKEY
R	R, R+1
RD	Y, I, I+1, 2+6, 4+5
RE	1+3, 5+3, 9+2, 13+2, 15+2, 17+2, 19+2, 21+1
RP	PR, R, R+1
SAVEVALS	Z
SET	T
TR	RE
V	T, P+1
W	O, RE
X	N, T+1, P, Y
X10	10
X14	14
X18	18
X6	6
Y	3+3
Z	P+1, 2+6, 4+5

Naked Globals

Name	Field # of Occurrence
^(	RD+2, R, R+1
^("F"	SAVEVALS*
^(0	DE+1, R, R+1
^(12.1	T

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DE+1, DE+2, T, R+2, SET+2
%Z	DE+1*, DE+2, DE+3!
>> D	N, D, 7, 11, 22, 23, 24, 25*
>> D0	BEGIN+3*
>> DA	DE, BEGIN+3, C1+2, C1S+2, C2+2, C2+4, C2S+2, C2S+4, C5+2, C5S+2
DB	DE!, C1!, C1S!, C2!, C2S!, C5!, C5S!
DB(	T, P, X, SET, SET+1, 2+5, 4+4
>> DC	RP, 7+1, 11+1, 22+1, 23+1, 24+1, 25+1
DDER	T, T+1!, SET+2
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 1+1* , 2+1, 2+5, 4+4, 5+1
DE(1	DE+1*, C1, C1+1, 7!, 7+1!, 11!, 11+1!, 22!, 22+1!, 23! , 23+1!, 24!, 24+1!, 25!, 25+1!
DE(13	DE+1*
DE(15	DE+1*
DE(17	DE+2*
DE(19	DE+2*
DE(2	DE+1*, C2, C2+1, C2+3
DE(21	DE+2*
DE(3	DE+1*
DE(4	DE+2*
DE(5	DE+1*, C5, C5+1
DE(9	DE+1*
DG	DE!, PR, R, R+1, R+2, 2, 3, 6, 7, 7+1 , 10, 11+1, 14, 18, 22+1, 23+1, 24+1, 25+1*
DG(	Z*, C1S, C1S+1, C2S, C2S+1, C2S+3, C5S, C5S+1
DIC	DE, P, C1+1, C1S+1, X1!, C2+1, C2+3, C2S+1, C2S+3, C5+1 , C5S+1, X15!
DIC("S"	T, Z!, X1, X15
DIC(0	P, 6, 10, 14, 18*
>> DICRREC	BEGIN+2*
>> DIE	DE*, P, C1+1, C1S+1, X1, C2+1, C2+3, C2S+1, C2S+3, C5+1 , C5S+1, X15
DIEBADK	BEGIN+1!
DIEFIRE	BEGIN+1!, 6, 10, 14, 18
>> DIEL	DE*
>> DIEZ	BEGIN+3*
DIEZAR	BEGIN+1~, BEGIN+2*
DIEZRXR	BEGIN+1~
DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD	N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 1, 2, 3, 4 , 5, 9, 13, 15, 17, 19, 21*
DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*
DIQUIET	SET+1~*
DIR	SET~
DIR("V"	SET*
DIR(0	SET*
DIXR	BEGIN+1~
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 1, 2, 3, 4, 5, 9 , 13, 15, 17, 19, 21*
>> DNM	BEGIN*
>> DP	DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DQ	O+2, A, B, RE, T, P, P+2, V, X, D , Y, PR, RP, SET, SET+1, SAVEVALS, BEGIN, C1S, C1S+1, 2* , 2+5, C2S, C2S+1, C2S+3, 3, 4+4, C5S, C5S+1, 6, 7* , 8, 10, 12, 14, 16, 18, 20*
>> DQ(	A!, P+2, D*, PR
DTIME	TR, BEGIN+3*
>> DTOUT	TR*
>> DU	DE, P, D, PR, SET, 1, 1+2, 2, 2+2, 3 , 3+1, 4, 4+1, 5, 5+2, 9, 9+1, 13, 13+1, 15 , 15+1, 17, 17+1, 19, 19+1, 21
DUZ	RD+2, Z, 2+3
>> DV	O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y , PR, RP, I, 1, 2, 2+5, 3, 4, 4+4, 5* , 9, 13, 15, 17, 19, 21
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 1+1, 2, 2+1, 2+5, 3* , 4, 4+4, 5, 5+1, 6, 9, 10, 13, 14, 15 , 17, 18, 19, 21
>> DZ	QS*
>> PSOSITE	4+2
U	DE+1, DE+2, TR, P, P+2, Z, D, R, R+1, SET , BEGIN+3*, 6, 10, 14, 18
X	O+2, TR, N, RD, RD+1, RD+2, T, P, P+1!, P+2* , Z, X+1, QS, Y, PR, R, R+1, R+2, RP, I+1 , SET+2, NKEY, C1+1, C1+2, C1S, C1S+1, C1S+2, X1!, 2+3, 2+4 , 2+5, 2+6, C2+1, C2+2, C2+3, C2+4, C2S, C2S+1, C2S+2, C2S+3* , C2S+4, 4+2, 4+3, 4+4, 4+5, C5+1, C5+2, C5S, C5S+1, C5S+2 , 6, X6, 10, X10, 14, X14, X15!, 18, X18, X21*!
>> Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, SET+2 , X1, 2+4, 2+5, 3+2, 4+3, 4+4, 6, X6, 7+1, 10* , X10, 11+1, 14, X14, X15, 18, X18, 22+1, 23+1, 24+1* , 25+1*
>> Y(0	SET+2
YS	V!
>> ZTQUEUED	X, NKEY

Marked Items

Name	Field # of Occurrence
$T(@(3)	D

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPT05

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items