| 1 | BPSJUTL1 ;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)>
|
|---|
| 8 | FLD402B ;
|
|---|
| 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 | ;
|
|---|
| 20 | FLD408B ;
|
|---|
| 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 | ;
|
|---|
| 29 | FLD419B ;
|
|---|
| 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 | ;
|
|---|
| 38 | FLD420B ;
|
|---|
| 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 | ;
|
|---|
| 47 | FLD433B ;
|
|---|
| 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
|
|---|
