PSOATRFC ;BIR/MHA - Automate CPRS Refill request ;Jul 13, 2021@14:18:47
Source file <PSOATRFC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REF(PSORXN,PSOITMG) | ;process refill request
|
|
| CHKRF | ;check precription if still refillable
|
|
| CHKDT | ;check date on this refill request
|
|
| NEXT | ;
|
|
| DSP(X) | ;
|
|
| ERR(TXT) | ;Build error text array
; add TXT to end of last line in array, if will fit, else ; add it as a new last line and indented 3. ; and set error flag |
|
| MAILMSG(DFN,RXN,ERRTXT) | ;send alert via mailman msg to PSOAUTRF key holders
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
