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: XTSUMBLD

Package: Toolkit

Routine: XTSUMBLD


Information

XTSUMBLD ;SF/RWF - BUILD PACKAGE INTEG ROUTINE ; 3/21/06 2:50MP

Source Information

Source file <XTSUMBLD.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG INTEGRITY CHECKER  

Entry Points

Name Comments DBIA/ICR reference
A ;
B
CHKBLD
NAME(Y)
CHK2
ROU ;;
ASKOON() ;
MSG
ADD
CHCKSUM ;
EXIT
PKG
CHKPKG
BLD
CHECK1 ;New CheckSum logic
CHECK ;Print the values of a set of routines.
BUILD

External References

Name Field # of Occurrence
^DIC PKG+1, BUILD+1, CHKBLD+1
^DIR A+2, NAME+1, CHECK+2, ASKOON+5
$$NOW^XLFDT BLD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This will build a checksum routine for a package from the package file",!
  • Line Location: PKG+0
Function Call: WRITE
  • Prompt: !!,"This will build a checksum routine from the BUILD file."
  • Line Location: BUILD+0
Function Call: WRITE
  • Prompt: !!,"There isn't a package file pointer."
  • Line Location: BUILD+2
Function Call: WRITE
  • Prompt: !,"I will create a routine ",XTRNAME
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !,"Routine list is empty"
  • Line Location: BLD+1
Function Call: WRITE
  • Prompt: !,"Calculating check-sums"
  • Line Location: BLD+2
Function Call: WRITE
  • Prompt: ?10,"Routine not in this UCI."
  • Line Location: BLD+4
Function Call: WRITE
  • Prompt: !,"Building routine"
  • Line Location: BLD+6
Function Call: WRITE
  • Prompt: !!,"Filing routine ",XTRNAME
  • Line Location: B+5
Function Call: WRITE
  • Prompt: !," DONE",!
  • Line Location: B+6
Function Call: WRITE
  • Prompt: !!,"NO SELECTED ROUTINES"
  • Line Location: CHKPKG+0
Function Call: WRITE
  • Prompt: "Routine not in this UCI."
  • Line Location: CHK2+1
Function Call: WRITE
  • Prompt: "value = ",Y
  • Line Location: CHK2+2
Function Call: WRITE
  • Prompt: "value = ",Y
  • Line Location: CHK2+3
Function Call: WRITE
  • Prompt: !,"done"
  • Line Location: CHK2+6
Function Call: WRITE
  • Prompt: !!,"This will check the routines from a BUILD file."
  • Line Location: CHKBLD+0
Function Call: WRITE
  • Prompt: !!,"This option determines the current checksum of selected routine(s)."
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"The Checksum of the routine is determined as follows:",!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"1. Any comment line with a single semi-colon is presumed to be"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !," followed by comments and only the line tag will be included."
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !!,"2. Line 2 will be excluded from the count.",!
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !,"3. The total value of the routine is determined (excluding"
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !," exceptions noted above) by multiplying the ASCII value of each"
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: !," character by its position on the line "
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: "and position of the line in ",!," the routine "
  • Line Location: MSG+8
Function Call: WRITE
  • Prompt: "being checked."
  • Line Location: MSG+9
Function Call: WRITE
  • Prompt: !,"New CheckSum CHECK1^XTSUMBLD:"
  • Line Location: CHECK1+1
Function Call: WRITE
  • Prompt: !,"This option determines the current Old (CHECK^XTSUMBLD) or New (CHECK1^XTSUMBLD) logic checksum of selected routine(s)."
  • Line Location: CHCKSUM+1
Function Call: WRITE
  • Prompt: !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
  • Line Location: ROU+4
Function Call: WRITE
  • Prompt: ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
  • Line Location: ROU+5
Function Call: WRITE
  • Prompt: !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
  • Line Location: ROU+8
Function Call: WRITE
  • Prompt: !,"Check a subset of routines:"
  • Line Location: ROU+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ROU+10
Routine Call
  • DIC
  • Line Location:
    • PKG+1
    • BUILD+1
    • CHKBLD+1
Routine Call
  • DIR
  • Line Location:
    • A+2
    • NAME+1
    • CHECK+2
    • ASKOON+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XPD(9.6 - [#9.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RSEL" PKG+3, CHKPKG
^%ZOSF("RSUM" BLD+5, CHK2+3
^%ZOSF("RSUM1" CHK2+2
^%ZOSF("SAVE" B+5
^%ZOSF("TEST" NAME+1, BLD+4, CHK2+1
^DIC(9.4 - [#9.4] BUILD+3
^UTILITY($J A+1!, PKG+3, BUILD+4*, BUILD+5*, BUILD+6, BLD!, BLD+1, BLD+3, BLD+5*, B!
, B+3, EXIT!, CHKPKG!, CHK2, CHKBLD+4*, CHKBLD+5*, CHKBLD+6
^XPD(9.6 - [#9.6] BUILD+4, BUILD+5, CHKBLD+4, CHKBLD+5

Label References

Name Line Occurrences
$$ASKOON CHCKSUM+3
ADD B+1, B+3
B B+5
BLD PKG+4, BUILD+7
BUILD A+3
CHECK CHECK1+2, CHCKSUM+4
CHECK1 CHCKSUM+5
CHK2 CHKBLD+7
CHKBLD CHECK+3
CHKPKG CHECK+3
EXIT PKG+1, PKG+2, PKG+3, BUILD+1, BUILD+2, BUILD+3, BUILD+6, BLD+1, CHKPKG, CHK2+6
, CHKBLD+1, CHKBLD+6
MSG A+1, CHECK+1
NAME PKG+2, BUILD+3
PKG A+3

Naked Globals

Name Field # of Occurrence
^( BUILD+4, B+3, CHKBLD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % B+3*
>> BLDA BUILD+1*, BUILD+4, BUILD+5, CHKBLD+2*, CHKBLD+4, CHKBLD+5
DIC PKG+1*, BUILD+1*, EXIT!, CHKBLD+1*
DIC(0 PKG+1*, BUILD+1*, CHKBLD+1*
DIE B*, B+2, B+4, EXIT!, ADD
DIOUT ASKOON+3~
DIR A+1!, A+2!, EXIT!, CHECK+1~, CHECK+2!, ASKOON+3~
DIR("A" A+2*, NAME+1*, CHECK+2*, ASKOON+4*
DIR("B" NAME+1*, ASKOON+4*
DIR(0 A+2*, NAME+1*, CHECK+2*, ASKOON+4*
>> DIRUT ASKOON+6
>> I BLD*, BLD+3*, B+1*, B+3*
>> IX BUILD+4*, BUILD+5*, CHKBLD+4*, CHKBLD+5*
OON CHCKSUM+2~, CHCKSUM+3*, CHCKSUM+4, CHCKSUM+5
>> RN BLD+6*, B+3*, B+4, B+5
U A+2, PKG+2, BUILD+2, BUILD+3, BUILD+4, BUILD+5, CHECK+2, CHKBLD+4, CHKBLD+5
X A+2, BUILD+3*, BUILD+4*, BUILD+5*, NAME+1*, BLD*, BLD+3*, BLD+4, BLD+5, B+5*
, EXIT!, CHECK+1~, CHECK+2, CHK2*, CHK2+1, CHKBLD+2*, CHKBLD+3, CHKBLD+4*, CHKBLD+5*
XCN B*, B+5*, EXIT!, ADD*
XPCH CHECK+1~, CHK2+4, CHKBLD+3*
XT B+1*, B+3*, EXIT!, ADD
XTDT BLD+2*, B+2, EXIT!
XTRNAME PKG+2, BUILD+3, NAME*, NAME+1!, BLD, B, B+2, B+5*, EXIT!
XTRNCNT BLD+6*, B*, EXIT!
XTRNEXT B*, B+4, B+5, EXIT!
XTSIZE B*, B+3, EXIT!, ADD*
XU1 EXIT!, CHK2*
XUCHFLG CHK2+2, MSG+8, CHECK1+2~*
Y A+3, PKG+1, BUILD+1, NAME~, NAME+1, BLD+5, EXIT!, CHECK+3, CHK2+2, CHK2+3
, CHKBLD+1, CHKBLD+2, ASKOON+6*, ASKOON+7
Y(0 PKG+2, BUILD+2, BUILD+3

Marked Items

Name Field # of Occurrence
$T( B+2
$T(ROU+1 B+2
$T(ROU+I B+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