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 |