Routine: INHSYS07

Information

INHSYS07 ;JPD; 13 Nov 98 13:35;gis sys con data installation utility

Source Information

Source file <INHSYS07.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Uncategorized	2	ENV^UTIL $$CR^UTSRD
IHS Generic Interface System	1	EXPND^INHSYS09
Kernel	1	$$UCICHECK^%ZTF
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Generic Interface System	3	INHSYS05 INHSYSDR INHSYSE

Entry Points

Name	Comments	DBIA/ICR reference
CMP(%NIEN,%ROOT,%FL,%OIEN,%RSLV)	;Compare global entries ; %NIEN - ien of data in current environment ; %ROOT - Root node of file ; %FL - Fileman File number ; %OIEN - ien from other environment ; %RSLV - 1 - Resolve ptr values 0 - don't resolve
GCMP(%UTILITY)	;Compare values from %UTILITY nodes ; Input: ; %UTILITY - Global with files to compare
XTRK(%XIEN,%ROOT,%UTL,%FILE)	;xtract existing global ; Input: ; %XIEN - ien of file extracting data from ; %ROOT - global root in fileman format ; %UTL - temporary storage buffer ; %FILE - file 4000,4005,4006,4004,4011,4010,4012,4090.2,4012.1,4020 ; Output - ^UTILITY global
DIFF(%L1,%L2,%UTILITY)	;Diff found
WRITE	;
DL(%P,%L1,%L2,%UTILITY)	;
PG	;Page break
GETFLE(%FIL,%NIEN,%FILNM)	;Get file entry ; Output: ; %FIL - File Number ; %NIEN - Entry in file ; %FILNM - File name

External References

Name	Field # of Occurrence
$$UCICHECK^%ZTF	%GCMP+12, %GCMP+18
^DIC	GETFLE+6, GETFLE+10
EXPND^INHSYS09	CMP+12
ENV^UTIL	%GCMP+4
$$CR^UTSRD	PG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Not implemented yet" Line Location: INHSYS07+9
Function Call: WRITE	Prompt: @IOF Line Location: INHSYS07+11
Function Call: WRITE	Prompt: !,"Pick a valid UCI" Line Location: INHSYS07+16
Function Call: WRITE	Prompt: !,"Not a valid UCI" Line Location: INHSYS07+18
Function Call: WRITE	Prompt: !,"Pick a valid volume set" Line Location: INHSYS07+21
Function Call: WRITE	Prompt: !,"You must pick a different Volume set" Line Location: INHSYS07+23
Function Call: WRITE	Prompt: !,"Not a valid UCI or Volume set" Line Location: INHSYS07+24
Function Call: WRITE	Prompt: !,"File element does not exist in ["_%THATUCI_","_%THATVOL_"]" Line Location: INHSYS07+29
Function Call: WRITE	Prompt: !,"The following difference(s) appear for the above entry:",! Line Location: GCMP+9
Function Call: WRITE	Prompt: !,"No differences found",! Line Location: GCMP+13
Function Call: WRITE	Prompt: !,"Current Environment "_$G(^%ZOSF("VOL"))_" ***********************",! Line Location: WRITE+4
Function Call: WRITE	Prompt: !,"Other Environment --------",! Line Location: WRITE+11
Function Call: WRITE	Prompt: !,"***************",! Line Location: WRITE+16
Routine Call	DIC Line Location: GETFLE+6 GETFLE+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	%GCMP+3
^%ZOSF("VOL"	%GCMP+17, WRITE+4
^DIC - [#1]	GETFLE+9
^UTILITY($J	CMP+7!, CMP+26!

Label References

Name	Line Occurrences
$$DL	DIFF+6
$$GETFLE	%GCMP+6
CMP	%GCMP+30
DIFF	GCMP+11
GCMP	CMP+25
PG	GCMP+8, WRITE+7, WRITE+14
WRITE	DL+11, DL+14, DL+16
XTRK	CMP+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	DL+4~, DL+6*, DL+7, DL+8
%A2	DL+4~, DL+9*
%DONE	%GCMP+2~, %GCMP+7, %GCMP+8, %GCMP+11, %GCMP+13, %GCMP+16, %GCMP+19*
%EL1	%GCMP+1~
%EL2	%GCMP+1~
%EXIT	DL+4~, DL+12, DL+14, DL+15, DL+16*, DL+17
%FIL	%GCMP+1~, %GCMP+6, %GCMP+27, %GCMP+30, GETFLE~, GETFLE+8*
%FILE	XTRK~
%FILNM	%GCMP+1~, %GCMP+6, %GCMP+21, GETFLE~, GETFLE+12*
%FL	CMP~, CMP+7, CMP+10, CMP+12
%FOUND	GCMP+3~, GCMP+4, GCMP+9, GCMP+10, GCMP+13
%GBL	%GCMP+1~, %GCMP+21, %GCMP+22, %GCMP+25, %GCMP+28, %GCMP+29, %GCMP+30, GETFLE+9
%J	DL+4~, DL+10, DL+14, DL+16*, WRITE+2
%K	DL+4~, DL+10, DL+14, DL+16*, WRITE+2
%L1	CMP+6~, GCMP+3~, GCMP+4, GCMP+6, GCMP+7, GCMP+11, GCMP+12, DIFF~, DIFF+5, DIFF+6 , DL~, DL+16, WRITE+5, WRITE+18*
%L2	CMP+6~, GCMP+3~, GCMP+4, GCMP+6, GCMP+7, GCMP+11, GCMP+12, DIFF~, DIFF+5, DIFF+6 , DL~, DL+14, WRITE+12, WRITE+18*
%LI	WRITE+1~, WRITE+6, WRITE+8, WRITE+13, WRITE+15
%NIEN	%GCMP+2~, %GCMP+6, %GCMP+30, CMP~, CMP+10, CMP+12, CMP+15, WRITE+8, GETFLE~, GETFLE+12*
%NODE	CMP+6~, CMP+14, CMP+15, CMP+17, CMP+20, CMP+21, CMP+23
%OIEN	CMP~, CMP+21, WRITE+15
%P	CMP+6~, DIFF+5, DIFF+6, DL~, DL+6, DL+9
%P(	DL+6, DL+7, DL+8, DL+9*
%P(1	DIFF+5, DL+10, DL+14, DL+16, WRITE+2, WRITE+5, WRITE+18
%P(2	DIFF+5, DL+10, DL+14, DL+16, WRITE+2, WRITE+12, WRITE+18
%ROOT	%GCMP+2~, %GCMP+25*, %GCMP+26, CMP~, CMP+10, CMP+12, WRITE+8, WRITE+15, XTRK~, XTRK+8 , XTRK+9, XTRK+10
%RSLV	CMP~, CMP+8*, CMP+12
%THATUCI	%GCMP+1~, %GCMP+7, %GCMP+9, %GCMP+10, %GCMP+11, %GCMP+12, %GCMP+13*, %GCMP+18, %GCMP+20, %GCMP+23
%THATVOL	%GCMP+1~, %GCMP+7, %GCMP+13, %GCMP+14*, %GCMP+15, %GCMP+16, %GCMP+17, %GCMP+18, %GCMP+20, %GCMP+23
%THISUCI	%GCMP+1~
%THISVOL	%GCMP+1~
%UTILITY	CMP+6~, CMP+25, GCMP~, GCMP+11, DIFF~, DIFF+6, DL~
%UTILITY(	DL+7, DL+8, DL+9
%UTILITY(1	CMP+14, CMP+16, CMP+17, CMP+18, CMP+24*, GCMP+6, GCMP+7, DL+14, DL+16, WRITE+5 , WRITE+6
%UTILITY(2	CMP+20, CMP+22, CMP+23*, GCMP+6, GCMP+7, DL+14, DL+16, WRITE+12, WRITE+13
%UTL	%GCMP+2~, %GCMP+27*, %GCMP+29, XTRK~, XTRK+10
%XIEN	%GCMP+2~, %GCMP+26*, %GCMP+28, %GCMP+30, XTRK~, XTRK+8, XTRK+9
%Z	WRITE+1~, WRITE+5, WRITE+6, WRITE+8, WRITE+12, WRITE+13, WRITE+15
DIC	%GCMP+1~, GETFLE+5, GETFLE+9
DIC("A"	GETFLE+5, GETFLE+9
DIC(0	GETFLE+5*
DTIME	%GCMP+9, %GCMP+14
GBL	%GCMP+2~, %GCMP+29, XTRK+7~, XTRK+10
>> INCR	PG+2
INY	%GCMP+2~, %GCMP+29, XTRK+7~, XTRK+10
IOF	%GCMP+5, PG+3
IOSL	PG+1, PG+2
IOST	PG+2
ND	%GCMP+2~, %GCMP+26, %GCMP+28, %GCMP+29, XTRK+7~, XTRK+8, XTRK+9, XTRK+10
U	GETFLE+9, GETFLE+12
X	%GCMP+2~, %GCMP+21*, %GCMP+22
Y	%GCMP+1~, %GCMP+22*, %GCMP+23, %GCMP+26, GETFLE+7, GETFLE+8, GETFLE+9, GETFLE+11, GETFLE+12

Customize PDF page

Package: IHS Generic Interface System

Routine: INHSYS07

Call Graph Total: 5

Caller Graph Total: 3