Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECXDVSN1

Package: DSS Extracts

Routine: ECXDVSN1


Information

ECXDVSN1 ;ALB/JAP - Division selection utility (cont.) ; 3/30/07 7:56am

Source Information

Source file <ECXDVSN1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Outpatient Pharmacy 2 PSS^PSO59  DIC^PSODI  
VA FileMan 2 ^DIC  EN^DIQ1  
Registration 1 $$PRIM^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
DSS Extracts 4 ECXAECQ  ECXALAB  ECXANUR  ECXSARXS  

Entry Points

Name Comments DBIA/ICR reference
ECQ(ECXDIV,ECXALL,ECXERR) ;setup division/site information for QSR extract audit report
; input
; ECXDIV = passed by reference array variable (required)
; ECXALL = 0/1 (optional)
; '0' indicates user to select QUASAR site/division;
; '1' indicates 'all' sites/divisions or only one site/division
; exists in file #509850.8; currently only one site is allowed
; to be defined;
; default is '1'
; output
; ECXDIV = data for QUASAR site/division;
; ECXDIV(ien in file #4)=ien in file #509850.8^name^station number
; ECXERR = 0/1
; if input problem, then '1' returned
LAB(ECXACC,ECXALL,ECXERR) ;setup accession area information for LAB extract audit report
; input
; ECXACC = passed by reference array variable (required)
; ECXALL = 0/1 (optional)
; '0' indicates user to select Accession Area(s);
; '1' indicates 'all' Accession Areas are selected
; default is '1'
; output
; ECXACC = data for Accession Area(s);
; ECXACC(ien in file #68)=name^abbreviation
; ECXERR = 0/1
; if input problem, then '1' returned
NUR(ECXDIV,ECXALL,ECXERR) ;setup accession area information for LAB extract audit report
; input
; ECXDIV = passed by reference array variable (required)
; ECXALL = 0/1 (optional)
; '0' indicates user to select nursing location(s)/division(s);
; '1' indicates 'all' nursing locations and medical center divisions
; are selected or facility is non-divisional;
; default is '1'
; output
; ECXDIV = data for nursing location(s) and medical center division(s);
; ECXDIV("D",ien in file #40.8)=ien in file #4^name^station number
; ECXDIV(ien in file #211.4,ien in file #40.8)=ien in file #44
; ECXERR = 0/1
; if input problem, then '1' returned
PRE(ECXDIV,ECXALL,ECXERR) ;setup site information for PRE extract audit report
; input
; ECXDIV = passed by reference array variable (required)
; ECXALL = 0/1 (optional)
; '0' indicates user to select Pharmacy site(s);
; '1' indicates 'all' sites are selected
; default is '1'
; output
; ECXDIV = data for Pharmacy site(s);
; ECXDIV(ien in file #59)=IEN in file #59^name^site number^IEN in file #4
; ECXERR = 0/1
; if input problem, then '1' returned

External References

Name Field # of Occurrence
^DIC LAB+30, NUR+32, NUR+39
EN^DIQ1 ECQ+23, LAB+21, NUR+23
PSS^PSO59 PRE+19, PRE+30
DIC^PSODI PRE+27
$$PRIM^VASITE NUR+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls
^LRO(68 - [#68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.8 - [#509850.8] ECQ+22
^LRO(68 - [#68] LAB+19, LAB+20
^NURSF(211.4 - [#211.4] NUR+21

Naked Globals

Name Field # of Occurrence
^( ECQ+22, LAB+19, PRE+20, PRE+21, PRE+32
^(100 PRE+21, PRE+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY PRE+13~, PRE+15*, PRE+16, PRE+20, PRE+21, PRE+31, PRE+32
DA ECQ+23*, LAB+13~, LAB+21*, NUR+23*, PRE+13~
DIC ECQ+15~, ECQ+23*, LAB+13~, LAB+21*, LAB+30*, NUR+23*, NUR+32*, NUR+38*, PRE+13~, PRE+25~
, PRE+26*, PRE+27
DIC("S" NUR+38*
DIC(0 LAB+30*, NUR+32*, NUR+38*, PRE+26*
DIQ ECQ+23*, LAB+13~, LAB+21*, NUR+23*, PRE+13~
DIQ(0 ECQ+23*, NUR+23*
DIRUT LAB+13~
DR ECQ+23*, LAB+13~, LAB+21*, NUR+23*
DT NUR+19
DTOUT LAB+13~, LAB+31, NUR+39, PRE+25~, PRE+28
DUOUT LAB+13~, LAB+31, NUR+39, PRE+25~, PRE+28
ECX ECQ+15~, ECQ+23!, ECQ+24, ECQ+25, LAB+13~, LAB+21!, LAB+22, NUR+22!, NUR+25
ECX(4 ECQ+24
ECX(44 NUR+25
ECX(68 LAB+24, LAB+25
ECXA LAB+13~, LAB+15*, LAB+19*, LAB+20
ECXACC LAB~, LAB+34!, LAB+35
ECXACC( LAB+25*, LAB+33*
ECXALL ECQ~, ECQ+16*, ECQ+18*, ECQ+21, LAB~, LAB+14*, LAB+17, LAB+28, NUR~, NUR+16*
, NUR+30, NUR+37, PRE~, PRE+14*, PRE+18, PRE+23
ECXARR PRE+13~
ECXD ECQ+15~, ECQ+19*, ECQ+22*, ECQ+23, ECQ+24
>> ECXDIEN NUR+23*, NUR+25*, NUR+26*, NUR+27, NUR+30*, NUR+31*, NUR+32, NUR+33, NUR+34, NUR+41*
, NUR+42, NUR+44, NUR+45
ECXDIV ECQ~, ECQ+26!, ECQ+27, NUR~, NUR+47!, NUR+48, PRE~, PRE+34!, PRE+35
ECXDIV( ECQ+24*, NUR+34*, NUR+45*, PRE+21*, PRE+32*
ECXDIV("D" NUR+33*, NUR+44*
ECXERR ECQ~, ECQ+19*, ECQ+25*, ECQ+26, ECQ+27*, LAB~, LAB+15*, LAB+29, LAB+31*, LAB+34
, LAB+35*, NUR~, NUR+17*, NUR+37, NUR+39*, NUR+47, NUR+48*, PRE~, PRE+15*, PRE+24
, PRE+28*, PRE+34, PRE+35*
ECXIEN ECQ+15~, ECQ+22*, ECQ+24, LAB+13~, LAB+19*, LAB+20, LAB+21, LAB+24, LAB+25, PRE+13~
, PRE+20*, PRE+21, PRE+32
>> ECXLOC( NUR+27*, NUR+31, NUR+34, NUR+42, NUR+45
>> ECXNLIEN NUR+21*, NUR+27, NUR+33*, NUR+34*, NUR+44*, NUR+45*
>> ECXNLNM NUR+23*, NUR+25*, NUR+27
ECXP PRE+13~, PRE+15*, PRE+18*, PRE+20*
>> ECXPRIME NUR+19*, NUR+26
>> ECXSC NUR+17*, NUR+21*, NUR+23, NUR+25, NUR+27
>> NM NUR+41*, NUR+43
OUT ECQ+15~, LAB+13~, LAB+28*, LAB+29, LAB+31*, LAB+32*, NUR+17*, NUR+37, NUR+39*, NUR+40*
, PRE+13~, PRE+23*, PRE+24, PRE+28*, PRE+29*
U ECQ+24, LAB+25, LAB+33, NUR+27, NUR+33, NUR+41, NUR+44, PRE+21, PRE+32
X ECQ+15~, LAB+13~, LAB+30!, LAB+32, NUR+32*, NUR+40, PRE+13~, PRE+25~, PRE+27, PRE+29
Y ECQ+15~, LAB+13~, LAB+30!, LAB+32, LAB+33, NUR+32, NUR+40, NUR+41, PRE+13~, PRE+25~
, PRE+29, PRE+30
Y(0 LAB+33, NUR+33, NUR+44
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All