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 |