Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BMCFLTR

BMCFLTR.m

Go to the documentation of this file.
  1. BMCFLTR ; IHS/PHXAO/TMJ - FILTERING CRITERIA FOR REFERRAL SELECTION ;
  1. ;;4.0;REFERRED CARE INFO SYSTEM;**8**;JAN 09, 2006;Build 101
  1. ;;4.0;IHS/ITSC/FCJ ADDED REFERRAL TYPE-PRIMARY OR SECONDARY
  1. ;BMC*4.0*8;IHS/OIT/FCJ; 8-20-13;ADDED TEST FOR APPROVED (A1) REFERRAL
  1. ; This program provides the ability to use different filtering RTYP
  1. ; criteria when selecting referrals for close-out or modification
  1. ;
  1. ; the naked reference is provided by the calling program
  1. ;
  1. ; Input: RTY [=] 0 if closed referrals are not wanted (C1, C2)
  1. ; 1 if only closed referrals are wanted (C1, C2)
  1. ; 2 if only active OR approved referrals are wanted (A,A1)
  1. ; CFY [=] 1 if only current fiscal year referrals are wanted
  1. ; 0 if all fiscal years are eligible
  1. ; RTYP [=] 0 Primary Referral
  1. ; 1 Secondary Referral
  1. ; 2 BOTH
  1. ; Returns: 0 if referral does not qualify
  1. ; 1 if referral does qualify
  1. ;
  1. FILTER(RTY,CFY,RTYP) ; EP - used to select referrals for display on screen
  1. S RTY=$G(RTY),CFY=$G(CFY)
  1. I '$D(^(0)) Q 0 ; no data exists at requested node
  1. I RTY=0,$P(^(0),U,15)["C" Q 0 ; do not want closed referrals
  1. I RTY=1,$P(^(0),U,15)'["C" Q 0 ; want only closed referrals
  1. ;I RTY=2,$P(^(0),U,15)'="A" Q 0 ; want only active referrals BMC*4.0*8
  1. I RTY=2,$P(^(0),U,15)'?1"A".E Q 0 ; want only active OR approved referrals ;BMC*4.0*8
  1. I CFY,$E($P(^(0),U,2),7,8)'=BMCFY Q 0 ;not from current fiscal year
  1. I RTYP=0,$P($G(^(1)),U)'="" Q 0 ; NOT PRIMARY REFERRAL.....FCJ
  1. I RTYP=1,$P($G(^(1)),U)="" Q 0 ; NOT A SECONDARY REFERRAL.....FCJ
  1. Q 1 ; valid referral