PSSDACS ;BIR/WRT-loops thru file 50 and sends MM message if a "N" is in APPLICATION PACKAGES' USE field ; 10/22/97 15:21
Source file <PSSDACS.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| BEGIN | ||
| REBD | ||
| MESS | ||
| SETIT | ||
| START | ||
| DONE | ||
| SETOP | 
| Name | Field # of Occurrence | 
|---|---|
| ^XMD | MESS+4 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PSDRUG - [#50] | START, SETIT | 
| ^PSDRUG("B" | START | 
| ^TMP($J | BEGIN!, SETOP*, SETOP+1*, SETOP+2*, SETIT*, REBD*, MESS+4! | 
| ^XUSEC("PSA ORDERS" | MESS+2 | 
| ^XUSEC("PSAMGR" | MESS+1 | 
| ^XUSEC("PSDMGR" | MESS+3 | 
| Name | Line Occurrences | 
|---|---|
| MESS | BEGIN+2 | 
| REBD | BEGIN+1 | 
| SETIT | START | 
| SETOP | BEGIN+1 | 
| START | BEGIN+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DIFROM | BEGIN+2~ | 
| DUZ | MESS | 
| NBR | DONE!, START*, SETIT | 
| >> NDA | REBD* | 
| NM | DONE!, START* | 
| >> NME | REBD* | 
| NUM | REBD*, MESS+4! | 
| PSSDUZ | DONE!, MESS+1*, MESS+2*, MESS+3*, MESS+4! | 
| XMDUZ | MESS*, MESS+4! | 
| XMSUB | MESS*, MESS+4! | 
| XMTEXT | MESS*, MESS+4! | 
| XMY | MESS+4! | 
| XMY( | MESS*, MESS+1*, MESS+2*, MESS+3* |