©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BQITRUTL ;PRXM/HC/ALA-Treatment Prompts Utilities ; 18 May 2007 12:40 PM
Source file <BQITRUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FED(TMFRAME,BQDFN,TOP) | ;EP
; Find visits for a topic ; Input ; TMFRAME - Time frame to search data for ; BQDFN - Patient internal entry number ; TOP - Education Topic |
|
| FBP | ; Set BP variables
|
|
| POSITIVE(RESULT) | ; EP
; If the result is positive return a 1 else return a 0. |
|
| RCHK | ;EP - Result check
|
|
| BP(TMFRAME,BQDFN,SYS,DIA,OPER) | ;EP
|
|
| NEGATIVE(RESULT) | ; EP
; If the result is negative return a 1 else return a 0. |
|
| LAB(TMFRAME,RECENT,BQDFN,TAX,RESULT,OPER,RES2,OPER2,TREF) | ;EP
; Check for a lab test result |
|
| MED(GREF,SRCH) | ;EP
|
|
| TAX(TMFRAME,TAX,NIT,PTDFN,FREF,PRB,SAME,TREF,START,END) | ;EP
; Find value for a taxonomy (TAX) or list of taxonomies (TREF) ; Input ; TMFRAME - Timeframe to search for data ; TAX - Taxonomy ; NIT - Number of iterations ; PTDFN - Patient IEN ; FREF - File number reference ; PRB - If Active Problem okay ; SAME - If NIT is allowed for the same day or not (1 same day okay) ; TREF - Multiple same resulting taxonomies (e.g. MEDs) built ; into reference (usually global) ; START - Starting Date ; END - Ending Date |
|
| EDTP(GREF,SRCH) | ;EP - Search for education topics and put into a passed reference
|
|
| EFIL | ; File data into reference
|
| Name | Field # of Occurrence |
|---|---|
| $$START1^APCLDF | BP+15 |
| MIC^BQICAUTL | LAB+29 |
| BLD^BQITUTL | LAB+22, TAX+25 |
| $$DATE^BQIUL1 | BP+12, LAB+16, TAX+19, TAX+67, FED+10 |
| $$FMTE^BQIUL1 | LAB+80, LAB+83, RCHK+5, RCHK+8, RCHK+16, RCHK+18, RCHK+22 |
| $$PROB^BQIUL1 | TAX+40 |
| $$FIND1^DIC | BP+20 |
| $$ROOT^DILFD | TAX+26, FED+8 |
| $$GET1^DIQ | TAX+55, TAX+57, TAX+58, TAX+62, TAX+72, TAX+73, TAX+76, TAX+82, TAX+84, TAX+90 , FED+17, FED+19, FED+28, FED+30 |
| $$FMTE^XLFDT | BP+12 |
| $$UP^XLFSTR | POSITIVE+4, NEGATIVE+4 |
| FileNo | Call Tags |
|---|---|
| ^DIC(40.7 - [#40.7] | FIND1^DIC |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | TAX+33, TAX+37, TAX+38 |
| ^AUPNPROB("AC" | TAX+31 |
| ^AUPNVLAB - [#9000010.09] | LAB+33, LAB+34, LAB+35, LAB+42, LAB+48, LAB+50, LAB+51, LAB+57 |
| ^AUPNVLAB("AA" | LAB+30, LAB+32 |
| ^AUPNVLAB("AC" | LAB+47 |
| ^AUPNVMIC - [#9000010.25] | LAB+60, LAB+62, LAB+63, LAB+68 |
| ^AUPNVMIC("AC" | LAB+59 |
| ^AUPNVSIT - [#9000010] | BP+23, LAB+38, LAB+41, LAB+53, LAB+56, LAB+65, LAB+67, TAX+60, TAX+75, TAX+86 , TAX+88, FED+21, FED+23, FED+32, FED+34 |
| ^AUTTEDT - [#9999999.09] | EFIL+3, EFIL+4, EFIL+5 |
| ^AUTTEDT("C" | EDTP+7, EFIL+2 |
| ^BQI(90508.6 - [#90508.6] | TAX+48, TAX+49 |
| ^LAB(60 - [#60] | LAB+29 |
| ^PSDRUG - [#50] | MED+11, MED+12, MED+13 |
| ^PSDRUG("B" | MED+7, MED+10 |
| ^TMP( | LAB+17, LAB+20, TAX+23, TAX+27 |
| Name | Line Occurrences |
|---|---|
| $$NEGATIVE | RCHK+6, RCHK+7 |
| $$POSITIVE | RCHK+3, RCHK+4 |
| EDTP | FED+9 |
| EFIL | EDTP+10, EDTP+12 |
| FBP | BP+29, BP+30, BP+31 |
| RCHK | LAB+82, LAB+84 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | BP+13*, BP+15 |
| ARRAY | FED+6~, FED+8*, FED+9 |
| BCLN | BP+10~, BP+20*, BP+23 |
| BDATE | BP+10~, BP+12*, BP+13, LAB+15~, LAB+16*, LAB+28 |
| BDT | LAB+28*, LAB+29, LAB+30*, LAB+32, TAX+19*, TAX+20*, TAX+52*, TAX+54, TAX+67*, TAX+68* , TAX+69*, TAX+71, FED+6~, FED+13*, FED+14*, FED+16 |
| BQDFN | BP~, BP+13, LAB~, LAB+29, LAB+30, LAB+32, LAB+47, LAB+59, FED~, FED+14 , FED+16, FED+27 |
| BQITOP | FED+6~ |
| BQITOP( | FED+18, FED+29 |
| BQNM | EDTP+5~, EDTP+6*, EDTP+7*, EDTP+9, EDTP+11, EFIL+2, MED+5~, MED+6*, MED+7*, MED+8 , MED+10 |
| CT | BP+10~, BP+20*, BP+21, BP+28*, LAB+15~, LAB+24*, LAB+71*, LAB+72*, TAX+45*, TAX+103* , TAX+104, TAX+112 |
| >> DATE | BP+25*, FBP+1 |
| DIA | BP~, BP+30 |
| DT | BP+12, LAB+16, MED+12 |
| >> E | BP+15* |
| EDATE | BP+10~, BP+12*, BP+13, LAB+15~, LAB+16*, LAB+28 |
| EDT | LAB+28*, LAB+29, LAB+30, TAX+50*, TAX+52, TAX+69, FED+6~, FED+13*, FED+14 |
| END | TAX~, TAX+18*, TAX+20, TAX+47, TAX+68, TAX+80 |
| ENDT | TAX+15~, TAX+19*, TAX+20*, TAX+41, TAX+50, TAX+67*, TAX+68*, FED+6~, FED+10*, FED+13 |
| >> FLAG | LAB+35*, LAB+36 |
| FREF | TAX~, TAX+26, TAX+48, TAX+55, TAX+57, TAX+62, TAX+72, TAX+76, TAX+82, TAX+84 , TAX+90, FED+6~, FED+8*, FED+17, FED+19, FED+28, FED+30 |
| GREF | EDTP~, EFIL+5, MED~, MED+13, TAX+15~, TAX+26*, TAX+52, TAX+54, TAX+69, TAX+71 , TAX+81, FED+6~, FED+8*, FED+14, FED+16, FED+27 |
| IEN | BP+25*, FBP+2, EDTP+5~, EFIL+1*, EFIL+2*, EFIL+3, EFIL+4, EFIL+5, MED+5~, MED+9* , MED+10*, MED+11, MED+12, MED+13, TAX+15~, TAX+30*, TAX+31*, TAX+33, TAX+37, TAX+38 , TAX+40, TAX+42, TAX+45*, TAX+53*, TAX+54*, TAX+55, TAX+57, TAX+62, TAX+64, TAX+70* , TAX+71*, TAX+72, TAX+76, TAX+77, TAX+81*, TAX+82, TAX+84, TAX+90, TAX+92, TAX+98* , TAX+99*, TAX+102, TAX+107, TAX+109, FED+6~, FED+11*, FED+15*, FED+16*, FED+17, FED+19 , FED+24, FED+27*, FED+28, FED+30, FED+36 |
| LIEN | LAB+15~, LAB+24*, LAB+31*, LAB+32*, LAB+33, LAB+34, LAB+35, LAB+42, LAB+43, LAB+46* , LAB+47*, LAB+48, LAB+50, LAB+51, LAB+57, LAB+58, LAB+59*, LAB+60, LAB+62, LAB+63 , LAB+68, LAB+69, LAB+75*, LAB+76, LAB+77, LAB+80, LAB+83, RCHK+5, RCHK+8, RCHK+16 , RCHK+18, RCHK+22 |
| MICRO | LAB+15~, LAB+29 |
| N | BP+10~, BP+20*, BP+21*, BP+22, BP+24, BP+25 |
| NCT | LAB+15~, LAB+71*, LAB+79*, LAB+81 |
| NIT | TAX~, TAX+16*, TAX+104, TAX+112 |
| OK | BP+10~, BP+20*, BP+29*, BP+30*, BP+34 |
| OPER | BP~, BP+16, BP+19*, BP+29, BP+30, LAB~, LAB+80, RCHK+15, RCHK+17, RCHK+19 , RCHK+21 |
| OPER2 | LAB~, LAB+20*, RCHK+21 |
| OVALUE | LAB+15~, LAB+76*, RCHK+16, RCHK+18, RCHK+22 |
| PRB | TAX~, TAX+16*, TAX+29 |
| PTDFN | TAX~, TAX+31, TAX+52, TAX+54, TAX+69, TAX+71, TAX+81 |
| QFL | LAB+15~, LAB+24*, LAB+73, LAB+80*, LAB+83*, TAX+15~, TAX+30*, TAX+31, TAX+42*, TAX+45* , TAX+94*, TAX+95, TAX+97, TAX+99, TAX+112*, FED+6~, FED+11*, FED+24*, FED+27, FED+36* , RCHK+5*, RCHK+8*, RCHK+16*, RCHK+18*, RCHK+22* |
| RECENT | LAB~, LAB+20*, LAB+81 |
| RES | LAB+15~, LAB+24*, LAB+80*, LAB+82, LAB+83*, LAB+86, RCHK+5*, RCHK+8*, RCHK+16*, RCHK+18* , RCHK+22* |
| RES2 | LAB~, LAB+20*, RCHK+14, RCHK+20 |
| RESULT | BP+10~, BP+11*, BP+16, BP+18*, BP+20*, BP+34, BP+35, FBP+1*, FBP+2*, FBP+3* , FBP+4*, LAB~, LAB+80, POSITIVE~, POSITIVE+2, POSITIVE+3, POSITIVE+4*, POSITIVE+5, POSITIVE+6, POSITIVE+7 , POSITIVE+8, POSITIVE+9, POSITIVE+10, POSITIVE+11, POSITIVE+12, POSITIVE+13, POSITIVE+14, NEGATIVE~, NEGATIVE+2, NEGATIVE+4* , NEGATIVE+5, NEGATIVE+6, NEGATIVE+7, NEGATIVE+8, NEGATIVE+9, NEGATIVE+10, NEGATIVE+11, NEGATIVE+12, NEGATIVE+13, NEGATIVE+14 , TAX+15~, TAX+17*, TAX+30*, TAX+42*, TAX+44, TAX+45*, TAX+101, TAX+104, TAX+105*, TAX+106* , TAX+107*, TAX+108*, TAX+109*, TAX+112*, TAX+114, FED+6~, FED+11*, FED+24*, FED+36*, FED+37 , RCHK+1, RCHK+3, RCHK+4, RCHK+6, RCHK+7 |
| ROPER | LAB+78!, RCHK+13*, RCHK+15, RCHK+17, RCHK+19 |
| SAME | TAX~, TAX+16*, TAX+101 |
| SRCH | EDTP~, EDTP+8, EDTP+9, EDTP+11, MED~, MED+8 |
| SRCTYP | TAX+15~, TAX+49*, TAX+51 |
| START | TAX~, TAX+18*, TAX+20, TAX+47, TAX+68, TAX+80 |
| SYS | BP~, BP+29 |
| TAX | LAB~, LAB+18*, LAB+19, LAB+22, TAX~, TAX+17*, TAX+22, TAX+25 |
| TBP | BP+10~, BP+14!, BP+17 |
| TBP( | BP+21, BP+22, BP+24, BP+25 |
| TEMP | LAB+15~, LAB+17*, LAB+43, LAB+58, LAB+69, LAB+72, LAB+73, LAB+74, LAB+75, LAB+76 , LAB+77, LAB+85, TAX+15~, TAX+27*, TAX+64, TAX+77, TAX+92, TAX+95, TAX+97, TAX+99 , TAX+102 |
| TIEN | LAB+26*, LAB+27*, LAB+29, LAB+30, LAB+32, LAB+43, LAB+48*, LAB+49, LAB+58, LAB+60* , LAB+61, LAB+69, LAB+77*, LAB+80, LAB+83, TAX+15~, TAX+33*, TAX+34, TAX+55*, TAX+56 , TAX+65*, TAX+66*, TAX+69, TAX+71, TAX+82*, TAX+83, FED+6~, FED+17*, FED+18, FED+28* , FED+29, RCHK+5, RCHK+8, RCHK+16, RCHK+18, RCHK+22 |
| TMFRAME | BP~, BP+11*, BP+12, LAB~, LAB+16, LAB+25, LAB+45, TAX~, TAX+16*, TAX+19 , TAX+41, TAX+47, TAX+67, TAX+79, FED~, FED+7*, FED+10, FED+12, FED+26 |
| TOP | FED~, FED+9 |
| TREF | LAB~, LAB+20*, LAB+21, LAB+22, LAB+27, LAB+49, LAB+61, TAX~, TAX+17*, TAX+23* , TAX+24, TAX+25, TAX+34, TAX+56, TAX+66, TAX+83, TAX+113 |
| U | BP+22, BP+23, BP+24, BP+25, BP+34, BP+35, FBP+1, FBP+2, FBP+3, FBP+4 , LAB+24, LAB+29, LAB+33, LAB+34, LAB+35, LAB+41, LAB+42, LAB+43, LAB+48, LAB+50 , LAB+51, LAB+56, LAB+57, LAB+58, LAB+60, LAB+62, LAB+63, LAB+67, LAB+68, LAB+69 , LAB+76, LAB+77, LAB+80, LAB+83, EFIL+3, EFIL+5, MED+12, MED+13, TAX+42, TAX+49 , TAX+101, TAX+104, TAX+105, TAX+106, TAX+107, TAX+108, TAX+109, TAX+112, FED+24, FED+36 , RCHK+5, RCHK+8, RCHK+16, RCHK+18, RCHK+22 |
| >> UID | LAB+17, LAB+20, TAX+21*, TAX+23, TAX+27 |
| VALUE | BP+10~, BP+24*, BP+26, FBP+4, LAB+15~, LAB+33*, LAB+43, LAB+50*, LAB+58, LAB+62* , LAB+69, LAB+76*, LAB+80, LAB+83, TAX+15~, TAX+62*, TAX+64, TAX+76*, TAX+77, TAX+90* , TAX+92, TAX+102*, TAX+108, TAX+109, RCHK+1, RCHK+3, RCHK+4, RCHK+5, RCHK+6, RCHK+7 , RCHK+8, RCHK+9, RCHK+11*, RCHK+13* |
| VDIA | BP+10~, BP+26*, BP+27, BP+30 |
| VFL | TAX+15~, TAX+48*, TAX+49 |
| VIEN | LAB+15~, LAB+34*, LAB+38, LAB+41, LAB+43, LAB+51*, LAB+53, LAB+56, LAB+58, LAB+63* , LAB+65, LAB+67, LAB+69, LAB+74*, LAB+75, LAB+76, LAB+77, LAB+80, LAB+83, RCHK+5 , RCHK+8, RCHK+16, RCHK+18, RCHK+22 |
| VIS | BP+10~, BP+22*, BP+23, FBP+3 |
| VISIT | TAX+57*, TAX+58, TAX+60, TAX+64, TAX+72*, TAX+73, TAX+75, TAX+77, TAX+84*, TAX+86 , TAX+88, TAX+92, TAX+96*, TAX+97*, TAX+99, TAX+102, TAX+106, TAX+109, FED+6~, FED+19* , FED+21, FED+23, FED+24, FED+30*, FED+32, FED+34, FED+36 |
| VSDTM | LAB+15~, LAB+38*, LAB+43, LAB+53*, LAB+58, LAB+65*, LAB+69, LAB+71*, LAB+72*, LAB+73* , LAB+74, LAB+75, LAB+76, LAB+77, LAB+80, LAB+83, TAX+40*, TAX+41, TAX+42, TAX+60* , TAX+64, TAX+75*, TAX+77, TAX+88*, TAX+92, TAX+94*, TAX+95*, TAX+97, TAX+99, TAX+101 , TAX+102, TAX+105, TAX+109, FED+6~, FED+23*, FED+24, FED+34*, FED+36, RCHK+5, RCHK+8 , RCHK+16, RCHK+18, RCHK+22 |
| VSYS | BP+10~, BP+26*, BP+27, BP+29 |
| >> ZTSK | TAX+21 |