PSOBPSU2 ;BIRM/MFR,RBD - BPS (ECME) Utilities 2 ;31 Mar 2025 9:34 AM
Source file <PSOBPSU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MWC(RX,RFL) | ; Returns whether a prescription is (M)ail, (W)indow or (C)MOP
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; Output: "M": MAIL / "W": WINDOW / "C": CMOP |
|
| RXACT(RX,RFL,COMM,TYPE,USR) | ; - Add an entry to the ECME Activity Log (PRESCRIPTION file)
|
|
| ECMENUM(RX,RFL) | ; Returns the ECME number for a specific prescription and fill
|
|
| GETECME(RX,RFL) | ; Internal function used by ECMENUM to get the ECME # from BPS
|
|
| RXNUM(ECME) | ; Returns the Rx number for a specific ECME number
|
|
| RXNUMX | ;
|
|
| ELIG(RX,RFL,PSOELIG) | ;Stores eligibility flag
|
|
| ECMESTAT(RX,RFL) | ;called from local mail
; Input: ; RX = Prescription File IEN ; RFL = Refill ; Output: ; 0 for not allowed to print from suspense ; 1 for allowed to print from suspense |
|
| ECMEST2(RX,RFL) | ;
; Do not resubmit a claim if this Rx has a closed eT/eC reject. |
|
| HOSTREJ(RX,RFL,ONE) | ; called from PSXRPPL2 and this routine
|
|
| DUR(RX,RFL) | ;
|
|
| SHDTLOG(RX,RFL) | ;
|
|
| SHDT(RX,RFL) | ;
|
|
| ELOG(RESP) | ; Logs an ECME Activity Log if Rx Qty is different than Billing Qty
|
|
| UPDFL(RXREC,SUB,INDT) | ; Update fill date with release date when NDC changes at CMOP and OPAI auto-release
; Input: RXREC = Prescription File IEN ; SUB = Refill ; INDT = Release date |
|
| FIN | ;
|
|
| SEND(PSORX,PSOFILL) | ; Determine whether to send a claim.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
| 52.01 | GET1^DIQ |
| 52.1 | GET1^DIQ |
| ^PS(52.5 - [#52.5] | GET1^DIQ |
