BQI25PU1 ;GDIT/HS/ALA-Update Source ; 08 Jan 2015 12:00 PM
;;2.5;ICARE MANAGEMENT SYSTEM;**1**;May 24, 2016;Build 17
;
;
SRC ;EP - Add a source
NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL,TTEXT,BJJ
F BI=1:1 S TEXT=$T(NUM+BI) Q:TEXT=" Q" D
. S CIEN=$P(TEXT,";;",2)
. S TEXT=$P($T(ARR+BI),";;",2) Q:TEXT=""
. F BJ=1:1:$L(TEXT,"~") D
.. S NDATA=$P(TEXT,"~",BJ) I NDATA="" Q
.. S ND=$P(NDATA,"|",1),VAL=$P(NDATA,"|",2)
.. S ^BQI(90506.5,CIEN,ND)=VAL
. ;
. ; Re-Index File
. S DIK="^BQI(90506.5,"
. S DA=CIEN D IX1^DIK
;
; Do multiple fields (categories, clinical groups, layout items and tooltips)
NEW CAT,LAY,REC,CIEN,DATA,CLIN,TEXT,TN,TIP,NDATA
F BI=1:1 S CAT=$T(CAT+BI) Q:CAT=" Q" D
. S TEXT=$P(CAT,";;",2)
. S REC=$P(TEXT,"\",1),DATA=$P(TEXT,"\",2)
. S CIEN=$P(REC,":",1),TN=$P(REC,":",2)
. S ^BQI(90506.5,CIEN,5,0)="^90506.55^"_TN_"^"_TN
. S ^BQI(90506.5,CIEN,5,TN,0)=DATA
F BI=1:1 S CLIN=$T(CLIN+BI) Q:CLIN=" Q" D
. S TEXT=$P(CLIN,";;",2)
. S REC=$P(TEXT,"\",1),DATA=$P(TEXT,"\",2)
. S CIEN=$P(REC,":",1),TN=$P(REC,":",2)
. S ^BQI(90506.5,CIEN,6,0)="^90506.65^"_TN_"^"_TN
. S ^BQI(90506.5,CIEN,6,TN,0)=DATA
F BI=1:1 S LAY=$T(LAY+BI) Q:LAY=" Q" D
. S TEXT=$P(LAY,";;",2)
. S REC=$P(TEXT,"\",1),DATA=$P(TEXT,"\",2)
. S CIEN=$P(REC,":",1),TN=$P(REC,":",2)
. S ^BQI(90506.5,CIEN,10,0)="^90506.51I^"_TN_"^"_TN
. F BJ=1:1:$L(DATA,"~") D
.. S NDATA=$P(DATA,"~",BJ)
.. S ND=$P(NDATA,"|",1),VAL=$P(NDATA,"|",2)
.. S ^BQI(90506.5,CIEN,10,TN,ND)=VAL
F BI=1:1 S TIP=$T(TIP+BI) Q:TIP=" Q" D
. S TEXT=$P(TIP,";;",2)
. S REC=$P(TEXT,"\",1),DATA=$P(TEXT,"\",2)
. S CIEN=$P(REC,":",1),TN=$P(REC,":",2)
. F BJ=1:1:$L(DATA,"~") D
.. S NDATA=$P(DATA,"~",BJ)
.. S ^BQI(90506.5,CIEN,10,TN,4,0)="^^"_BJ_"^"_BJ_"^"_DT
.. S ^BQI(90506.5,CIEN,10,TN,4,BJ,0)=NDATA
;
Q
;
NUM ;EP - Number of new sources
;;38
;;42
;;41
;;9
Q
;
ARR ;EP - Array
;;0|Hep C^HC^^1^^^^^Hep C Default^^^^^1^^1~1|~2|Hep C^Care Mgmt - Hep C^^90505.1231^90505.3231~3|BQI GET CARE MGMT LIST~Patient"" + (char)29 + ""Hep C"~4|BQI GET CARE MGMT VIEW~~~Hep C
;;0|Register^RG^4^^^^^^Register Default^1^^^^^1^^REG
;;0|Men's Health^MH^^^^^^^^1
;;0|Pediatric^P^^^^^^^^1
Q
;
CAT ;EP - Any Categories
Q
;
CLIN ;EP - Any Clinical Groups
Q
;
LAY ;EP - Any layout items
Q
;
TIP ;EP - Tooltips
Q
BQI25PU1 ;GDIT/HS/ALA-Update Source ; 08 Jan 2015 12:00 PM
+1 ;;2.5;ICARE MANAGEMENT SYSTEM;**1**;May 24, 2016;Build 17
+2 ;
+3 ;
SRC ;EP - Add a source
+1 NEW BI,BJ,BK,BN,BQIUPD,ERROR,IEN,ND,NDATA,TEXT,VAL,TTEXT,BJJ
+2 FOR BI=1:1
SET TEXT=$TEXT(NUM+BI)
IF TEXT=" Q"
QUIT
Begin DoDot:1
+3 SET CIEN=$PIECE(TEXT,";;",2)
+4 SET TEXT=$PIECE($TEXT(ARR+BI),";;",2)
IF TEXT=""
QUIT
+5 FOR BJ=1:1:$LENGTH(TEXT,"~")
Begin DoDot:2
+6 SET NDATA=$PIECE(TEXT,"~",BJ)
IF NDATA=""
QUIT
+7 SET ND=$PIECE(NDATA,"|",1)
SET VAL=$PIECE(NDATA,"|",2)
+8 SET ^BQI(90506.5,CIEN,ND)=VAL
End DoDot:2
+9 ;
+10 ; Re-Index File
+11 SET DIK="^BQI(90506.5,"
+12 SET DA=CIEN
DO IX1^DIK
End DoDot:1
+13 ;
+14 ; Do multiple fields (categories, clinical groups, layout items and tooltips)
+15 NEW CAT,LAY,REC,CIEN,DATA,CLIN,TEXT,TN,TIP,NDATA
+16 FOR BI=1:1
SET CAT=$TEXT(CAT+BI)
IF CAT=" Q"
QUIT
Begin DoDot:1
+17 SET TEXT=$PIECE(CAT,";;",2)
+18 SET REC=$PIECE(TEXT,"\",1)
SET DATA=$PIECE(TEXT,"\",2)
+19 SET CIEN=$PIECE(REC,":",1)
SET TN=$PIECE(REC,":",2)
+20 SET ^BQI(90506.5,CIEN,5,0)="^90506.55^"_TN_"^"_TN
+21 SET ^BQI(90506.5,CIEN,5,TN,0)=DATA
End DoDot:1
+22 FOR BI=1:1
SET CLIN=$TEXT(CLIN+BI)
IF CLIN=" Q"
QUIT
Begin DoDot:1
+23 SET TEXT=$PIECE(CLIN,";;",2)
+24 SET REC=$PIECE(TEXT,"\",1)
SET DATA=$PIECE(TEXT,"\",2)
+25 SET CIEN=$PIECE(REC,":",1)
SET TN=$PIECE(REC,":",2)
+26 SET ^BQI(90506.5,CIEN,6,0)="^90506.65^"_TN_"^"_TN
+27 SET ^BQI(90506.5,CIEN,6,TN,0)=DATA
End DoDot:1
+28 FOR BI=1:1
SET LAY=$TEXT(LAY+BI)
IF LAY=" Q"
QUIT
Begin DoDot:1
+29 SET TEXT=$PIECE(LAY,";;",2)
+30 SET REC=$PIECE(TEXT,"\",1)
SET DATA=$PIECE(TEXT,"\",2)
+31 SET CIEN=$PIECE(REC,":",1)
SET TN=$PIECE(REC,":",2)
+32 SET ^BQI(90506.5,CIEN,10,0)="^90506.51I^"_TN_"^"_TN
+33 FOR BJ=1:1:$LENGTH(DATA,"~")
Begin DoDot:2
+34 SET NDATA=$PIECE(DATA,"~",BJ)
+35 SET ND=$PIECE(NDATA,"|",1)
SET VAL=$PIECE(NDATA,"|",2)
+36 SET ^BQI(90506.5,CIEN,10,TN,ND)=VAL
End DoDot:2
End DoDot:1
+37 FOR BI=1:1
SET TIP=$TEXT(TIP+BI)
IF TIP=" Q"
QUIT
Begin DoDot:1
+38 SET TEXT=$PIECE(TIP,";;",2)
+39 SET REC=$PIECE(TEXT,"\",1)
SET DATA=$PIECE(TEXT,"\",2)
+40 SET CIEN=$PIECE(REC,":",1)
SET TN=$PIECE(REC,":",2)
+41 FOR BJ=1:1:$LENGTH(DATA,"~")
Begin DoDot:2
+42 SET NDATA=$PIECE(DATA,"~",BJ)
+43 SET ^BQI(90506.5,CIEN,10,TN,4,0)="^^"_BJ_"^"_BJ_"^"_DT
+44 SET ^BQI(90506.5,CIEN,10,TN,4,BJ,0)=NDATA
End DoDot:2
End DoDot:1
+45 ;
+46 QUIT
+47 ;
NUM ;EP - Number of new sources
+1 ;;38
+2 ;;42
+3 ;;41
+4 ;;9
+5 QUIT
+6 ;
ARR ;EP - Array
+1 ;;0|Hep C^HC^^1^^^^^Hep C Default^^^^^1^^1~1|~2|Hep C^Care Mgmt - Hep C^^90505.1231^90505.3231~3|BQI GET CARE MGMT LIST~Patient"" + (char)29 + ""Hep C"~4|BQI GET CARE MGMT VIEW~~~Hep C
+2 ;;0|Register^RG^4^^^^^^Register Default^1^^^^^1^^REG
+3 ;;0|Men's Health^MH^^^^^^^^1
+4 ;;0|Pediatric^P^^^^^^^^1
+5 QUIT
+6 ;
CAT ;EP - Any Categories
+1 QUIT
+2 ;
CLIN ;EP - Any Clinical Groups
+1 QUIT
+2 ;
LAY ;EP - Any layout items
+1 QUIT
+2 ;
TIP ;EP - Tooltips
+1 QUIT
