PSOREJU1 ;BIRM/MFR - BPS (ECME) - Clinical Rejects Utilities (1) ;10/15/04
Source file <PSOREJU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACTION(RX,REJ,OPTS,DEF,RRR) | ;
; Input: (r) RX - Rx IEN (#52) ; (r) REJ - REJECT ID (IEN) ; (r) OPTS - Available options ("QIDO" for QUIT/IGNORE/DISCONTINUE/OVERRIDE) ; (o) DEF - Default Option ("O", "I" or "Q") ; (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. ; Output: ACTION: "I^Comments" - Ignore Reject ; "O^COD1^COD2^COD3" - Override with the Override codes COD1(Prof.),COD2(Reason) and COD3(Result) ; "D" - Discontinue ; "Q" - Quit ; "^" - Up-arrow entered or timed out |
|
| ASK | ;
|
|
| DC1 | ;Discontinue
|
|
| DC(RX,ACTION,DC1) | ; Discontinue inside and outside call
; DC1 Indicates that DIRUT needs to be returned if applicable |
|
| CONT() | ; Ask to continue for bypassing claims processing
|
|
| SIG() | ; Get electronic signature
|
|
| COM() | ; Ask for CLOSE comments
|
|
| OVR() | ; Ask for OVERRIDE codes
; Called by ASK above (Reject Notification Screen) |
|
| OVRDSP(LST) | ; Display the Override Codes
|
|
| CLA() | ; Ask for up to 3 Clarification Codes
; Called by SMA^PSOREJP1 (SMA action) and CLA^PSOREJP1 (CLA action) |
|
| CLADIC | ;
; DIC variables, PSOI, PSOSCC, and DUP newed and set by CLA |
|
| HDLG(RX,RFL,CODES,FROM,OPTS,DEF) | ; - REJECT Handling
|
|
| HDLGRRR(RRRDATA,OPTS,DEF,RRR,CODES) | ||
| HDLGTC(REJDATA,OPTS,DEF,CODES,DUZ) | ; Check for TRICARE/CHAMPVA open rejects
; Input: (r) REJDATA - reject array returned by $$FIND ; (r) OPTS - Available options ("QIDO" for QUIT/IGNORE/DISCONTINUE/OVERRIDE) ; - possibly modified by subroutine ; (r) DEF - Default Option ("O", "I" or "Q") ; - possibly modified by subroutine ; (r) CODES - Open reject codes ; - modified by subroutine ; (r) DUZ - Internal IEN of user |
|
| OVRX(TYPE,CODE) | ; Returns the extended code/description of the NCPDP DUR override codes
; Input: (r) TYPE - 1 (REASON FOR SERVICE), 2 (PROFESSIONAL SERVICE) or 3 (RESULT OF SERVICE) ; (r) CODE - Table IEN ; Output: "CODE - DESCRIPTION" |
|
| OVRCOD(TYPE,VALUE) | ; Prompt for NCPDP Override Codes
; Called by OVR above (reject notification screen), OVR^PSOREJP1 (OVR action) |
|
| OVRCOD1(VALUE,NUM) | ; Prompt for Reason for Service Code
; Called by SMAOVR (SMA action) only |
|
| OVRCOD2(TYPE,VALUE,NUM) | ; Prompt for NCPDP Override Codes
; Called by SMAOVR (SMA action) only |
|
| SEL(FIELD,FILE,ARRAY,DEFAULT) | ; Provides field selection (one, multiple or ALL)
|
|
| LMREJ(RX,RFL,MSG,BCK) | ; Used by ListManager hidden actions to detect unresolved 3rd Party Rejects
|
|
| DUP(RX,RSP,CLOSED) | ; Checks if REJECT has already been logged in the PRESCRIPTION file
; Input: (r) RX - Rx IEN (#52) ; (o) RSP - Response IEN ; (o) CLOSED - If CLOSED=1 and Reject is closed, then do not count as duplicate ; Output: DUP - 1: Already logged (duplicate) ; 0: Not yet logged on PRESCRIPTION file |
|
| OTH(CODE,LST) | ; Removes the current Reject code from the list
; Input: (r) CODE - Current Reject Code (79 or 88 or 943) ; (o) LST - List of all Reject codes with response (comma separated) ; Output: OTH - List of OTHER Reject codes (w/out 79 or 88 or 943) |
|
| DAT(DAT) | ; External Date
|
|
| CLEAN(STR) | ; Remove blanks from the end of a string and replaces ";" with ","
|
|
| DSC(FILE,VALUE,FIELD) | ; Look up code descriptions
|
|
| SMAOVR(RSC,NUM) | ; - Ask for OVERRIDE codes - allows deletion of defaults - PSO*7*421
; Called by SMA^PSOREJP1 (SMA action) |
|
| IGNORE(RX,RFL) | ;
; RX = Prescription IEN ; RFL = Refill ; Return value 1 = Allow IGNORE. ; Return value 0 = Don't allow IGNORE. ; Return value 0^GrossAmtDue = Don't allow. Return amt for user msg. |
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| 52.25 | GET1^DIQ |
| ^PS(52.86 - [#52.86] | GET1^DIQ |
