Routine: INHSGZ

Package	Total	Call Graph
IHS Generic Interface System	4	$$MAKENEW^INHSC OUT^INHSGZ1 IN^INHSGZ2 EN^INHSZ
VA Fileman	3	^DIC ^DIE IX1^DIK
Uncategorized	2	SETDT^UTDT $$YN^UTSRD

Package	Total	Caller Graph
IHS Generic Interface System	5	INHPCO1 INHPOST INHSG INHSYSE INHSYSU1
IHS Immunizations Interface	1	BYIMIMM2
IHS Support HL7 Interfaces	1	BHLU

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;Regerate all
EN	;Enter here with Y= internal entry # of message
QT
COMP	;At this point, the entry # of the script is known in SCR
ONE(%T)	;Compile one transaction type
ALLAUTO	;Automatically regenerate

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Another user is working with this entry." Line Location: EN+3
Function Call: WRITE	Prompt: !!,"Generation for message: "_$P(MESS(0),U) Line Location: EN+6
Function Call: WRITE	Prompt: ".. Inactive (aborting)" Line Location: EN+7
Function Call: WRITE	Prompt: !,*7,"No scripts were generated!" Line Location: EN+13
Function Call: WRITE	Prompt: !!,"The following scripts were generated:" Line Location: EN+14
Function Call: WRITE	Prompt: !?5,$P(^INRHS($P(INSS,U,I),0),U) Line Location: EN+15
Function Call: WRITE	Prompt: ! Line Location: EN+16
Function Call: WRITE	Prompt: "." Line Location: ONE+2
Function Call: WRITE	Prompt: *7,!,"WARNING. There is no file ",FILE," in the system. Aborting script compilation",! Line Location: COMP+7
Function Call: WRITE	Prompt: !?5,"... generation of all ",$P("IN^OUT",U,MODE="O"+1),"PUT scripts is aborted." Line Location: COMP+9
Routine Call	DIE Line Location: COMP+11
Routine Call	DIC Line Location: INHSGZ+6 COMP+3

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	COMP+7
^INRHS - [#4006]	EN+15, ONE+8, COMP+2!, COMP+9!, COMP+11, COMP+12, COMP+13, COMP+14*
^INRHT - [#4000]	ONE+3, ONE+4, ONE+6, COMP+15
^INTHL7M - [#4011]	EN+3, EN+5, EN+10, EN+11, EN+12, EN+13, ONE+3, ONE+6, COMP+16*, ALLAUTO+2
^UTILITY("INDIA"	QT!
^UTILITY("INS"	QT!, COMP+1!, COMP+13

Name	Field # of Occurrence
^(	EN+11
^("S"	EN+10!

Name	Field # of Occurrence
%	COMP+1~, COMP+13*, COMP+14
%T	ONE~, ONE+3, ONE+4, ONE+6, COMP+15
DA	COMP+1~, COMP+5, COMP+11, COMP+12*
DIC	INHSGZ+6!, COMP+3!
DIC(0	INHSGZ+6, COMP+3
>> DIE	COMP+11*
DIK	COMP+1~, COMP+5, COMP+12
DMAX	EN+4~
>> DR	COMP+11*
DUZ	EN+2~*
DUZ("AG"	EN+2*
DUZ(0	EN+2*
ERR	EN+4~, COMP+7, COMP+8, COMP+9
ERR(	ONE+5, COMP+9*
FILE	COMP+1~, COMP+6*, COMP+7, COMP+11, COMP+12
I	EN+15, COMP+1~, COMP+13
INDUZ	EN+2~*
INDUZ("AG"	EN+2
INGALL	INHSGZ+7!, EN+17, ALLAUTO+1~, ALLAUTO+2*
INHSGZ	ALLAUTO+1~, ALLAUTO+2*
INHSZ	EN+4~*
>> INI	EN+18*
INISTD	COMP+1~, COMP+6*, COMP+11, COMP+12
INSS	EN+4~, EN+10, EN+13, EN+15, EN+18, ONE+8*
INSTD	EN+4~, EN+9*
MESS	EN+4~, EN+5*, EN+10, EN+11, EN+12, EN+13, ONE+3, ONE+6, COMP+16
MESS(0	EN+5*, EN+6, EN+7, EN+9, ONE+7, COMP+6
MODE	EN+4~, ONE+4*, ONE+5, ONE+6, ONE+7, ONE+8, COMP+8, COMP+9, COMP+12, COMP+16
>> SCR	EN+18, ONE+8, ONE+9*, COMP+2, COMP+4, COMP+9, COMP+11, COMP+12, COMP+13, COMP+14 , COMP+15, COMP+16
SNAME	QT!, ONE+7*, ONE+8, COMP+3, COMP+12
TRT	EN+4~, EN+10, EN+11
U	EN+6, EN+7, EN+9, EN+15, EN+18, ONE+4, ONE+6, ONE+7, ONE+8, COMP+6 , COMP+9, COMP+12, COMP+14, COMP+15, COMP+16
>> X	EN+17, ONE+6, ONE+8, COMP+3, ALL+1*
Y	EN+1, EN+3, EN+5, COMP+3!, COMP+4, ALLAUTO+2*
Y(	COMP+4*!, COMP+5