- 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