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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XTRUTL

Package: Toolkit

Routine: XTRUTL


Information

XTRUTL ;ISCSF/RWF - Developer Routine Utilities ;3/21/2006 2:50PM

Source Information

Source file <XTRUTL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Kernel 2 HOME^%ZIS  $$NOW^XLFDT  
Toolkit 1 ($$BUILD,RTN)^XTRUTL1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Toolkit 3 XT-BLD RTN LIST  XT-RTN CS UPDATE  XTRUTL2  

Entry Points

Name Comments DBIA/ICR reference
BUILD ;
EXIT
ASKOON() ;Ask if user wants old/new checksum
WRAP(C,S) ;Wrap S starting at col C.
RSUM()
NEWSUM(X) ;Get the NEW Checksum
OLDSUM(X) ;Get the OLD Checksum
PTLBLD(Z) ;Build in ^TMP the patches used
PTLSRT ;Sort the list
PTLDSP ;Display list of patches.
UPDATE ;Update the ROUTINE file with current checksums
UD1(RN) ;
SHOW(RN) ;Show current data
GETDA(X) ;Find a DA in file
M ;Manual Update of the Routine file
LIST ;List all routines that don't match the old checksum
LOCAL(DA) ;Return if this is a local routine in the ROUTINE file.

External References

Name Field # of Occurrence
HOME^%ZIS BUILD+1
^DIC M+2
^DIE M+4
^DIR ASKOON+4, UPDATE+6
$$NOW^XLFDT UPDATE+9, UD1+1
$$BUILD^XTRUTL1 BUILD+5, UPDATE+5
RTN^XTRUTL1 BUILD+6, UPDATE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This generates the Checksum/2nd line list for the routines from a BUILD file."
  • Line Location: BUILD+3
Function Call: WRITE
  • Prompt: !,"No BUILD file to work from."
  • Line Location: BUILD+4
Function Call: WRITE
  • Prompt: !,"No routines in this build."
  • Line Location: BUILD+7
Function Call: WRITE
  • Prompt: !,RN,?13,"Routine not in this UCI."
  • Line Location: BUILD+13
Function Call: WRITE
  • Prompt: !,"No other routines in this build."
  • Line Location: BUILD+16
Function Call: WRITE
  • Prompt: !!,"Routine Summary"
  • Line Location: BUILD+18
Function Call: WRITE
  • Prompt: !,"Checksums shown are "_$S(OON=1:"OLD",1:"NEW")_" Checksums"
  • Line Location: BUILD+19
Function Call: WRITE
  • Prompt: !,"The following routines are included in this patch. The second line of each",!,"of these routines now looks like:"
  • Line Location: BUILD+20
Function Call: WRITE
  • Prompt: !,L2
  • Line Location: BUILD+21
Function Call: WRITE
  • Prompt: !!,?17,"Checksums",!,"Routine",?16,"Old",?28,"New",?39,"Patch List"
  • Line Location: BUILD+22
Function Call: WRITE
  • Prompt: !,RN,?13,$J(OLDSUM,8),?25,$J(RSUM,8)
  • Line Location: BUILD+29
Function Call: WRITE
  • Prompt: " <<<No "_PATCH
  • Line Location: BUILD+32
Function Call: WRITE
  • Prompt: !
  • Line Location: BUILD+34
Function Call: WRITE
  • Prompt: !,"Sites should use CHECK"_$S(OON=2:"1",1:"")_"^XTSUMBLD to verify checksums.",!
  • Line Location: BUILD+35
Function Call: WRITE
  • Prompt: ?C,S
  • Line Location: WRAP+1
Function Call: WRITE
  • Prompt: ?C,$E(S,1,I-1)
  • Line Location: WRAP+3
Function Call: WRITE
  • Prompt: !,"List of preceding patches: "
  • Line Location: PTLDSP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PTLDSP+6
Function Call: WRITE
  • Prompt: J,I
  • Line Location: PTLDSP+7
Function Call: WRITE
  • Prompt: !!,"This will update the ROUTINE file for the routines from a BUILD file."
  • Line Location: UPDATE+3
Function Call: WRITE
  • Prompt: !,"No BUILD file to work from."
  • Line Location: UPDATE+4
Function Call: WRITE
  • Prompt: !,"Done"
  • Line Location: UPDATE+13
Function Call: WRITE
  • Prompt: !," Routine ",RN," not found in the database."
  • Line Location: UD1+4
Function Call: WRITE
  • Prompt: !,"This is a national routine and will not be updated"
  • Line Location: UD1+5
Function Call: WRITE
  • Prompt: !,"RTN",?10,"New ChkSum",?28,"Old ChkSum",?46,"Old Date"
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !,RN,?10,RSUM,?28,$P(%4,U,2),?46,$P(%4,U)
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !,$S($$LOCAL(Y):"Local",1:"National")_" Routine"
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: !,"This routine Checksum only updated from FORUM."
  • Line Location: M+3
Function Call: WRITE
  • Prompt: !,RN,?10,"Checksum mismatch ",$P($T(+2^@RN),";",5)
  • Line Location: LIST+6
Routine Call
  • %ZIS
  • Line Location:
    • BUILD+1
Routine Call
  • DIC
  • Line Location:
    • M+2
Routine Call
  • DIE
  • Line Location:
    • M+4
Routine Call
  • DIR
  • Line Location:
    • ASKOON+4
    • UPDATE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.8 - [#9.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" NEWSUM+2
^%ZOSF("TEST" BUILD+12
^DIC(9.8 - [#9.8] OLDSUM+1, OLDSUM+2, UD1+6*, SHOW+2, GETDA+1, LIST+3, LIST+4, LIST+5, LOCAL+1
^TMP($J BUILD+1!, PTLBLD+2*, PTLSRT+2, PTLSRT+3!, PTLDSP+2!, PTLDSP+3, PTLDSP+5
^UTILITY($J BUILD+1!, BUILD+7, BUILD+11, BUILD+14!, BUILD+24, UPDATE+1!, UPDATE+10, UPDATE+12
^XPD(9.6 - [#9.6] BUILD+4, UPDATE+4

Label References

Name Line Occurrences
$$ASKOON BUILD+9
$$GETDA UD1+4, SHOW+2
$$LOCAL UD1+5, SHOW+6, M+3
$$NEWSUM BUILD+25, UD1+2, SHOW+3, LIST+5
$$OLDSUM BUILD+26
$$RSUM NEWSUM+3
EXIT BUILD+5, BUILD+7, BUILD+16, UPDATE+5, UPDATE+10
PTLBLD BUILD+30
PTLDSP BUILD+34
PTLSRT PTLDSP+1
UD1 UPDATE+12
WRAP BUILD+29

Naked Globals

Name Field # of Occurrence
^( PTLSRT+2
^(4 SHOW+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, RSUM~, RSUM+1*
%0 SHOW+1~, SHOW+2*
%1 RSUM~, RSUM+1*
%2 RSUM~, RSUM+1*
%3 RSUM~, RSUM+1*
%4 SHOW+1~*, SHOW+2*, SHOW+5, LIST+5*, LIST+6
BLDA BUILD+2~, BUILD+5*, BUILD+6, UPDATE+2~, UPDATE+5*, UPDATE+8
C WRAP~, WRAP+1, WRAP+3, WRAP+4
DA M+1~, M+4*, LIST+1~, LIST+4*, LIST+5, LOCAL~, LOCAL+1
DIC BUILD+2~, UPDATE+2~, M+1~, M+2*, M+4
DIC(0 M+2*
DIE M+1~, M+4*
DIF NEWSUM+1~, NEWSUM+2*, UD1+1~
DIOUT ASKOON+2~
DIR ASKOON+2~, UPDATE+2~
DIR("A" ASKOON+3*, UPDATE+6*
DIR("B" ASKOON+3*
DIR(0 ASKOON+3*, UPDATE+6*
>> DIRUT ASKOON+5, UPDATE+7
DR M+1~, M+4*
I WRAP+2~, WRAP+3*, WRAP+4*, PTLBLD+1~, PTLBLD+2*, PTLSRT+1~*, PTLSRT+2*, PTLDSP+2~, PTLDSP+5*, PTLDSP+7
IX BUILD+2~, UPDATE+2~
J PTLBLD+1~, PTLBLD+2*, PTLSRT+1~, PTLSRT+3*, PTLDSP+2~, PTLDSP+5*, PTLDSP+6*, PTLDSP+7*, PTLDSP+8*
K PTLBLD+1~*, PTLBLD+2*, PTLSRT+1~, PTLSRT+2*, PTLSRT+3
L PTLSRT+1~, PTLSRT+3*
L2 BUILD+2~, BUILD+11, BUILD+15*, BUILD+16, BUILD+17*, BUILD+21
LC RSUM+1, NEWSUM+2*, UD1+1~
NOW UPDATE+2~, UPDATE+9*, UD1+1*, UD1+6
OLDSUM BUILD+2~, BUILD+26*, BUILD+28*, BUILD+29
OON BUILD+2~, BUILD+9*, BUILD+19, BUILD+25, BUILD+26, BUILD+35
P PTLBLD+1~, PTLBLD+2*
PATCH BUILD+2~, BUILD+5*, BUILD+32, PTLBLD+2, PTLDSP+2
RN BUILD+2~, BUILD+11*, BUILD+12, BUILD+13, BUILD+14, BUILD+23*, BUILD+24*, BUILD+25, BUILD+26, BUILD+29
, UPDATE+11*, UPDATE+12*, UD1~, UD1+2, UD1+4, SHOW~, SHOW+2, SHOW+3, SHOW+5, LIST+1~
, LIST+2*, LIST+3*, LIST+4, LIST+5, LIST+6
RSUM BUILD+25*, BUILD+28*, BUILD+29, UD1+1~, UD1+2*, UD1+6, SHOW+1~, SHOW+3*, SHOW+5, LIST+1~
, LIST+5*, LIST+6
RTN BUILD+2~, NEWSUM+1!, NEWSUM+2!, SHOW+1~
RTN( RSUM+1
RTN(2 BUILD+27, UD1+3
S WRAP~, WRAP+1, WRAP+3*, WRAP+4*
T WRAP+2~
U UPDATE+6, UD1+2*, UD1+6, SHOW+1*, SHOW+5, LIST+2*, LIST+5, LIST+6
X BUILD+2~, BUILD+12*, BUILD+27*, BUILD+29, BUILD+30, BUILD+31, NEWSUM~, OLDSUM~, OLDSUM+1, OLDSUM+2*
, OLDSUM+3, UPDATE+2~, UD1+1~, UD1+3*, UD1+6, GETDA~, GETDA+1, LIST+1~
XCNP NEWSUM+1~, NEWSUM+2*, UD1+1~
Y BUILD+5*, BUILD+31*, ASKOON+5*, ASKOON+6, RSUM~*, RSUM+1*, RSUM+3, OLDSUM+1~*, OLDSUM+2, UPDATE+5*
, UPDATE+6, UPDATE+7, UD1+1~, UD1+4*, UD1+5, UD1+6, SHOW+1~, SHOW+2*, SHOW+6, M+2
, M+3, M+4, LIST+1~
Y2 RSUM~*, RSUM+1*, RSUM+3
Z BUILD+31*, BUILD+32, PTLBLD~, PTLBLD+1*, PTLBLD+2

Marked Items

Name Field # of Occurrence
$T( BUILD+15, LIST+6
$T(^@X NEWSUM+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All