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

Package: IHS Generic Interface System

Routine: INHPSAM


Information

INHPSAM ; FRW ; 18 Aug 1999 09:23:25; Interface Application control utility - main

Source Information

Source file <INHPSAM.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  $$CDATASC^%ZTFDT  ^%ZTLOAD  
IHS Generic Interface System 3 HEADER^INHMG  T^INHMG1  ($$CREDAT,$$DIC,$$GETMTF,$$PROCINT)^INHPSA  
Uncategorized 2 ($$SOC,ENV)^UTIL  $$YN^UTSRD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Generic Interface System 2 INHPCO  INHPSAL  

Entry Points

Name Comments DBIA/ICR reference
DATACOM ;Description of DATA tag
QUIT ;exit module
EN ;Main entry point to interactively process interfaces
ACTIV ;Activate all production interfaces
PARM(INPAR) ;Obtain user parameters
PROC(INPAR,INVERBOS) ;Process selected actions
ENQUE ; Taskman entry point - Process user actions
COMPSUM(INPAR) ; compile and report the status of all interfaces
SUMALL ;display summary of all production interfaces
APPLAR ;Create array of interface applications
PROCSUM(INTER,INPAR,INPARFND) ; process and report the status of one interface only
ALL(INST) ;Process all production interfaces
DEACT ;Deactivate all production interfaces
SHOWALL ;show all production interfaces
TASKDEV(INPAR,INVERBOS) ; ask for device name and task to process the user action
SHOWONLY ;Main entry point to show only process interfaces
; this entry is called from a menu option
DATA ;Data
INTSEL(INPAR) ;Select an interface

External References

Name Field # of Occurrence
^%ZIS TASKDEV+8, TASKDEV+10
^%ZISC QUIT+1
$$CDATASC^%ZTFDT COMPSUM+6
^%ZTLOAD TASKDEV+13
HEADER^INHMG COMPSUM+12
T^INHMG1 COMPSUM+17, COMPSUM+18, COMPSUM+19, COMPSUM+20, PROCSUM+9, PROCSUM+14, PROCSUM+15, PROCSUM+24, PROCSUM+25, PROCSUM+33
$$CREDAT^INHPSA PROCSUM+9
$$DIC^INHPSA PROCSUM+13, PROCSUM+23
$$GETMTF^INHPSA COMPSUM+6
$$PROCINT^INHPSA PROC+17
$$SOC^UTIL PARM+24, INTSEL+8
ENV^UTIL EN+2, SUMALL+2, SHOWALL+2
$$YN^UTSRD PARM+29, PARM+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Sorry, unable to find device..."
  • Line Location: TASKDEV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPSUM+17
Function Call: WRITE
  • Prompt: " *PARTIAL means that an interface has both active and inactive transactions."
  • Line Location: COMPSUM+18
Function Call: WRITE
  • Prompt: " This usually means that the transactions are used by multiple"
  • Line Location: COMPSUM+19
Function Call: WRITE
  • Prompt: " interfaces."
  • Line Location: COMPSUM+20
Function Call: WRITE
  • Prompt: "ERROR: "_INTER_" Unable to create data array"
  • Line Location: PROCSUM+9
Function Call: WRITE
  • Prompt: "ERROR: Wanted background process ",INNAME," but found ",$P(Y,U,2)," (",+Y,")."
  • Line Location: PROCSUM+14
Function Call: WRITE
  • Prompt: "ERROR: Background Process: ",INNAME," not found."
  • Line Location: PROCSUM+15
Function Call: WRITE
  • Prompt: "ERROR: Transaction Type: ",INNAME," not found. But found ",$P(Y,U,2)," (",+Y,")."
  • Line Location: PROCSUM+24
Function Call: WRITE
  • Prompt: "ERROR: Wanted transaction type ",INNAME
  • Line Location: PROCSUM+25
Function Call: WRITE
  • Prompt: STAT,?11,INTER,?20,$P(INPAR("APPL",INTER),U)
  • Line Location: PROCSUM+33
Function Call: WRITE
  • Prompt: !!
  • Line Location: PARM+24
Function Call: WRITE
  • Prompt: !!,"WARNING: Modifying the status of interfaces can have dramatic effects."
  • Line Location: PARM+28
Function Call: WRITE
  • Prompt: !
  • Line Location: INTSEL+3
Function Call: WRITE
  • Prompt: !,?3,%,?13,$P(INPAR("APPL",%),U)
  • Line Location: INTSEL+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: INTSEL+7
Routine Call
  • %ZIS
  • Line Location:
    • TASKDEV+8
    • TASKDEV+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^INRHT - [#4000] PROCSUM+26
^INTHPC - [#4004] PROCSUM+16

Label References

Name Line Occurrences
$$INTSEL PARM+18
$$PARM EN+4
ALL SUMALL+3, SHOWALL+3, ACTIV+2, DEACT+2
APPLAR ALL+4, PARM+16
COMPSUM PROC+8
EN SHOWONLY+4
PROC ENQUE+1
PROCSUM COMPSUM+14
QUIT TASKDEV+8, TASKDEV+10, TASKDEV+11, ENQUE+2
TASKDEV EN+6, ALL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PROC+17*, PARM+24*, PARM+25, INTSEL+2~, INTSEL+4*, INTSEL+5*, INTSEL+8*, INTSEL+9, INTSEL+10
%ZIS TASKDEV+6~, TASKDEV+8*, TASKDEV+10*
%ZIS("A" TASKDEV+8*
%ZIS("B" TASKDEV+8*
ACTIVE PROCSUM+7~, PROCSUM+8*, PROCSUM+16*, PROCSUM+26*, PROCSUM+30, PROCSUM+31, PROCSUM+32
DA PROCSUM+7~, PROCSUM+13*, PROCSUM+15, PROCSUM+16, PROCSUM+23*, PROCSUM+24, PROCSUM+26
DAT INTSEL+2~, INTSEL+4*, INTSEL+5*, INTSEL+6*, INTSEL+8
DIC PROCSUM+7~, PROCSUM+13*, PROCSUM+23*
DIC(0 PROCSUM+13*, PROCSUM+23*
DUOUT COMPSUM+14, COMPSUM+15, PROCSUM+33, PROC+7~, PROC+13
DUZ EN+2, SUMALL+2, SHOWALL+2
HDR COMPSUM+4~
HDR(1 COMPSUM+7*
HDR(2 COMPSUM+8*
HDR(3 COMPSUM+9*
INACTIVE PROCSUM+7~, PROCSUM+8*, PROCSUM+17*, PROCSUM+27*, PROCSUM+30, PROCSUM+31, PROCSUM+32
INDAT PROCSUM+7~, PROCSUM+9
INDAT( PROCSUM+11, PROCSUM+12, PROCSUM+20, PROCSUM+21, PROCSUM+22
ININT PROC+9~, PROC+13*, PROC+17
INMTF COMPSUM+4~, COMPSUM+6*
INNAME PROCSUM+7~, PROCSUM+12*, PROCSUM+14, PROCSUM+15, PROCSUM+22*, PROCSUM+24, PROCSUM+25
INNOOUT PROC+9~, PROC+10*
INPAGE COMPSUM+4~, COMPSUM+5*, PROC+9~, PROC+12*
INPAR TASKDEV~, ENQUE+1, EN+1~, EN+4, EN+6, ALL+2~, ALL+7, COMPSUM~, COMPSUM+14, PROCSUM~
, PROC~, PROC+8, PROC+17, PARM~, PARM+18, INTSEL~, APPLAR+2!
INPAR("ACT" ALL+5*, PROC+8, PROC+10, PARM+22*, PARM+25*, PARM+26, APPLAR+11*
INPAR("APCO" APPLAR+9*
INPAR("APPL" PROCSUM+33, INTSEL+5, APPLAR+8*
INPAR("APSEL" ALL+6*, COMPSUM+14, PROC+13, INTSEL+10*
INPAR("REPL" ALL+5*, PARM+20*, APPLAR+13*
INPARFND COMPSUM+4~, COMPSUM+14, COMPSUM+16, PROCSUM~, PROCSUM+32*
INREC PROCSUM+7~, PROCSUM+10*, PROCSUM+11*, PROCSUM+12, PROCSUM+19*, PROCSUM+20*, PROCSUM+21, PROCSUM+22
INSHOWME SHOWONLY+2~, SHOWONLY+3*, PARM+22
INST ALL~, ALL+5*
INTER COMPSUM+4~, COMPSUM+13*, COMPSUM+14*, PROCSUM~, PROCSUM+9, PROCSUM+11, PROCSUM+12, PROCSUM+20, PROCSUM+21, PROCSUM+22
, PROCSUM+33
INTIME COMPSUM+4~, COMPSUM+6*
INVERBOS TASKDEV~, ENQUE+1, EN+1~, EN+6, ALL+2~, ALL+7, PROC~
IO TASKDEV+10, TASKDEV+11
IO("Q" QUIT+1!
IO(0 TASKDEV+10, TASKDEV+11
IOM TASKDEV+9, COMPSUM+9
ION TASKDEV+9
IOP TASKDEV+8!, TASKDEV+9*, TASKDEV+11, QUIT+1!
IOSL TASKDEV+9
IOST TASKDEV+9
L APPLAR+2~, APPLAR+3*, APPLAR+5, APPLAR+8
L2 APPLAR+2~, APPLAR+5*, APPLAR+7, APPLAR+9
>> LC APPLAR+3*
NA APPLAR+2~, APPLAR+5*, APPLAR+7, APPLAR+8, APPLAR+9
POP TASKDEV+8, TASKDEV+10, QUIT+1!
STAT PROCSUM+7~, PROCSUM+29*, PROCSUM+30*, PROCSUM+31*, PROCSUM+32*, PROCSUM+33
U PROCSUM+12, PROCSUM+14, PROCSUM+16, PROCSUM+21, PROCSUM+22, PROCSUM+24, PROCSUM+25, PROCSUM+26, PROCSUM+33, PARM+25
, INTSEL+5, INTSEL+9, APPLAR+5
X TASKDEV+6~, TASKDEV+12*, ALL+2~, ALL+6*, PROCSUM+7~, PROCSUM+12*, PROCSUM+13, PROCSUM+22*, PROCSUM+23
Y PROCSUM+7~, PROCSUM+13*, PROCSUM+14, PROCSUM+23*, PROCSUM+24, PROCSUM+25
ZTDESC TASKDEV+6~, TASKDEV+11*
ZTIO TASKDEV+6~, TASKDEV+11*
ZTRTN TASKDEV+6~, TASKDEV+11*
ZTSAVE TASKDEV+6~
ZTSAVE( TASKDEV+12*

Marked Items

Name Field # of Occurrence
$T(DATA+LC APPLAR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All