source: FOIAVistA/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSECX0.m@ 1678

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

initial load of FOIAVistA 6/30/08 version
File size: 3.8 KB
Line 
1BPSECX0 ;BHAM ISC/FCS/DRS/VA/DLF - Retrieve Claim submission record ;05/17/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 Q
5 ;----------------------------------------------------------------------
6 ;Retrieve Claim submission record
7 ;
8 ;Input Variables: CLAIMIEN - Claim Submission IEN (9002313.02)
9 ; .BPS - Pass by reference, output only
10 ;
11 ;Output Variables: BPS(9002313.02,CLAIMIEN,<field #>,"I") = Value
12 ;----------------------------------------------------------------------
13 ; IHS/SD/lwj 08/13/02 NCPDP 5.1 changes
14 ; Many fields that were once a part of the "header" of the claim
15 ; were shifted to appear on the "rx" or "detail" segments of the
16 ; claim in 5.1. Additionally, MANY new fields were added beyond 499.
17 ; For these reasons, we had to change the GETBPS3
18 ; subroutine to pull fields 308 through 600 rather than just
19 ; 402 - 499. The really cool thing is that because we are at the
20 ; subfile level, the duplicated fields (between header and rx)
21 ; will only pull at the appropriate level. 3.2 claims should
22 ; be unaffected by this change, as the adjusted and new fields
23 ; were not populated for 3.2
24 ;
25 ; New subroutine added GETBPS4 to pull out the repeating fields for
26 ; the DUR/PPS records
27 ;----------------------------------------------------------------------
28 ;
29GETBPS2(CLAIMIEN,BPS) ;EP - from BPSECA1 from BPSOSQG from BPSOSQ2
30 ;Manage local variables
31 N DIC,DR,DA,DIQ,D0,DIQ2
32 ;
33 ;Make sure input variables are defined
34 Q:$G(CLAIMIEN)=""
35 ;
36 ;Set input variables for FileMan data retrieval routine
37 ;IHS/SD/lwj 9/9/02 need to expand the field range to include
38 ; the "500" range fields now used in the header segments
39 ; for NCPDP 5.1
40 ;
41 S DIC=9002313.02
42 ; IHS/SD/lwj 9/9/02 NCPDP 5.1 changes
43 S DR="101:600"
44 S DA=CLAIMIEN
45 S DIQ="BPS",DIQ(0)="I"
46 ;
47 ;Execute data retrieval routine
48 D EN^DIQ1
49 Q
50 ;----------------------------------------------------------------------
51 ;Retrieve Claim Submission, Prescription(s) multiple record
52 ;
53 ;Input Variables: CLAIMIEN - Claim Submission IEN (9002313.02)
54 ; CRXIEN - Prescription Multiple IEN (9002313.0201)
55 ;
56 ;Output Variables: BPS(9002313.0201,CRXIEN,<field #>,"I") = Value
57 ;----------------------------------------------------------------------
58GETBPS3(CLAIMIEN,CRXIEN,BPS) ;EP - from BPSECA1
59 ;Manage local variables
60 N DIC,DR,DA,DIQ,D0,DIQ2
61 ;
62 ;Make sure input variables are defined
63 Q:$G(CLAIMIEN)=""
64 Q:$G(CRXIEN)=""
65 ;
66 ;S input variables for FileMan data retrieval routine
67 S DIC=9002313.02
68 ;
69 S DR="400",DR(9002313.0201)="308:600" ;need new RX fields
70 ;IHS/SD/lwj 8/13/02 end changes
71 S DA=CLAIMIEN,DA(9002313.0201)=CRXIEN
72 S DIQ="BPS",DIQ(0)="I"
73 ;
74 ;Execute data retrieval routine
75 D EN^DIQ1
76 Q
77 ;----------------------------------------------------------------------
78 ;Retrieve Claim Submission, Prescription(s) multiple, DUR/PPS multiple
79 ; record
80 ;
81 ;Input Variables: CLAIMIEN - Claim Submission IEN (9002313.02)
82 ; CRXIEN - Prescription Multiple IEN (9002313.0201)
83 ; CDURIEN - DUR/PPS Multiple IEN (9002313.1001)
84 ;
85 ;Output Variables: BPS(9002313.1001,CDURIEN,<field #>,"I") = Value
86 ;----------------------------------------------------------------------
87GETBPS4(CLAIMIEN,CRXIEN,CDURIEN,BPS) ;EP - from BPSECA1
88 ;
89 ;Manage local variables
90 N DIC,DR,DA,DIQ,D0,DIQ2
91 ;
92 ;Make sure input variables are defined
93 Q:$G(CLAIMIEN)=""
94 Q:$G(CRXIEN)=""
95 Q:$G(CDURIEN)=""
96 ;
97 ;S input variables for FileMan data retrieval routine
98 S DIC=9002313.02
99 ;
100 S DR="400",DR(9002313.0201)=473.01 ;fields
101 S DR(9002313.1001)=".01;439;440;441;474;475;476" ;fields
102 S DA=CLAIMIEN,DA(9002313.0201)=CRXIEN,DA(9002313.1001)=CDURIEN
103 S DIQ="BPS",DIQ(0)="I"
104 ;
105 ;Execute data retrieval routine
106 D EN^DIQ1
107 ;
108 Q
Note: See TracBrowser for help on using the repository browser.