PSOBPSUT ;BIRM/MFR - BPS (ECME) Utilities ;07 Jun 2005 8:39 PM
Source file <PSOBPSUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ECME(RX) | ; Returns "e" if Rx/Refill is Electronically Billable (3rd party)
|
|
| STATUS(RX,RFL,COB) | ; Returns the Rx's ECME Status (calls STATUS^BPSOSRX)
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; (o) COB - Coordination of Benefits (1=primary, etc.) |
|
| SUBMIT(RX,RFL,IGRL,IGCMP) | ; Returns whether the Rx should be submitted to ECME at the moment or not
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Def.: most recent) ; (o) IGRL - Ignore Release Date? (1-YES/0-NO) (Def.: 0 - NO) ; (o) IGCMP- Ignore CMOP/Suspense check? (1-YES/0-NO) (Def.: 0 - NO) |
|
| CMOP(RX,RFL) | ; Returns if the Rx will be a CMOP Rx or not
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; Output: 1 - CMOP / 0 - NON-CMOP |
|
| QCMOP | ||
| RXRLDT(RX,RFL) | ; Returns the Rx Release Date
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; ; Output: RXRLDT - Rx Release Date |
|
| RXFLDT(RX,RFL) | ; Returns the Rx Fill Date
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; Output: RXFLDT - Rx Fill Date (FM format) |
|
| RXSUDT(RX,RFL) | ; Returns the prescription/fill Suspense Date for the RX/Reject passed in
|
|
| RXSITE(RX,RFL) | ; Returns the Rx DIVISION
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; Output: SITE - Rx Fill Date ; |
|
| RXSTATE(RX,RFL) | ; Returns the Rx Division STATE
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; Output: SITE - Rx Fill Date |
|
| RXSTATEP(RX,RFL,STATE) | ; Returns the Rx Export States
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; STATE - Selected State ; Output: RSLT - Export States |
|
| RXSTATEZ(RX,RFL,STATE) | ; Returns the Rx Export States
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; STATE - Selected State ; Output: RSLT - Export to State |
|
| RXQTY(RXIEN,FILL) | ; Returns the Quantity Dispense for the Fill
; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent) ; Output: RXQTY - Quantity Dispensed |
|
| RXDAYSUP(RXIEN,FILL) | ; Returns the Days Supply for the Fill
; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent) ; Output: RXDAYSUP - Days Supply |
|
| RXPRV(RXIEN,FILL) | ; Returns the Rx Fill Provider IEN
; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent - except Partial) ; Note: "P1", "P2"... represent partial fills ; Output: RXPRV - Rx Fill Provider IEN |
|
| RXRPH(RXIEN,FILL) | ; Returns the Pharmacist IEN for the Fill
; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent) ; Output: RXRPH - Pharmacist IEN (Pointer to File #200) |
|
| VALUE(RX,FILL,ORFLD,RFFLD,PRFLD,OROK) | ; Retrieve corresponding Internal value for the specific prescription fill
; Input: (r) RX - Rx IEN (#52) ; (r) FILL - Refill # ; (r) ORFLD - Original Fill Field # ; (r) RFFLD - Refill Field # ; (r) PRFLD - Partial Field # ; (o) OROK - OK to retrieve from Original Fill (1: YES/0:NO) ; Output: VALUE - Fill Field Value |
|
| MANREL(RX,RFL,PID) | ; ePharmacy Manual Rx Release
|
|
| TRIC | ;
|
|
| AUTOREL(RX,RFL,RLDT,NDC,SRC,STS,HNG) | ; Sends Rx Release information to ECME/IB and updates NDC
; in the DRUG/PRESCRIPTION files |
|
| IBSEND(RX,RFL,AUTO,PSONDC) | ; Rx Release
; Create Release Event ; Calls ECME, if needed ; If Payable or Duplicate, calls IB to create a bill |
|
| RETRX(RX,RFL) | ; - Re-transmit a claim for the prescription/fill?
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| 52.1 | GET1^DIQ |
| 52.2 | GET1^DIQ |
| ^PS(52.5 - [#52.5] | GET1^DIQ |
| ^PS(55 - [#55] | GET1^DIQ |
| ^PS(58.41 - [#58.41] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
