PSOREJU4 ;BIRM/LE - Pharmacy Reject Overrides ;06/26/08
Source file <PSOREJU4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AUTOREJ(CODES,PSODIV) | ;API to evaluate an array of reject codes to see if they are allowed to be passed to OP reject Worklist
|
|
| WRKLST(RX,RFL,COMMTXT,USERID,DTTIME,OPECC,RXCOB,RESP) | ;External API to store reject codes other than 79/88/943/TRICARE/CHAMPVA on the OP Reject Worklist
|
|
| EXIT | ;
|
|
| EVAL(PSODIV,CODE,OPECC,RX,RFNBR,COB,RRRDATA) | ;Evaluates whether the reject codes other than 79/88/TRICARE/CHAMPVA is allowed to be passed to OP Reject Worklist
|
|
| INLIST(RX,RFL,RXCOB) | ;Returns whether a prescription/fill contains UNRESOLVED rejects
|
|
| MULTI(RX,RFL,REJDATA,CODE,REJS,RRRFLG) | ;due to routine size, called from FIND^PSOREJUT
|
|
| SINGLE(RX,RFL,REJDATA,CODE,REJS,RRRFLG) | ;due to routine size, called from FIND^PSOREJUT
|
|
| RRRCHK(SPDIV,REJ,RX,RFNBR,COB) | ; Test a reject for valid Resolution Required Reject code
; INPUT ; SPDIV = required - IEN in site parameter file for the selected division ; REJ = required - IEN of the Reject code to test ; RX = required - IEN from prescription file ; RFNBR = required - prescription refill number ; COB = optional - coordination of benefits |
|
| REJCOM(RX,FIL,COB,RET) | ; Gather PSO reject comments and return
; Input ; RX - prescription IEN required ; FIL - fill# required - will match with the 52.25,5 field ; COB - coordination of benefits# (optional). If present, will match with the 52.25,27 field ; Output ; RET - return array, pass by reference ; RET(external reject code,date/time of comment,incremental counter) = ; [1] date/time of comment ; [2] user pointer 200 ; [3] comment text 1-150 characters |
|
| REJCOMX | ;
|
|
| MP(RX,FIL) | ; Entry point for PSO API to display Medication Profile List Manager screen given an Rx and Fill
|
|
| MPX | ;
|
|
| PI(RX,FIL) | ; Entry point for PSO API to display Patient Information List Manager screen given an Rx and Fill
|
|
| PIX | ;
|
