PSAREORD ;BIR/JMB-Nightly Background Job - CONT'D ;7/23/97
Source file <PSAREORD.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 |
|---|---|---|
| PHARM | ;Looks for drugs that are >= reorder level in pharmacy locations.
|
|
| VAULT | ;Looks for drugs that are >= reorder level in master vaults.
|
|
| NONCS | ;Loops through the non-controlled subs to create mail message text.
|
|
| CS | ;Loops through the controlled subs to create mail message text.
|
|
| SEND | ;Send the mail message to the holders of the PSA ORDERS key.
|
|
| QUIT | ||
| NDC | ;Gets VSN dispense units,dispense units/order unit, order unit for
|
|
| SETMSG | ;Creates the body of the mail message.
|
|
| EXIT | ;Kills the variables & TMP globals.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(51.5 - [#51.5] | NDC+5 |
| ^PSD(58.8 - [#58.8] | PHARM+2, PHARM+3, PHARM+4, PHARM+6, PHARM+7, VAULT+1, VAULT+2, VAULT+3, VAULT+5, VAULT+6 , SETMSG+3, SETMSG+4 |
| ^PSDRUG - [#50] | PHARM+10, PHARM+11, VAULT+9, VAULT+10, NDC+4, NDC+5, NDC+6 |
| ^PSDRUG("C" | NDC+4 |
| ^TMP("PSAMSGO" | PHARM+1!, QUIT!, SETMSG+2*, SETMSG+5*, SETMSG+6*, SETMSG+7*, SETMSG+8*, SETMSG+9*, SETMSG+11*, SETMSG+12* , EXIT+1! |
| ^TMP("PSAORD" | PHARM+11*, VAULT+11, NONCS+1, NONCS+2, NONCS+4, NONCS+5, EXIT+1! |
| ^TMP("PSAORDCS" | VAULT+10*, VAULT+11, NONCS+6, CS+1, CS+3, CS+4, EXIT+1! |
| ^TMP("PSAREORD" | PHARM+1! |
| ^XUSEC("PSJ RPHARM" | NONCS+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | PHARM+4, VAULT+3 |
| DUZ | NONCS+6 |
| PSA | NONCS+1!, EXIT+2! |
| PSABAL | NONCS+5*, CS+4*, SETMSG+11, EXIT+2! |
| PSACNT | PHARM+1*, NONCS+1*, SETMSG+2*, SETMSG+4*, SETMSG+5*, SETMSG+6*, SETMSG+7*, SETMSG+8*, SETMSG+9*, SETMSG+11* , SETMSG+12*, EXIT+2! |
| PSACNT( | SETMSG+4* |
| PSACOMB | SETMSG+3, EXIT+2! |
| PSADRG | PHARM+5*, PHARM+6*, PHARM+7, PHARM+10, PHARM+11, VAULT+4*, VAULT+5*, VAULT+6, VAULT+9, VAULT+10 , NONCS+3*, NONCS+4*, NONCS+5, CS+2*, CS+3*, CS+4, NDC+4, NDC+5, NDC+6, SETMSG+10 , SETMSG+11, EXIT+2! |
| PSADU | NDC+2!, NDC+6*, NDC+8, NDC+9! |
| PSADUOU | NDC+2!, NDC+6*, NDC+8, NDC+9! |
| PSAFIRST | PHARM+5*, VAULT+4*, NONCS+3*, CS+2*, SETMSG+1, SETMSG+3*, EXIT+2! |
| PSAISIT | SETMSG+3, EXIT+2! |
| PSAISITN | EXIT+2! |
| PSALEN | SETMSG+10*, EXIT+2! |
| PSALOC | PHARM+1*, PHARM+2*, PHARM+3, PHARM+4, PHARM+6, PHARM+7, PHARM+11, VAULT+1*, VAULT+2, VAULT+3 , VAULT+5, VAULT+6, VAULT+10, NONCS+1*, NONCS+2*, NONCS+4, NONCS+5, CS+1*, CS+3, CS+4 , SETMSG+3, SETMSG+4, EXIT+2! |
| PSALOCA | SETMSG+3!, EXIT+2! |
| PSALOCA( | SETMSG+3* |
| PSALOCA("" | SETMSG+3 |
| PSALOCN | SETMSG+3*, SETMSG+5, SETMSG+6, EXIT+2! |
| PSALVSN | PHARM+10!, PHARM+11, PHARM+12!, VAULT+9!, VAULT+10, VAULT+11!, NDC+2!, NDC+8* |
| >> PSANDC | PHARM+10*, VAULT+9*, NDC+3*, NDC+4 |
| PSANODE | PHARM+7*, PHARM+8, PHARM+9, PHARM+11, VAULT+6*, VAULT+7, VAULT+8, VAULT+10, EXIT+2! |
| PSAOSIT | SETMSG+3, EXIT+2! |
| PSAOSITN | EXIT+2! |
| PSAOU | NDC+2!, NDC+5*, NDC+8, NDC+9! |
| PSASPACE | SETMSG+10*, SETMSG+11, EXIT+2! |
| PSASTOCK | NONCS+5*, CS+4*, SETMSG+11, EXIT+2! |
| PSASYN | NDC+2!, NDC+4*, NDC+5, NDC+6, NDC+9! |
| PSAVSN | NONCS+5*, CS+4*, NDC+2!, NDC+5*, NDC+7, NDC+8, NDC+9!, SETMSG+12 |
| XMDUZ | SEND+1*, EXIT+2! |
| XMSUB | SEND+1*, EXIT+2! |
| XMTEXT | SEND+1*, EXIT+2! |
| XMY | SEND+4, QUIT!, EXIT+2! |
| XMY("G.PSA RE | ORDER LEVEL" , SEND+3* |
