| [613] | 1 | BPSOSO ;BHAM ISC/FCS/DRS/DLF - "O" is for Override NCPDP field values ;06/01/2004
|
|---|
| 2 | ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; File 9002313.511 BPS NCPDP OVERRIDE
|
|---|
| 6 | ;
|
|---|
| 7 | ; IHS/SD/lwj 8/20/02 NCPDP 5.1 changes
|
|---|
| 8 | ; In 5.1 there is now some repeating fields/records. The DUR/PPS
|
|---|
| 9 | ; segment is a repeating segment (i.e. all the fields in this
|
|---|
| 10 | ; segment repeat.) Much like the values for the BPS NCPDP
|
|---|
| 11 | ; Overrides are stored in a separate file, and referenced in
|
|---|
| 12 | ; the prescription file, the DUR/PPS values will be stored in
|
|---|
| 13 | ; a separate file (BPS DUR/PPS) and simply referenced in the
|
|---|
| 14 | ; prescription file. For this reason, I'm adding the retrieval
|
|---|
| 15 | ; of the prescription DUR/PPS pointer in this routine to keep
|
|---|
| 16 | ; things consistent.
|
|---|
| 17 | ;
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | OVERRIDE(IEN) ; main entry point
|
|---|
| 21 | ; IEN points to file 9002313.511
|
|---|
| 22 | ; Sometimes we have IEN; sometimes we don't
|
|---|
| 23 | ; called from pharmacy package
|
|---|
| 24 | ; called from somewhere in POS, too
|
|---|
| 25 | I $D(IEN) D
|
|---|
| 26 | . I '$D(^BPS(9002313.511,IEN)) D ; it must have been winnowed
|
|---|
| 27 | . . S IEN=$$NEW^BPSOSO2
|
|---|
| 28 | E D
|
|---|
| 29 | . I '$D(IEN) S IEN=$$NEW^BPSOSO2
|
|---|
| 30 | I 'IEN N RETVAL S RETVAL=$$IMPOSS^BPSOSUE("FM,P","TI","Failed to create Overrides record / or bad parameter in call",,"OVERRIDE",$T(+0)) Q ""
|
|---|
| 31 | D MENU^BPSOSO1(IEN)
|
|---|
| 32 | Q IEN
|
|---|
| 33 | OVERRIDR(RXI,RXR) ; alternative entry point - given RXI,RXR instead of IEN
|
|---|
| 34 | N IEN
|
|---|
| 35 | I $G(RXR) S IEN=$$GETIEN(RXI,RXR)
|
|---|
| 36 | E S IEN=$$GETIEN(RXI)
|
|---|
| 37 | S IEN=$$OVERRIDE(IEN)
|
|---|
| 38 | Q IEN
|
|---|
| 39 | GETIEN(RXI,RXR) ;EP - also called from claim construction
|
|---|
| 40 | Q ""
|
|---|
