Routine: INHMGD8

Information

INHMGD8 ;CAR; 25 Apr 97 16:56;HL7 MESSAGING - PRINT SENSITIVITY ANALYSIS

Source Information

Source file <INHMGD8.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Uncategorized	1	$$CR^UTSRD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Generic Interface System	2	INHMGD INHMGD9

Entry Points

Name	Comments	DBIA/ICR reference
PHEADER(INLN,INHDR)	;print the header ; Inputs: ; INLN = where to start printing the header array ; skips printing date & page# if you start at 2 ; INHDR = header array ; INFLD = used in INHDR(4) - Field Number ; INFLDT = used in INHDR(4) - Field Name ; INFIL = used in INHDR(4) - File Number ; INFILT = used in INHDR(4) - File Name ; INPAGE = page number of last previous page ; Outputs: ; INPAGE = page number used on this page
INERS(J)	;check for error, and if in error, log it. ; Input: ; INN = error to check for ; Output: ; Integer: 1=error found, 0=no error found ; Purpose: check for specific errors. e.g. J=2:check that INFLD has ; a numeric value, J=4:see if IN7S is nil.
INSPRNT(INSENS,INALL)	;Print the data
INW(INTOP)	;Write the Data ; Inputs: ; INTOP = flag, 1 = check if new page needed ; INDATA = input print data ; Outputs: ; DUOUT = returns an exit request when user "^" out ; INDATA = reset to """ """

External References

Name	Field # of Occurrence
$$CR^UTSRD	PHEADER+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?ING,@INDATA Line Location: INW+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	INSPRNT+46, INSPRNT+47, INSPRNT+66, INSPRNT+67
^DIC - [#1]	INSPRNT+45, INSPRNT+65
^INTHL7F - [#4012]	INSPRNT+51, INSPRNT+70
^INTHL7M - [#4011]	INSPRNT+53, INSPRNT+72
^INTHL7S - [#4010]	INSPRNT+52, INSPRNT+71
^UTILITY("INHMGD"	INERS+10*

Label References

Name	Line Occurrences
$$INERS	INSPRNT+51, INSPRNT+52, INSPRNT+53, INSPRNT+62, INSPRNT+63, INSPRNT+70, INSPRNT+71, INSPRNT+72
INW	INSPRNT+55, INSPRNT+74
PHEADER	INSPRNT+48, INSPRNT+68, INW+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DUOUT	INSPRNT+43, INSPRNT+44, INSPRNT+50, INSPRNT+61, INW+8, PHEADER+27*
IN7F	INSPRNT+8~, INSPRNT+51, INSPRNT+70, INERS+9, INERS+10
IN7M	INSPRNT+8~, INSPRNT+53, INSPRNT+72, INERS+9, INERS+10
IN7S	INSPRNT+8~, INSPRNT+52, INSPRNT+71, INERS+9, INERS+10
INALL	INSPRNT~, INSPRNT+42, INSPRNT+58
IND	INSPRNT+8~
IND(	INSPRNT+54, INSPRNT+55, INSPRNT+73, INSPRNT+74
IND(1	INSPRNT+22, INSPRNT+27, INSPRNT+31*
IND(2	INSPRNT+23, INSPRNT+28
>> INDATA	INSPRNT+12, INSPRNT+55, INSPRNT+74, INW+14
INDATAA	INSPRNT+8~
>> INERN	INERS+9*
INFIL	INSPRNT+8~, INSPRNT+43, INSPRNT+44, INSPRNT+45, INSPRNT+46, INSPRNT+47, INSPRNT+49, INSPRNT+50, INSPRNT+62, INSPRNT+64 , INSPRNT+65, INSPRNT+66, INSPRNT+67, INSPRNT+69, INERS+9, INERS+10
INFILT	INSPRNT+8~, INSPRNT+45, INSPRNT+46, INSPRNT+65, INSPRNT+66
INFLD	INSPRNT+8~, INSPRNT+44, INSPRNT+47, INSPRNT+49, INSPRNT+50, INSPRNT+63, INSPRNT+64, INSPRNT+67, INSPRNT+69, INERS+9 , INERS+10
INFLDT	INSPRNT+8~, INSPRNT+47, INSPRNT+67
INFSO	INSPRNT+9~, INSPRNT+59, INSPRNT+64, INSPRNT+69
>> ING	INW+14, PHEADER+31, PHEADER+35
INH	INSPRNT+9~
INH(1	INSPRNT+15*
INH(2	INSPRNT+16*
INH(3	INSPRNT+17*
INHDR	INSPRNT+9~, INSPRNT+48, INSPRNT+68, INW+12, PHEADER~, PHEADER+14
INHDR(	PHEADER+15*, PHEADER+30, PHEADER+31, PHEADER+34, PHEADER+35
INHDR(1	INSPRNT+34*
INHDR(10	PHEADER+16*
INHDR(2	INSPRNT+35*
INHDR(3	INSPRNT+36*
INHDR(4	INSPRNT+37*
INIOM2	INSPRNT+9~
INIOM3	INSPRNT+9~
INJ	INSPRNT+9~, INSPRNT+54, INSPRNT+55, INSPRNT+73, INSPRNT+74
INK	PHEADER+13~, PHEADER+15, PHEADER+30~, PHEADER+31, PHEADER+34~*, PHEADER+35
INLN	PHEADER~, PHEADER+19, PHEADER+22, PHEADER+26, PHEADER+30, PHEADER+34
INMAX	INSPRNT+9~
>> INPAGE	PHEADER+19, PHEADER+26*
INQ	INSPRNT+8~, INSPRNT+49, INSPRNT+50, INSPRNT+51, INSPRNT+52, INSPRNT+53, INSPRNT+60, INSPRNT+61, INSPRNT+62, INSPRNT+63 , INSPRNT+70, INSPRNT+71, INSPRNT+72, INERS+8~, INERS+9*, INERS+10, INERS+11
INSENS	INSPRNT~, INSPRNT+75!
INSENS(	INSPRNT+43, INSPRNT+44
INSENS(0	INSPRNT+42
INTOP	INW~, INW+9*, INW+12
INWAIT	INSPRNT+9~
IO	INSPRNT+11, PHEADER+27
IO("Q"	PHEADER+26
IO(0	PHEADER+27
IOF	PHEADER+30
IOM	INSPRNT+21, INSPRNT+26
IOSL	INW+12, PHEADER+22
IOST	PHEADER+26
J	INERS~, INERS+9
U	INSPRNT+45, INSPRNT+46, INSPRNT+47, INSPRNT+51, INSPRNT+52, INSPRNT+53, INSPRNT+65, INSPRNT+66, INSPRNT+67, INSPRNT+70 , INSPRNT+71, INSPRNT+72, INERS+10

Customize PDF page

Package: IHS Generic Interface System

Routine: INHMGD8

Call Graph Total: 1

Caller Graph Total: 2