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 |