source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOSO.m@ 1076

Last change on this file since 1076 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1BPSOSO ;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 ;
20OVERRIDE(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
33OVERRIDR(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
39GETIEN(RXI,RXR) ;EP - also called from claim construction
40 Q ""
Note: See TracBrowser for help on using the repository browser.