Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls