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 Oct 16, 2024@17:52:43 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
