Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ZIBRNSPC

Package: IHS VA %Utilities

Routine: ZIBRNSPC


Information

ZIBRNSPC ; IHS/ADC/GTH - NAMESPACE PREVIOUSLY WRITTEN ROUTINES ; [ 10/29/2002 7:42 AM ]

Source Information

Source file <ZIBRNSPC.m>

Call Graph

Call Graph Total: 3

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

Marked Items

Name Field # of Occurrence
$T(@ZIBRT+ZIBRI SETUP+1
$T(RLOADX RLOAD+3
$T(RSAVEX RSAVE+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All