Routine: ECXDVSN

Information

ECXDVSN ;ALB/JAP - Division selection utility ; 8/13/07 1:11pm

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	^DIC EN^DIQ1 ^DIR
Registration	2	($$PRIM,$$SITE)^VASITE FIRST^VAUTOMA
DSS Extracts	1	(ADM,DEFAULT)^ECXDVSN

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: 13

Package	Total	Caller Graph
DSS Extracts	13	ECXAADM ECXADEN ECXAECS ECXALAB ECXAMOV ECXANUT ECXAPAS ECXATRT ECXDVSN ECXDVSN2 ECXLARA ECXLARPT ECXSADEN

Entry Points

Name	Comments	DBIA/ICR reference
ADM(ECXDIV,ECXALL,ECXSTART,ECXEND,ECXERR)	;division information for ADM extract audit report
ACTDIV(ECXIEN,ECXSTART,ECXEND,ECXD,ECXACT)	;determine if division active at anytime during date range
MOV(ECXDIV,ECXALL,ECXSTART,ECXEND,ECXERR)	;division information for MOV extract audit report
PAS(ECXDIV,ECXALL,ECXERR)	;setup division/site information for PAS extract audit report ; input ; ECXDIV = passed by reference array variable ; ECXALL = 1 ; output ; ECXDIV = data for default division/site; ; ECXDIV(1)=ien in file #4^name^station number ; where the INSTITUTION file pointer is obtained from file #728
TRT(ECXDIV,ECXALL,ECXERR)	;setup division/site information for TRT extract audit report ; input ; ECXDIV = passed by reference array variable ; ECXALL = 1 ; output ; ECXDIV = data for default division/site; ; ECXDIV(1)=ien in file #4^name^station number ; where the INSTITUTION file pointer is obtained from file #728
DEFAULT(ECXDIV,ECXALL,ECXERR)	;default division/site information for audit report ; input ; ECXDIV = passed by reference array variable ; ECXALL = 1 ; output ; ECXDIV = data for default division/site; ; ECXDIV(1)=ien in file #4^name^station number ; where the INSTITUTION file pointer is obtained from file #728
DEN(ECXDIV,ECXALL,ECXERR)	;setup division/site information for DEN extract audit report ; input ; ECXDIV = passed by reference array variable (required) ; ECXALL = 0/1 (optional) ; '0' indicates user to select dental division; ; '1' indicates 'all' dental divisions or only one division ; exists in file #225; default is '1' ; output ; ECXDIV = data for dental division/site; ; ECXDIV(ien in file #225)=ien in file #4^name^station number ; ECXERR = 0/1 ; if input problem, then '1' returned
ECS(ECXDIV,ECXALL,ECXERR)	;setup division/location information for ECS extract audit report ; input ; ECXDIV = passed by reference array variable (required) ; ECXALL = 0/1 (optional) ; '0' indicates user to select EC location(s); ; '1' indicates 'all' locations or only one location ; exists in file #4 "LOC" index; ; default is '1' ; output ; ECXDIV = data for EC location; ; ECXDIV(ien in file #4)=ien in file #4^name^station number ; where the INSTITUTION file pointer is obtained from ; "LOC" index in file #4 ; ECXERR = 0/1 ; if input problem, then '1' returned
NUT()	; Set Divisions into screen array (prompt is one/many/all)

External References

Name	Field # of Occurrence
^DIC	ADM+30, ADM+40, DEN+18, DEN+24, DEN+28
EN^DIQ1	DEFAULT+12
^DIR	ECS+33, ECS+39
ADM^ECXDVSN	MOV+6
DEFAULT^ECXDVSN	PAS+8, TRT+8
$$PRIM^VASITE	ACTDIV+21
$$SITE^VASITE	ACTDIV+19
FIRST^VAUTOMA	NUT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"Please note: Division "_ECXNUM_" was not active during",!,?5," selected date range.",! Line Location: ADM+48
Function Call: WRITE	Prompt: !,?10,I_" ",NM Line Location: ECS+29
Function Call: WRITE	Prompt: !!,"No Location selected...exiting.",! Line Location: ECS+36
Function Call: WRITE	Prompt: !,?10,$P(ECXDIV(I),U,2)_" ("_$P(ECXDIV(I),U,3)_")" Line Location: ECS+38
Routine Call	DIC Line Location: ADM+30 ADM+40 DEN+18 DEN+24 DEN+28
Routine Call	DIR Line Location: ECS+33 ECS+39

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DENT(225 - [#225]	Classic Fileman Calls
^DIC(4 - [#4]	Classic Fileman Calls
^DG(40.8 - [#40.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DENT(225 - [#225]	DEN+17
^DG(40.8 - [#40.8]	ADM+28, ADM+29
^DIC(4 - [#4]	ECS+20
^ECX(727.3 - [#727.3]	ADM+36, ADM+37, ADM+46, ADM+47
^ECX(728 - [#728]	DEFAULT+10

Label References

Name	Line Occurrences
ACTDIV	ADM+34, ADM+44

Naked Globals

Name	Field # of Occurrence
^(	ADM+28, DEN+17, ECS+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	DEFAULT+12*
>> DATE(	ACTDIV+19*, ACTDIV+23
DIC	ADM+22~, ADM+30, ADM+39, DEFAULT+12, DEN+12~, DEN+18, DEN+24, DEN+28, ECS+16~, NUT+13*
DIC("S"	ADM+39*
DIC(0	ADM+30, ADM+39, DEN+18, DEN+24, DEN+28*
>> DIQ	DEFAULT+12*
>> DIQ(0	DEFAULT+12*
DIR	ECS+16~, ECS+39!
DIR("A"	ECS+32, ECS+39
DIR("B"	ECS+39*
DIR("S"	ECS+32*
DIR(0	ECS+27, ECS+29, ECS+39*
DIRUT	DEN+12~, ECS+16~, ECS+40
DIV	DEFAULT+8~, DEFAULT+10*, DEFAULT+11, DEFAULT+12, DEFAULT+13
>> DR	DEFAULT+12*
DT	ADM+25
DTOUT	ADM+40, DEN+12~, DEN+25, ECS+16~, ECS+34
DUOUT	ADM+40, DEN+12~, DEN+25, ECS+16~, ECS+34
ECX	DEFAULT+8~, DEFAULT+12!, DEFAULT+13, DEFAULT+14
ECX(4	DEFAULT+13
ECXACT	ADM+22~, ADM+34, ADM+35, ADM+44, ADM+45, ADM+48, ACTDIV~, ACTDIV+15, ACTDIV+23
ECXALL	ADM~, ADM+26, ADM+27, ADM+38, MOV~, MOV+6, PAS~, PAS+8, TRT~, TRT+8* , DEFAULT~, DEN~, DEN+13, DEN+16, DEN+22, ECS~, ECS+17, ECS+22, ECS+26
ECXD	ADM+22~, ADM+34, ADM+35, ADM+44, ADM+45, ACTDIV~, ACTDIV+20, ACTDIV+21, DEN+12~, DEN+14* , DEN+17, DEN+18, DEN+20, DEN+27, DEN+28, DEN+30, ECS+16~, ECS+18, ECS+20
>> ECXDATE	ACTDIV+18*, ACTDIV+19, ACTDIV+21
ECXDIEN	ADM+22~, ADM+32, ADM+33, ADM+42, ADM+43
ECXDIV	ADM~, ADM+49!, ADM+50, MOV~, MOV+6, PAS~, PAS+8, TRT~, TRT+8, DEFAULT~ , DEFAULT+15, DEN~, DEN+31!, DEN+32, ECS~, ECS+36, ECS+46!, ECS+47
ECXDIV(	ADM+33, ADM+35, ADM+37, ADM+43, ADM+45, ADM+47, DEN+18, DEN+19, DEN+20, DEN+29 , DEN+30, ECS+25, ECS+38, ECS+44*
ECXDIV(1	DEFAULT+13*
ECXEND	ADM~, ADM+25*, ADM+34, ADM+44, ACTDIV~, ACTDIV+18, ACTDIV+23, MOV~, MOV+6
ECXERR	ADM~, ADM+23, ADM+38, ADM+40, ADM+49, ADM+50, MOV~, MOV+6, PAS~, PAS+8 , TRT~, TRT+8, DEFAULT~, DEFAULT+9, DEFAULT+11, DEFAULT+14, DEFAULT+15, DEN~, DEN+14, DEN+23 , DEN+25, DEN+31, DEN+32, ECS~, ECS+18, ECS+31, ECS+34, ECS+40, ECS+41, ECS+46 , ECS+47*
ECXIEN	ADM+22~, ADM+28, ADM+29, ADM+30, ADM+33, ADM+34, ADM+35, ADM+36, ADM+37, ADM+42 , ADM+43, ADM+44, ADM+45, ADM+46, ADM+47, ACTDIV~, ACTDIV+19, ACTDIV+21, DEN+12~, DEN+17* , DEN+18, DEN+19, DEN+20, DEN+27, DEN+29, DEN+30, ECS+16~, ECS+20, ECS+24, ECS+25 , ECS+43, ECS+44
ECXLOC	ECS+16~
ECXLOC(	ECS+20*, ECS+23, ECS+24, ECS+25, ECS+29, ECS+43, ECS+44
ECXNAME	ADM+22~, ADM+32, ADM+33, ADM+42, ADM+43
ECXNUM	ADM+22~, ADM+32, ADM+33, ADM+42, ADM+43, ADM+48
ECXSTART	ADM~, ADM+25*, ADM+34, ADM+44, ACTDIV~, ACTDIV+18, ACTDIV+23, MOV~, MOV+6
I	ECS+16~, ECS+18, ECS+20, ECS+22, ECS+23, ECS+24, ECS+25, ECS+26, ECS+27, ECS+29* , ECS+38*
NM	ADM+22~, ADM+28, ECS+16~, ECS+29
OUT	ADM+22~, ADM+23, ADM+38, ADM+40, ADM+41, DEN+12~, DEN+22, DEN+23, DEN+25, DEN+26 , ECS+16~, ECS+26, ECS+31, ECS+36, ECS+42*
SCANARR	NUT+11~, NUT+19
>> SCRNARR	NUT+19
U	ADM+29, ADM+32, ADM+33, ADM+35, ADM+37, ADM+42, ADM+43, ADM+45, ADM+47, DEFAULT+10 , DEFAULT+13, DEN+18, DEN+19, DEN+20, DEN+27, DEN+29, DEN+30, ECS+20, ECS+24, ECS+25 , ECS+29, ECS+38, ECS+43, ECS+44
VAUTD	NUT+11~
>> VAUTNI	NUT+16*
>> VAUTSTR	NUT+14*
>> VAUTVB	NUT+15*
X	ADM+22~, ADM+30, ADM+41, DEN+12~, DEN+18, DEN+24!, DEN+26, DEN+27!, DEN+28*, ECS+16~ , ECS+35, ECS+39!, ECS+43, ECS+44
Y	ADM+22~, ADM+30!, ADM+31, ADM+39!, ADM+41, ADM+42, DEN+12~, DEN+19, DEN+24!, DEN+26 , DEN+27!, DEN+29, ECS+16~, ECS+39!, ECS+41, NUT+11~, NUT+18
Y(0	ADM+32, ADM+42

Customize PDF page

Package: DSS Extracts

Routine: ECXDVSN

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: