RAUTODC ;HISC/GJC discontinue expired rad orders ;30 Jan 2018 9:01 AM
Source file <RAUTODC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ;entry point for initial mass discontinue action
|
|
| KILL | ; Kill variables
|
|
| GETREA() | ;get the generic discontinue reason IEN
|
|
| DISABLE | ;disable the notifications that were enabled
|
|
| ENABLE | ;enable the notifications that were disabled
|
|
| 8() | ;get SCHEDULED DATE (TIME optional) fld: #23
|
|
| GETNOTE(ARY,PAR,INST) | ; gets both enabled & disabled
|
|
| NOTEVT(RAENT,Y) | ;
|
|
| OOO(Y) | ;place options 'Cancel a Request' & 'Hold a Request' in/out of order
|
|
| ERROR | ;come here on error
|
|
| EMAIL(RAX) | ;email error to us
|
|
| EN2 | ; re-index the new 'DATE DESIRED (Not guaranteed)' (#21) "BDD" xref
|
|
| EN3 | ; re-index the existing 'REQUEST STATUS' (#5) "AS" xref.
|
|
| STATS | ;track DC'd statistics: how many records, how long did it take.
; email to RA REQUEST CANCELLED & POSTMASTER. |
| FileNo | Call Tags |
|---|---|
| ^RAO(75.1 - [#75.1] | Classic Fileman Calls |
