- BQIUSRC ;GDHD/HS/ALA-Update Source ; 15 Jun 2016 2:21 PM
- ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72
- ;
- 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
- ;
- ; 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
- ;
- ; Re-Index File
- S DIK="^BQI(90506.5,"
- F DA=9,41,43,44,45,19,21,20 D IX^DIK
- Q
- ;
- NUM ;EP - Number of new sources
- ;;41
- ;;9
- ;;43
- ;;44
- ;;45
- ;;19
- ;;21
- ;;20
- Q
- ;
- ARR ;EP - Array
- ;;0|Men's Health^MH^^^^^^^^1
- ;;0|Pediatric^P^^1^^^^^Pediatric Default^^^^^1^^1^^1%1|%2|Pediatric^Care Mgmt - Pediatric^^90505.1231^90505.3231%3|%4|BQI GET CARE MGMT VIEW~~~Pediatric
- ;;0|Vision^V^^1^^^^^Vision Default^1^^^^1
- ;;0|POVs^DX^^^^^^^POVs Default^^^^1^^1^^POV%1|%2|POVs^Definition Details - POVs^^90505.1231^90505.3231%3|%4|BQI GET CARE MGMT VIEW~~~POVs
- ;;0|Measurements^MS^^^^^^^Measurements Default^^^^1^^1^^MEAS%1|%2|Measurements^Definition Details - Measurements^^90505.1231^90505.3231%3|%4|BQI GET CARE MGMT VIEW~~~Measurements
- ;;0|Events^Q^^^^^^^Events Default%1|%2|Events^CMET - Events^^90505.1231^90505.3231%3|BQI GET CARE MGMT LIST~Patient"" + (char)29 + ""Events%4|BQI GET CMET VIEW~~~Events
- ;;0|Followup Events^N^^^^^^^Followup Events Default%1|%2|Follow-up Events^CMET - Follow-up Events^^90505.1231^90505.3231%3|BQI GET CARE MGMT LIST~Patient"" + (char)29 + ""Followup Events%4|BQI GET CMET VIEW~~~Followup Events
- ;;0|Tracked Events^T^^^^^^^Tracked Events Default%1|%2|Tracked Events^CMET - Tracked Events^^90505.1231^90505.3231%3|BQI GET CARE MGMT LIST~Patient"" +(char)29 + ""Tracked Events%4|BQI GET CMET VIEW~~~Tracked Events
- Q
- ;
- CAT ;EP - Any Categories
- Q
- ;
- CLIN ;EP - Any Clinical Groups
- Q
- ;
- LAY ;EP - Any layout items
- ;;44:1\0|DX_001^^Date^^D^D^^A~1|D DEF^BQICMUT1("DX",RIEN,"DATE",.RESULT)
- ;;44:2\0|DX_002^^Purpose of Visit^^R^D~1|D DEF^BQICMUT1("DX",RIEN,".01",.RESULT)
- ;;44:3\0|DX_003^^Primary/Secondary^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"PRIM",.RESULT)
- ;;44:4\0|DX_004^^First/Revisit^^R^D~1|D DEF^BQICMUT1("DX",RIEN,".08",.RESULT)
- ;;44:5\0|DX_005^^Encounter Provider^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"PBY",.RESULT)
- ;;44:6\0|DX_006^^Modifier^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".06",.RESULT)
- ;;44:7\0|DX_007^^Cause of DX^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".07",.RESULT)
- ;;44:8\0|DX_008^^External Cause^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".09",.RESULT)
- ;;44:9\0|DX_009^^Place of Accident^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".11",.RESULT)
- ;;44:10\0|DX_010^^Place of Occurrence^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".21",.RESULT)
- ;;44:11\0|DX_011^^Present on Admission^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".22",.RESULT)
- ;;44:12\0|DX_012^^SNOMED Description^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"1101.019",.RESULT)
- ;;44:13\0|DX_013^^Laterality Qualifier^^R^O~1|D DEF^BQICMUT1("DX",RIEN,"1104",.RESULT)
- ;;44:14\0|DX_014^^Date Entered^^D^O~1|D DEF^BQICMUT1("DX",RIEN,"1216",.RESULT)
- ;;44:15\0|DX_015^^Entered By^^R^O~1|D DEF^BQICMUT1("DX",RIEN,"1217",.RESULT)
- ;;44:16\0|DX_016^^Last Modified^^D^O~1|D DEF^BQICMUT1("DX",RIEN,"1218",.RESULT)
- ;;44:17\0|DX_017^^Modified By^^R^O~1|D DEF^BQICMUT1("DX",RIEN,"1219",.RESULT)
- ;;44:18\0|DX_018^^Provider Narrative^^R^D~1|D DEF^BQICMUT1("DX",RIEN,".04",.RESULT)
- ;;44:19\0|DX_019^^SNOMED Concept ID^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"1101",.RESULT)
- ;;45:1\0|MS_001^^Date^^D^D^^A~1|D DEF^BQICMUT1("MS",RIEN,"DATE",.RESULT)
- ;;45:2\0|MS_002^^Measurement^^R^D~1|D DEF^BQICMUT1("MS",RIEN,".01",.RESULT)
- ;;45:3\0|MS_003^^Result^^R^D~1|D DEF^BQICMUT1("MS",RIEN,".04",.RESULT)
- ;;45:4\0|MS_004^^Entered By^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"BY",.RESULT)
- ;;45:5\0|MS_005^^Encounter Provider^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"PBY",.RESULT)
- ;;45:6\0|MS_006^^Date/Time Last Modified^^D^O^^S~1|D DEF^BQICMUT1("MS",RIEN,"1218",.RESULT)
- ;;45:7\0|MS_007^^Percentile^^R^O~1|D DEF^BQICMUT1("MS",RIEN,".05",.RESULT)
- ;;45:8\0|MS_008^^VC/VU Numerator^^R^O~1|D DEF^BQICMUT1("MS",RIEN,".06",.RESULT)
- ;;45:9\0|MS_009^^Supplemental O2^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"1.4",.RESULT)
- ;;45:10\0|MS_010^^Modified By^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"MBY",.RESULT)
- Q
- ;
- TIP ;EP - Tooltips
- Q
- BQIUSRC ;GDHD/HS/ALA-Update Source ; 15 Jun 2016 2:21 PM
- +1 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72
- +2 ;
- 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
- End DoDot:1
- +9 ;
- +10 ; Do multiple fields (categories, clinical groups, layout items and tooltips)
- +11 NEW CAT,LAY,REC,CIEN,DATA,CLIN,TEXT,TN,TIP,NDATA
- +12 FOR BI=1:1
- SET CAT=$TEXT(CAT+BI)
- IF CAT=" Q"
- QUIT
- Begin DoDot:1
- +13 SET TEXT=$PIECE(CAT,";;",2)
- +14 SET REC=$PIECE(TEXT,"\",1)
- SET DATA=$PIECE(TEXT,"\",2)
- +15 SET CIEN=$PIECE(REC,":",1)
- SET TN=$PIECE(REC,":",2)
- +16 SET ^BQI(90506.5,CIEN,5,0)="^90506.55^"_TN_"^"_TN
- +17 SET ^BQI(90506.5,CIEN,5,TN,0)=DATA
- End DoDot:1
- +18 FOR BI=1:1
- SET CLIN=$TEXT(CLIN+BI)
- IF CLIN=" Q"
- QUIT
- Begin DoDot:1
- +19 SET TEXT=$PIECE(CLIN,";;",2)
- +20 SET REC=$PIECE(TEXT,"\",1)
- SET DATA=$PIECE(TEXT,"\",2)
- +21 SET CIEN=$PIECE(REC,":",1)
- SET TN=$PIECE(REC,":",2)
- +22 SET ^BQI(90506.5,CIEN,6,0)="^90506.65^"_TN_"^"_TN
- +23 SET ^BQI(90506.5,CIEN,6,TN,0)=DATA
- End DoDot:1
- +24 FOR BI=1:1
- SET LAY=$TEXT(LAY+BI)
- IF LAY=" Q"
- QUIT
- Begin DoDot:1
- +25 SET TEXT=$PIECE(LAY,";;",2)
- +26 SET REC=$PIECE(TEXT,"\",1)
- SET DATA=$PIECE(TEXT,"\",2)
- +27 SET CIEN=$PIECE(REC,":",1)
- SET TN=$PIECE(REC,":",2)
- +28 SET ^BQI(90506.5,CIEN,10,0)="^90506.51I^"_TN_"^"_TN
- +29 FOR BJ=1:1:$LENGTH(DATA,"~")
- Begin DoDot:2
- +30 SET NDATA=$PIECE(DATA,"~",BJ)
- +31 SET ND=$PIECE(NDATA,"|",1)
- SET VAL=$PIECE(NDATA,"|",2)
- +32 SET ^BQI(90506.5,CIEN,10,TN,ND)=VAL
- End DoDot:2
- End DoDot:1
- +33 FOR BI=1:1
- SET TIP=$TEXT(TIP+BI)
- IF TIP=" Q"
- QUIT
- Begin DoDot:1
- +34 SET TEXT=$PIECE(TIP,";;",2)
- +35 SET REC=$PIECE(TEXT,"\",1)
- SET DATA=$PIECE(TEXT,"\",2)
- +36 SET CIEN=$PIECE(REC,":",1)
- SET TN=$PIECE(REC,":",2)
- +37 FOR BJ=1:1:$LENGTH(DATA,"~")
- Begin DoDot:2
- +38 SET NDATA=$PIECE(DATA,"~",BJ)
- +39 SET ^BQI(90506.5,CIEN,10,TN,4,0)="^^"_BJ_"^"_BJ_"^"_DT
- +40 SET ^BQI(90506.5,CIEN,10,TN,4,BJ,0)=NDATA
- End DoDot:2
- End DoDot:1
- +41 ;
- +42 ; Re-Index File
- +43 SET DIK="^BQI(90506.5,"
- +44 FOR DA=9,41,43,44,45,19,21,20
- DO IX^DIK
- +45 QUIT
- +46 ;
- NUM ;EP - Number of new sources
- +1 ;;41
- +2 ;;9
- +3 ;;43
- +4 ;;44
- +5 ;;45
- +6 ;;19
- +7 ;;21
- +8 ;;20
- +9 QUIT
- +10 ;
- ARR ;EP - Array
- +1 ;;0|Men's Health^MH^^^^^^^^1
- +2 ;;0|Pediatric^P^^1^^^^^Pediatric Default^^^^^1^^1^^1%1|%2|Pediatric^Care Mgmt - Pediatric^^90505.1231^90505.3231%3|%4|BQI GET CARE MGMT VIEW~~~Pediatric
- +3 ;;0|Vision^V^^1^^^^^Vision Default^1^^^^1
- +4 ;;0|POVs^DX^^^^^^^POVs Default^^^^1^^1^^POV%1|%2|POVs^Definition Details - POVs^^90505.1231^90505.3231%3|%4|BQI GET CARE MGMT VIEW~~~POVs
- +5 ;;0|Measurements^MS^^^^^^^Measurements Default^^^^1^^1^^MEAS%1|%2|Measurements^Definition Details - Measurements^^90505.1231^90505.3231%3|%4|BQI GET CARE MGMT VIEW~~~Measurements
- +6 ;;0|Events^Q^^^^^^^Events Default%1|%2|Events^CMET - Events^^90505.1231^90505.3231%3|BQI GET CARE MGMT LIST~Patient"" + (char)29 + ""Events%4|BQI GET CMET VIEW~~~Events
- +7 ;;0|Followup Events^N^^^^^^^Followup Events Default%1|%2|Follow-up Events^CMET - Follow-up Events^^90505.1231^90505.3231%3|BQI GET CARE MGMT LIST~Patient"" + (char)29 + ""Followup Events%4|BQI GET CMET VIEW~~~Followup Events
- +8 ;;0|Tracked Events^T^^^^^^^Tracked Events Default%1|%2|Tracked Events^CMET - Tracked Events^^90505.1231^90505.3231%3|BQI GET CARE MGMT LIST~Patient"" +(char)29 + ""Tracked Events%4|BQI GET CMET VIEW~~~Tracked Events
- +9 QUIT
- +10 ;
- CAT ;EP - Any Categories
- +1 QUIT
- +2 ;
- CLIN ;EP - Any Clinical Groups
- +1 QUIT
- +2 ;
- LAY ;EP - Any layout items
- +1 ;;44:1\0|DX_001^^Date^^D^D^^A~1|D DEF^BQICMUT1("DX",RIEN,"DATE",.RESULT)
- +2 ;;44:2\0|DX_002^^Purpose of Visit^^R^D~1|D DEF^BQICMUT1("DX",RIEN,".01",.RESULT)
- +3 ;;44:3\0|DX_003^^Primary/Secondary^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"PRIM",.RESULT)
- +4 ;;44:4\0|DX_004^^First/Revisit^^R^D~1|D DEF^BQICMUT1("DX",RIEN,".08",.RESULT)
- +5 ;;44:5\0|DX_005^^Encounter Provider^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"PBY",.RESULT)
- +6 ;;44:6\0|DX_006^^Modifier^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".06",.RESULT)
- +7 ;;44:7\0|DX_007^^Cause of DX^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".07",.RESULT)
- +8 ;;44:8\0|DX_008^^External Cause^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".09",.RESULT)
- +9 ;;44:9\0|DX_009^^Place of Accident^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".11",.RESULT)
- +10 ;;44:10\0|DX_010^^Place of Occurrence^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".21",.RESULT)
- +11 ;;44:11\0|DX_011^^Present on Admission^^R^O~1|D DEF^BQICMUT1("DX",RIEN,".22",.RESULT)
- +12 ;;44:12\0|DX_012^^SNOMED Description^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"1101.019",.RESULT)
- +13 ;;44:13\0|DX_013^^Laterality Qualifier^^R^O~1|D DEF^BQICMUT1("DX",RIEN,"1104",.RESULT)
- +14 ;;44:14\0|DX_014^^Date Entered^^D^O~1|D DEF^BQICMUT1("DX",RIEN,"1216",.RESULT)
- +15 ;;44:15\0|DX_015^^Entered By^^R^O~1|D DEF^BQICMUT1("DX",RIEN,"1217",.RESULT)
- +16 ;;44:16\0|DX_016^^Last Modified^^D^O~1|D DEF^BQICMUT1("DX",RIEN,"1218",.RESULT)
- +17 ;;44:17\0|DX_017^^Modified By^^R^O~1|D DEF^BQICMUT1("DX",RIEN,"1219",.RESULT)
- +18 ;;44:18\0|DX_018^^Provider Narrative^^R^D~1|D DEF^BQICMUT1("DX",RIEN,".04",.RESULT)
- +19 ;;44:19\0|DX_019^^SNOMED Concept ID^^R^D~1|D DEF^BQICMUT1("DX",RIEN,"1101",.RESULT)
- +20 ;;45:1\0|MS_001^^Date^^D^D^^A~1|D DEF^BQICMUT1("MS",RIEN,"DATE",.RESULT)
- +21 ;;45:2\0|MS_002^^Measurement^^R^D~1|D DEF^BQICMUT1("MS",RIEN,".01",.RESULT)
- +22 ;;45:3\0|MS_003^^Result^^R^D~1|D DEF^BQICMUT1("MS",RIEN,".04",.RESULT)
- +23 ;;45:4\0|MS_004^^Entered By^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"BY",.RESULT)
- +24 ;;45:5\0|MS_005^^Encounter Provider^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"PBY",.RESULT)
- +25 ;;45:6\0|MS_006^^Date/Time Last Modified^^D^O^^S~1|D DEF^BQICMUT1("MS",RIEN,"1218",.RESULT)
- +26 ;;45:7\0|MS_007^^Percentile^^R^O~1|D DEF^BQICMUT1("MS",RIEN,".05",.RESULT)
- +27 ;;45:8\0|MS_008^^VC/VU Numerator^^R^O~1|D DEF^BQICMUT1("MS",RIEN,".06",.RESULT)
- +28 ;;45:9\0|MS_009^^Supplemental O2^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"1.4",.RESULT)
- +29 ;;45:10\0|MS_010^^Modified By^^R^O~1|D DEF^BQICMUT1("MS",RIEN,"MBY",.RESULT)
- +30 QUIT
- +31 ;
- TIP ;EP - Tooltips
- +1 QUIT
