BPSOSQC.m

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 ---BPSOSQC   623     printed  Sep 02, 2024@18:37:15                                                                                                                                                                                                      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