source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSJUTL1.m@ 701

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1BPSJUTL1 ;BHAM ISC/DB - e-Pharmacy Utils ;18-JAN-2004
2 ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ; Special Code for WebMD Test
5 ; WBTESTB1 - Billing
6 ; WBTESTB2 - Reversal
7 ; Tags are 'FLD'_<Field_Number>_<'B' (billing) or 'R' (reversal)>
8FLD402B ;
9 S BPS("X")=$G(BPS("X")) I $G(BPS(9002313.0201))="" Q
10 I BPS("RX",BPS(9002313.0201),"RX IEN")=401944 S BPS("X")=7
11 I BPS("RX",BPS(9002313.0201),"RX IEN")=401959 S BPS("X")=1
12 I BPS("RX",BPS(9002313.0201),"RX IEN")=401974 S BPS("X")=2
13 I BPS("RX",BPS(9002313.0201),"RX IEN")=401976 S BPS("X")=3
14 I BPS("RX",BPS(9002313.0201),"RX IEN")=401958 S BPS("X")=4
15 ;???
16 I BPS("X")="" S BPS("X")=BPS("RX",BPS(9002313.0201),"RX IEN")
17 I BPS("RX",BPS(9002313.0201),"RX IEN")'=401944 S BPS("X")=BPS("RX",BPS(9002313.0201),"RX IEN")
18 Q
19 ;
20FLD408B ;
21 S BPS("X")=0 I $G(BPS(9002313.0201))="" Q
22 I BPS("RX",BPS(9002313.0201),"RX IEN")=401944 S BPS("X")="1"
23 I BPS("RX",BPS(9002313.0201),"RX IEN")=401959 S BPS("X")="1"
24 I BPS("RX",BPS(9002313.0201),"RX IEN")=401974 S BPS("X")="1"
25 I BPS("RX",BPS(9002313.0201),"RX IEN")=401976 S BPS("X")="0"
26 I BPS("RX",BPS(9002313.0201),"RX IEN")=401958 S BPS("X")="1"
27 Q
28 ;
29FLD419B ;
30 S BPS("X")=0 I $G(BPS(9002313.0201))="" Q
31 I BPS("RX",BPS(9002313.0201),"RX IEN")=401944 S BPS("X")="1"
32 I BPS("RX",BPS(9002313.0201),"RX IEN")=401959 S BPS("X")="1"
33 I BPS("RX",BPS(9002313.0201),"RX IEN")=401974 S BPS("X")="2"
34 I BPS("RX",BPS(9002313.0201),"RX IEN")=401976 S BPS("X")="1"
35 I BPS("RX",BPS(9002313.0201),"RX IEN")=401958 S BPS("X")="1"
36 Q
37 ;
38FLD420B ;
39 S BPS("X")="00" I $G(BPS(9002313.0201))="" Q
40 I BPS("RX",BPS(9002313.0201),"RX IEN")=401944 S BPS("X")="03"
41 I BPS("RX",BPS(9002313.0201),"RX IEN")=401959 S BPS("X")="00"
42 I BPS("RX",BPS(9002313.0201),"RX IEN")=401974 S BPS("X")="04"
43 I BPS("RX",BPS(9002313.0201),"RX IEN")=401976 S BPS("X")="03"
44 I BPS("RX",BPS(9002313.0201),"RX IEN")=401958 S BPS("X")="00"
45 Q
46 ;
47FLD433B ;
48 S BPS("X")=10.0 I $G(BPS(9002313.0201))="" Q
49 I BPS("RX",BPS(9002313.0201),"RX IEN")=401974 S BPS("X")=5.0
50 I BPS("RX",BPS(9002313.0201),"RX IEN")=401976 S BPS("X")=5.0
51 I BPS("RX",BPS(9002313.0201),"RX IEN")=401958 S BPS("X")=5.0
52 Q
Note: See TracBrowser for help on using the repository browser.