BPSOSO.m

BPSOSO ;BHAM ISC/FCS/DRS/DLF - "O" is for Override NCPDP field values ;06/01/2004

 ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ; File 9002313.511 BPS NCPDP OVERRIDE

 ;

 ; IHS/SD/lwj 8/20/02 NCPDP 5.1 changes

 ; In 5.1 there is now some repeating fields/records.  The DUR/PPS

 ; segment is a repeating segment (i.e. all the fields in this

 ; segment repeat.)  Much like the values for the BPS NCPDP

 ; Overrides are stored in a separate file, and referenced in

 ; the prescription file, the DUR/PPS values will be stored in

 ; a separate file (BPS DUR/PPS) and simply referenced in the

 ; prescription file.  For this reason, I'm adding the retrieval

 ; of the prescription DUR/PPS pointer in this routine to keep

 ; things consistent.

 ;

 Q

 ;

OVERRIDE(IEN) ; main entry point

 ; IEN points to file 9002313.511

 ; Sometimes we have IEN; sometimes we don't

 ; called from pharmacy package

 ; called from somewhere in POS, too

 I $D(IEN) D

 . I '$D(^BPS(9002313.511,IEN)) D  ; it must have been winnowed

 . . S IEN=$$NEW^BPSOSO2

 E  D

 . I '$D(IEN) S IEN=$$NEW^BPSOSO2

 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 ""

 D MENU^BPSOSO1(IEN)

 Q IEN

OVERRIDR(RXI,RXR) ; alternative entry point - given RXI,RXR instead of IEN

 N IEN

 I $G(RXR) S IEN=$$GETIEN(RXI,RXR)

 E  S IEN=$$GETIEN(RXI)

 S IEN=$$OVERRIDE(IEN)

 Q IEN

GETIEN(RXI,RXR) ;EP -  also called from claim construction

 Q ""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSOSO   1595     printed  Apr 09, 2024@20:56:39                                                                                                                                                                                                      Page 2

BPSOSO    ;BHAM ISC/FCS/DRS/DLF - "O" is for Override NCPDP field values ;06/01/2004

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; File 9002313.511 BPS NCPDP OVERRIDE

 +5       ;

 +6       ; IHS/SD/lwj 8/20/02 NCPDP 5.1 changes

 +7       ; In 5.1 there is now some repeating fields/records.  The DUR/PPS

 +8       ; segment is a repeating segment (i.e. all the fields in this

 +9       ; segment repeat.)  Much like the values for the BPS NCPDP

 +10      ; Overrides are stored in a separate file, and referenced in

 +11      ; the prescription file, the DUR/PPS values will be stored in

 +12      ; a separate file (BPS DUR/PPS) and simply referenced in the

 +13      ; prescription file.  For this reason, I'm adding the retrieval

 +14      ; of the prescription DUR/PPS pointer in this routine to keep

 +15      ; things consistent.

 +16      ;

 +17       QUIT 

 +18      ;

OVERRIDE(IEN) ; main entry point

 +1       ; IEN points to file 9002313.511

 +2       ; Sometimes we have IEN; sometimes we don't

 +3       ; called from pharmacy package

 +4       ; called from somewhere in POS, too

 +5        IF $DATA(IEN)

               Begin DoDot:1

 +6       ; it must have been winnowed

                   IF '$DATA(^BPS(9002313.511,IEN))

                       Begin DoDot:2

 +7                        SET IEN=$$NEW^BPSOSO2

                       End DoDot:2

               End DoDot:1

 +8       IF '$TEST

               Begin DoDot:1

 +9                IF '$DATA(IEN)

                       SET IEN=$$NEW^BPSOSO2

               End DoDot:1

 +10       IF 'IEN

               NEW RETVAL

               SET RETVAL=$$IMPOSS^BPSOSUE("FM,P","TI","Failed to create Overrides record / or bad parameter in call",,"OVERRIDE",$TEXT(+0))

               QUIT ""

 +11       DO MENU^BPSOSO1(IEN)

 +12       QUIT IEN

OVERRIDR(RXI,RXR) ; alternative entry point - given RXI,RXR instead of IEN

 +1        NEW IEN

 +2        IF $GET(RXR)

               SET IEN=$$GETIEN(RXI,RXR)

 +3       IF '$TEST

               SET IEN=$$GETIEN(RXI)

 +4        SET IEN=$$OVERRIDE(IEN)

 +5        QUIT IEN

GETIEN(RXI,RXR) ;EP -  also called from claim construction

 +1        QUIT ""