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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: INHSYSUT

Package: IHS Generic Interface System

Routine: INHSYSUT


Information

INHSYSUT ;JPD/WOM; 23 Aug 1999 12:26;gis sys con data installation utility

Source Information

Source file <INHSYSUT.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Generic Interface System 4 PG^INHSYS03  FLSUMERR^INHSYS11  EXPAND^INHSYSUT  $$CENTER^INHUTIL  
Uncategorized 3 ^DWL  $$LB^UTIL  $$CR^UTSRD  
VA Fileman 2 ^DIE  EN^DIQ  
Kernel 1 $$SETXY^%ZTF  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
IHS Generic Interface System 10 INHSYS  INHSYS01  INHSYS03  INHSYS05  INHSYS06  INHSYS09  INHSYS10  INHSYSDR  
INHSYSE  INHSYSUT  

Entry Points

Name Comments DBIA/ICR reference
UP(FN) ;goes up & up searching for the top level file number
WP(FIL,FLD) ;word process field
XRF(%FILES) ;cross reference of files and fields requiring some resolution
; Output:
; %FILES(FILE#)=fields
OMT(%OMT) ;fields to omit from updating
LOCK(%ROOT,%FILNM) ;Lock other users from this file
; %ROOT - Global file node to lock
; %FILNM - File Name
LIST(INSELTT) ;selectable list of parent and child transaction types
FILE(DA,%DATA,%FLDNUM,DIE,INREPRT) ;file data
; Input:
; DA - ien and "Multiple entry"
; %DATA - What to file
; %FLDNUM - Field Number
; DIE - Global to file
; INREPRT - 0 - No report
; 1 - Report
LOCKFL(INLKFLS,INEX) ;Lock files that will be used and check for zero node
; Input: INEX - if TRUE, then this is called during
; IMPORT so only lock those files affected
; Output:
; INLKFLS - Locked files
; Returns 0 to continue 1 to quit
MSG(%X,%FNUM,%MSG,%MULT,%PASS) ;Display message if DIC lookup failed
; Input:
; %X - Entry we tried to look up Using DIC
; %FNUM - File number
; %MULT - 0 Not a multiple
; 1 Multiple
; Output:
; %MSG - 1 - Flag We have a message
DATA(%B,%P,%D) ;retrieve the data from the buffer
HDR ;header for list processor
RUT(%ROOT) ;modify global root to indirection format
UNLK(%FILE) ;Unlock file
HEAD(%PASS) ;header for destination report
; Input:
; %PASS - Which pass is being run
PG(%PASS) ;Page check
; Input:
; %PASS - Which PASS
FLSV(%XRF,%OIEN,%ROOT) ;Save old file in temp global
; Input
; %XRF - File number
; %OIEN - ien of file saving
; %ROOT - Root file name
RQ(%RQ) ;Required fields
RPRT1(%LEVEL,%FILNM,ND) ;Do report
; Input:
; %LEVEL - Level of pointer
; %FILNM - File Number
; ND - Node
EXPAND ;Expand logic for list processor
SAVE(%SAV) ;Save values from import environment
; Output:
; %SAV - File and field to save value from
; Files/fields to restore the site specific data

External References

Name Field # of Occurrence
$$SETXY^%ZTF HDR+2, HDR+3, HDR+4
^DIE FILE+18
EN^DIQ EXPAND+7
^DWL LIST+16
PG^INHSYS03 MSG+11, RPRT1+6
FLSUMERR^INHSYS11 FILE+16, FILE+21
EXPAND^INHSYSUT LIST+16
$$CENTER^INHUTIL HDR+2, HEAD+4, HEAD+5
$$LB^UTIL LIST+19
$$CR^UTSRD LOCKFL+19, EXPAND+8, PG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,%TP_" entry "_QT_$P(%X,U)_QT_" does not exist for "_%TP_" "_%FNUM,!,"or is a duplicate entry!",!
  • Line Location: MSG+12
Function Call: WRITE
  • Prompt: "If entry is a pointer, it will have to be entered by hand",!
  • Line Location: MSG+13
Function Call: WRITE
  • Prompt: $$SETXY^%ZTF(0,4),$$CENTER^INHUTIL("Transaction Type List",80)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $$SETXY^%ZTF(0,18),"Use <FIND> Key to find desired Transaction."
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$SETXY^%ZTF(0,19),"Use <SELECT> Key to pick a Transaction Type to process"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: *7,!,"File Corruption in the "_%FNUM_" file!"
  • Line Location: LOCKFL+16
Function Call: WRITE
  • Prompt: *7,!,"Another terminal is editing the "_%FILNM_" file!"
  • Line Location: LOCK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RPRT1+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: RPRT1+7
Function Call: WRITE
  • Prompt: ?%LEVEL,%FILNM,?%LEVEL+14,$P($G(^DIC(%FILNM,0)),U),?%LEVEL+42,".01",?%LEVEL+48
  • Line Location: RPRT1+8
Function Call: WRITE
  • Prompt: $P(@(ND),U)
  • Line Location: RPRT1+9
Function Call: WRITE
  • Prompt: $P($G(^INRHT($P(@(ND),U),0)),U)
  • Line Location: RPRT1+10
Function Call: WRITE
  • Prompt: !,?%LEVEL,ND
  • Line Location: RPRT1+11
Function Call: WRITE
  • Prompt: "SELECT an item to expand on.",*7
  • Line Location: EXPAND+3
Function Call: WRITE
  • Prompt: ?70,DIE
  • Line Location: FILE+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: $$CENTER^INHUTIL("Pass 1 Required Fields",80)
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: $$CENTER^INHUTIL("Pass 2 All Fields",80)
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,"File Number",?14,"File Name",?42,"Field Number",?56,"Data"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"^Root(IEN",!
  • Line Location: HEAD+7
Routine Call
  • DIE
  • Line Location:
    • FILE+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INRHT - [#4000] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( UP+4, WP+6
^DIC - [#1] LOCKFL+12, LOCKFL+15, RPRT1+8
^INRHT - [#4000] LIST+11, RPRT1+10
^INRHT("AC" LIST+13
^INRHT("B" LIST+10, LIST+11
^UTILITY("INHSYS" LOCKFL+11

Label References

Name Line Occurrences
$$LOCK LOCKFL+13
$$UP UP+5
$$WP WP+6
HEAD PG+5
XRF LOCKFL+9

Naked Globals

Name Field # of Occurrence
^("UP" UP+5
^(0 WP+6, WP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%B DATA~, DATA+8, DATA+9
%D DATA~, DATA+7*, DATA+8*, DATA+9*
%DATA FILE~, FILE+15, FILE+20, FILE+21
%FILE UNLK~, UNLK+1
%FILES LOCKFL+7~, LOCKFL+9, LOCKFL+10, XRF~, XRF+8*
%FILES( XRF+15*
%FILES(4000 XRF+12*
%FILES(4004 XRF+13*
%FILES(4005 XRF+10*
%FILES(4006 XRF+17*
%FILES(4010 XRF+14*
%FILES(4011 XRF+11*
%FILES(4012 XRF+9*
%FILES(4020 XRF+16*
%FILNM LOCK~, LOCK+5, RPRT1~, RPRT1+8, RPRT1+9
%FLDNUM FILE~, FILE+12, FILE+15, FILE+16, FILE+17, FILE+20, FILE+21
%FNUM MSG~, MSG+12, LOCKFL+7~, LOCKFL+10*, LOCKFL+11, LOCKFL+12, LOCKFL+13, LOCKFL+14, LOCKFL+15, LOCKFL+16
%LEVEL RPRT1~, RPRT1+7, RPRT1+8, RPRT1+11
%LFLG LOCKFL+7~, LOCKFL+8*, LOCKFL+13*, LOCKFL+16*, LOCKFL+17, LOCKFL+21
%MSG MSG~, MSG+14*
%MULT MSG~, MSG+9*, MSG+10, MSG+13
%OIEN FLSV~, FLSV+6
%OMT OMT~
%OMT( OMT+7*, OMT+8*, FILE+12
%OMT(4004 OMT+10*
%OMT(4005 OMT+9*
%P DATA~, DATA+8, DATA+9
%PASS MSG~, MSG+11, FILE+12, PG~, PG+5, HEAD~, HEAD+4, HEAD+5
%ROOT FLSV~, FLSV+6, LOCKFL+7~, LOCKFL+12*, LOCKFL+13, LOCKFL+14, LOCKFL+15*, LOCKFL+16, LOCK~, LOCK+4
, RUT~, RUT+4
%RQ RQ~
%RQ( RQ+3*
%RQ(4000 RQ+4*
%SAV SAVE~
%SAV( FILE+12
%SAV(4000 SAVE+17*
%SAV(4004 SAVE+18*
%SAV(4005 SAVE+19*
%TP MSG+8~, MSG+9*, MSG+10*, MSG+12
%X MSG~, MSG+12, FLSV+5~, FLSV+6*, FLSV+7
>> %XNODE FILE+15, FILE+16
%XRF FLSV~
%Y FLSV+5~, FLSV+6*, FLSV+7
AA LOCKFL+7~, LOCKFL+10*
D0 FILE+8~
D1 FILE+8~
D2 FILE+8~
D3 FILE+8~
D4 FILE+8~
D5 FILE+8~
D6 FILE+8~
D7 FILE+8~
DA EXPAND+2~, EXPAND+6*, FILE~, FILE+14, FILE+16, FILE+21
DG FILE+8~
DIC EXPAND+2~, EXPAND+6*
DIE FILE~, FILE+12, FILE+13, FILE+15, FILE+16, FILE+20, FILE+21
DIEZ FILE+8~
>> DIJC("H" HDR+1
>> DIJC("L" HDR+5
DNM FILE+8~
DQ FILE+8~
>> DR FILE+17*
DWL LIST+9~, LIST+14*
DWL("TITLE" LIST+15*
DWLB LIST+9~, LIST+14*
DWLMK LIST+9~, LIST+17, EXPAND+3
DWLMK(1 LIST+18, LIST+19, EXPAND+5
DWLMK1 LIST+9~
DWLR LIST+9~, LIST+16, LIST+17
DWLRF LIST+9~, LIST+14*, EXPAND+6
FIL WP~, WP+6
FILNUM FILE+8~, FILE+12*, FILE+16, FILE+21
FLD WP~, WP+6
FN UP~, UP+4
I RQ+2~, RQ+3*, RQ+4*, OMT+6~, OMT+7*, OMT+8*, OMT+9*, OMT+10*, SAVE+16~, SAVE+17*
, SAVE+18*, SAVE+19*, LIST+9~, LIST+10*, LIST+12*, LIST+13, LIST+18*, LIST+19, UNLK+1~*, RPRT1+5~
, RPRT1+7*
>> INCR PG+4
INEX LOCKFL~, LOCKFL+8*, LOCKFL+11
INIEN LIST+9~, LIST+11*, LIST+12, LIST+13
INLKFLS LOCKFL~
INLKFLS( LOCKFL+14*
INLOK LOCK+3~*, LOCK+5*, LOCK+6
INPAR LIST+9~, LIST+10*, LIST+11, LIST+12
>> INPOP LOCKFL+10, LOCKFL+13*, LOCKFL+16*
INREPRT FILE~, FILE+13
INS LIST+9~, LIST+18*, LIST+19, EXPAND+2~, EXPAND+5*, EXPAND+6
INSELTT LIST~, LIST+17*, LIST+19*
INSELTT( LIST+19*
INTT LIST+9~
INTT(1 LIST+12*, LIST+13*, LIST+19
INTT(2 LIST+12*, LIST+13*
INY FILE+8~, FILE+19
IO LOCKFL+6, LOCKFL+20
IO(0 LOCKFL+6, LOCKFL+20
IOF HEAD+3
IOSL LOCKFL+19, EXPAND+8, PG+3, PG+4
IOST PG+4
ND RPRT1~, RPRT1+9, RPRT1+10, RPRT1+11
QT MSG+8~, MSG+9*, MSG+12
U MSG+12, LOCKFL+10, RPRT1+8, RPRT1+9, RPRT1+10, FILE+12, FILE+16, DATA+9, WP+6, WP+7
X FILE+8~
Y RUT+2~, RUT+4*, RUT+5, UP+3~, UP+4*, UP+5*, UP+6, WP+5~, WP+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All