Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call