Routine: RTUTL5

Information

RTUTL5 ;TROY ISC/MJK-Re-Compile Templates DONT MAP; ; 4/13/87 3:22 PM ;

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Record Tracking	2	(ESC,SET)^RTRD EQUALS^RTUTL3
VA FileMan	1	EN^DIEZ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Record Tracking	3	INPUT DEVICES RT SM-RECOMP RTSM
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
RECOMP	;Entry point to re-compile templates; RTFILE optionally defined
XX
COMP
XZ
BOTH
XR
SDB	;
FRCHK
HELP	;Executeable Help for INPUT DEVICES multiple in file 195.9
HELP1

External References

Name	Field # of Occurrence
EN^DIEZ	SDB+2
ESC^RTRD	HELP1
SET^RTRD	BOTH
EQUALS^RTUTL3	RECOMP+1, COMP+1, XZ

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"Recompilation of '"_$S(RTFILE["DIPT":"OUTPUT",RTFILE["DIE":"INPUT",1:"CROSS-REFERENCES")_$S(RTFILE["DD(":"",1:"' Templates") Line Location: RECOMP+1
Function Call: WRITE	Prompt: !,"---- RE-COMPILING THE '",$P(RT0,"^"),"' "_$S(RTFILE["DIPT":"OUTPUT",RTFILE["DIE":"INPUT",1:"CROSS-REFERENCE")_" TEMPLATES" Line Location: COMP+0
Function Call: WRITE	Prompt: !!?3,"...'",$P(RT0,"^"),"' has been re-compiled in the ",^("ROU"),"* routines." Line Location: COMP+1
Function Call: WRITE	Prompt: !!?3,"...'",$P(RT0,"^"),"' has been re-compiled in the ",^("DIK"),"* routines." Line Location: XZ+0
Function Call: WRITE	Prompt: !! Line Location: BOTH+1
Function Call: WRITE	Prompt: !! Line Location: BOTH+2
Function Call: WRITE	Prompt: !! Line Location: XR+1
Function Call: WRITE	Prompt: !! Line Location: XR+2
Function Call: WRITE	Prompt: !! Line Location: XR+3
Function Call: WRITE	Prompt: !! Line Location: XR+4
Function Call: WRITE	Prompt: !! Line Location: XR+5
Function Call: WRITE	Prompt: !!,"Recompiling the Clinic Setup Template, don't worry" Line Location: SDB+1
Function Call: WRITE	Prompt: "...Done.",!!,"NOTE: Recompilation should be performed on ALL systems." Line Location: SDB+3
Function Call: WRITE	Prompt: !?5,*7,"...device is already assigned to ",$S($D(^SC(+X1,0)):$P(^(0),"^"),1:"UNKNOWN"),!?10," of the ",$S($D(^DIC(195.1,+$P(X1,"^",3),0)):$P(^(0),"^"),1:"UNKNOWN")," application." Line Location: FRCHK+8
Function Call: WRITE	Prompt: !!?3,"Device Name",?45,"Location",!?3,"-----------",?45,"--------" Line Location: HELP+1
Function Call: WRITE	Prompt: !?3,$P(RTX,"^"),$S($P(RTX,"^",9)]"":" ["_$P(RTX,"^",9)_"]",1:"") Line Location: HELP1+1
Function Call: WRITE	Prompt: ?45,$P(^(1),"^") Condition for execution: $D(^(1)) Line Location: HELP1+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	FRCHK, FRCHK+2, HELP+2, HELP1+1
^%ZIS(2 - [#3.2]	FRCHK+4, HELP+2
^DIC(195.1 - [#195.1]	FRCHK+8
^DIE - [#.402]	SDB+2
^DIE("B"	SDB+2
^RTV(195.9 - [#195.9]	FRCHK+7, FRCHK+8
^SC - [#44]	FRCHK+8

Label References

Name	Line Occurrences
@(	COMP+1
COMP	RECOMP+2, XX
HELP1	HELP+2
RECOMP	BOTH+1, BOTH+2, XR+1
XX	XR+2, XR+3, XR+4, XR+5

Naked Globals

Name	Field # of Occurrence
^(	RECOMP+2, FRCHK+2, FRCHK+7, HELP+2
^("DIK"	XX, XZ
^("ROU"	COMP+1
^("ROUOLD"	RECOMP+2, SDB+2
^("SUBTYPE"	FRCHK+2, FRCHK+4, HELP+2
^(0	RECOMP+2, FRCHK+6, FRCHK+8, HELP+2
^(1	HELP1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SDB+4!
C	SDB+4!
>> D0	FRCHK+7
DIE	SDB+4!
DIEZ	SDB+4!
DIEZDUP	SDB+4!
DK	SDB+4!
DMAX	COMP+1, SDB+2, SDB+4!
DQ	SDB+4!
DR	SDB+4!
J	SDB+5!
L	SDB+4!
O	SDB+4!
RT0	RECOMP+2, XX, XX+2!, COMP, COMP+1, XZ, SDB+5!
RTC	HELP+2, HELP+3!, HELP1
RTEMP	RECOMP+2*, XX+2!, COMP+1, SDB+5!
RTESC	HELP+2, HELP+3!, HELP1
RTFILE	RECOMP+1, RECOMP+2, XX, XX+2!, COMP, COMP+1, XZ, BOTH+1, BOTH+2, XR+1 , XR+2, XR+3, XR+4, XR+5, SDB+5!
RTI	RECOMP+2, XX+2!, SDB+5!, HELP+2, HELP+3!
RTI1	HELP+2*, HELP+3!
RTK	XR*, XR+1, XR+2, XR+3, XR+4, XR+5, SDB+5!
RTRD	BOTH!
RTRD("A"	BOTH*
RTRD("B"	BOTH*
RTRD(0	BOTH*
RTRD(1	BOTH*
RTRD(2	BOTH*
RTX	RECOMP+2, XX+2!, SDB+5!, HELP+2, HELP+3!, HELP1+1*
U	RECOMP+1, BOTH
X	RECOMP+2, XX, BOTH, SDB+2*, SDB+5!, FRCHK!, FRCHK+2!, FRCHK+4!, FRCHK+6!, FRCHK+7 , FRCHK+8!
X1	SDB+4!, FRCHK+7, FRCHK+8!
>> Y	RECOMP+2, XX, SDB+2*

Customize PDF page

Package: Record Tracking