ECXDVSN2 ;ALB/JAP - Division selection utility (cont.) ; 5/11/04 3:29pm
Source file <ECXDVSN2.m>
| 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| 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 |
