Routine: APSPT093

Information

APSPT093 ; IHS/DSD/ENM - NO DESCRIPTION PROVIDED ; [ 09/03/97 1:30 PM ]

Source file <APSPT093.m>

Package	Total	Call Graph
VA Fileman	7	^DIC E^DIE0 (,0,M,N,Z)^DIE17 Z^DIE2 ^DIE3 RW^DIED QQ^DIEQ

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPT091

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: *7 Line Location: TR+0
Function Call: WRITE	Prompt: " "_X Line Location: RD+2
Function Call: WRITE	Prompt: *7,"??" Line Location: X+0
Routine Call	DIC Line Location: P

FileNo	Call Tags
^APSPP(31 - [#9009031]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APSPP(31 - [#9009031]	DE
^DD(	T, R, R+1
^DD("DD"	R+2
^DISV(	RD+2, Z*

Name	Field # of Occurrence
>> %	DE+1, T, T+1, R+2
%Z	DE+1*, DE+2!
>> D	N, D*
>> DA	DE
DB	DE!
DB(	T, T+2, P, X
>> DC	RP
DE	DE!
DE(	RE, Y, PR, RP
DE(1	DE+1*
DG	DE!, T+1, T+2, PR, R, R+1, R+2
DG(	Z*
>> DIC	DE, P
>> DIC("S"	T, T+1, Z!
>> DIC(0	P*
>> DIE	DE*, P
>> DIEL	DE*
>> DIFLD	T, D, 1*
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 1*
>> DNM	BEGIN*
>> DP	DE*, T
>> DQ	A, B, RE, T, T+2, P, P+2, V, X, D , Y, PR, RP, BEGIN
>> DQ(	A!, P+2, D*, PR
DTIME	TR
>> DTOUT	TR*
>> DU	DE, T, T+1, P, D, PR, 1
DUZ	RD+2, Z
>> DV	O+1, O+2, N, RD+2, T, P, P+1, P+2, Z, D , PR, RP, I, 1*
>> DW	Z, D, 1*
>> DZ	QS*
U	TR, P, P+2, Z, D, R, R+1
X	O+2, TR, N, RD, RD+1, RD+2, T, T+1, T+2, P* , P+1!, P+2, Z, X+1, QS, Y, PR, R, R+1, R+2 , RP*, I+1, X1!, X1+1!
>> Y	O, O+1, O+2, T, T+1, P, Y, PR, R, R+1* , R+2*
YS	T+1*, T+2, V!

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