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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: INHSYS

Package: IHS Generic Interface System

Routine: INHSYS


Information

INHSYS ;SLT,JPD,WOM; 6 Dec 95 09:31;GIS system configuration compilation/installation utility

Source Information

Source file <INHSYS.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Generic Interface System 4 $$ID^INHSYS04  ALLSUMER^INHSYS11  ($$LOCKFL,UNLK)^INHSYSUT  ($$TR,ORDER,ZIS)^INHUT3  
Kernel 3 ^%ZIST  ($$BREAK,$$ROUTEST,$$SETXY,$$YN)^%ZTF  $$DT^%ZTFDT  
Uncategorized 2 VAR^DWUTL  $$CR^UTSRD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Generic Interface System 2 INHSYSDR  INZTTC  

Entry Points

Name Comments DBIA/ICR reference
BREAK(%) ;Inable/Disable break
RESTORE(%UT,%RT) ;
; Input:
; %UT - global to store routine that is being restored
; %RT - selected node from global
FROUT(%FIND) ;Return 1 if routine found, 0 else
ROUT(%UTILITY) ;Get available routines
COMP(INSELTT,INASK) ;compile Transaction Types into cms elements
; Called by tags EN1 and EN2 above
; Also called by $$COMP^INZTTC
; Input:
; INSELTT - Array of selected Transaction Types
; INSELTT = # Selected
; INSELTT(n) = IEN^0_NODE
; INASK - Option control for ERROR notification
; Values: 0 - Ask if user wants reporting
; If user wants reporting, ask DEVICE
; 1 - Reporting goes to ASCII flat file in the user's
; default directory. The filename is based on the
; UNIQUE IDENTIFIER of the INTERFACE TRANSACTION TYPE
; chosen. This file has a ".GEN" extention to signify
; it came from the GENERATION (export) module.
; DEFAULT is 0
; Note: When INASK=0, if the user specifies no reporting, INASK
; will be set to 3 and passed to INHUT3 as a signal to not
; open any devices.
; Note: INPOP should be in the data space from the calling routine
; and should be set to 0. This variable is a flag used
; to denote FATAL ERRORS and should be checked by the calling
; routine to determine successful generation. If the value is
; 1, this will denote failure.
; Note to Note: INPOP is not the only failure condition that
; should be checked by the calling program.
Q
QUERY()
EN5(%RT,INCR,INASK,INDELETE,INP0) ; Called by CMS interface and ZPACK programs

External References

Name Field # of Occurrence
^%ZIST EN5+34
$$BREAK^%ZTF BREAK+2, BREAK+3, RESTORE+8, RESTORE+11
$$ROUTEST^%ZTF FROUT+1
$$SETXY^%ZTF EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30
$$YN^%ZTF EN5+55, EN5+56, COMP+32, RESTORE+5, RESTORE+6, QUERY+1
$$DT^%ZTFDT EN5+34, COMP+27
VAR^DWUTL EN5+34
$$ID^INHSYS04 COMP+31
ALLSUMER^INHSYS11 EN5+64
$$LOCKFL^INHSYSUT COMP+34
UNLK^INHSYSUT COMP+36
$$TR^INHUT3 EN5+46, COMP+31
ORDER^INHUT3 ROUT+6
ZIS^INHUT3 EN5+54, EN5+57, EN5+61, COMP+34, RESTORE+4, RESTORE+9
$$CR^UTSRD EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(7,10),"Cannot require <CR> from user when reporting goes to a flat file!!"
  • Line Location: EN5+39
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(25,10),"Invalid parameters INCR or INASK!!"
  • Line Location: EN5+40
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(7,10)
  • Condition for execution: INCR
  • Line Location: EN5+41
Function Call: WRITE
  • Prompt: "Invalid parameter INDELETE!!"
  • Line Location: EN5+41
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(30,10)
  • Condition for execution: INCR
  • Line Location: EN5+42
Function Call: WRITE
  • Prompt: "Null Program Name!!"
  • Line Location: EN5+42
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(30,10)
  • Condition for execution: INCR
  • Line Location: EN5+43
Function Call: WRITE
  • Prompt: "Invalid Program Name!!"
  • Line Location: EN5+43
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(30,10)
  • Condition for execution: INCR
  • Line Location: EN5+44
Function Call: WRITE
  • Prompt: "Routine ",%RT," not found",!!,*7
  • Line Location: EN5+44
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(30,10)
  • Condition for execution: INCR
  • Line Location: EN5+45
Function Call: WRITE
  • Prompt: "Invalid INP0 and INASK combination.",!!,*7
  • Line Location: EN5+45
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(25,10),"Invalid parameters INASK!!"
  • Line Location: COMP+29
Function Call: WRITE
  • Prompt: @IOF,$$SETXY^%ZTF(25,10),"No TRANSACTION TYPES available!!"
  • Line Location: COMP+30
Function Call: WRITE
  • Prompt: !!,"Would you like a list of updated files and fields"
  • Line Location: RESTORE+6
Function Call: WRITE
  • Prompt: !!,"Would you like a report of related files that exist ",!,"and do not exist in the environment"
  • Line Location: QUERY+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("OS" - [#.7] BREAK+2, BREAK+3, RESTORE+8, RESTORE+11
^UTILITY("INHSYS" EN5+33!, COMP+26!
^UTILITY("INHSYS_FILERR" EN5+38!*
^UTILITY("INHSYS_SUMERR" EN5+38!
^UTILITY($J EN5+33!, COMP+26!

Label References

Name Line Occurrences
$$BREAK EN5+60, EN5+63
$$FROUT EN5+44
$$QUERY RESTORE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN5+32~, EN5+33~, BREAK~, BREAK+1, BREAK+2, BREAK+3, BREAK+4
%CNT EN5+33~, EN5+46*
%FIND FROUT~, FROUT+1
%RD EN5+32~
%RMSEL EN5+32~
%RT EN5~, EN5+39*, EN5+40*, EN5+41*, EN5+42*, EN5+43*, EN5+44*, EN5+45*, EN5+46*, RESTORE~
%RTN EN5+32~
%SRC EN5+32~
%SYS EN5+32~
%TT EN5+33~, EN5+46*
%UCI EN5+32~
%UT EN5+33~, RESTORE~
%UT(1 EN5+46*
%UTILITY EN5+32~, ROUT~, ROUT+7
AA COMP+26~, COMP+32*, COMP+36*
>> CENABLE RESTORE+11
DT EN5+34~*, COMP+27~*
DWL EN5+32~
DWLB EN5+32~
DWLMK EN5+32~
DWLMK1 EN5+32~
DWLRF EN5+32~
EX BREAK+1~*, BREAK+2, BREAK+3
INASK EN5~, EN5+36*, EN5+38*, EN5+39, EN5+40, EN5+45, EN5+46, EN5+53, EN5+54, EN5+56*
, EN5+57*, EN5+61, COMP~, COMP+27*, COMP+29*, COMP+30*, COMP+31, COMP+32*, COMP+34
INCR EN5~, EN5+36*, EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+28~*
INDELETE EN5~, EN5+36*, EN5+41
INLKFLS COMP+26~, COMP+34
INLKFLS( COMP+36
INP0 EN5~, EN5+36*, EN5+45, EN5+53, EN5+54
INPOP EN5+33~, EN5+36*, EN5+54, EN5+55*, EN5+58, EN5+66, COMP+34
INREPRT EN5+33~, EN5+36*, EN5+38*, EN5+56*, COMP+26~, COMP+27*, COMP+32*, RESTORE+6*
INRPTNM EN5+33~, EN5+46*, COMP+26~, COMP+31*
INSELTT COMP~, COMP+30
INSELTT(1 COMP+31
IOF EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30
IOSL EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30
>> NOCENABLE RESTORE+8
Y EN5+33~

Marked Items

Name Field # of Occurrence
$T(@(1)+3^@(1) EN5+46
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All