Routine: INHMG

Information

INHMG ;KN; 24 May 99 13:41; Script Generator Message

Source file <INHMG.m>

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	DD^%DT NOW^%DTC ^DIC
IHS Generic Interface System	1	INBUILD^INHMG1
Uncategorized	1	(,$$YN)^UTSRD

Package	Total	Caller Graph
IHS Generic Interface System	4	INHMG1 INHMG2 INHPSA INHPSAM

Name	Comments	DBIA/ICR reference
QUIT	;exit module
EN	; Main entry point for the Script Generator Message ;
ENQUE	; Taskman entry point
INDXS	; Build array DXS ; Description: The function INDXS is used to build the DXS array of ; the MUMPS code to support for the INHMG, INHMG1 and ; INHMG2 modules. The MUMPS code will be used to search ; the following globals ^INTHL7M, ^INTHL7S, ^INTHL7F ; for the segments, and fields of the selected Script ; Generator Message.
HEADER	; Output header in local array HDR(x)
ENUSE	; User input
HSET	; set up header

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Sorry, unable to find device..." Line Location: ENUSE+22
Function Call: WRITE	Prompt: @IOF Line Location: ENQUE+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+19
Function Call: WRITE	Prompt: ! Line Location: HEADER+20
Function Call: WRITE	Prompt: ! Line Location: HEADER+21
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+24
Function Call: WRITE	Prompt: !,@HDR(INA) Line Location: HEADER+25
Routine Call	DIC Line Location: ENUSE+13
Routine Call	%ZIS Line Location: ENUSE+20 ENUSE+22

FileNo	Call Tags
^INTHL7M - [#4011]	Classic Fileman Calls

Name	Field # of Occurrence
>> %	HSET+9
%ZIS	EN+2~, ENUSE+20, ENUSE+22
%ZIS("A"	ENUSE+20*
%ZIS("B"	ENUSE+20*
A	EN+2~
>> D0	ENUSE+16*
>> D1	ENUSE+16*
>> DIC	ENUSE+12*
>> DIC("A"	ENUSE+12*
>> DIC(0	ENUSE+12*
>> DIWF	ENUSE+12*
>> DUOUT	ENUSE+14, HEADER+17, HEADER+21*, HEADER+22
DXS	EN+2~, INDXS+12!
DXS(18	INDXS+17, INDXS+18
DXS(19	INDXS+20, INDXS+21, INDXS+22*
DXS(2	INDXS+14*
DXS(20	INDXS+24, INDXS+25, INDXS+26, INDXS+27, INDXS+28*
DXS(21	INDXS+30, INDXS+31, INDXS+32, INDXS+33
DXS(22	INDXS+35, INDXS+36, INDXS+37, INDXS+38
EXIT	EN+2~, ENQUE+10*
HDR	EN+2~
HDR(	HEADER+25
HDR(1	HSET+10*
HDR(2	HSET+11*
HDR(3	HSET+12*
I	HEADER+15~
INA	HEADER+15~, HEADER+25*
>> INAM	ENUSE+16*
>> INCOMSEG	ENUSE+18*, ENQUE+12
>> INDT	HSET+9*
>> INNOOUT	HEADER+20
INPAGE	EN+2~, ENQUE+10, HEADER+17, HEADER+24
IO	ENUSE+22, ENUSE+23, HEADER+17, HEADER+25
IO("Q"	HEADER+17, QUIT+11!
IO(0	ENUSE+22, ENUSE+23, HEADER+17
IOF	ENQUE+11, HEADER+24
IOM	ENUSE+21, HSET+12
ION	ENUSE+21
IOP	ENUSE+20!, ENUSE+21*, ENUSE+23, QUIT+11!
IOSL	ENUSE+21, HEADER+18, HEADER+19
IOST	ENUSE+21, HEADER+17
POP	ENUSE+20, ENUSE+22, QUIT+11!
U	ENUSE+16
X	EN+2~, ENUSE+24, HEADER+15~, HEADER+19, HEADER+21
Y	ENUSE+14, ENUSE+16, HEADER+15~, HSET+9*
ZTDESC	EN+2~, ENUSE+23*
ZTIO	EN+2~, ENUSE+23*
ZTRTN	EN+2~, ENUSE+23*
ZTSAVE	EN+2~
ZTSAVE(	ENUSE+24*