Routine: SRHLVUO

Information

SRHLVUO ;B'HAM ISC/DLR - Surgery Interface Utilities for building Outgoing HL7 Segment ; [ 05/06/98 7:14 AM ]

Source Information

Source file <SRHLVUO.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	2	C^%DTC Y^DIQ
Adverse Reaction Tracking	1	^GMRADPT
DRG Grouper	1	$$ICDDX^ICDCODE
General Medical Record - Vitals	1	EN6^GMRVUTL
Health Level Seven	1	$$HLDATE^HLFNC
Registration	1	$$EN^VAFHLPID
Surgery	1	$$HNAME^SRHLVU

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Surgery	6	SRHLVOOR SRHLVORU SRHLVQRY SRHLVZIU SRHLVZQR SRHLVZSQ

Entry Points

Name	Comments	DBIA/ICR reference
DG1(SRI)	;DG1 segment(s) builder returns surgery diagnosis information
MSA(SRI,SRAC)	;MSA segment builder ; SRAC = Acknowledgement code (ID) ; AA = Application Accepted (responsed with information) ; AE = Application Error (bad data send error response) ; AR = Application Reject
OBX(SRI)	;OBX segment(s) builder ; This segment builds OBX segments for the following Preoperative data ; - vitals\measurements ^GMRVUTL routine: ; height, weight, blood pressure, pulse rate, and temperature ; - IN\OUT-PATIENT STATUS field in File #130 ; - CANCEL DATE and CANCEL REASON for cancelled and aborted cases ; - SURGICAL SPECIALTY (OR) or MEDICAL SPECIALTY (NON OR) ; - SURGEON PGY and ANES SUPERVISE CODE
PID(SRI)	;PID segment builder returns patient information
AL1(SRI)	;AL1 segment(s) builder returns allergy information from the generic call to (GMRADPT)
ERR(SRI,SRERR)
SOBX	;sets the OBX segment

External References

Name	Field # of Occurrence
C^%DTC	OBX+16
Y^DIQ	OBX+15
^GMRADPT	AL1+5
EN6^GMRVUTL	OBX+16
$$HLDATE^HLFNC	OBX+17, OBX+24
$$ICDDX^ICDCODE	DG1+4, DG1+8
$$HNAME^SRHLVU	OBX+17, OBX+24
$$EN^VAFHLPID	PID+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	AL1+2, OBX+16
^DD(130	OBX+15
^ECC(723	OBX+11
^SRF - [#130]	DG1+3, DG1+4, DG1+7, DG1+8, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+23 , OBX+24
^SRO(135 - [#135]	OBX+24
^SRO(137.45 - [#137.45]	OBX+12
^TMP("HLS"	AL1+9, DG1+6, DG1+9, ERR+4, MSA+8, SOBX+3, PID+2*

Label References

Name	Line Occurrences
SOBX	OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22 , OBX+24

Naked Globals

Name	Field # of Occurrence
^(	OBX+14
^("NON"	OBX+11
^(0	DG1+8, OBX+12, OBX+15
^(200	OBX+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AL1	AL1+3~
AL1(	AL1+8*, AL1+9
>> C	OBX+15*
>> CASE	DG1+1, DG1+3, DG1+4, DG1+7, DG1+8, OBX+8, OBX+11, OBX+12, OBX+13, OBX+14 , OBX+15, OBX+23, OBX+24
CNT	AL1+3~, AL1+6, AL1+8, AL1+9, OBX+9~, OBX+10, SOBX+2, SOBX+4
>> DFN	AL1+1, PID+1, PID+2
DG1	DG1+2~, DG1+5, DG1+6
DT	OBX+16
GMRAL	AL1+10!
GMRAL(	AL1+7, AL1+8
>> GMRVSTR	OBX+16*
>> HLCOMP	AL1+8, ERR+4, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20 , OBX+21, OBX+22, OBX+24
>> HLERR	ERR+4
>> HLFS	AL1+8, DG1+5, DG1+9, ERR+4, MSA+8, SOBX+3
>> HLMID	MSA+7
>> HLSDT	AL1+9, DG1+6, DG1+9, ERR+4, MSA+8, SOBX+3, PID+2
I9	DG1+2~, DG1+4, DG1+5, DG1+8, DG1+9
MSA	MSA+6~
MSA(	MSA+8
MSA(1	MSA+7*
MSA(2	MSA+7*
MSA(3	MSA+7*
OBX	OBX+9~
OBX(	SOBX+3*
OBX(1	SOBX+2*
OBX(11	OBX+17, SOBX+1
OBX(14	OBX+17, OBX+24
OBX(16	OBX+17, OBX+24
OBX(2	OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+17, OBX+24*
OBX(3	OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22 , OBX+24*
OBX(5	OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+17, OBX+18, OBX+19, OBX+20, OBX+21 , OBX+24*
OBX(6	OBX+19, OBX+20, OBX+21, OBX+22
SRAC	MSA~, MSA+7
SRERR	ERR~, MSA+7
SRERR(1	ERR+4
SRERR(2	ERR+4
SRI	AL1~, AL1+9, DG1~, DG1+6, DG1+9, ERR~, ERR+4, MSA~, MSA+8, MSA+9* , OBX~, SOBX+3, SOBX+4, PID~, PID+2
>> SRX	OBX+16*, OBX+17, OBX+18
TYPE	AL1+3~, AL1+8, OBX+9~, OBX+16, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22
U	DG1+3, DG1+4, DG1+5, DG1+8, DG1+9, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15 , OBX+17, OBX+23, OBX+24
X	AL1+2, AL1+3~, AL1+7, AL1+8, AL1+9, DG1+2~, DG1+7, OBX+9~, OBX+16
X1	DG1+2~, DG1+7, DG1+9, OBX+16*
>> X2	OBX+16*
>> XX	MSA+8, SOBX+3
Y	OBX+9~, OBX+15*

Customize PDF page

Package: Surgery

Routine: SRHLVUO

Call Graph Total: 8

Caller Graph Total: 6