PSAFIX ;BHM/DB - FIX INACTIVE DRUGS IN 58.8;10/3/97
Source file <PSAFIX.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| Q | ||
| DONE | ||
| DRUG | ||
| BGN | ;begin the loop | 
| Name | Field # of Occurrence | 
|---|---|
| NOW^%DTC | PSAFIX+2 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PSD(58.8 - [#58.8] | BGN+1, DRUG, DRUG+1* | 
| Name | Line Occurrences | 
|---|---|
| BGN | DRUG | 
| DONE | BGN+1 | 
| DRUG | DRUG, DRUG+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DATA | DRUG* | 
| DRUG | BGN+3!, DRUG*, DRUG+1 | 
| IOF | PSAFIX+2 | 
| PSACNT | PSAFIX+2!, DRUG+1*, DONE | 
| PSALOC | PSAFIX+2!, BGN+1*, DRUG, DRUG+1 |