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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AZHLSCS

Package: Local Area Programs

Routine: AZHLSCS


Information

AZHLSCS ; IHS/ADC/GTH:KEU - DSM SPELL CHECKER FOR VARIOUS FILES/FIELDS ; [ 11/24/97 10:55 AM ]

Source Information

Source file <AZHLSCS.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Local Area Programs 1 (BEG,FIN,NPKG,PKG)^AZHLSC  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Local Area Programs 2 AZHLSC  AZHLSCWE  

Entry Points

Name Comments DBIA/ICR reference
IGNORE
QEND
NOHIT ;
CORREND
START ;EP - From TaskMan.
SUGGEST
CHK ;EP
CORRECT
1
0
ADD
NOHIT1
DEVICE
END
DEVEND
GETWORD ;
CHECK ;EP
SELS ;;10

External References

Name Field # of Occurrence
^%ZIS DEVICE, DEVICE+4
HOME^%ZIS DEVICE+6
^%ZTLOAD DEVICE+6
BEG^AZHLSC START+1
FIN^AZHLSC QEND
NPKG^AZHLSC 0+1
PKG^AZHLSC 1, START+1
^DIC SUGGEST+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?4,$P($P($T(+1),";",2),"-",2)," v ",$P($T(+2),";",3),!
  • Line Location: 0+0
Function Call: WRITE
  • Prompt: !!?10
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !?10,$J(%,3)," ",$P($T(@"SELS"+%),";",3)
  • Line Location: 1+1
Function Call: READ
  • Prompt: "Select : [A]ll // "
  • Formatting: !!?15
  • Timeout: 300
  • Variable: AZHLOPTN
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !!,"Report will be QUEUE'd if device other than HOME selected.",!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,*7,"No device specified."
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,"Can't Q to home device."
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"Report being QUEUE'd to run now for you."
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !!,"<<<<<<< DSM SPELL CHECKER >>>>>>>",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!!,"<< DSM SPELL CHECKER >>"
  • Line Location: QEND+0
Function Call: WRITE
  • Prompt: !!,"*** '",AZHLNMSP,"'; ",D," ",D(1)," "
  • Line Location: NOHIT+1
Function Call: WRITE
  • Prompt: AZHLROOT
  • Condition for execution: $D(AZHLROOT)
  • Line Location: NOHIT+1
Function Call: WRITE
  • Prompt: AZHLROOT(2)
  • Condition for execution: $D(AZHLROOT(2))
  • Line Location: NOHIT+1
Function Call: WRITE
  • Prompt: "; ",$S($D(D(2)):"; "_D(2),1:""),!
  • Line Location: NOHIT+1
Function Call: WRITE
  • Prompt: !,AZHLX,!,?10,"'",X,"' not found ",!
  • Line Location: NOHIT+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($X>(IOM-19))
  • Line Location: NOHIT+3
Function Call: WRITE
  • Prompt: X,$E(" ",1,20-$L(X))
  • Line Location: NOHIT+3
Function Call: WRITE
  • Prompt: *7,!,AZHLX,!,"'",X,"' not found in ",$P(^AZHLWDIC(0),U),"""",!!
  • Line Location: NOHIT1+0
Function Call: READ
  • Timeout: 300
  • Line Location: NOHIT1+1
Function Call: WRITE
  • Prompt: !,"Please enter an 'A', 'C', 'I', 'S', or 'Q'.",!
  • Line Location: NOHIT1+1
Function Call: READ
  • Prompt: " Replace "
  • Timeout: 300
  • Variable: AZHLX1
  • Line Location: CORRECT+0
Function Call: WRITE
  • Prompt: !!,AZHLX,!
  • Line Location: CORRECT+0
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: CORRECT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CORREND+0
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+6
Routine Call
  • DIC
  • Line Location:
    • SUGGEST+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
    • DEVICE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" CHK+8
^AZHLWDIC( ADD*
^AZHLWDIC("B" CHK+3, ADD*
^AZHLWDIC(0 NOHIT1, ADD
^TMP($J END!, CHK+7, IGNORE*

Label References

Name Line Occurrences
@( START+4, START+6
ADD NOHIT1+3
CHK CHECK+2
CORRECT NOHIT1+3, CORRECT+3
CORREND CORRECT+1
DEVICE DEVICE+2
END 1+2, DEVICE, DEVEND, START+2, QEND
GETWORD CHK+2
IGNORE NOHIT+4, NOHIT1+3
NOHIT CHK+9
NOHIT1 NOHIT1+6
QEND START+3
SELS 1+1, START+4
START DEVICE+4
SUGGEST NOHIT1+5

Naked Globals

Name Field # of Occurrence
^( CHK+4, CHK+5, CHK+6
^(0 CHECK+2, ADD*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 1+1*, SUGGEST*, SUGGEST+1
%ZIS DEVICE!*
%ZIS("B" DEVICE*
>> AZHL CHECK+2*, CORREND
>> AZHL(2 NOHIT1+1*, NOHIT1+2, NOHIT1+3, NOHIT1+4
AZHLNMSP DEVICE+5, DEVEND!, NOHIT+1
>> AZHLOPTN 1+2*, START+3, START+4*
AZHLPIEN 0+1, DEVEND!
>> AZHLROOT CHECK+2, NOHIT+1, CORREND
>> AZHLROOT(1 CHECK+1
>> AZHLROOT(2 CHECK+2, NOHIT+1, CORREND
>> AZHLROOT(3 CORREND
AZHLTERM DEVICE+1*, DEVICE+4*, DEVEND!, CHK+2
AZHLX START+2~, CHECK+2*, CHK+1, GETWORD+2, NOHIT+2, NOHIT1, CORRECT, CORRECT+2*, CORREND
AZHLX1 START+2~, CORRECT*, CORRECT+1, CORRECT+2
>> AZHLX2 CORRECT+1*, CORRECT+2
B START+2~, CHK+1*, GETWORD+2*, GETWORD+4*, CORREND*, SUGGEST~
C START+2~, CHECK+1*, CHECK+2, SUGGEST~
D START+2~, START+4!, NOHIT+1, SUGGEST~
D(1 NOHIT+1
D(2 NOHIT+1
D(3 NOHIT+1*
DIC SUGGEST~*
DIC(0 SUGGEST*
DUOUT SUGGEST~, SUGGEST+1
E START+2~, CHK+1*, GETWORD+2*, GETWORD+4, SUGGEST~
F START+2~, SUGGEST~
G DEVICE+5*, DEVEND!, START+2~, GETWORD+1*, GETWORD+2*, SUGGEST~
I START+2~, SUGGEST~
IO DEVICE+2, DEVICE+3, DEVICE+4, START+1
IO("DOC" DEVICE+1
IO("Q" DEVICE+2!, DEVICE+3*, DEVICE+4, DEVICE+6!
IO("S" DEVICE+4, NOHIT+4
IO(0 DEVICE+2, DEVICE+3, DEVICE+4
IOM DEVICE+1
ION DEVICE+1
IOP DEVICE!, DEVICE+1*, DEVICE+5, DEVEND!
IOSL DEVICE+1
IOST DEVICE+1, DEVICE+2
L START+2~, CHK+1*, GETWORD+2, SUGGEST~
>> POP DEVICE
Q START+2~*, START+4, CHECK+2, CHK+2, GETWORD+1, NOHIT1+2*
U 1+2, CHECK+1, NOHIT1, ADD
W START+2~, SUGGEST~
X CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, GETWORD+1*, GETWORD+2*, GETWORD+3*, NOHIT+2
, NOHIT1, ADD, IGNORE, SUGGEST, SUGGEST+1~*
>> Y SUGGEST+1
>> ZTDESC DEVICE+5*
>> ZTDTH DEVICE+3*
>> ZTIO DEVICE+5*
>> ZTRTN DEVICE+5*
>> ZTSAVE( DEVICE+5*
ZTSK DEVEND!, NOHIT+4

Marked Items

Name Field # of Occurrence
$T( 0
$T(@"SELS"+% 1+1
$T(SELS 1+1, START+4
$T(SELS+AZHLOPTN START+4, START+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All