Routine: PSOLLU4

Information

PSOLLU4 ;BIR/EJW - CHANGE CONTROL CODES ;05/23/2004

Source file <PSOLLU4.m>

Package	Total	Call Graph
VA FileMan	4	C^%DTC FILE^DICN ^DIE ^DIR
Kernel	2	^%ZIS $$DT^XLFDT

Name	Comments	DBIA/ICR reference
IO
FILE
CLEAN	; REMOVE EXACT DUPLICATE CONTROL CODES RESULTING WHEN CHANGE CONTROL CODES ROUTINES ARE RUN MORE THAN ONCE

Name	Line Occurrences
Function Call: WRITE	Prompt: "No terminal type available." Line Location: IO+1
Function Call: WRITE	Prompt: "No DUZ defined." Line Location: IO+2
Function Call: WRITE	Prompt: "FileMan access must be @." Line Location: IO+3
Function Call: WRITE	Prompt: "No CONTROL CODES defined." Line Location: IO+4
Function Call: WRITE	Prompt: !,"Copying..." Line Location: IO+6
Routine Call	DIE Line Location: FILE+2
Routine Call	DIR Line Location: IO+5
Routine Call	%ZIS Line Location: IO

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	IO+4, CLEAN+4, CLEAN+5, CLEAN+6!, CLEAN+7, CLEAN+8, CLEAN+9, CLEAN+11!
^XTMP("PSOLLU4"	CLEAN+2, CLEAN+4

Name	Field # of Occurrence
^(1	CLEAN+8, CLEAN+9

Name	Field # of Occurrence
>> %ZIS	PSOLLU4+7*
>> AB	IO+7, IO+8, IO+9, IO+10, FILE, FILE+2
>> CODE	IO+7, IO+8, IO+9, IO+10, FILE+2, CLEAN+5*, CLEAN+6, CLEAN+7, CLEAN+11
DA	FILE+1!*
DA(1	FILE, FILE+1
DIC	FILE!*, FILE+1
DIC(0	FILE*
DIE	FILE!, FILE+1!*
DIR	IO+5!
DIR("A"	IO+5*
DIR("B"	IO+5*
DIR(0	IO+5*
DR	FILE+1!, FILE+2*
DT	CLEAN+1*, CLEAN+2
DUZ(0	IO+2, IO+3
IO	PSOLLU4+6~, IO+5
IOST	PSOLLU4+6~
IOST(0	IO+1, IO+4, FILE, FILE+1, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+8 , CLEAN+9, CLEAN+11
>> NAME	IO+7, IO+8, IO+9, IO+10, FILE+2
>> SEQ	CLEAN+5*, CLEAN+6, CLEAN+7, CLEAN+8, CLEAN+11
>> SEQ1	CLEAN+7*, CLEAN+9
>> X	FILE*, CLEAN+2
>> X0	CLEAN+8*, CLEAN+10, CLEAN+11
>> X1	CLEAN+2, CLEAN+8, CLEAN+10, CLEAN+11
>> X2	CLEAN+2*
>> Y	IO+5, FILE+1
>> Z0	CLEAN+9*, CLEAN+11
>> Z1	CLEAN+9*, CLEAN+11