PSUAR6 ;BIR/DAM - AR/WS AMIS Summary Data;11 March 2004
Source file <PSUAR6.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ;Entry point to gather AMIS data.  Called from PSUAR0 | |
| RET | ;Calculate AR/WS returned data | |
| DSP | ;Calculate AR/WS  dispensed data | |
| AVE | ;Calculate Average cost per dose | |
| NET | ;Calculate Net dispensed data | |
| TOTAL | ;Calculate column totals for each division | |
| TCOST | ;Calculate total cost | |
| TRUNC | ;Truncate pieces with dollar values to 2 decimal places | 
| Name | Field # of Occurrence | 
|---|---|
| EN^PSUAR7 | EN+17 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^XTMP( | EN+4, EN+6, EN+8 | 
| ^XTMP("PSUTCST" | TCOST+3, TCOST+5, TCOST+6, TCOST+10, TCOST+11, TCOST+15, TCOST+18 | 
| Name | Line Occurrences | 
|---|---|
| AVE | EN+15 | 
| DSP | EN+11 | 
| NET | EN+13 | 
| RET | EN+12 | 
| TCOST | EN+14 | 
| TOTAL | EN+16 | 
| TRUNC | AVE+7, AVE+18, AVE+31, AVE+44, TOTAL+22, TOTAL+45, TOTAL+68, TOTAL+94 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | TRUNC+3~, TRUNC+6*, TRUNC+7, TRUNC+8, TOTAL+12~, TOTAL+13*, TOTAL+14, TOTAL+15, TOTAL+36~, TOTAL+37* , TOTAL+38, TOTAL+39, TOTAL+59~, TOTAL+60*, TOTAL+61, TOTAL+62, TOTAL+85~, TOTAL+86*, TOTAL+87, TOTAL+88 | 
| B | TRUNC+3~, TRUNC+7*, TRUNC+10, TOTAL+12~, TOTAL+14*, TOTAL+17, TOTAL+36~, TOTAL+38*, TOTAL+41, TOTAL+59~ , TOTAL+61*, TOTAL+64, TOTAL+85~, TOTAL+87*, TOTAL+90 | 
| C | TRUNC+3~, TRUNC+8*, TRUNC+9*, TRUNC+10, TOTAL+12~, TOTAL+15*, TOTAL+16*, TOTAL+17, TOTAL+36~, TOTAL+39* , TOTAL+40*, TOTAL+41, TOTAL+59~, TOTAL+62*, TOTAL+63*, TOTAL+64, TOTAL+85~, TOTAL+88*, TOTAL+89*, TOTAL+90 | 
| DBLD | DSP+1~, DSP+18*, DSP+19*, DSP+20 | 
| DFLD | DSP+1~, DSP+13*, DSP+14*, DSP+15 | 
| DSP | DSP+1~, DSP+3*, DSP+4*, DSP+5 | 
| DUNT | DSP+1~, DSP+8*, DSP+9*, DSP+10 | 
| >> I | TRUNC+2*, TRUNC+4, TRUNC+5, TRUNC+6, TRUNC+7, TRUNC+8, TRUNC+10 | 
| NET | EN+2~, AVE+1~, AVE+2*, AVE+3*, AVE+5, AVE+10!, AVE+13*, AVE+14*, AVE+16, AVE+21! , AVE+26*, AVE+27*, AVE+29, AVE+34!, AVE+39*, AVE+40*, AVE+42, AVE+47! | 
| PSUAMIS | EN+7! | 
| PSUAMIS( | EN+8*, EN+10, DSP+3, DSP+8, DSP+13, DSP+18, RET+3, RET+8, RET+13, RET+18 | 
| PSUAR | EN+1! | 
| PSUAR("BLD" | DSP+20*, RET+20*, NET+11*, TCOST+17, TCOST+18*, AVE+38, AVE+39, AVE+41, AVE+42*, AVE+43 , AVE+45*, AVE+48, AVE+49*, TOTAL+75, TOTAL+78, TOTAL+79, TOTAL+80, TOTAL+81, TOTAL+82, TOTAL+97 | 
| PSUAR("DSP" | DSP+5*, RET+5*, NET+2*, TCOST+7*, AVE+2, AVE+4, AVE+5*, AVE+6, AVE+8*, TOTAL+2 , TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9 | 
| PSUAR("FLD" | DSP+15*, RET+15*, NET+8*, TCOST+15*, AVE+25, AVE+26, AVE+28, AVE+29*, AVE+30, AVE+32* , AVE+35, AVE+36*, TOTAL+49, TOTAL+52, TOTAL+53, TOTAL+54, TOTAL+55, TOTAL+56, TOTAL+71 | 
| PSUAR("UNIT" | DSP+10*, RET+10*, NET+5*, TCOST+12*, AVE+12, AVE+13, AVE+15, AVE+16*, AVE+17, AVE+19* , AVE+22, AVE+23*, TOTAL+26, TOTAL+29, TOTAL+30, TOTAL+31, TOTAL+32, TOTAL+33 | 
| >> PSUARSUB | EN+4, EN+6, EN+8 | 
| >> PSUCA | TCOST+2*, TCOST+3*, TCOST+4, TCOST+9, TCOST+14, TCOST+15, TCOST+16, TCOST+18 | 
| >> PSUCAT | EN+9*, EN+10*, DSP+2, DSP+7, DSP+12, DSP+17, RET+2, RET+7, RET+12, RET+17 , NET+1, NET+4, NET+7, NET+10 | 
| >> PSUCT | EN+5*, EN+6*, EN+8, EN+10, DSP+3, DSP+8, DSP+13, DSP+18, RET+3, RET+8 , RET+13, RET+18 | 
| >> PSUDIV | AVE+38, TOTAL+4*, TOTAL+5*, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9, TOTAL+28*, TOTAL+29*, TOTAL+30 , TOTAL+31, TOTAL+32, TOTAL+33, TOTAL+51*, TOTAL+52*, TOTAL+53, TOTAL+54, TOTAL+55, TOTAL+56, TOTAL+77* , TOTAL+78*, TOTAL+79, TOTAL+80, TOTAL+81, TOTAL+82 | 
| >> PSUDV | EN+3*, EN+4*, EN+6, EN+8, EN+10, DSP+3, DSP+5, DSP+8, DSP+10, DSP+13 , DSP+15, DSP+18, DSP+20, RET+3, RET+5, RET+8, RET+10, RET+13, RET+15, RET+18 , RET+20, NET+2, NET+5, NET+8, NET+11, TCOST+3, TCOST+5, TCOST+6, TCOST+7, TCOST+10 , TCOST+11, TCOST+12, TCOST+15, TCOST+17, TCOST+18, AVE+2, AVE+4, AVE+5, AVE+6, AVE+8 , AVE+12, AVE+13, AVE+15, AVE+16, AVE+17, AVE+19, AVE+22, AVE+23, AVE+25, AVE+26 , AVE+28, AVE+29, AVE+30, AVE+32, AVE+35, AVE+36, AVE+38, AVE+39, AVE+41, AVE+42 , AVE+43, AVE+45, AVE+48, AVE+49 | 
| RBLD | RET+1~, RET+18*, RET+19*, RET+20 | 
| RET | RET+1~, RET+3*, RET+4*, RET+5 | 
| RFLD | RET+1~, RET+13*, RET+14*, RET+15 | 
| RUNT | RET+1~, RET+8*, RET+9*, RET+10 | 
| T1 | TCOST+1~, TCOST+5*, TCOST+7, TCOST+8!, TCOST+10*, TCOST+12, TCOST+13! | 
| T2 | TCOST+1~, TCOST+6*, TCOST+7, TCOST+8!, TCOST+11*, TCOST+12, TCOST+13! | 
| TAVE | TOTAL+3~, TOTAL+10*, TOTAL+11*, TOTAL+13, TOTAL+14, TOTAL+15, TOTAL+17*, TOTAL+18*, TOTAL+20, TOTAL+27~ , TOTAL+34*, TOTAL+35*, TOTAL+37, TOTAL+38, TOTAL+39, TOTAL+41*, TOTAL+42*, TOTAL+43, TOTAL+50~, TOTAL+57* , TOTAL+58*, TOTAL+60, TOTAL+61, TOTAL+62, TOTAL+64*, TOTAL+65*, TOTAL+66, TOTAL+76~, TOTAL+83*, TOTAL+84* , TOTAL+86, TOTAL+87, TOTAL+88, TOTAL+90*, TOTAL+91*, TOTAL+92 | 
| TCST | TOTAL+3~, TOTAL+9*, TOTAL+10, TOTAL+20, TOTAL+27~, TOTAL+33*, TOTAL+34, TOTAL+43, TOTAL+50~, TOTAL+56* , TOTAL+57, TOTAL+66, TOTAL+76~, TOTAL+82*, TOTAL+83, TOTAL+92 | 
| TDSP | TOTAL+3~, TOTAL+6*, TOTAL+20, TOTAL+27~, TOTAL+30*, TOTAL+43, TOTAL+50~, TOTAL+53*, TOTAL+66, TOTAL+76~ , TOTAL+79*, TOTAL+92 | 
| TNET | TOTAL+3~, TOTAL+8*, TOTAL+10, TOTAL+20, TOTAL+27~, TOTAL+32*, TOTAL+34, TOTAL+43, TOTAL+50~, TOTAL+55* , TOTAL+57, TOTAL+66, TOTAL+76~, TOTAL+81*, TOTAL+83, TOTAL+92 | 
| TOT | EN+2~, AVE+1~, AVE+4*, AVE+5, AVE+10!, AVE+15*, AVE+16, AVE+21!, AVE+28*, AVE+29 , AVE+34!, AVE+41*, AVE+42, AVE+47! | 
| >> TOTAL("BLD" | TOTAL+92*, TOTAL+93, TOTAL+95*, TOTAL+98* | 
| >> TOTAL("DSP" | TOTAL+20*, TOTAL+21, TOTAL+23* | 
| >> TOTAL("FLD" | TOTAL+66*, TOTAL+67, TOTAL+69*, TOTAL+72* | 
| >> TOTAL("UNIT" | TOTAL+43*, TOTAL+44, TOTAL+46* | 
| TRET | TOTAL+3~, TOTAL+7*, TOTAL+20, TOTAL+27~, TOTAL+31*, TOTAL+43, TOTAL+50~, TOTAL+54*, TOTAL+66, TOTAL+76~ , TOTAL+80*, TOTAL+92 | 
| TRUNC | EN+2~, AVE+6*, AVE+8, AVE+9!, AVE+17*, AVE+19, AVE+20!, AVE+30*, AVE+32, AVE+33! , AVE+43*, AVE+45, AVE+46!, TRUNC+4, TRUNC+5*, TRUNC+6, TRUNC+7, TRUNC+8, TRUNC+10*, TOTAL+21* , TOTAL+23, TOTAL+24!, TOTAL+44*, TOTAL+46, TOTAL+47!, TOTAL+67*, TOTAL+69, TOTAL+70!, TOTAL+93*, TOTAL+95 , TOTAL+96! | 
| U | EN+10, DSP+3, DSP+5, DSP+8, DSP+10, DSP+13, DSP+15, DSP+18, DSP+20, RET+3 , RET+5, RET+8, RET+10, RET+13, RET+15, RET+18, RET+20, NET+2, NET+5, NET+8 , NET+11, TCOST+7, TCOST+12, TCOST+15, TCOST+17, TCOST+18, AVE+2, AVE+4, AVE+5, AVE+13 , AVE+15, AVE+16, AVE+23, AVE+26, AVE+28, AVE+29, AVE+36, AVE+39, AVE+41, AVE+42 , AVE+49, TRUNC+4, TRUNC+5, TRUNC+6, TRUNC+7, TRUNC+8, TRUNC+10, TOTAL+6, TOTAL+7, TOTAL+8 , TOTAL+9, TOTAL+20, TOTAL+30, TOTAL+31, TOTAL+32, TOTAL+33, TOTAL+43, TOTAL+53, TOTAL+54, TOTAL+55 , TOTAL+56, TOTAL+66, TOTAL+72, TOTAL+79, TOTAL+80, TOTAL+81, TOTAL+82, TOTAL+92, TOTAL+98 |