Routine: SDPURG1

Information

SDPURG1 ;ALB/TMP - Purge-Print Routine ; 12/24/85

Source file <SDPURG1.m>

Package	Total	Caller Graph
Scheduling	2	SDPURG SDPURG2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"* SCHEDULING PURGE IN PROCESS *",! Line Location: START+0
Function Call: WRITE	Prompt: !,"Begin purge of Hospital Location File nodes " Line Location: START+1
Function Call: WRITE	Prompt: !,SDCT," APPTS AND MISCELLANEOUS HOSPITAL LOCATION NODES DELETED" Line Location: ENDA+0
Function Call: WRITE	Prompt: !!,"* SCHEDULING PURGE COMPLETED * " Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: "Hospital Location " Condition for execution: SD44 Line Location: END+1
Function Call: WRITE	Prompt: "and " Condition for execution: SD44&(SD2) Line Location: END+1
Function Call: WRITE	Prompt: "Patient " Condition for execution: SD2 Line Location: END+1
Function Call: WRITE	Prompt: "file nodes have been purged through: " Line Location: END+1

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	START+2, A, SETA*, PRTS, PRTS+1, MORE+1, MORE+2
^SC("AAS"	1010, MORE3

Name	Field # of Occurrence
^(	START+2, PRTS+1
^(0	START+2, PRTS, PRTS+1, MORE+1

Name	Field # of Occurrence
%	START+1, END, Q!
%Y	Q!
A	START+2, A, 1010, SETA, PRTS, PRTS+1, D+1, MORE+1, MORE+2, MORE+3 , MORE3, Q!
B	START+2, A, 1010*, PRTS, PRTS+1, D+1, MORE+1, MORE+2, MORE+3, MORE3 , Q!
C	A, PRTS+1, MORE+1, MORE+2, MORE+3, Q!
D	Q!
>> DA	START+2, D+1, MORE+3*
>> DA(1	START+2, D+1, MORE+3*
DIK	START+2!, D+1, MORE+3*!
E	Q!
F	Q!
I	MORE+1, MORE+2, MORE3*, Q!
IO	START
IOF	START
J	MORE, MORE+1, Q!
POP	START, SETA, MORE+1, MORE+2, MORE3, KILL+1, Q!
SD2	SD2, END+1, Q!
SD44	START+1, END+1, Q!
SDC	Q!
SDCT	START, START+1, START+2, START+3, 1010, SD2, DOT, ENDA, PRTS+1, CT , Q!
SDLIM	Q!
SDLIM1	START+2, A, 1010, END+1, Q!
SDPR	START+2, DOT, PRTS+1, KILL, Q!
X	START+2, 1010, PRTS+1, MORE+1, MORE+2, MORE+3, MORE3, KILL, END+1, Q!
X1	END+1*, Q!
X2	END+1*, Q!
Y	START+1, END, END+1*, Q!