PSOREJU3 ;BIRM/LJE - BPS (ECME) - Clinical Rejects Utilities (3) ;04/25/08
Source file <PSOREJU3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TRICCHK(RX,RFL,RESP,FROM,RVTX) | ;check to see if Rx is non-billable or in an "In Progress" state on ECME
; Input: (r) RX - Rx IEN (#52) ; (r) RFL - REFILL ; (o) RESP - Response from $$EN^BPSNCPDP api ; TRICCHK assumes that the calling routine has validated that the fill is TRICARE or CHAMPVA. |
|
TRIC2 | ;
|
|
TRIC3 | ;
|
|
TRIC4 | ||
MSG | ;
|
|
SUSP | ;Suspense Rx due to IN PROGRESS status in ECME
|
|
TACT | ;
|
|
DISPLAY(RX,REJ,KEY,RRR) | ; - Displays REJECT information
; Input: (r) RX - Rx IEN (#52) ; (r) REJ - REJECT ID (IEN) ; (o) KEY - Display "Press any KEY to continue..." (1-YES/0-NO) (Default: 0) ; (o) RRR - Reject Resolution Required information Flag(0/1)^Threshold Amt^Gross Amt Due (Default: 0) ; If Flag = 0, there is no Reject Resolution Required reject code. Parameter added with PSO*421 ; |
|
DISP2 | ;
|
|
TYPE | ;
|
|
WRAP(PSOTXT,INDENT) | ;
|
|
W1 | ||
HDR | ; Display the reject notification screen header
|
|
SUBMIT(RXIEN,RFCNT,PSOTRIC) | ;called from PSOCAN2 (routine size exceeded)
|
|
TRISTA(RX,RFL,RESP,FROM,RVTX) | ;called from suspense
|
|
TRIAUD(RXIEN,RXFILL) | ;is RXIEN in the TRICARE/CHAMPVA audit and no open rejects ;cnf
; RXIEN will only be in TRICARE/CHAMPVA audit if a bypass or override has occurred and rejects are closed ; returns 0 if RXIEN is not in TRICARE/CHAMPVA audit at all or not in audit for right fill number ; rejects must be closed for 0 to be returned ; 1 if RXIEN is in TRICARE/CHAMPVA audit for the right fill number and rejects are closed |
|
ECMECHK(RX,FILL) | ;
; This function returns a '1' if any of the conditions below are met: ; - RX has an unresolved DUR or Refill Too Soon reject ; - RX has an unresolved Reject Resolution Required (RRR) reject (only for Veteran and original fill) ; - RX is TRICARE/CHAMPVA and has any unresolved reject ; - RX is TRICARE/CHAMPVA and IN PROGRESS ; This is used by functions such as PPLADD^PSOSUPOE to determine if ; a label should be printed (we do not want a label for the conditions) |
|
DVINFO(RX,RFL,LM) | ; Returns header displayable Division Information
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
52.25 | GET1^DIQ |
^PS(52.87 - [#52.87] | GET1^DIQ |
55.17 | GETS^DIQ |
^PS(59 - [#59] | GET1^DIQ |