Routine: INHSYSUT

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

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

Customize PDF page

Package: IHS Generic Interface System

Routine: INHSYSUT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: