Routine: SRHLZIU

Package	Total	Call Graph
Surgery	5	$$V^SRHLU (AL1,DG1,OBX,PID)^SRHLUO (ZCH,ZIG,ZIL,ZIP)^SRHLUO1 ZIS^SRHLUO2 MSG^SRHLVZIU
Health Level Seven	2	INIT^HLFNC2 GENERATE^HLMA

Package	Total	Caller Graph
Surgery	3	SROERR SROERR0 SRSCHD2

Entry Points

Name	Comments	DBIA/ICR reference
DISPLAY	;screen message to user
CHECK	;checks ^XTMP for duplicate modification messages
SEG	;segments
START	;
EXIT	;
EVNTP	;set Surgery event trigger protocol and display
GEN	;generate the message
MSG(CASE,SRSTATUS,SREVENT)	;Send ZSQ message.	ICR #6781 Status: Pending Usage: Private

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SRDSP Line Location: DISPLAY+1

Name	Line Occurrences (* Changed, ! Killed)
^HL(771 - [#771]	START+2, START+3
^ORD(101 - [#101]	START+12
^TMP("HLS"	START+4!, EXIT+1!, CHECK+3, CHECK+5, CHECK+8
^XTMP("SRHL7"	CHECK+2, CHECK+4, CHECK+5, CHECK+6, CHECK+7!, CHECK+8

Name	Field # of Occurrence
CASE	MSG~, START+1, CHECK+2, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+8, EVNTP+7
DT	CHECK+7
EID	START+12*, START+13, EXIT+1!, GEN+9, CHECK+2, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+8
HL	START+12*, START+13, EXIT+1!
HL("ECH"	START+13
HL("FS"	START+13
HL("Q"	START+13
>> HLARYTYP	GEN+9*, GEN+10
>> HLCOMP	START+13*
>> HLDAP	START+2*, START+3
>> HLECH	START+13*
>> HLEID	GEN+9*, GEN+10
>> HLFORMAT	GEN+9*, GEN+10
>> HLFS	START+13*
>> HLMTIEN	GEN+9*, GEN+10
>> HLP	GEN+10
>> HLQ	START+13*
HLREP	START+5~, START+13*
>> HLRESLT	GEN+9*, GEN+10
HLSUB	START+5~, START+13*
INT	START+12*, START+13, EXIT+1!
OUT	START+5~
PRT	START+5~
SRDSP	START+5~, DISPLAY+1, EVNTP+1, EVNTP+7
SRET	START+5~, START+12, EVNTP+8*
SREVENT	MSG~, START+1, SEG+3, EVNTP+2, EVNTP+3, EVNTP+4, EVNTP+5, EVNTP+6
SRI	SEG+1~, SEG+2*, SEG+3, SEG+4, SEG+5, SEG+6, SEG+7, SEG+8, SEG+9, SEG+10 , SEG+11
SRSTATUS	MSG~, START+1, SEG+3
SRX	START+5~
U	START+3
UPDATE	START+5~, START+16, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7
X	CHECK+1~, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+8, EVNTP+2, EVNTP+3, EVNTP+4, EVNTP+5 , EVNTP+6*, EVNTP+7, EVNTP+8