PSOATRFV ;BIR/MHA,KML - Automate VCC Refill request ;April 11,2022
Source file <PSOATRFV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REF(PSORXN,PSOUSR,PSORFSRC,PSOITMG) | ;process refill request
; Input: ; PSORX (required) - Prescription Number ; PSOUSR (optional) - User requesting refill ; PSORFSRC (optional) - the source system from which the REFILL ; request Originated (e.g., AUDIOCARE, VCC, CPRS, VSE) ; PSOITMG - error array |
|
| CHKRF | ;check prescription 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 |
