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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: INHVEXP

Package: IHS Generic Interface System

Routine: INHVEXP


Information

INHVEXP ;BAR ; 24 Nov 95 15:02; PRINT EXCEPTIONS BETWEEN INH MAP AND LOCAL DATA

Source Information

Source file <INHVEXP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Uncategorized 2 (ENV,FORMAT)^UTIL  $$YN^UTSRD  
VA Fileman 2 DD^%DT  Y^DIQ  
IHS Generic Interface System 1 ($$SYS,$$SYSNAME)^INHUTIL1  

Entry Points

Name Comments DBIA/ICR reference
LF ;Check each data element points to a valid NOT EXCLUDE reference
QUIT ;exit module
EN ;Main entry point
ENQUE ;Taskman entry point
DA ;DA MODULE - STARTS HERE
WRITE ;output a line
HEADER ;output header in local array INHDR(x)
ENUSE ;User input
RECID ;Processing at INRECID loop
WRITEL ;Output data exceptions
FUNC ;Verify map function exists and log error if not
HSET ;set up header
WRITEE ;output exclude problems

External References

Name Field # of Occurrence
DD^%DT HSET+1
^%ZIS ENUSE+14, ENUSE+16, QUIT+2
^%ZISC QUIT+1
^%ZTLOAD ENUSE+19
Y^DIQ DA+20
$$SYS^INHUTIL1 ENUSE+6
$$SYSNAME^INHUTIL1 ENUSE+8, HSET+2
ENV^UTIL ENUSE+2
FORMAT^UTIL WRITE+4
$$YN^UTSRD ENUSE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"Sorry, I don't know what kind of system we're on.",!
  • Line Location: ENUSE+7
Function Call: WRITE
  • Prompt: !!," I think this is a ",$$SYSNAME^INHUTIL1(INSYS)," system"
  • Line Location: ENUSE+8
Function Call: WRITE
  • Prompt: *7,!,"Sorry, unable to find device..."
  • Line Location: ENUSE+16
Function Call: WRITE
  • Prompt: !!,"*** End Of Report ***",!,IOF
  • Line Location: ENQUE+32
Function Call: READ
  • Prompt: "Press <RETURN> to continue "
  • Formatting: !
  • Timeout: DTIME
  • Variable: A
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,@INHDR(A)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?N,X
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !?N,F(F)
  • Line Location: WRITE+4
Routine Call
  • %ZIS
  • Line Location:
    • ENUSE+14
    • ENUSE+16
    • QUIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DA+20
^DIC - [#1] FUNC+5
^INVD(4090.1 - [#4090.1] ENQUE+24, DA+3, DA+9, DA+17, DA+20, DA+24
^INVD(4090.2 - [#4090.2] FUNC+1, DA+10
^UTILITY($J EN+3!, ENQUE+12!, ENQUE+26, ENQUE+28, ENQUE+30, FUNC+2*, FUNC+3*, FUNC+6*, DA+3*, DA+6*
, DA+11*, DA+14*, DA+17*, DA+21*, DA+24*, DA+25*, LF+1*, WRITEE+3, WRITEE+4, WRITEL+2
, QUIT+3!

Label References

Name Line Occurrences
DA ENQUE+11
FUNC ENQUE+7
HEADER ENQUE+16, WRITE+1
HSET ENQUE+16
LF ENQUE+13
QUIT ENUSE+7, ENUSE+10, ENUSE+14, ENUSE+16, ENUSE+17, ENQUE+33
RECID ENQUE+9
WRITE ENQUE+22, ENQUE+23, ENQUE+24, ENQUE+26, WRITEE+1, WRITEE+4, WRITEL+1, WRITEL+2
WRITEE ENQUE+28
WRITEL ENQUE+30

Naked Globals

Name Field # of Occurrence
^( ENQUE+21, ENQUE+23, DA+25, WRITEE+4, WRITEL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+2~, ENUSE+14*, ENUSE+16*, QUIT+2*
%ZIS("A" ENUSE+14*
%ZIS("B" ENUSE+14*
%ZIS("RM" ENUSE+14*
A EN+2~, ENQUE+21*, ENQUE+26, ENQUE+31*, HEADER+1~, HEADER+2*, HEADER+4*
>> BRCT ENQUE+6*
>> C DA+20*
DT HSET+1
DTIME ENQUE+31, HEADER+2
F EN+2~, WRITE+4!*
F( WRITE+4
F(1 WRITE+4
INDA EN+2~, ENQUE+6*, ENQUE+10, ENQUE+21*, ENQUE+24, ENQUE+26, DA+3, DA+6, DA+9, DA+11
, DA+14, DA+17, DA+20, DA+21, DA+24, DA+25, WRITEE+4*
INDE EN+2~, RECID+2*, RECID+5*, DA+14*, DA+20
INDIC EN+2~, FUNC+1*, FUNC+3, FUNC+4, FUNC+5, FUNC+6, RECID+2, DA+14, DA+20, DA+21
>> INEX ENQUE+9*, ENQUE+12, DA+25*
INEXIT EN+2~, ENQUE+15*, HEADER+2*, WRITE+2
INFUNC EN+2~, ENQUE+6*, ENQUE+12, ENQUE+21*, ENQUE+26, ENQUE+28, ENQUE+30, FUNC+1, FUNC+2, FUNC+3
, FUNC+6, DA+3, DA+6, DA+9, DA+11, DA+14, DA+17, DA+21, DA+24, DA+25
, LF+1, WRITEE+3, WRITEE+4, WRITEL+2
INFUNCN EN+2~, FUNC+1*, FUNC+2, FUNC+3, DA+6, DA+11
INGL EN+2~, ENQUE+13, FUNC+1*, FUNC+5*, FUNC+6, RECID+5, DA+14, LF+1
INHDR EN+2~
INHDR( HEADER+4
INHDR(1 HSET+2*
INHDR(2 HSET+3*
INHDR(4 HSET+4*
INOSYS EN+2~, ENUSE+11*
INPAGE EN+2~, ENQUE+15*, HEADER+2, HEADER+3*, WRITE+1
INRECID EN+2~, ENQUE+6*, ENQUE+8, ENQUE+12, ENQUE+21*, ENQUE+23, ENQUE+24, ENQUE+26, RECID+5, DA+3
, DA+6, DA+11, DA+14, DA+17, DA+21, DA+24, DA+25, WRITEE+3*, WRITEE+4, WRITEL+2*
INSYS EN+2~, ENUSE+6*, ENUSE+7, ENUSE+8, ENUSE+11, ENQUE+5, FUNC+1, DA+14, DA+17, DA+20
, DA+24, WRITEE+4, HSET+2
IO ENUSE+16, ENUSE+17, ENQUE+31, HEADER+2, HEADER+4, QUIT+2
IO("Q" ENQUE+31, HEADER+2, QUIT+2!
IO(0 ENUSE+16, ENUSE+17, ENQUE+31, HEADER+2
IOF ENQUE+32, HEADER+3
IOM ENUSE+15*, ENQUE+15*, HSET+4
ION ENUSE+15
IOP ENUSE+14!, ENUSE+15*, ENUSE+17, QUIT+2*!
IOSL ENUSE+15, WRITE+1
IOST ENUSE+15, ENQUE+31, HEADER+2
K EN+2~
>> L ENQUE+19*, ENQUE+25*, WRITE+1, WRITE+3, WRITE+5*, WRITEE+1*, WRITEL+1*
N EN+2~, ENQUE+21*, ENQUE+23*, ENQUE+24*, ENQUE+25*, DA+10*, DA+11, WRITE+3, WRITE+4, WRITEE+1*
, WRITEE+3*, WRITEL+1*, WRITEL+2*
ND ENQUE+4~*, ENQUE+5*, ENQUE+6, ENQUE+19*, ENQUE+20*, ENQUE+21
POP ENUSE+14, ENUSE+16, QUIT+2!
>> T RECID+5*
U EN+3*, DA+20, HEADER+2
X EN+2~, ENUSE+18*, ENQUE+21*, ENQUE+23*, ENQUE+24*, ENQUE+26*, DA+9*, DA+10, DA+11, DA+17*
, DA+20*, DA+21, LF+1*, WRITE+3, WRITE+4, WRITEE+1*, WRITEE+4*, WRITEL+1*, WRITEL+2*
>> Y ENUSE+10*, DA+20*, DA+21, HSET+1*, HSET+2
ZTDESC EN+2~, ENUSE+17*
ZTIO EN+2~, ENUSE+17*
ZTRTN EN+2~, ENUSE+17*
ZTSAVE EN+2~
ZTSAVE( ENUSE+18*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All