Routine: ZIBRNSPC

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
RNDXP	;
EXC	;;X^Y^DIE^DIC^DT^U^DUZ^DTIME^ZTSK^ZTDESC^ZTSAVE^ZTLOAD^ZTRTN^ZTIO^ZTDTH
SETUP	; INITIALIZE UTILITY
CMD	;
COPYOBJ	; COPY AN OBJECT, CHECKING FOR VARIABLES
LSCAN	; SCAN LINE AND REPLACE VARIABLES
RSAVE	; SAVE GLOBAL TEXT AS ROUTINE
RFIX	; FIX ROUTINE LINES STORED IN GLOBAL
RNDX	; PRINT INDEX OF ROUTINE CONVERSION
RLOAD	; LOAD ROUTINE INTO GLOBAL
EXPR	;
CPYTCOM	; COPIES OBJECTS THRU ZERO-LEVEL COMMA
RSAVEX
PLOOP	;
INIT	;
GETALT	; GET ALTERNATE FOR PROPOSED CANDIDATE REPLACEMENT NAME
RLOADX	;;S ^TMP("ZIBRNSPC",$J,"T",0)=ZIBRRTN ZL @ZIBRRTN F ZIBRI=1:1 S ZIBRL=$T(+ZIBRI) Q:ZIBRL="" S ^(ZIBRI)=ZIBRL
QSTR	; COPY QUOTED STRING (INCLUDED DOUBLED QUOTES)
ARGS	; COPY ARGUMENTS -- 'DO' AND 'GO' SPECIAL CASES
CPYTKN	; COPIES A TOKEN, MODIFYING PARENTHESIS LEVEL
START	;
DGARG	; PROCESS DO/GO ARGUMENTS
VERCAND	; MANAGE AUTO CANDIDATE SELECTION
CHKPART	; VERIFY MATCH WITH EXCLUSION PARTIAL NAME LIST
ADVPOS	;
SHEXT	;
TSTOBJ	; CONDITIONALLY REPLACES A VARIABLE NAME
COPY1	;
PEXC	;;IO^D^XB^Z
ADDOBJ	;
EXIT	;
VERPART	; MANAGE PARTIAL MATCH

External References

Name	Field # of Occurrence
^%ZIS	INIT+6, RNDX+3
^%ZISC	RNDX+7
^XBKVAR	INIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Routine Namespace Converter",! Line Location: START+1
Function Call: WRITE	Prompt: !!,"-- ",ZIBRRTN," --",!! Line Location: START+7
Function Call: WRITE	Prompt: !!,"Done.",! Line Location: EXIT+1
Function Call: WRITE	Prompt: *7," -- Invalid prefix",! Line Location: PLOOP+3
Function Call: WRITE	Prompt: ! Line Location: PLOOP+4
Function Call: WRITE	Prompt: !,"Enter any variables to be treated as external references --",!,"not to be namespaced -- in the form NAME1,NAME2,...",! Line Location: PLOOP+6
Function Call: READ	Prompt: " Externals: " Timeout: DTIME,! Variable: ZIBRL Line Location: PLOOP+7
Function Call: WRITE	Prompt: " ",ZIBRW,! Line Location: PLOOP+7
Function Call: WRITE	Prompt: !?2,"Currently defined externals:",! Line Location: SHEXT+1
Function Call: WRITE	Prompt: Q:ZIBRW="" Line Location: SHEXT+3
Function Call: WRITE	Prompt: ?3,ZIBRW,! Line Location: SHEXT+3
Function Call: WRITE	Prompt: ! Line Location: SHEXT+4
Function Call: WRITE	Prompt: "Beginning routine load ... " Line Location: RLOAD+1
Function Call: WRITE	Prompt: " completed.",! Line Location: RLOAD+5
Function Call: WRITE	Prompt: "Beginning routine save ... " Line Location: RSAVE+1
Function Call: WRITE	Prompt: " completed.",! Line Location: RSAVE+4
Function Call: WRITE	Prompt: ! Condition for execution: ZIBRI=0 Line Location: RNDXP+2
Function Call: WRITE	Prompt: ?(19*ZIBRI),$J(ZIBRV,8),">",^(ZIBRV) Line Location: RNDXP+2
Function Call: WRITE	Prompt: ! Line Location: RNDXP+3
Function Call: WRITE	Prompt: "Line modification completed.",! Line Location: RFIX+2
Function Call: WRITE	Prompt: "'",ZIBROBJ,"' begins with '",ZIBRPN,"'",! Line Location: VERPART+1
Function Call: WRITE	Prompt: " Usage: ",ZIBRLINE,! Line Location: VERPART+5
Function Call: WRITE	Prompt: "'",ZIBRCAND,"' cannot be used for '",ZIBROBJ,"' due to its length.",! Line Location: VERCAND+1
Function Call: WRITE	Prompt: "'",ZIBRCAND,"' cannot be used for '",ZIBROBJ,"'; used for '",^(ZIBRCAND),"'",! Line Location: VERCAND+2
Function Call: WRITE	Prompt: " Usage: ",ZIBRLINE,! Line Location: GETALT+4
Function Call: WRITE	Prompt: ! Line Location: GETALT+5
Function Call: WRITE	Prompt: *7," -- does not begin with '",ZIBRPRFX,"'",! Line Location: GETALT+6
Function Call: WRITE	Prompt: ! Line Location: GETALT+11
Routine Call	%ZIS Line Location: INIT+6 RNDX+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RSEL"	PLOOP+9
^TMP("ZIBRNSPC"	INIT+4!, EXIT+2!, SETUP+1, PLOOP+7, SHEXT+3, RLOAD+2!, RSAVEX, RNDXP+2, RFIX+1, TSTOBJ+2 , TSTOBJ+3, TSTOBJ+9, TSTOBJ+10, CHKPART+2, VERPART+7, VERCAND+2
^UTILITY($J	INIT+4!, START+7, EXIT+2!, PLOOP+10

Label References

Name	Line Occurrences
ADDOBJ	COPYOBJ+4
ADVPOS	COPY1+2, ADDOBJ+2
ARGS	CMD+7
CHKPART	TSTOBJ+4
CMD	LSCAN+2
COPY1	LSCAN+2, CMD+3, CMD+6, COPYOBJ+2, QSTR+1, QSTR+2, DGARG+2, DGARG+3, CPYTCOM+3, CPYTKN+1 , CPYTKN+2
COPYOBJ	EXPR+1, CPYTKN+3
CPYTCOM	ARGS+2, DGARG+1
CPYTKN	CPYTCOM+2
DGARG	ARGS+2
EXIT	START+4
EXPR	CMD+4, ARGS+1
GETALT	VERCAND+1, VERCAND+2, GETALT+4, GETALT+12
LSCAN	RFIX+1
PLOOP	PLOOP+3
QSTR	COPYOBJ+1, QSTR+3
RFIX	START+7
RLOAD	START+7
RLOADX	RLOAD+3
RNDX	START+7
RNDXP	RNDX+6, RNDX+7
RSAVE	START+7
RSAVEX	RSAVE+2
SETUP	START+3
SHEXT	PLOOP+7
TSTOBJ	COPYOBJ+5
VERCAND	TSTOBJ+7, VERCAND+1, VERCAND+2
VERPART	TSTOBJ+5, VERPART+5

Naked Globals

Name	Field # of Occurrence
^(	RNDXP+2, RFIX+1, TSTOBJ+3, VERCAND+2
^("K"	RLOAD+2!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INIT+1, INIT+4!
%H	INIT+4!
%ZIS	RNDX+1!
%ZIS("A"	RNDX+2*
%ZIS("B"	RNDX+2*
DISYS	INIT+4!
DTIME	INIT+3*, PLOOP+1, PLOOP+7, VERPART+2, GETALT+1, GETALT+7
DTOUT	EXIT+2!, RNDX+4
DUOUT	EXIT+2!, RNDX+4
IO	RNDX+4
IO(0	RNDX+4
IOP	INIT+5*, EXIT+2!, RNDX+1!
>> W	SHEXT+3*
X	INIT+4!
ZIBRANS	EXIT+3!, VERPART+2, VERPART+3, VERPART+4, VERPART+5, VERPART+6, VERPART+7, GETALT+7, GETALT+8, GETALT+9* , GETALT+10*, GETALT+11
ZIBRCAND	EXIT+3!, TSTOBJ+6, TSTOBJ+8, TSTOBJ+9, TSTOBJ+10, TSTOBJ+11, VERCAND+1, VERCAND+2, GETALT+1, GETALT+2 , GETALT+3, GETALT+4, GETALT+5
ZIBRCH	EXIT+3!, LSCAN+1, LSCAN+2, CMD+1, CMD+2, CMD+3, CMD+4, CMD+5, CMD+7, COPY1+1 , ADDOBJ+1, ADVPOS+1*, EXPR+1, COPYOBJ+1, COPYOBJ+2, COPYOBJ+4, QSTR+1, QSTR+3, ARGS+2, DGARG+1 , DGARG+2, DGARG+3, CPYTCOM+2, CPYTCOM+3, CPYTKN+1, CPYTKN+2
ZIBRCMDT	EXIT+3!, CMD+2*, ARGS+1
ZIBRCPOS	EXIT+3!, LSCAN+1, CMD+1, ADVPOS+1*
ZIBRDEV	EXIT+3!, RNDX+4*, RNDX+5, RNDX+7
ZIBRFLI	EXIT+3!, RFIX+1*
ZIBRI	EXIT+3!, SETUP+1, PLOOP+7, RNDXP+2*
ZIBRJ	EXIT+3!, SETUP+1*
ZIBRL	EXIT+3!, SETUP+1, PLOOP+7, PLOOP+8, SHEXT+5*
ZIBRLINE	EXIT+3!, RFIX+1*, LSCAN+1, CMD+1, ADVPOS+1, VERPART+5, GETALT+4
ZIBROBJ	EXIT+3!, ADDOBJ+1, COPYOBJ+3, COPYOBJ+5, COPYOBJ+6, TSTOBJ+1, TSTOBJ+2, TSTOBJ+3, TSTOBJ+6, TSTOBJ+8 , TSTOBJ+9, TSTOBJ+10, TSTOBJ+11, CHKPART+2, VERPART+1, VERPART+7, VERCAND+1, VERCAND+2
ZIBROUTP	EXIT+3!, RFIX+1, LSCAN+1, CMD+1, COPY1+1, COPYOBJ+6
ZIBRPART	EXIT+3!, TSTOBJ+5, CHKPART+1, CHKPART+2, VERPART+7*
ZIBRPLEV	EXIT+3!, CPYTCOM+1, CPYTCOM+2, CPYTKN+1, CPYTKN+2*
ZIBRPN	EXIT+3!, CHKPART+1, CHKPART+2, VERPART+1
ZIBRPRFX	EXIT+3!, PLOOP+1, PLOOP+2, PLOOP+3, PLOOP+5, TSTOBJ+1, TSTOBJ+6, GETALT+5, GETALT+6
ZIBRQ	START+7, EXIT+3!, PLOOP+7, SHEXT+3, LSCAN+2, CMD+3, EXPR+1, COPYOBJ+4, QSTR+1, ARGS+2* , DGARG+2, CPYTCOM+2, CHKPART+2*
ZIBRQUIT	START+2, START+4, EXIT+3!, PLOOP+5, PLOOP+8, PLOOP+10
ZIBRRTN	START+6, START+7, EXIT+3!, RSAVEX*
ZIBRT	EXIT+3!, SETUP+1*
ZIBRV	EXIT+3!, RNDXP+1, RNDXP+2
ZIBRW	EXIT+3!, SETUP+1, PLOOP+7, SHEXT+2*, SHEXT+3
ZIBRXC	EXIT+3!, RLOAD+3, RLOAD+4, RSAVE+2, RSAVE+3

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBRNSPC

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items