BQIRGDBL ;VNGT/HS/ALA-Register 'Multiples' ; 11 Oct 2010 7:19 AM
;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27
;
Q
;
EN(HEADR,VALUE,BQIDFN,HFIL,DISPLAY) ;
NEW BQRIEN,HIVIEN,IENS,DA
S IEN=0,HEADR="T00030IEN^",VALUE=""
S ORD=""
F S ORD=$O(DISPLAY(ORD)) Q:ORD="" D
. S HDR=$P(DISPLAY(ORD),U,1)
. S HEADR=HEADR_HDR_"^"
;
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S ROOT=$$ROOT^DILFD(HFIL,"",1)
;
S VLU=""
F S VLU=$O(@ROOT@("AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. NEW DA,IENS
. S BQRIEN=@ROOT@("AC",ACMIEN,BQIDFN,VLU)
. S DA=BQRIEN,IENS=$$IENS^DILF(.DA)
. S VALUE(BQRIEN)=IENS_"^"
. ; Get an array of the display order fields
. S ORD=""
. F S ORD=$O(DISPLAY(ORD)) Q:ORD="" D
.. S FLD=$P(DISPLAY(ORD),U,2),TYPE=$P(DISPLAY(ORD),U,3)
.. I TYPE'="D"!(TYPE'="X") S VAL=$$GET1^DIQ(HFIL,IENS,FLD,"E")
.. I TYPE="C"!(TYPE="T") S VAL=$$GET1^DIQ(HFIL,IENS,FLD,"I")_$C(28)_$$GET1^DIQ(HFIL,IENS,FLD,"E")
.. I TYPE="D" S VAL=$$GET1^DIQ(HFIL,IENS,FLD,"I"),VAL=$$FMTE^BQIUL1(VAL)
.. I TYPE="W" D
... K HARRAY
... S VAL=$$GET1^DIQ(HFIL,IENS,FLD,"Z","HARRAY")
... S LIEN=0,VAL=""
... F S LIEN=$O(HARRAY(LIEN)) Q:'LIEN D
.... S VAL=VAL_HARRAY(LIEN,0)_$C(10)
... S VAL=$$TKO^BQIUL1(VAL,$C(10))
.. S VALUE(BQRIEN)=VALUE(BQRIEN)_VAL_"^"
Q
;
DXN(BQIDFN,REG) ;EP - Diagnoses
NEW ACMIEN,VLU,TEXT
;S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
S ACMIEN=$O(^ACM(41.1,"B",REG,""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(44,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S TEXT=TEXT_$P(^ACM(44.1,VLU,0),U,1)_$C(10)_$C(13)
Q $$TKO^BQIUL1(TEXT,$C(10)_$C(13))
;
ONS(BQIDFN) ; EP - Date of Onset for Diabetes Diagnoses
NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(44,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S BDRIEN=$G(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
. S TXT=$$GET1^DIQ(9002244,BDRIEN_",",2,"I") I TXT="" Q
. S TEXT=TEXT_$$FMTE^BQIUL1(TXT)_"; "
Q $$TKO^BQIUL1(TEXT,"; ")
;
SEV(BQIDFN) ; EP - Severity for Diabetes Diagnoses
NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(44,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S BDRIEN=$G(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
. S TXT=$$GET1^DIQ(9002244,BDRIEN_",",1,"E") I TXT="" Q
. S TEXT=TEXT_TXT_"; "
Q $$TKO^BQIUL1(TEXT,"; ")
;
COMP(BQIDFN) ; EP - Complications
NEW ACMIEN,VLU,TEXT
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(42,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S TEXT=TEXT_$P(^ACM(42.1,VLU,0),U,1)_"; "
Q $$TKO^BQIUL1(TEXT,"; ")
;
CONS(BQIDFN) ; EP - Complications Date of Onset
NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(42,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S BDRIEN=$G(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
. S TXT=$$GET1^DIQ(9002242,BDRIEN_",",1,"I") I TXT="" Q
. S TEXT=TEXT_$$FMTE^BQIUL1(TXT)_"; "
Q $$TKO^BQIUL1(TEXT,"; ")
;
CST(BQIDFN) ; EP - Complications Status
NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(42,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S BDRIEN=$G(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
. S TXT=$$GET1^DIQ(9002242,BDRIEN_",",2,"E") I TXT="" Q
. S TEXT=TEXT_TXT_"; "
Q $$TKO^BQIUL1(TEXT,"; ")
;
COMM(BQIDFN) ; EP - Complications Comments
NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
I ACMIEN="" S ACMIEN=$O(^ACM(41.1,"B","IHS DIABETES",""))
S VLU="",TEXT=""
F S VLU=$O(^ACM(42,"AC",ACMIEN,BQIDFN,VLU)) Q:VLU="" D
. S BDRIEN=$G(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
. ;
Q $$TKO^BQIUL1(TEXT,"; ")
BQIRGDBL ;VNGT/HS/ALA-Register 'Multiples' ; 11 Oct 2010 7:19 AM
+1 ;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27
+2 ;
+3 QUIT
+4 ;
EN(HEADR,VALUE,BQIDFN,HFIL,DISPLAY) ;
+1 NEW BQRIEN,HIVIEN,IENS,DA
+2 SET IEN=0
SET HEADR="T00030IEN^"
SET VALUE=""
+3 SET ORD=""
+4 FOR
SET ORD=$ORDER(DISPLAY(ORD))
IF ORD=""
QUIT
Begin DoDot:1
+5 SET HDR=$PIECE(DISPLAY(ORD),U,1)
+6 SET HEADR=HEADR_HDR_"^"
End DoDot:1
+7 ;
+8 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+9 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+10 SET ROOT=$$ROOT^DILFD(HFIL,"",1)
+11 ;
+12 SET VLU=""
+13 FOR
SET VLU=$ORDER(@ROOT@("AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+14 NEW DA,IENS
+15 SET BQRIEN=@ROOT@("AC",ACMIEN,BQIDFN,VLU)
+16 SET DA=BQRIEN
SET IENS=$$IENS^DILF(.DA)
+17 SET VALUE(BQRIEN)=IENS_"^"
+18 ; Get an array of the display order fields
+19 SET ORD=""
+20 FOR
SET ORD=$ORDER(DISPLAY(ORD))
IF ORD=""
QUIT
Begin DoDot:2
+21 SET FLD=$PIECE(DISPLAY(ORD),U,2)
SET TYPE=$PIECE(DISPLAY(ORD),U,3)
+22 IF TYPE'="D"!(TYPE'="X")
SET VAL=$$GET1^DIQ(HFIL,IENS,FLD,"E")
+23 IF TYPE="C"!(TYPE="T")
SET VAL=$$GET1^DIQ(HFIL,IENS,FLD,"I")_$CHAR(28)_$$GET1^DIQ(HFIL,IENS,FLD,"E")
+24 IF TYPE="D"
SET VAL=$$GET1^DIQ(HFIL,IENS,FLD,"I")
SET VAL=$$FMTE^BQIUL1(VAL)
+25 IF TYPE="W"
Begin DoDot:3
+26 KILL HARRAY
+27 SET VAL=$$GET1^DIQ(HFIL,IENS,FLD,"Z","HARRAY")
+28 SET LIEN=0
SET VAL=""
+29 FOR
SET LIEN=$ORDER(HARRAY(LIEN))
IF 'LIEN
QUIT
Begin DoDot:4
+30 SET VAL=VAL_HARRAY(LIEN,0)_$CHAR(10)
End DoDot:4
+31 SET VAL=$$TKO^BQIUL1(VAL,$CHAR(10))
End DoDot:3
+32 SET VALUE(BQRIEN)=VALUE(BQRIEN)_VAL_"^"
End DoDot:2
End DoDot:1
+33 QUIT
+34 ;
DXN(BQIDFN,REG) ;EP - Diagnoses
+1 NEW ACMIEN,VLU,TEXT
+2 ;S ACMIEN=$P($G(^BQI(90508,1,"DM")),"^",2)
+3 SET ACMIEN=$ORDER(^ACM(41.1,"B",REG,""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET TEXT=TEXT_$PIECE(^ACM(44.1,VLU,0),U,1)_$CHAR(10)_$CHAR(13)
End DoDot:1
+7 QUIT $$TKO^BQIUL1(TEXT,$CHAR(10)_$CHAR(13))
+8 ;
ONS(BQIDFN) ; EP - Date of Onset for Diabetes Diagnoses
+1 NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
+2 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+3 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET BDRIEN=$GET(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
+7 SET TXT=$$GET1^DIQ(9002244,BDRIEN_",",2,"I")
IF TXT=""
QUIT
+8 SET TEXT=TEXT_$$FMTE^BQIUL1(TXT)_"; "
End DoDot:1
+9 QUIT $$TKO^BQIUL1(TEXT,"; ")
+10 ;
SEV(BQIDFN) ; EP - Severity for Diabetes Diagnoses
+1 NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
+2 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+3 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET BDRIEN=$GET(^ACM(44,"AC",ACMIEN,BQIDFN,VLU))
+7 SET TXT=$$GET1^DIQ(9002244,BDRIEN_",",1,"E")
IF TXT=""
QUIT
+8 SET TEXT=TEXT_TXT_"; "
End DoDot:1
+9 QUIT $$TKO^BQIUL1(TEXT,"; ")
+10 ;
COMP(BQIDFN) ; EP - Complications
+1 NEW ACMIEN,VLU,TEXT
+2 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+3 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET TEXT=TEXT_$PIECE(^ACM(42.1,VLU,0),U,1)_"; "
End DoDot:1
+7 QUIT $$TKO^BQIUL1(TEXT,"; ")
+8 ;
CONS(BQIDFN) ; EP - Complications Date of Onset
+1 NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
+2 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+3 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET BDRIEN=$GET(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
+7 SET TXT=$$GET1^DIQ(9002242,BDRIEN_",",1,"I")
IF TXT=""
QUIT
+8 SET TEXT=TEXT_$$FMTE^BQIUL1(TXT)_"; "
End DoDot:1
+9 QUIT $$TKO^BQIUL1(TEXT,"; ")
+10 ;
CST(BQIDFN) ; EP - Complications Status
+1 NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
+2 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+3 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET BDRIEN=$GET(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
+7 SET TXT=$$GET1^DIQ(9002242,BDRIEN_",",2,"E")
IF TXT=""
QUIT
+8 SET TEXT=TEXT_TXT_"; "
End DoDot:1
+9 QUIT $$TKO^BQIUL1(TEXT,"; ")
+10 ;
COMM(BQIDFN) ; EP - Complications Comments
+1 NEW ACMIEN,VLU,TEXT,BDRIEN,TXT
+2 SET ACMIEN=$PIECE($GET(^BQI(90508,1,"DM")),"^",2)
+3 IF ACMIEN=""
SET ACMIEN=$ORDER(^ACM(41.1,"B","IHS DIABETES",""))
+4 SET VLU=""
SET TEXT=""
+5 FOR
SET VLU=$ORDER(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
IF VLU=""
QUIT
Begin DoDot:1
+6 SET BDRIEN=$GET(^ACM(42,"AC",ACMIEN,BQIDFN,VLU))
+7 ;
End DoDot:1
+8 QUIT $$TKO^BQIUL1(TEXT,"; ")
