19 lines
788 B
Mathematica
19 lines
788 B
Mathematica
BPSOSQ ;BHAM ISC/FCS/DRS/DLF - BPS Transactions Utils ;06/01/2004
|
|
;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
|
|
;;Per VHA Directive 2004-038, this routine should not be modified.
|
|
Q
|
|
;
|
|
; Numerous little functions for BPS Transactions
|
|
; BPS Log of Transaction versions in BPSOS57
|
|
; All functions assume that IEN59 will exist
|
|
;
|
|
RXI() Q $P(^BPST(IEN59,1),U,11) ; Given IEN59, return RXI
|
|
RXR() Q $P(^BPST(IEN59,1),U,1) ; Given IEN59, return RXR
|
|
NDC() Q $P(^BPST(IEN59,1),U,2)
|
|
QTY() Q $P(^BPST(IEN59,5),U) ; Given IEN59, return quantity
|
|
AMT() Q $P(^BPST(IEN59,5),U,5) ; return total $amount
|
|
CHG() Q $P(^BPST(IEN59,5),U,5) ; Given IEN59, ret total charge
|
|
PATIENT() Q $P(^BPST(IEN59,0),U,6)
|
|
USER() N X S X=$P(^BPST(IEN59,0),U,10) S:'X X=$G(DUZ) Q X
|
|
NOW() N %,%H,%I,X D NOW^%DTC Q %
|