PSUAR1 ;BIR/PDW - Start AR/WS Extract ;11 AUG 1999
Source file <PSUAR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;EP MAIN ENTRY POINT
|
|
| START | ;Start date scan thru stats file
|
|
| Q | ||
| DATE | ;PROCESS ONE DATE - Loop through inpatient sites
|
|
| SITE | ;Process one site for one date
; Find division for site for loading drug stats |
|
| CATEGORY | ;EP Pull Categories
|
|
| DRUG | ; Process one drug for one site for one day
; Load & loop categories within Drug ; total dispense & returns ; Category multiple loaded into PSUCAT |
|
| DIV(PSUSDA,PSUDTDA) | ;EP process for a site the associated divisions by date.
; uses PSUSDA as entry for site ien in file 59.4 : returns division ; as of 2/99 date is no longer used as a parameter |
|
| AOU | ;EP map divisions by dates for inpatient sites from the AOU file
|
|
| MAP | ;Find out whether an Area of Use (AOU) is mapped to a division or
|
|
| MAP1 | ;MAP continued. This subroutine takes the IEN from file 58.1 and looks
|
|
| CLEAR | ;EP Clear ^XTMP("PSUAR*")
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
