Routine: ECXDVSN2

Package	Total	Call Graph
VA FileMan	3	^DIC EN^DIQ1 ^DIR
DSS Extracts	2	ACTDIV^ECXDVSN PDIV3^ECXPUTL

Package	Total	Caller Graph
DSS Extracts	9	ECXAMTL ECXAPRO ECXARAD ECXASUR ECXCPRO ECXDVSNX ECXRACPT ECXSARAD ECXSASUR

Entry Points

Name	Comments	DBIA/ICR reference
RAD(ECXDIV,ECXALL,ECXERR)	;setup division/site information for RAD extract audit report ; input ; ECXDIV = passed by reference array variable (required) ; ECXALL = 0/1 (optional) ; '0' indicates user to select radiology division; ; '1' indicates 'all' radiology divisions selected or only one division ; exists in file #79; default is '1' ; output ; ECXDIV = data for radiology division/site; ; ECXDIV(ien in file #79)=ien in file #4^name^station number ; ECXERR = 0/1 ; if input problem, then '1' returned
MTL(ECXDIV,ECXALL,ECXERR)	;setup division/site information for MTL extract audit report ; input ; ECXDIV = passed by reference array variable (required) ; ECXALL = 0/1 (optional) ; '0' not valid; mental health is non-divisional ; '1' indicates 'all' divisions selected or only one ; exists in file #602; default is '1' ; output ; ECXDIV = data for site; ; ECXDIV(ien in file #602)=name in file #602^ien in file #4^name in file #4^station number ; ECXERR = 0/1 ; if error, then '1' returned; otherwise 0
SUR(ECXDIV,ECXALL,ECXERR)	;setup division/site information for SUR extract audit report ; input ; ECXDIV = passed by reference array variable (required) ; ECXALL = 0/1 (optional) ; '0' indicates user to select surgery division; ; '1' indicates 'all' surgery divisions selected or only one division ; exists in file #133; default is '1' ; output ; ECXDIV = data for surgery division/site; ; ECXDIV(ien in file #133)=ien in file #4^name^station number ; ECXERR = 0/1 ; if input problem, then '1' returned
PRO(ECXDUZ,ECXPRIME,ECXDIV,ECXALL,ECXERR)	;setup division/site information for PRO extract reports ; input ; ECXDUX = ien in file#200 for user ; ECXPRIME = primary division ien in file #4 (required) ; all other variables passed by reference ; output ; ECXALL = 0 (one subdivision) ; 1 (all divisions related to primary division) ; ECXDIV = data array for prosthetics division/site; ; ECXDIV(n)=ien in file #4^name^station number ; ECXERR = 0/1 ; if input problem, then '1' returned
HELP	;help for dir in pro
ALL(ECXDIV,ECXALL,ECXSTART,ECXEND,ECXERR)	;general purpose division information ; input ; ECXDIV = array of divisions selected (required) ; passed by reference array to contain ; selected divisions; ; ECXALL = 1/0 (optional) ; 1==> user wants all divisions OR ; facility is non-divisional ; 0==> user wants to select some divisions ; if ECXALL not defined, then assume 1 ; ECXSTART = start date of date range (optional) ; ECXEND = end date of date range (optional) ; ECXERR = passed by reference for error return (required) ; output ; ECXDIV = array of divisions selected from file #40.8; ; ECXDIV(ien in file #40.8) = ien in file #4^name^station number^primary indicator^active indicator^dss id ; error CODE ; ECXERR = 1, if input problem occurs ; 0, otherwise

External References

Name	Field # of Occurrence
^DIC	RAD+24, SUR+23, ALL+27, ALL+37
EN^DIQ1	RAD+19, RAD+27, MTL+22, MTL+27, SUR+18, SUR+26
^DIR	PRO+24, PRO+29
ACTDIV^ECXDVSN	ALL+31, ALL+41
PDIV3^ECXPUTL	PRO+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"A response is required from the following:",! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Or ""^"" to exit." Line Location: HELP+4
Function Call: WRITE	Prompt: !!,?5,"Please note: Division "_ECXNUM_" was not active during",!,?5," selected date range.",! Line Location: ALL+45
Routine Call	DIC Line Location: RAD+24 SUR+23 ALL+27 ALL+37
Routine Call	DIR Line Location: PRO+24 PRO+29

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRO(133 - [#133]	Classic Fileman Calls
^DIC(4 - [#4]	Classic Fileman Calls
^DG(40.8 - [#40.8]	Classic Fileman Calls
^RA(79 - [#79]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	ALL+26
^DIC(4 - [#4]	PRO+15
^ECX(727.3 - [#727.3]	ALL+33, ALL+34, ALL+43, ALL+44
^ECX(728 - [#728]	MTL+25
^RA(79 - [#79]	RAD+18
^SRO(133 - [#133]	SUR+17
^YSA(602	MTL+19

Naked Globals

Name	Field # of Occurrence
^(	RAD+18, MTL+21, SUR+17, ALL+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	RAD+12~, RAD+19, RAD+27, MTL+12~, MTL+22, MTL+27, SUR+12~, SUR+18, SUR+26, PRO+12~
>> DATA	MTL+28*, MTL+30
DATE	MTL+12~
DIC	RAD+12~, RAD+19, RAD+24, RAD+27, MTL+12~, MTL+22, MTL+27, SUR+12~, SUR+18, SUR+23* , SUR+26, PRO+12~, ALL+20~, ALL+27, ALL+36*
DIC("W"	SUR+23*
DIC(0	RAD+24, SUR+23, ALL+27, ALL+36
DIQ	RAD+12~, RAD+19, RAD+27, MTL+12~, MTL+22, MTL+27, SUR+12~, SUR+18, SUR+26, PRO+12~
DIR	PRO+12~, PRO+24!, PRO+29!
DIR("?"	PRO+28*
DIR("A"	PRO+23, PRO+28
DIR("B"	PRO+23*
DIR(0	PRO+23, PRO+28
DIRUT	PRO+12~
>> DIV	PRO+21, PRO+22, PRO+30, PRO+33, HELP+2*, HELP+3
DR	RAD+12~, RAD+19, RAD+27, MTL+12~, MTL+22, MTL+27, SUR+12~, SUR+18, SUR+26, PRO+12~
DSITE	MTL+12~
>> DSSITE	MTL+25*, MTL+26, MTL+27, MTL+28
DT	ALL+23
DTOUT	RAD+12~, RAD+25, SUR+12~, SUR+24, PRO+12~, PRO+25, PRO+31, ALL+37
DUOUT	RAD+12~, RAD+25, SUR+12~, SUR+24, PRO+12~, PRO+25, PRO+31, ALL+37
ECXACT	ALL+20~, ALL+31, ALL+32, ALL+41, ALL+42, ALL+45
ECXALL	RAD~, RAD+13, RAD+16, RAD+22, MTL~, MTL+13, MTL+18, SUR~, SUR+13, SUR+16 , SUR+21, PRO~, PRO+18, PRO+30, ALL~, ALL+24, ALL+25, ALL+35
ECXARR	RAD+12~, RAD+19!, RAD+20, RAD+27!, RAD+28, MTL+12~, MTL+22!, MTL+23, MTL+27!, SUR+12~ , SUR+18!, SUR+19, SUR+26!, SUR+27, PRO+12~
ECXARR(4	RAD+20, RAD+28, MTL+28, SUR+19, SUR+27
ECXARR(602	MTL+24
ECXD	RAD+12~, RAD+14, RAD+18, MTL+14, MTL+19, SUR+12~, SUR+14, SUR+17, SUR+18, SUR+19 , SUR+26, SUR+27, ALL+20~, ALL+31, ALL+32, ALL+41, ALL+42
ECXDIEN	ALL+20~, ALL+29, ALL+30, ALL+39, ALL+40
ECXDIV	RAD~, RAD+29!, RAD+30, MTL~, MTL+31!, MTL+32, SUR~, SUR+28!, SUR+29, PRO~ , PRO+16, PRO+25!, PRO+31!, PRO+32, PRO+34, ALL~, ALL+46!, ALL+47
ECXDIV(	RAD+20, RAD+28, MTL+30, SUR+19, SUR+27, PRO+22, PRO+30, PRO+33!, HELP+3, ALL+30 , ALL+32, ALL+34, ALL+40, ALL+42, ALL+44*
ECXDIV(1	PRO+17
ECXDIV(99	PRO+19
ECXDUZ	PRO~, PRO+16
ECXEND	ALL~, ALL+23*, ALL+31, ALL+41
ECXERR	RAD~, RAD+14, RAD+23, RAD+25, RAD+29, RAD+30, MTL~, MTL+14, MTL+20, MTL+23 , MTL+26, MTL+31, MTL+32, SUR~, SUR+14, SUR+22, SUR+24, SUR+28, SUR+29, PRO~ , PRO+13, PRO+14, PRO+15, PRO+17, PRO+34, ALL~, ALL+21, ALL+35, ALL+37, ALL+46 , ALL+47*
ECXIEN	RAD+12~, RAD+18, RAD+19, RAD+20, RAD+27, RAD+28, MTL+12~, MTL+21, MTL+22, MTL+24 , MTL+30, SUR+12~, SUR+17, SUR+19, SUR+26, SUR+27, ALL+20~, ALL+26, ALL+27, ALL+30 , ALL+31, ALL+32, ALL+33, ALL+34, ALL+39*, ALL+40, ALL+41, ALL+42, ALL+43, ALL+44
ECXNAME	ALL+20~, ALL+29, ALL+30, ALL+39, ALL+40
ECXNUM	ALL+20~, ALL+29, ALL+30, ALL+39, ALL+40, ALL+45
ECXPRIME	PRO~, PRO+14, PRO+15, PRO+16
ECXSTART	ALL~, ALL+23*, ALL+31, ALL+41
>> LAST	PRO+19*, PRO+21, PRO+33, HELP+2
NM	ALL+20~, ALL+26*
OUT	RAD+12~, RAD+22, RAD+23, RAD+25, RAD+26, SUR+12~, SUR+21, SUR+22, SUR+24, SUR+25 , PRO+12~, PRO+25, PRO+27, PRO+30, PRO+31, ALL+20~, ALL+21, ALL+35, ALL+37, ALL+38*
SITE	MTL+12~
U	RAD+20, RAD+28, MTL+25, MTL+28, MTL+30, SUR+19, SUR+26, SUR+27, PRO+22, HELP+3 , ALL+29, ALL+30, ALL+32, ALL+34, ALL+39, ALL+40, ALL+42, ALL+44
X	RAD+12~, RAD+24!, RAD+26, MTL+12~, MTL+19, MTL+20, MTL+21, SUR+12~, SUR+23!, SUR+25 , PRO+12~, PRO+24!, PRO+29!, PRO+33, ALL+20~, ALL+27*, ALL+38
Y	RAD+12~, RAD+24!, RAD+26, RAD+27, MTL+12~, SUR+12~, SUR+23!, SUR+25, SUR+26, PRO+12~ , PRO+24!, PRO+26, PRO+29!, PRO+30, ALL+20~, ALL+27!, ALL+28, ALL+36!, ALL+38, ALL+39
Y(0	ALL+29, ALL+39
YSITE	MTL+12~, MTL+24*, MTL+30

Customize PDF page

Package: DSS Extracts

Routine: ECXDVSN2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: