Routine: ADEDDTH

Package

Total

Call Graph

^DIC YN^DICN

$$DTIME^XUP

Name	Comments	DBIA/ICR reference
SERU	;EDIT SERVICE UNIT ^AUTTSU
SETA	;DISCIPLINE SPECIFIED FIELD ENTRY ORDER
SETB	;DISCIPLINE SPECIFIED FIELD NAMES
PROV	;EDIT PROVIDER ^DIC(6,
SETAI	;
SDDIC	;GET DD INFO, D ^DIC FOR PTR FIELDS
TRBE	;EDIT TRIBE ^AUTTTRI
SEO	;STORE SUBROUTINE NAMES IN ENTRY ORDER
FACL	;EDIT FACILITY, FORCE SERU ^AUTTLOC
KVAR	;KILL VARIABLES
LOOP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOUR DISCIPLINE'S GENERIC PROVIDER FILE NUMBER IS NOT BEING SET IN THE KERNEL OPTION. SEE YOUR SITE MANAGER." Line Location: ADEDDTH+11
Function Call: WRITE	Prompt: !,"YOUR DISCIPLINE'S GENERIC PARAMETER FILE NUMBER IS NOT BEING SET IN THE KERNEL OPTION. SEE YOUR SITE MANAGER." Line Location: ADEDDTH+12
Function Call: WRITE	Prompt: !,"ADD/EDIT ANOTHER RECORD" Line Location: LOOP+6
Function Call: WRITE	Prompt: !,"EXITING ROUTINE" Line Location: SDDIC+4
Function Call: WRITE	Prompt: !,$C(7),ADEFLDNM(ADEA)," IS REQUIRED" Line Location: SDDIC+5
Routine Call	DIC Line Location: SDDIC+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PROV+1, FACL+1, SERU+1, TRBE+1
^DIC - [#1]	ADEDDTH+13, ADEDDTH+14

Name	Field # of Occurrence
>> %	LOOP+6*, LOOP+7
ADEA	LOOP+1, LOOP+2, SDDIC+1, SDDIC+2, SDDIC+4*, SDDIC+5, KVAR+2!
ADEAI	SETAI+1*, KVAR+2!
ADEDDENT	PROV+1, FACL+1, SERU+1, TRBE+1, SDDIC+1, SDDIC+3, SDDIC+5, SDDIC+7, KVAR+2!
ADEFEO	SETA+1, SETA+2, SETA+3, SETA+4, SETAI+1, LOOP+10!
ADEFLDNM	KVAR+1!
ADEFLDNM(	SETAI+1, SDDIC+1, SDDIC+2, SDDIC+5
ADEFNM	SETB+1, SETB+2, SETB+3*, SETAI+1, KVAR+2!
ADEGL	SDDIC+7*, SDDIC+8, SDDIC+9, KVAR+3!
ADEI	SETAI+1, LOOP+2, LOOP+4*, KVAR+3!
ADEPRMFN	ADEDDTH+12, ADEDDTH+14, KVAR+2!
ADEPRMGN	ADEDDTH+14*, SETA+1, SETB+1, KVAR+2!
ADEPROV	LOOP+1!, KVAR+1!
ADEPROV(	LOOP+4, SDDIC+8, SDDIC+9*
ADEPROV(2	FACL+2*
ADEPRVFN	ADEDDTH+11, ADEDDTH+13, PROV+1, FACL+1, SERU+1, TRBE+1, KVAR+2!
ADEPRVGN	ADEDDTH+13*, KVAR+2!
ADESUBNM	KVAR+1!
ADESUBNM(	SETAI+1
ADESUBNM(1	SEO+1*
ADESUBNM(2	SEO+1*
ADESUBNM(3	SEO+1*
ADESUBNM(4	SEO+1*
ADESUBRT	KVAR+1!
ADESUBRT(	SETAI+1*, LOOP+2
DIC	SDDIC+3*, KVAR+2!
DIC("A"	SDDIC+2*, KVAR+2!
DIC(0	SDDIC+3*, KVAR+2!
DTIME	ADEDDTH+9*
DUZ	ADEDDTH+9
X	LOOP+3, SDDIC+4, KVAR+3!
>> XQUIT	ADEDDTH+11, ADEDDTH+12
Y	SDDIC+5, SDDIC+6, SDDIC+9, KVAR+3!
Y(0	FACL+2, SDDIC+8, KVAR+3!

Information