| [613] | 1 | BPSOSQ ;BHAM ISC/FCS/DRS/DLF - BPS Transactions Utils ;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 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ; Numerous little functions for BPS Transactions
|
|---|
| 7 | ; BPS Log of Transaction versions in BPSOS57
|
|---|
| 8 | ; All functions assume that IEN59 will exist
|
|---|
| 9 | ;
|
|---|
| 10 | RXI() Q $P(^BPST(IEN59,1),U,11) ; Given IEN59, return RXI
|
|---|
| 11 | RXR() Q $P(^BPST(IEN59,1),U,1) ; Given IEN59, return RXR
|
|---|
| 12 | NDC() Q $P(^BPST(IEN59,1),U,2)
|
|---|
| 13 | QTY() Q $P(^BPST(IEN59,5),U) ; Given IEN59, return quantity
|
|---|
| 14 | AMT() Q $P(^BPST(IEN59,5),U,5) ; return total $amount
|
|---|
| 15 | CHG() Q $P(^BPST(IEN59,5),U,5) ; Given IEN59, ret total charge
|
|---|
| 16 | PATIENT() Q $P(^BPST(IEN59,0),U,6)
|
|---|
| 17 | USER() N X S X=$P(^BPST(IEN59,0),U,10) S:'X X=$G(DUZ) Q X
|
|---|
| 18 | NOW() N %,%H,%I,X D NOW^%DTC Q %
|
|---|
