PSUAR1 ;BIR/PDW - Start AR/WS Extract ;11 AUG 1999
Source file <PSUAR1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(59.7 - [#59.7] | MAP1+9 |
| ^PSI(58.1 - [#58.1] | AOU+14, MAP+6, MAP+8 |
| ^PSI(58.5 - [#58.5] | Q, DATE+1 |
| ^XTMP( | CATEGORY+14, CATEGORY+15*, CATEGORY+16, CATEGORY+17*, CATEGORY+18, DRUG+17, DRUG+18*, DIV+4, DIV+8, DIV+10 , AOU+11!, AOU+24*, MAP1+15*, CLEAR+2! |
| ^XTMP("PSUTCST" | CATEGORY+18* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AOU | MAP+9!, MAP1+15 |
| AOU( | MAP1+13!, MAP1+14! |
| DT | AOU+19 |
| >> IEN | MAP+7*, MAP+8*, MAP+10, MAP1+9 |
| MAPLOCI | AOU+3~ |
| MAPLOCI( | AOU+20, AOU+21, AOU+22, AOU+23, MAP1+12, MAP1+13, MAP1+14 |
| PSUADA | AOU+3~, AOU+13*, AOU+14*, AOU+17, AOU+20, AOU+21, AOU+22, AOU+23 |
| PSUAMCAT | CATEGORY+1!, CATEGORY+13*, CATEGORY+14, CATEGORY+15, CATEGORY+16, CATEGORY+17, CATEGORY+18 |
| PSUAMCAT( | CATEGORY+10, CATEGORY+11, CATEGORY+12, CATEGORY+13 |
| >> PSUARSUB | CATEGORY+14, CATEGORY+15, CATEGORY+16, CATEGORY+17, CATEGORY+18, DRUG+17, DRUG+18, DIV+4, DIV+8, DIV+10 , AOU+11, AOU+24, MAP1+15 |
| PSUCAT | SITE+17!, DRUG+6!, DRUG+31! |
| PSUCAT( | DRUG+10, DRUG+11, DRUG+12 |
| >> PSUCDA | CATEGORY+10*, CATEGORY+11, CATEGORY+12, CATEGORY+13, DRUG+9*, DRUG+10*, DRUG+11, DRUG+12 |
| PSUCOST | CATEGORY+9~, CATEGORY+12*, CATEGORY+17 |
| PSUDA | MAP1+7~, MAP1+11*, MAP1+12*, MAP1+13, MAP1+14 |
| PSUDISP | CATEGORY+9~, CATEGORY+11*, CATEGORY+15, DRUG+9*, DRUG+13*, DRUG+14*, DRUG+18 |
| PSUDIV | SITE+2*, SITE+4*, CATEGORY+14, CATEGORY+15, CATEGORY+16, CATEGORY+17, CATEGORY+18, DRUG+17, DRUG+18, DRUG+21 , DRUG+23, DRUG+24, DRUG+27, DRUG+29, DRUG+30, DIV+3~, DIV+8*, DIV+10*, DIV+11, AOU+3~ , AOU+15~*, AOU+20*, AOU+22*, AOU+23*, AOU+24 |
| >> PSUDRDA | SITE+10*, SITE+11* |
| >> PSUDRIEN | DRUG+5*, DRUG+17, DRUG+18, DRUG+21, DRUG+23, DRUG+24, DRUG+27, DRUG+29, DRUG+30 |
| PSUDRUG | SITE+8!, SITE+12! |
| PSUDRUG( | SITE+11 |
| PSUDT | START+2*, Q*, DATE+1, DIV+3~ |
| PSUDTDA | DATE+1*, DATE+3, SITE+2, DIV~ |
| >> PSUEDT | START+3*, Q |
| PSUINACT | AOU+3~, AOU+17*, AOU+18, AOU+19* |
| >> PSUNAM | MAP+4*, MAP+6*, MAP+8 |
| >> PSUQUIT | Q, DATE+5, SITE+11, DRUG+10 |
| PSUSDA | DATE+4*, DATE+5*, SITE+2, DIV~, DIV+4, DIV+8, DIV+10, AOU+14, AOU+16, AOU+24 |
| >> PSUSDT | START+1*, START+2 |
| PSUSITE | DATE+2!, DATE+6! |
| PSUSITE( | DATE+5 |
| PSUSLOC | AOU+3~, AOU+16* |
| >> PSUSNDR | SITE+4 |
| PSUT | DRUG+20~, DRUG+21*, DRUG+23, DRUG+24 |
| PSUT1 | DRUG+26~, DRUG+27*, DRUG+29, DRUG+30 |
| >> PSUTDS | DRUG+13*, DRUG+22, DRUG+23, DRUG+24 |
| PSUTDSP | EN+2! |
| PSUTDSP( | DRUG+21, DRUG+23*, DRUG+24* |
| >> PSUTR | DRUG+9*, DRUG+14*, DRUG+28, DRUG+29, DRUG+30 |
| PSUTRET | EN+2! |
| PSUTRET( | DRUG+27, DRUG+29*, DRUG+30* |
| >> X | CATEGORY+14*, CATEGORY+15, CATEGORY+16*, CATEGORY+17, DRUG+11*, DRUG+13, DRUG+14, DRUG+17*, DRUG+18, AOU+22* , AOU+23*, CLEAR+1*, CLEAR+2 |
| >> Y | DRUG+12*, DRUG+13, DRUG+14, CLEAR+1*, CLEAR+2* |
