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

Package: Local Area Programs

Routine: AZHLSC


Information

AZHLSC ; IHS/ADC/GTH:KEU:JN - DRIVER FOR SAC CHECKER ; [ 07/01/1999 7:05 AM ]

Source Information

Source file <AZHLSC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Local Area Programs 4 EN^AZHLSCA  ^AZHLSCFV  ^AZHLSCS  ^AZHLSCT  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 NOW^%DTC  ^DIC  

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Local Area Programs 19 AZHLSC1  AZHLSC2  AZHLSC20  AZHLSC22  AZHLSC23  AZHLSC24  AZHLSC25  AZHLSC27  
AZHLSC28  AZHLSC29  AZHLSC3  AZHLSC42  AZHLSC43  AZHLSC50  AZHLSC51  AZHLSC52  
AZHLSC53  AZHLSCFV  AZHLSCS  

Entry Points

Name Comments DBIA/ICR reference
01
END
P1
START ;EP - From TaskMan
DD
TTL(X) ;EP
NPKG ;EP
BEG ;EP
RTNS ;
1
0
GFCX ;EP
2
ST1
DEVICE
FIN ;EP
NRTN ;EP
PKG ;EP

External References

Name Field # of Occurrence
NOW^%DTC AZHLSC+13, DD
^%ZIS DEVICE, DEVICE+4
HOME^%ZIS AZHLSC+10, DEVICE+6
^%ZISC FIN+2
^%ZTLOAD DEVICE+6
EN^AZHLSCA 0+1
^AZHLSCFV 2+2
^AZHLSCS 2+2
^AZHLSCT 2+2
^DIC 01

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?4,$P($T(@"AZHLSC"+1),";",4)," v ",$P($T(@"AZHLSC"+1),";",3),!
  • Line Location: 0+0
Function Call: WRITE
  • Prompt: !!?10
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !?10,$J(I,3)," ",$P($T(@"RTNS"+I),";",4)
  • Line Location: 2+0
Function Call: READ
  • Prompt: "Select : 16 // "
  • Formatting: !!?15
  • Timeout: DTIME
  • Variable: AZHLOPTN
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: 2+3
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: !!,"*+*+*+* IHS STANDARDS AND CONVENTIONS (SAC) *+*+*+*",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!!,$P($T(@"AZHLSC"+1),";",4)," v ",$P($T(@"AZHLSC"+1),";",3)
  • Line Location: ST1+0
Function Call: WRITE
  • Prompt: !,"PACKAGE not selected.",!
  • Line Location: PKG+1
Function Call: WRITE
  • Prompt: !,"Package : ",AZHLNMSP," - ",$P(^DIC(9.4,$O(^DIC(9.4,"C",AZHLNMSP,0)),0),U),", v ",$S($D(^DIC(9.4,$O(^DIC(9.4,"C",AZHLNMSP,0)),"VERSION")):^("VERSION"),1:"none"),!
  • Line Location: PKG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: $E(%_" ",1,10)
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-9)
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,"Beginning "
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: " completed "
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: !?10,"Not checked. No PACKAGE selected."
  • Line Location: NPKG+1
Function Call: WRITE
  • Prompt: !?10,"Not checked. No routines selected."
  • Line Location: NRTN+1
Function Call: WRITE
  • Prompt: !!,X,!,$E("------------------------------------------------------------------",1,$L(X))
  • Line Location: TTL+1
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: DD+2
Routine Call
  • %ZIS
  • Line Location:
    • AZHLSC+10
    • DEVICE+6
Routine Call
  • DIC
  • Line Location:
    • 01
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
    • DEVICE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RSEL" 0+2
^DIC(9.4 - [#9.4] 01, PKG+2
^TMP($J END!
^UTILITY($J 01+1, END!, P1

Label References

Name Line Occurrences
0 2+2, 2+3, ST1+3
01 0+1
@( START+4, START+6
BEG START+2
DD BEG+1, FIN+1
DEVICE 2+2, DEVICE+2
END 2+1, DEVICE, ST1+2
FIN ST1
GFCX START+1
P1 PKG+1
PKG 1, START+2
ST1 START+3
START DEVICE+4

Naked Globals

Name Field # of Occurrence
^("VERSION" PKG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P1*, DD
%DT AZHLSC+13!
%ZIS DEVICE!*, END!
%ZIS("B" DEVICE*
AZHL AZHLSC+8~
AZHLGFCX END!, ST1+1!, GFCX+1*
AZHLNMSP AZHLSC+8~, 01+2*, 01+3*, DEVICE+5, PKG+2
AZHLOPTN AZHLSC+8~, 2+1*, 2+2, START+3, START+4*, START+6
AZHLOPTN(1 2+2*
AZHLPIEN AZHLSC+8~, 01+2*, 01+3*, PKG+1
AZHLROOT AZHLSC+8~, 01+2*, 01+3*
AZHLSC4I 0+1, 01!
AZHLTERM AZHLSC+8~, DEVICE+1*, DEVICE+4*
DIC AZHLSC+8~, 01*, 01+3
DIC(0 01*
DIK AZHLSC+8~
DT AZHLSC+13*
DTIME AZHLSC+12*, 2+1
DUZ AZHLSC+11*
DUZ(0 AZHLSC+11*
>> G DEVICE+5*
>> I 2*
IO DEVICE+2, DEVICE+3, DEVICE+4, START+2
IO("DOC" DEVICE+1
IO("Q" DEVICE+2!, DEVICE+3*, DEVICE+4, DEVICE+6!
IO("S" DEVICE+4
IO(0 DEVICE+2, DEVICE+3, DEVICE+4
IOF FIN+2
IOM DEVICE+1, P1
ION DEVICE+1
IOP DEVICE!, DEVICE+1*, DEVICE+5, END!
IOSL DEVICE+1
IOST DEVICE+1, DEVICE+2, FIN+2
>> POP DEVICE
U AZHLSC+13*, 01+3, 2+1, PKG+2
X AZHLSC+13, TTL~, TTL+1
>> Y 01*, 01+1, 01+3, DD*, DD+1*, DD+2
>> Y(0 01+3
>> ZTDESC DEVICE+5*
>> ZTDTH DEVICE+3*
>> ZTIO DEVICE+5*
>> ZTQUEUED FIN+2
>> ZTREQ ST1+1*, FIN+2*
>> ZTRTN DEVICE+5*
>> ZTSAVE( DEVICE+5*
ZTSK END!, ST1+1

Marked Items

Name Field # of Occurrence
$T(@"AZHLSC"+1 0, ST1
$T(@"RTNS"+I 2
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