source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOSQC.m@ 767

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

initial load of WorldVistAEHR

File size: 604 bytes
Line 
1BPSOSQC ;BHAM ISC/FCS/DRS/FLS - ECME background, Part 1 ;06/01/2004
2 ;;1.0;E CLAIMS MGMT ENGINE;**1,3,5**;JUN 2004;Build 45
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;External reference private DBIA 4303
5 Q
6 ;
7 ; Function to return division linked to the prescription or refill
8 ; Input
9 ; RX - Prescription IEN
10 ; RXR - Refill
11 ; Returns
12 ; BPSDIV - Outpatient Site
13GETDIV(RX,RXR) ; Get Division from RX or Refill
14 N BPSDIV
15 I '$G(RX) Q ""
16 I $G(RXR)="" Q ""
17 I RXR S BPSDIV=$$RXSUBF1^BPSUTIL1(RX,52,52.1,RXR,8,"I")
18 E S BPSDIV=$$RXAPI1^BPSUTIL1(RX,20,"I")
19 Q BPSDIV
Note: See TracBrowser for help on using the repository browser.