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  | All
Print Page as PDF
Routine: XTRCMP

Package: Toolkit

Routine: XTRCMP


Information

XTRCMP ;SF-ISC/RWF - Compare two routines. ;12/01/2005

Source Information

Source file <XTRCMP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$LOOK^XPDI1  $$DTIME^XUP  
VA FileMan 2 $$GET1^DIQ  ^DIR  
MailMan 1 ^XMPC  

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

Package Total Caller Graph
Kernel 1 XUPR-RTN-TAPE-CMP  
Toolkit 1 XT-ROUTINE COMPARE  

Entry Points

Name Comments DBIA/ICR reference
A ;Compare two routines in account
CHECK ;
LOAD(X) ;Load Routine from Disk, Line count in XCNP.
RSEL
TEST(X) ;Test if Routine is on Disk
END
QUIT
LINE
TAPE ;Read a tape and compare to disk.
EXIT
TIN ;Read one routine from tape
DIN
CMP(S1) ;
KIN(RN) ;KIDS routine in
XPD ;Compair a KIDS install to Disk
XPDDO(XPDST) ;Do the KIDS compare

External References

Name Field # of Occurrence
^%ZIS A+6, TAPE+5, TAPE+8, XPD+6
HOME^%ZIS A+9
^%ZISC CHECK+5, EXIT+1, XPD+8
^%ZTLOAD A+9
$$GET1^DIQ XPD+4
^DIR RSEL+1, TAPE+7
^XMPC CHECK+4, CMP+3
$$LOOK^XPDI1 XPD+3
$$DTIME^XUP A+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Compares two routines"
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"Loading Routines."
  • Line Location: A+7
Function Call: WRITE
  • Prompt: @IOF,!,RTN1,?(IOM\2),RTN2
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,"Routine ",X," missing."
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !!,"Compares routines from tape/file with what's on disk."
  • Line Location: TAPE+4
Function Call: READ
  • Variable: X
  • Timeout: 10,Y:10
  • Line Location: TAPE+6
Function Call: WRITE
  • Prompt: !!,"Tape header",!,X,!,Y
  • Line Location: TAPE+6
Function Call: WRITE
  • Prompt: !,"Compare of routines from file (",XTAPE,") and disk",!
  • Line Location: TAPE+9
Function Call: WRITE
  • Prompt: !,"DONE"
  • Line Location: TAPE+11
Function Call: READ
  • Variable: RTN1
  • Timeout: 10
  • Line Location: TIN+2
Function Call: READ
  • Variable: X
  • Timeout: 10
  • Line Location: TIN+8
Function Call: WRITE
  • Prompt: !,"Routine ",X," not on disk"
  • Line Location: DIN+0
Function Call: WRITE
  • Prompt: !,"Routine ",RTN1,!?3,S1,?IOM\2+3,"Disk"
  • Line Location: CMP+1
Function Call: WRITE
  • Prompt: !,"Compare of routines from KIDS ",XPDNM,", and disk",!
  • Line Location: XPDDO+2
Routine Call
  • %ZIS
  • Line Location:
    • A+6
    • TAPE+5
    • TAPE+8
    • XPD+6
Routine Call
  • %ZIS
  • Line Location:
    • A+9
Routine Call
  • DIR
  • Line Location:
    • RSEL+1
    • TAPE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XPD(9.7 - [#9.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" LOAD+1
^%ZOSF("TEST" TEST+1, DIN
^TMP($J QUIT!, EXIT+2!, TIN+7!, TIN+8*, DIN+1!, CMP+2*, KIN+1!, KIN+2*
^XTMP("XPDI" KIN+1, XPDDO+3

Label References

Name Line Occurrences
CHECK A+7
CMP TAPE+10, XPDDO+5
DIN TAPE+10, XPDDO+5
EXIT TAPE+7, TAPE+8
KIN XPDDO+5
LINE CHECK+4, DIN, CMP+3
LOAD CHECK+1, CHECK+2, DIN+1
QUIT A+5, A+6, A+10, CHECK+6
RSEL A+5
TIN TAPE+10
XPDDO XPD+7

Naked Globals

Name Field # of Occurrence
^( XPDDO+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A+2~, TAPE+2~, XPD+3*
%1 A+2~, TAPE+2~
%2 A+2~, TAPE+2~
%3 A+2~, TAPE+2~
%4 A+2~, TAPE+2~
%DEBUG A+1~, CMP+2
%H A+2~, TAPE+2~
%N A+1~, TAPE+1~, XPD+1~, XPDDO+1~
%T A+2~, TAPE+2~
%Y A+2~, TAPE+2~
%ZIS A+1~, A+6*, TAPE+5*, TAPE+8*, XPD+6*
%ZIS("A" TAPE+5*, TAPE+8*
B A+2~, TAPE+2~
C A+2~, TAPE+2~
D A+2~, TAPE+2~
DIF A+1~, CHECK+1*, CHECK+2*, TAPE+1~, DIN+1*
DIR A+1~, RSEL+1!, TAPE+1~, TAPE+7!
DIR("?" RSEL*
DIR("A" A+5*, TAPE+7*
DIR("B" TAPE+7*
DIR(0 RSEL*, TAPE+7*
DIRUT A+1~, A+5, TAPE+1~, TAPE+7
DTIME A+3*
DUZ A+3
E A+2~, TAPE+2~
F A+2~, CHECK+2*, TAPE+2~, DIN+1*, XPD+1~, XPDDO+1~, XPDDO+5*
G A+2~, TAPE+2~
H A+2~, TAPE+2~
I A+2~, TAPE+2~, TAPE+5*, EXIT*, TIN+1~, TIN+4*, TIN+5, TIN+8*, TIN+9, CMP+2*
, KIN+2*, KIN+3
IO CHECK+3, TAPE+5, TAPE+8*, TAPE+9, TAPE+11, EXIT*, TIN+9, DIN, CMP+1, XPDDO+2
>> IO("Q" A+7
>> IO(0 TAPE+6, TAPE+8
IOF CHECK+3
IOM CHECK+3, LINE, CMP+1
>> IOS A+3
J A+2~, TAPE+2~
K A+2~, TAPE+2~
L A+2~, TAPE+2~
M A+2~, TAPE+2~
N A+2~, TAPE+2~
O A+2~, CHECK+1*, TAPE+2~, TIN+9*, KIN+3*, XPD+1~, XPDDO+1~
P A+2~, TAPE+2~
>> POP A+6, TAPE+5, TAPE+8, XPD+6
Q A+2~, TAPE+2~
R A+2~, TAPE+2~, KIN+1*, KIN+2
RN KIN~, KIN+1, KIN+3
RTN1 A+1~, A+5*, CHECK+1, CHECK+3, TAPE+1~, TIN+2*, TIN+4, TIN+5*, TIN+6, TIN+9
, CMP+1, XPD+1~, XPDDO+1~, XPDDO+3*, XPDDO+4, XPDDO+5
RTN2 A+1~, A+5*, CHECK+2, CHECK+3, TAPE+1~, XPD+1~, XPDDO+1~
S A+2~, TAPE+2~
S1 CMP~, CMP+1
T A+2~, TAPE+2~
U A+2~, A+3*, TAPE+2~, TAPE+3*
V A+2~, TAPE+2~
W A+2~, TAPE+2~
X A+2~, A+5, LOAD~, TEST~, TEST+1!, LINE*, TAPE+2~, TAPE+6*, TAPE+10, TIN+6*
TIN+8*, TIN+9*, DIN!, DIN+1, KIN+3*, XPDDO+1~, XPDDO+3*, XPDDO+4, XPDDO+5
X1 TAPE+1~, TAPE+10*
XCNP A+1~, CHECK+1, CHECK+2, LOAD+1*, TAPE+1~, DIN+1, XPD+1~, XPDDO+1~, XPDDO+5
>> XPDNM XPD+4*, XPDDO+2
>> XPDQUIT XPD+5
XPDST KIN+1, XPD+3*, XPD+4, XPD+5, XPD+7, XPDDO~, XPDDO+3
XTAPE TAPE+1~, TAPE+5*, TAPE+6, TAPE+9, EXITTIN+2
XTAPE( TAPE+5*, EXIT
XTEND A+1~, END*
Y A+2~, TAPE+2~, TAPE+6*, TAPE+7
Z A+2~, TAPE+2~
ZTDESC A+1~, A+8*
ZTRTN A+1~, A+8*
ZTSAVE A+1~
ZTSAVE("RTN1" A+8*
ZTSAVE("RTN2" A+8*
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  | All