source: FOIAVistA/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOSQ.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 788 bytes
Line 
1BPSOSQ ;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 ;
10RXI() Q $P(^BPST(IEN59,1),U,11) ; Given IEN59, return RXI
11RXR() Q $P(^BPST(IEN59,1),U,1) ; Given IEN59, return RXR
12NDC() Q $P(^BPST(IEN59,1),U,2)
13QTY() Q $P(^BPST(IEN59,5),U) ; Given IEN59, return quantity
14AMT() Q $P(^BPST(IEN59,5),U,5) ; return total $amount
15CHG() Q $P(^BPST(IEN59,5),U,5) ; Given IEN59, ret total charge
16PATIENT() Q $P(^BPST(IEN59,0),U,6)
17USER() N X S X=$P(^BPST(IEN59,0),U,10) S:'X X=$G(DUZ) Q X
18NOW() N %,%H,%I,X D NOW^%DTC Q %
Note: See TracBrowser for help on using the repository browser.