ECXDVSN1 ;ALB/JAP - Division selection utility (cont.) ; 3/30/07 7:56am
Source file <ECXDVSN1.m>
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 |
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 |