PSOREJU2 ;BIRM/MFR - BPS (ECME) - Clinical Rejects Utilities (1) ;10/15/04
Source file <PSOREJU2.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | ^DIC ^DIE ($$GET1,GETS)^DIQ ^DIR |
Outpatient Pharmacy | 2 | $$LSTRFL^PSOBPSU1 $$RXSITE^PSOBPSUT |
Registration | 1 | DEM^VADPT |
Uncategorized | 1 | $$NABP^BPSBUTL |
Name | Comments | DBIA/ICR reference |
---|---|---|
PAHLP | ; Prior Authorization Type Help
|
|
PRT(FIELD,P,L) | ; Sets the lines for fields that require text wrapping
|
|
PTINFO(RX,LM) | ; Returns header displayable Patient Information
|
|
DVINFO(RX,RFL,LM) | ; Returns header displayable Division Information
|
|
HELP(OPTS) | ; Display the Help Text for the DUR handling options (OVERRIDE/IGNORE/STOP/QUIT)
|
|
RETRXF(RX,RFL,ONOFF) | ; - Set/Reset the Re-transmission flag
|
|
SETOPN(RX,REJ) | ; - Set the Reject RE-OPENED flag to YES
|
|
GET(RX,RFL,REJDATA,REJID,OKCL,CODE) | ;
; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; (r) REJDATA(REJECT IEN,FIELD) - Array where these Reject fields will be returned: ; "CODE" - Reject Code (79 or 88) ; "DATE/TIME" - DATE/TIME Reject was detected ; "PAYER MESSAGE" - Message returned by the payer ; "REASON" - Reject Reason description (from payer) ; "INSURANCE NAME" - Patient's Insurance Company Name ; "GROUP NAME" - Patient's Insurance Group Name ; "GROUP NUMBER" - Patient's Insurance Group Number ; "CARDHOLDER ID" - Patient's Insurance Cardholder ID ; "PLAN CONTACT" - Plan's Contact (eg., "1-800-...") ; "PLAN PREVIOUS FILL DATE" - Last time Rx was paid by payer ; "STATUS" - REJECTS status ("OPEN/UNRESOLVED" or "CLOSED/RESOLVED") ; "DUR TEXT" - Payer's DUR description ; "OTHER REJECTS" - Other Rejects on the same response ; "REASON SVC CODE" - Reason for Service Code ; If REJECT is closed, the following fields will be returned: ; "CLA CODE" - Clarification Code submitted ; "PRIOR AUTH TYPE" - Prior Authorization Type ; "PRIOR AUTH NUMBER" - Prior Authorization Type ; "CLOSED DATE/TIME" - DATE/TIME Reject was closed ; "CLOSED BY" - Name of the user responsible for closing Reject ; "CLOSE REASON" - Reason for closing Reject (text) ; "CLOSE COMMENTS" - User entered comments at close ; (o) REJID - REJECT IEN in the PRESCRIPTION file for retrieve this REJECT ; (o) OKCL - If set to 1, CLOSED REJECTs will also be returned ; (o) CODE - Only REJECTs with this CODE should be returned |
|
PA() | ; - Ask for Prior Authorization Type and Number
|
|
REASON(TXT) | ; Extracts the Reason for service code from the REASON text field
; Input: (r) TXT - Reason text (e.g., NN Reason for Service Code Text) |
|
PANHLP | ; Prior Authorization Number Help
|
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
52.25 | GETS^DIQ |
^PS(59 - [#59] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSRX - [#52] | GET+35, GET+39, GET+40, GET+44, GET+45, GET+46, GET+82, GET+83, SETOPN+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | GET+30~, GET+52! |
ARRAY( | GET+53 |
CODE | GET~, GET+54 |
COM | GET+30~, GET+82*, GET+83, GET+84, GET+85, GET+86 |
DA | RETRXF+4~, RETRXF+6*, RETRXF+7*, SETOPN+5~, SETOPN+6* |
DA(1 | RETRXF+7*, SETOPN+6* |
>> DATA( | PRT+5 |
DFN | PTINFO+3~, PTINFO+4* |
DIC | REASON+3~, REASON+5* |
DIE | RETRXF+4~, RETRXF+6*, RETRXF+7*, SETOPN+5~, SETOPN+6* |
DIR | PA+5~, PA+10! |
DIR("?" | PA+7*, PA+11* |
DIR("??" | PA+7*, PA+11* |
DIR("A" | PA+6*, PA+10* |
DIR("B" | PA+6* |
DIR(0 | PA+6*, PA+10* |
DIROUT | PA+5~, PA+8, PA+12 |
DIRUT | PA+5~, PA+8 |
DR | RETRXF+4~, RETRXF+5*, SETOPN+5~, SETOPN+6* |
DVINFO | DVINFO+4~, DVINFO+5*, DVINFO+7*, DVINFO+8 |
FIELD | PRT~, PRT+5 |
I | PRT+4~, PRT+6*, PRT+7 |
IDX | GET+30~, GET+43*, GET+44*, GET+45, GET+46, GET+47, GET+50*, GET+51*, GET+52, GET+53 , GET+55, GET+56, GET+57, GET+58, GET+59, GET+60, GET+61, GET+62, GET+63, GET+64 , GET+65, GET+66, GET+67, GET+68, GET+69, GET+70, GET+72, GET+73, GET+74, GET+75 , GET+76, GET+77, GET+78, GET+79, GET+80, GET+81, GET+82, GET+83, GET+84, GET+85 , GET+86 |
L | PRT~, PRT+5, PRT+7, PRT+8 |
LM | DVINFO~, DVINFO+7, PTINFO~, PTINFO+5, PTINFO+7 |
NCPNPI | DVINFO+4~, DVINFO+6*, DVINFO+7 |
OKCL | GET~, GET+40, GET+46, GET+71 |
ONOFF | RETRXF~, RETRXF+5 |
OPTS | HELP~, HELP+2, HELP+10, HELP+16 |
P | PRT~, PRT+5, PRT+7, PRT+8 |
PAN | PA+5~, PA+13*, PA+14 |
PAT | PA+5~, PA+9*, PA+14 |
PTINFO | PTINFO+3~, PTINFO+5*, PTINFO+6*, PTINFO+7*, PTINFO+8 |
REASON | REASON+3~, REASON+4*, REASON+5, REASON+6 |
REJ | SETOPN~, SETOPN+4, SETOPN+6, PRT+5 |
REJDATA | GET~, GET+34! |
REJDATA( | GET+55*, GET+56*, GET+57*, GET+58*, GET+59*, GET+60*, GET+61*, GET+62*, GET+63*, GET+64* , GET+65*, GET+66*, GET+67*, GET+68*, GET+69*, GET+70*, GET+72*, GET+73*, GET+74*, GET+75* , GET+76*, GET+77*, GET+78*, GET+79*, GET+80*, GET+81*, GET+84*, GET+85*, GET+86* |
REJFLD | GET+30~, GET+53!* |
REJFLD( | GET+54, GET+55 |
REJFLD(1 | GET+56 |
REJFLD(10 | GET+72 |
REJFLD(11 | GET+73 |
REJFLD(12 | GET+74 |
REJFLD(13 | GET+75 |
REJFLD(14 | GET+69, GET+76 |
REJFLD(15 | GET+77 |
REJFLD(16 | GET+70 |
REJFLD(17 | GET+67 |
REJFLD(18 | GET+68 |
REJFLD(19 | GET+78 |
REJFLD(2 | GET+57 |
REJFLD(20 | GET+60 |
REJFLD(21 | GET+62 |
REJFLD(22 | GET+63 |
REJFLD(24 | GET+79 |
REJFLD(25 | GET+80 |
REJFLD(26 | GET+81 |
REJFLD(3 | GET+58 |
REJFLD(4 | GET+59 |
REJFLD(6 | GET+61 |
REJFLD(7 | GET+64 |
REJFLD(8 | GET+65 |
REJFLD(9 | GET+66 |
REJID | GET~, GET+38, GET+39, GET+40, GET+41 |
REJS | GET+30~, GET+37!, GET+48 |
REJS( | GET+41*, GET+47*, GET+51 |
RFL | GET~, GET+32*, GET+37*, GET+39, GET+45, DVINFO~, DVINFO+5, DVINFO+6, RETRXF~, RETRXF+6 , RETRXF+7 |
RX | GET~, GET+32, GET+35, GET+39, GET+40, GET+44, GET+45, GET+46, GET+52, GET+53 , GET+82, GET+83, DVINFO~, DVINFO+5, DVINFO+6, PTINFO~, PTINFO+4, RETRXF~, RETRXF+6, RETRXF+7 , SETOPN~, SETOPN+4, SETOPN+6 |
TXT | DVINFO+4~, REASON~, REASON+4, PRT+4~, PRT+5*, PRT+6, PRT+7*, PRT+8* |
VADM | PTINFO+3~ |
VADM(1 | PTINFO+5 |
VADM(2 | PTINFO+5 |
VADM(3 | PTINFO+7 |
VADM(4 | PTINFO+7 |
VADM(5 | PTINFO+6 |
X | REASON+3~, REASON+5* |
Y | REASON+3~, REASON+5, PA+5~, PA+9, PA+12, PA+13 |
Z | GET+30~, GET+83*, GET+84, GET+85, GET+86 |