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 %
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSOSQ 806 printed Dec 13, 2024@01:51:50 Page 2
BPSOSQ ;BHAM ISC/FCS/DRS/DLF - BPS Transactions Utils ;06/01/2004
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
+5 ; Numerous little functions for BPS Transactions
+6 ; BPS Log of Transaction versions in BPSOS57
+7 ; All functions assume that IEN59 will exist
+8 ;
RXI() ; Given IEN59, return RXI
QUIT $PIECE(^BPST(IEN59,1),U,11)
RXR() ; Given IEN59, return RXR
QUIT $PIECE(^BPST(IEN59,1),U,1)
NDC() QUIT $PIECE(^BPST(IEN59,1),U,2)
QTY() ; Given IEN59, return quantity
QUIT $PIECE(^BPST(IEN59,5),U)
AMT() ; return total $amount
QUIT $PIECE(^BPST(IEN59,5),U,5)
CHG() ; Given IEN59, ret total charge
QUIT $PIECE(^BPST(IEN59,5),U,5)
PATIENT() QUIT $PIECE(^BPST(IEN59,0),U,6)
USER() NEW X
SET X=$PIECE(^BPST(IEN59,0),U,10)
if 'X
SET X=$GET(DUZ)
QUIT X
NOW() NEW %,%H,%I,X
DO NOW^%DTC
QUIT %
