- BPSOSQC ;BHAM ISC/FCS/DRS/FLS - ECME background, Part 1 ;06/01/2004
- ;;1.0;E CLAIMS MGMT ENGINE;**1,3,5**;JUN 2004;Build 45
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;External reference private DBIA 4303
- Q
- ;
- ; Function to return division linked to the prescription or refill
- ; Input
- ; RX - Prescription IEN
- ; RXR - Refill
- ; Returns
- ; BPSDIV - Outpatient Site
- GETDIV(RX,RXR) ; Get Division from RX or Refill
- N BPSDIV
- I '$G(RX) Q ""
- I $G(RXR)="" Q ""
- I RXR S BPSDIV=$$RXSUBF1^BPSUTIL1(RX,52,52.1,RXR,8,"I")
- E S BPSDIV=$$RXAPI1^BPSUTIL1(RX,20,"I")
- Q BPSDIV
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSOSQC 623 printed Feb 18, 2025@23:18:18 Page 2
- BPSOSQC ;BHAM ISC/FCS/DRS/FLS - ECME background, Part 1 ;06/01/2004
- +1 ;;1.0;E CLAIMS MGMT ENGINE;**1,3,5**;JUN 2004;Build 45
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;External reference private DBIA 4303
- +4 QUIT
- +5 ;
- +6 ; Function to return division linked to the prescription or refill
- +7 ; Input
- +8 ; RX - Prescription IEN
- +9 ; RXR - Refill
- +10 ; Returns
- +11 ; BPSDIV - Outpatient Site
- GETDIV(RX,RXR) ; Get Division from RX or Refill
- +1 NEW BPSDIV
- +2 IF '$GET(RX)
- QUIT ""
- +3 IF $GET(RXR)=""
- QUIT ""
- +4 IF RXR
- SET BPSDIV=$$RXSUBF1^BPSUTIL1(RX,52,52.1,RXR,8,"I")
- +5 IF '$TEST
- SET BPSDIV=$$RXAPI1^BPSUTIL1(RX,20,"I")
- +6 QUIT BPSDIV