Routine: SCDXUTL0

Information

SCDXUTL0 ;ALB/ESD - Generic functions for Amb Care HL7 Interface ; 5/31/05 11:23am

Package	Total	Call Graph
Registration	3	$$SC^DGMTR $$LST^DGMTU $$PA^DGMTUTL
Scheduling	3	($$AO,$$CV,$$EC,$$HNC,$$IR,$$MST,$$SC,$$SHAD)^SDCO22 GETCPT^SDOE INPT^SDOPC1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 9

Package	Total	Caller Graph
Scheduling	5	SCMSVZSC SCRPW43 SCRPW54 SCRPW81 SD53103A
Registration	4	VAFHLPV1 VAFHLZCL VAFHLZIR VAFHLZSC

Entry Points

Name	Comments	DBIA/ICR reference
MTI(DFN,DATE,EC,AT,SDOE)	;Calculate Means Test Indicator
MTQ
PATCLASS(DFN,SDOE)	; - Return classification questions from PATIENT (#2) file ; (Agent Orange, Radiation Exposure, Service Connected, ; Environmental Contaminants, Military Sexual Trauma and ; Head/Neck Cancer questions)
CLASS(SDOE,SCDXARRY)	; - Return array of classification types for encounter
CLASSQ
CHKCLASS(DFN,SDOE)	; - Get classification data for HL7 VAFHLZCL segment
EN
ENQ
POV(DFN,DATE,CLINIC,APTYP)	; - Determine Purpose of Visit for encounter
POVQ
SCODE(SDOE,SCDXARRY)	; Return array of stop codes for encounter
SCODEQ
PROC(SDOE,SCDXARRY)	; Return array of procedures for encounter
PROCQ
GETPROC(CNT,ENC,SCDXARRY)	;Get procedures from Scheduling Visits file

External References

Name	Field # of Occurrence
$$SC^DGMTR	MTI+28, MTI+70
$$LST^DGMTU	MTI+59
$$PA^DGMTUTL	MTI+64
$$AO^SDCO22	PATCLASS+12
$$CV^SDCO22	PATCLASS+18
$$EC^SDCO22	PATCLASS+15
$$HNC^SDCO22	PATCLASS+17
$$IR^SDCO22	PATCLASS+13
$$MST^SDCO22	PATCLASS+16
$$SC^SDCO22	PATCLASS+14
$$SHAD^SDCO22	PATCLASS+19
GETCPT^SDOE	GETPROC+3
INPT^SDOPC1	MTI+24

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(21 - [#21]	MTI+38
^DIC(8 - [#8]	MTI+14, MTI+17, MTI+66
^DIC(8.1 - [#8.1]	MTI+17
^DPT - [#2]	MTI+20, MTI+34, MTI+38, MTI+40, MTI+42, MTI+44, MTI+46, MTI+48, MTI+52, MTI+66 , POV+12, POV+13
^SCE - [#409.68]	SCODE+11, SCODE+12, SCODE+13, SCODE+20, PROC+10
^SCE("APAR"	SCODE+19
^SD(409.1 - [#409.1]	MTI+54
^SDD(409.42 - [#409.42]	MTI+30, MTI+56, CLASS+10, CLASS+11, CLASS+12

Label References

Name	Line Occurrences
$$PATCLASS	EN+1
CLASS	EN+2
GETPROC	PROC+12
MTQ	MTI+13, MTI+20, MTI+22, MTI+24, MTI+26, MTI+28, MTI+34, MTI+36, MTI+48, MTI+50
POVQ	POV+11, POV+12
PROCQ	PROC+10, PROC+12
SCODEQ	SCODE+11, SCODE+12

Naked Globals

Name	Field # of Occurrence
^(	MTI+56

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APTYP	POV~, POV+11, POV+14*, POV+15
AT	MTI~, MTI+12*, MTI+13, MTI+54
CLASS	CLASS+7~, CLASS+8, CLASS+10, CLASS+11, CLASS+12
CLCNT	EN~, EN+3*, EN+4
CLINIC	POV~, POV+11, POV+12
CNT	SCODE+8~, SCODE+9, SCODE+16, SCODE+19, SCODE+22, SCODE+23, PROC+8~, PROC+9, PROC+12, PROCQ , GETPROC~, GETPROC+9
CPT	GETPROC+4~, GETPROC+7*, GETPROC+8, GETPROC+9
CPTS	GETPROC+2~
CPTS(	GETPROC+6, GETPROC+7
DATE	MTI~, MTI+12*, MTI+13, MTI+24, MTI+59, POV~, POV+11, POV+12, POV+13
DFN	MTI~, MTI+12*, MTI+13, MTI+20, MTI+28, MTI+34, MTI+38, MTI+40, MTI+42, MTI+44 , MTI+46, MTI+48, MTI+52, MTI+59, MTI+66, MTI+70, PATCLASS~, PATCLASS+12, PATCLASS+13, PATCLASS+14 , PATCLASS+15, PATCLASS+16, PATCLASS+17, PATCLASS+18, PATCLASS+19, CHKCLASS~, EN+1, POV~, POV+11, POV+12 , POV+13
EC	MTI~, MTI+12, MTI+13, MTI+14, MTI+17, MTI+18, MTI+22, MTI+26, MTI+28, MTI+36 , MTI+48, MTI+50, MTI+70
ENC	GETPROC~, GETPROC+3
ENCVAL	EN~, EN+5*, EN+8
I	CLASS+7~, CLASS+8, CLASS+11, CLASS+12, SCODE+8~, SCODE+9, SCODE+16, SCODE+22, SCODEQ, GETPROC+4~ , GETPROC+9
MT	MTI+10~, MTI+59*, MTI+60, MTI+61, MTI+62, MTI+63, MTI+64
MTI	MTI+10~, MTI+11, MTI+14, MTI+20, MTI+22, MTI+24, MTI+26, MTI+28, MTI+30, MTI+34* , MTI+36, MTI+38, MTI+40, MTI+42, MTI+44, MTI+46, MTI+48, MTI+50, MTI+52, MTI+54 , MTI+56, MTI+57, MTI+60, MTI+61, MTI+62, MTI+64, MTI+68, MTI+70, MTI+72, MTI+74* , MTI+76*, MTQ
NODE	PATCLASS+11~
OECLASS	EN~
OECLASS(	EN+5
OUT	EN~, EN+7, EN+8, ENQ
PATCLASS	PATCLASS+11~, PATCLASS+20, PATCLASS+21, EN~, EN+1, EN+3, EN+6
PATVAL	EN~, EN+6*, EN+8
POV	POV+10~, POV+13*, POV+15
QTY	GETPROC+4~, GETPROC+8*, GETPROC+9
SCDXARRY	CLASS~, CLASS+12, CLASSQ, SCODE~, SCODE+16, SCODE+23, SCODEQ, PROC~, PROC+12, PROCQ , GETPROC~, GETPROC+9
SCDXPOV	POV+10~, POV+15*, POVQ
SDANS	MTI+10~, MTI+56*
SDANS1	MTI+10~, MTI+56*
SDINPT	MTI+10~
SDMT	MTI+10~, MTI+24
SDOE	MTI~, MTI+12, MTI+13, MTI+30, MTI+56, PATCLASS~, PATCLASS+12, PATCLASS+13, PATCLASS+14, PATCLASS+15 , PATCLASS+16, PATCLASS+17, PATCLASS+18, CLASS~, CLASS+9, CLASS+10, CHKCLASS~, EN+1, EN+2, SCODE~ , SCODE+10, SCODE+11, SCODE+12, SCODE+13, SCODE+19, PROC~, PROC+9, PROC+10, PROC+12
SDOE0	SCODE+8~, SCODE+13*, SCODE+16
SDOEC	SCODE+8~, SCODE+9, SCODE+19, SCODE+20
SDOEC0	SCODE+8~, SCODE+20*, SCODE+21, SCODE+23
SDTEMP	PATCLASS+11~
SDTEMP(	PATCLASS+20
SDTEMP(1	PATCLASS+12*
SDTEMP(2	PATCLASS+13*
SDTEMP(3	PATCLASS+14*
SDTEMP(4	PATCLASS+15*
SDTEMP(5	PATCLASS+16*
SDTEMP(6	PATCLASS+17*
SDTEMP(7	PATCLASS+18*
SDTEMP(8	PATCLASS+19*
SDVD1	MTI+10~, MTI+24*
TYPE	EN~, EN+4*, EN+5, EN+6, EN+7, EN+8
U	MTI+30, MTI+66, PATCLASS+20, GETPROC+8
VCPT	GETPROC+2~, GETPROC+5, GETPROC+6, GETPROC+7
VET	MTI+10~, MTI+18*, MTI+20
X	MTI+10~, MTI+17, MTI+18, MTI+66, MTI+68, MTI+72, MTI+74, PATCLASS+11~, PATCLASS+20, CLASS+7~ , CLASS+8, CLASS+11*, CLASSQ

Customize PDF page

Package: Scheduling