BQI26P1.m

BQI26P1 ;GDIT/HCSD/ALA-Version 2.6 Patch 1 ; 04 Aug 2017  12:54 PM

 ;;2.6;ICARE MANAGEMENT SYSTEM;**1**;Jul 07, 2017;Build 2

 ;

PRE ;EP

 Q

 ;

POS ;EP

 NEW DA

 S DA=$O(^BGPINDGC("C","002.B.3",0))

 I DA S ZZ("2017_"_DA)="",DIE="^BGPINDGC(",DR=".15////# w/ A1c >9 and <12" D ^DIE K DIE,DA,DR

 S DA=$O(^BGPINDGC("C","002.B.6",0))

 I DA S ZZ("2017_"_DA)="",DIE="^BGPINDGC(",DR=".15////# w/ A1c >=8 and <=9" D ^DIE K DIE,DA,DR

 S DA=$O(^BGPINDGC("C","002.B.8",0))

 I DA S ZZ("2017_"_DA)="",DIE="^BGPINDGC(",DR=".15////# w/ A1c > 9" D ^DIE K DIE,DA,DR

 S DA=$O(^BGPINDGC("C","EO.ST.1",0))

 I DA S ZZ("2017_"_DA)="",DIE="^BGPINDGC(",DR=".15////# w/ Anticoagulant Rx" D ^DIE K DIE,DA,DR

 S DA=$O(^BGPINDGC("C","A.L.1",0))

 I DA S ZZ("2017_"_DA)="",DIE="^BGPINDGC(",DR=".15////# w/ Depression Screening or;.16////Mood Disorder-No Refusals (GPRA)" D ^DIE K DIE,DA,DR

 S DA=$O(^BGPINDGC("C","G.K.1",0))

 I DA S ZZ("2017_"_DA)="",DIE="^BGPINDGC(",DR=".15////# w/ Alcohol Screening/Dx/Proc;.16////-No Refusals or Pt Ed" D ^DIE K DIE,DA,DR

 Q

BQI26P1   ;GDIT/HCSD/ALA-Version 2.6 Patch 1 ; 04 Aug 2017  12:54 PM

 +1       ;;2.6;ICARE MANAGEMENT SYSTEM;**1**;Jul 07, 2017;Build 2

 +2       ;

PRE       ;EP

 +1        QUIT 

 +2       ;

POS       ;EP

 +1        NEW DA

 +2        SET DA=$ORDER(^BGPINDGC("C","002.B.3",0))

 +3        IF DA

               SET ZZ("2017_"_DA)=""

               SET DIE="^BGPINDGC("

               SET DR=".15////# w/ A1c >9 and <12"

               DO ^DIE

               KILL DIE,DA,DR

 +4        SET DA=$ORDER(^BGPINDGC("C","002.B.6",0))

 +5        IF DA

               SET ZZ("2017_"_DA)=""

               SET DIE="^BGPINDGC("

               SET DR=".15////# w/ A1c >=8 and <=9"

               DO ^DIE

               KILL DIE,DA,DR

 +6        SET DA=$ORDER(^BGPINDGC("C","002.B.8",0))

 +7        IF DA

               SET ZZ("2017_"_DA)=""

               SET DIE="^BGPINDGC("

               SET DR=".15////# w/ A1c > 9"

               DO ^DIE

               KILL DIE,DA,DR

 +8        SET DA=$ORDER(^BGPINDGC("C","EO.ST.1",0))

 +9        IF DA

               SET ZZ("2017_"_DA)=""

               SET DIE="^BGPINDGC("

               SET DR=".15////# w/ Anticoagulant Rx"

               DO ^DIE

               KILL DIE,DA,DR

 +10       SET DA=$ORDER(^BGPINDGC("C","A.L.1",0))

 +11       IF DA

               SET ZZ("2017_"_DA)=""

               SET DIE="^BGPINDGC("

               SET DR=".15////# w/ Depression Screening or;.16////Mood Disorder-No Refusals (GPRA)"

               DO ^DIE

               KILL DIE,DA,DR

 +12       SET DA=$ORDER(^BGPINDGC("C","G.K.1",0))

 +13       IF DA

               SET ZZ("2017_"_DA)=""

               SET DIE="^BGPINDGC("

               SET DR=".15////# w/ Alcohol Screening/Dx/Proc;.16////-No Refusals or Pt Ed"

               DO ^DIE

               KILL DIE,DA,DR

 +14       QUIT