Routine: INHUT7

Package	Total	Call Graph
IHS Generic Interface System	4	ERROR^INHS ACKLOG^INHU ($$COMP,$$ESC,$$FIELD,$$REP,$$SUBCOMP)^INHUT $$SC^INHUTIL1
Kernel	2	^XUDIV DUZAG^XUS1
Uncategorized	1	SETDT^UTDT
VA Fileman	1	^DIE

Package

Total

Call Graph

IHS Generic Interface System

ERROR^INHS ACKLOG^INHU ($$COMP,$$ESC,$$FIELD,$$REP,$$SUBCOMP)^INHUT $$SC^INHUTIL1

Kernel

^XUDIV DUZAG^XUS1

Uncategorized

SETDT^UTDT

VA Fileman

^DIE

Package	Total	Caller Graph
IHS Generic Interface System	86	INHFTM INHOM INHOS INHOT INHOTM INHUT INHUT1 IS00003F IS00003G IS00003H IS00003I IS00003J IS00003K IS00003L IS00003M IS00003N IS00003O IS00003P IS00003Q IS00003R IS00003S IS00003T IS00003U IS00003V IS00003W IS00003X IS00003Y IS00003Z IS00005A IS00005B IS00005C IS00005D IS00005E IS00010 IS00016B IS00016C IS00016D IS00016E IS00016F IS00016G IS00016H IS00016I IS00016J IS00017B IS00017C IS00017D IS00017E IS00017F IS00017G IS00017H IS00017I IS00017J IS00018B IS00018C IS00018D IS00018E IS00018F IS00018G IS00018H IS00018I IS00018J IS00021B IS00021C IS00021D IS00021E IS00021F IS00021G IS00021H IS00021I IS00021J IS00022B IS00022C IS00022D IS00022E IS00022F IS00022G IS00022H IS00022I IS00022J IS00025 IS00025A IS00026 IS00027 IS00027A IS00027B IS00027C

Package

Total

Caller Graph

IHS Generic Interface System

INHFTM  INHOM  INHOS  INHOT  INHOTM  INHUT  INHUT1  IS00003F
IS00003G  IS00003H  IS00003I  IS00003J  IS00003K  IS00003L  IS00003M  IS00003N
IS00003O  IS00003P  IS00003Q  IS00003R  IS00003S  IS00003T  IS00003U  IS00003V
IS00003W  IS00003X  IS00003Y  IS00003Z  IS00005A  IS00005B  IS00005C  IS00005D
IS00005E  IS00010  IS00016B  IS00016C  IS00016D  IS00016E  IS00016F  IS00016G
IS00016H  IS00016I  IS00016J  IS00017B  IS00017C  IS00017D  IS00017E  IS00017F
IS00017G  IS00017H  IS00017I  IS00017J  IS00018B  IS00018C  IS00018D  IS00018E
IS00018F  IS00018G  IS00018H  IS00018I  IS00018J  IS00021B  IS00021C  IS00021D
IS00021E  IS00021F  IS00021G  IS00021H  IS00021I  IS00021J  IS00022B  IS00022C
IS00022D  IS00022E  IS00022F  IS00022G  IS00022H  IS00022I  IS00022J  IS00025
IS00025A  IS00026  IS00027  IS00027A  IS00027B  IS00027C

Entry Points

Name	Comments	DBIA/ICR reference
DLMCNV(INREC,INDEL)	;;HL7 specifications to correct delimitor if in record ; Input: INREC - Portion of HL7 MSG to check ; INDEL(opt) = FSRET values - each position is critical ; ie S INDEL="^\\|~&" ; or ; array of delimiters ; S INDEL("F")="^" ; S INDEL("S")="\" ; S INDEL("R")="\|" ; S INDEL("E")="~" ; S INDEL("T")="&" ; Returns - Record with replace values
GETDEST(INACKTT,INA,INACKDST,INACKUIF)	; $$function - Used to support routing ; of Application Acknowledgement messages to the originating system ; when multiple instantiations of a remote system type exist. Only ; one of the input parameters (INA,INACKDST,INACKUIF) must be ; specified by the caller to route an Application Ack. If a valid ; destination cannot be identified, a fatal script error is logged ; and the O/P Ctlr will log an error in ^INTHER.
SUBESC(INREC,INDEL,INB)	;Substitute escape delimeters to and from HL7 ; spec
CNVDLM(INREC,INDEL)	;;Convert delimeters to HL7 specifications if in record ; Input: INREC - Portion of HL7 MSG to check ; INDEL(opt) = FSRET values - each position is critical ; ie S INDEL="^\\|~&" ; or ; array of delimiters ; S INDEL("F")="^" ; S INDEL("S")="\" ; S INDEL("R")="\|" ; S INDEL("E")="~" ; S INDEL("T")="&" ; Returns - Record with replace values
APPACK(INUIF,INAKMES,INASTAT,INERMSG)	;User API to ACKLOG^INHU
SETENV	;Set environment for GIS with DUZ postmaster array
SETDIV	;Called from SETENV if needed to stuff the postmaster default division.

External References

Name	Field # of Occurrence
^DIE	SETDIV+10
ERROR^INHS	GETDEST+44, APPACK+23
ACKLOG^INHU	APPACK+24
$$COMP^INHUT	CNVDLM+17, DLMCNV+17
$$ESC^INHUT	CNVDLM+17, DLMCNV+17
$$FIELD^INHUT	CNVDLM+18, DLMCNV+18
$$REP^INHUT	CNVDLM+17, DLMCNV+17
$$SUBCOMP^INHUT	CNVDLM+18, DLMCNV+18
$$SC^INHUTIL1	SETENV+4
SETDT^UTDT	SETENV+4, SETENV+7
^XUDIV	SETENV+9
DUZAG^XUS1	SETENV+8

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	SETDIV+2, SETDIV+4, SETDIV+6, SETDIV+7, SETDIV+9
^DIC(3 - [#3]	SETENV+6
^INRHD - [#4005]	GETDEST+34, GETDEST+37, GETDEST+40
^INRHT - [#4000]	GETDEST+43
^INTHU - [#4001]	GETDEST+40
^INTHU("C"	APPACK+18

Name	Line Occurrences
$$CNVDLM	SUBESC+16
$$DLMCNV	SUBESC+18
SETDIV	SETENV+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	SETDIV+10*
>> DIE	SETDIV+10*
>> DR	SETDIV+10*
DTIME	SETENV+1*
DUZ	SETENV+1*, SETENV+6
DUZ(0	SETENV+1*
E	CNVDLM+13~, CNVDLM+14, CNVDLM+17, CNVDLM+21, DLMCNV+13~, DLMCNV+14, DLMCNV+17, DLMCNV+21, DLMCNV+24
F	CNVDLM+13~, CNVDLM+14, CNVDLM+18, CNVDLM+21, DLMCNV+13~, DLMCNV+14, DLMCNV+18, DLMCNV+21
I	CNVDLM+13~, CNVDLM+15, CNVDLM+16, DLMCNV+13~, DLMCNV+15, DLMCNV+16
INA	GETDEST~
INA("INDEST"	GETDEST+34
INACKDST	GETDEST~, GETDEST+37
INACKTT	GETDEST~, GETDEST+43
INACKUIF	GETDEST~, GETDEST+40
INAKMES	APPACK~, APPACK+12*, APPACK+16, APPACK+18, APPACK+24
INASTAT	APPACK~, APPACK+12, APPACK+19, APPACK+20, APPACK+21, APPACK+22, APPACK+24
INB	SUBESC~, SUBESC+16, SUBESC+18
IND	CNVDLM+13~, CNVDLM+14, CNVDLM+15, DLMCNV+13~, DLMCNV+14, DLMCNV+15
INDEF	SETDIV+1~, SETDIV+2, SETDIV+4, SETDIV+6, SETDIV+7, SETDIV+9, SETDIV+10
INDEL	SUBESC~, SUBESC+16, SUBESC+18, CNVDLM~, CNVDLM+15, CNVDLM+16, DLMCNV~, DLMCNV+15, DLMCNV+16
INDEL(	CNVDLM+16, DLMCNV+16
>> INDEV	SETDIV+6*
INDIV	SETDIV+1~, SETDIV+2, SETDIV+4, SETDIV+6, SETDIV+7
INERMSG	APPACK~, APPACK+12, APPACK+21, APPACK+24
INERRMSG	GETDEST+31~, GETDEST+43*, GETDEST+44
INF	CNVDLM+13~, DLMCNV+13~
INFERR	APPACK+13~, APPACK+14, APPACK+16, APPACK+17, APPACK+18*, APPACK+23
INFMSG	APPACK+13~, APPACK+14, APPACK+16, APPACK+18*, APPACK+23
INREC	SUBESC~, SUBESC+16, SUBESC+18, SUBESC+19, CNVDLM~, CNVDLM+24, CNVDLM+26, CNVDLM+27, DLMCNV~, DLMCNV+24 , DLMCNV+25, DLMCNV+26, DLMCNV+27, DLMCNV+28*, DLMCNV+29
INREC1	CNVDLM+13~, CNVDLM+14, CNVDLM+26, CNVDLM+27, CNVDLM+28, DLMCNV+13~, DLMCNV+14, DLMCNV+25, DLMCNV+26, DLMCNV+27* , DLMCNV+29*, DLMCNV+30
INUIF	APPACK~, APPACK+24
IO	SETENV+1*
J	CNVDLM+13~, DLMCNV+13~
J(	CNVDLM+21*, CNVDLM+26, CNVDLM+27, DLMCNV+26
J("E"	DLMCNV+21*
J("F"	DLMCNV+21*
J("R"	DLMCNV+21*
J("S"	DLMCNV+21*
J("T"	DLMCNV+21*
K	CNVDLM+13~, CNVDLM+24, CNVDLM+26, CNVDLM+27, DLMCNV+13~, DLMCNV+24, DLMCNV+25, DLMCNV+26, DLMCNV+27, DLMCNV+28
R	CNVDLM+13~, CNVDLM+14, CNVDLM+17, CNVDLM+21, DLMCNV+13~, DLMCNV+14, DLMCNV+17, DLMCNV+21
S	CNVDLM+13~, CNVDLM+14, CNVDLM+17, CNVDLM+21, DLMCNV+13~, DLMCNV+14, DLMCNV+17, DLMCNV+21
T	CNVDLM+13~, CNVDLM+14, CNVDLM+18, CNVDLM+21, DLMCNV+13~, DLMCNV+14, DLMCNV+18, DLMCNV+21
U	GETDEST+40, GETDEST+43, SETENV+1*, SETENV+6
X	GETDEST+31~, GETDEST+40*
Z	SETENV+4!, SETENV+10!

Customize PDF page

Package: IHS Generic Interface System

Routine: INHUT7

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 86

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: