©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
BTIUPV1 ; IHS/MSC/MGH - Problem Objects ;27-Apr-2016 12:29;DU
Source file <BTIUPV1.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 3 | $$CHECK^BGOASLK $$CONCEPT^BGOPAUD GETCON^BGOVTR |
| IHS Electronic Health Record | 1 | $$VSTR2VIS^BEHOENCX |
| IHS Mods To Text Integration Utilities | 1 | ($$ACONTROL,$$ECODE)^BTIULO5 |
| IHS Standard Terminology | 1 | ($$CNCLKP,$$CONC)^BSTSAPI |
| IHS VA Utilities | 1 | ENP^XBDIQ1 |
| Kernel | 1 | $$FMTE^XLFDT |
| VA Fileman | 1 | $$GET1^DIQ |
| VueCentric Framework | 1 | $$GETVAR^CIAVMEVT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUAL(IEN,CNT) | ;Get any qualifiers for this problem
|
|
| ADD(DATA) | ;add to list
|
|
| TEXT(TYPE,IEN) | ;do the text
|
|
| VST(DFN,TARGET) | ;Problems updated this visit
|
|
| STZ(TEXT) | ;EP - Strip Leading Spaces
|
|
| FINDCP(PRIEN,TYPE,CNT) | ;Find a care plan
|
|
| EDU(PRIEN,VIEN,CNT) | ;V education by date
|
|
| PBYSTAT(DFN,TARGET) | ;Get problems by status
|
|
| GETPRB(VIEN) | ;Get problems to update
|
|
| PRDATA(PRIEN) | ;Get data for a problem
|
|
| REFDT(PRIEN,VIEN,CNT) | ; V referrals by date
|
|
| WRAP(OUT,TEXT,RM,IND) | ;EP - Wrap the text and insert in array
|
|
| CONSULT(PRIEN,DFN,CNT) | ;FIND consults
|
|
| GETPOV(RETURN,VIEN) | ;return every diagnosis for current visit
; VISIT=Visit IEN |
|
| GETDATA(PRIEN,VIEN) | ;Get data for the problem
|
|
| PROC(WRAP) | ;Process the word wrap
|
|
| TEXT2(IEN) | ;do the text
|
|
| VTRDT(PRIEN,VIEN,CNT) | ; Visit Treatment/Regimens by date
|
|
| MVST(DFN,TARGET,NUM) | ;Problems updated this visit
|
|
| VIDT(PRIEN,VIEN,CNT) | ; Visit Instructions by date
|
|
| VPOV(TARGET) | ; returns diagnoses for current vuecentric visit context
|
| Name | Field # of Occurrence |
|---|---|
| $$VSTR2VIS^BEHOENCX | VPOV+5 |
| $$CHECK^BGOASLK | GETPOV+21 |
| $$CONCEPT^BGOPAUD | QUAL+10 |
| GETCON^BGOVTR | CONSULT+4 |
| $$CNCLKP^BSTSAPI | VTRDT+21 |
| $$CONC^BSTSAPI | REFDT+21, GETPOV+38 |
| $$ACONTROL^BTIULO5 | GETPOV+24 |
| $$ECODE^BTIULO5 | GETPOV+27 |
| $$GETVAR^CIAVMEVT | VPOV+3 |
| $$GET1^DIQ | GETDATA+2, GETDATA+4, GETDATA+5, QUAL+9, FINDCP+16, FINDCP+17, FINDCP+18, FINDCP+20, FINDCP+21, VIDT+8 , VIDT+16, VIDT+18, REFDT+25, REFDT+26, EDU+7, PBYSTAT+6, PBYSTAT+8, PRDATA+2, PRDATA+4, GETPOV+8 , GETPOV+37 |
| ENP^XBDIQ1 | GETPOV+16 |
| $$FMTE^XLFDT | FINDCP+19, VIDT+15, VIDT+17, VTRDT+17, REFDT+16 |
| FileNo | Call Tags |
|---|---|
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| ^AUPNVPED - [#9000010.16] | GET1^DIQ |
| ^AUPNVVI - [#9000010.58] | GET1^DIQ |
| ^AUPNVREF - [#9000010.59] | GET1^DIQ |
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| ^AUPNCPL - [#9000092] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | VPOV+5 |
| ^AUPNCPL - [#9000092] | FINDCP+4, FINDCP+5, FINDCP+7, FINDCP+15, TEXT+3, TEXT+4 |
| ^AUPNCPL("APT" | FINDCP+3 |
| ^AUPNPROB - [#9000011] | GETPRB+4, GETPRB+6, QUAL+3, QUAL+7, VIDT+10, VTRDT+11, REFDT+9 |
| ^AUPNPROB("AC" | GETPRB+2, PBYSTAT+4 |
| ^AUPNVPED - [#9000010.16] | EDU+5 |
| ^AUPNVPED("AD" | EDU+4 |
| ^AUPNVPOV - [#9000010.07] | GETPOV+33 |
| ^AUPNVPOV("AD" | GETPOV+6 |
| ^AUPNVREF - [#9000010.59] | REFDT+7, REFDT+11, REFDT+20 |
| ^AUPNVREF("AE" | REFDT+4, REFDT+5, REFDT+6 |
| ^AUPNVSIT - [#9000010] | VST+6, MVST+7 |
| ^AUPNVSIT("AA" | VST+4, VST+5, MVST+5, MVST+6 |
| ^AUPNVTXR - [#9000010.61] | VTRDT+9, VTRDT+13, VTRDT+19 |
| ^AUPNVTXR("AF" | VTRDT+6, VTRDT+7, VTRDT+8 |
| ^AUPNVVI - [#9000010.58] | VIDT+12, TEXT2+3, TEXT2+4 |
| ^AUPNVVI("AE" | VIDT+5, VIDT+7 |
| ^TMP("BGOVIN" | CONSULT+5, CONSULT+9, CONSULT+10 |
| Name | Line Occurrences |
|---|---|
| $$STZ | WRAP+22, WRAP+30, WRAP+33 |
| ADD | GETDATA+3, GETDATA+6, GETDATA+11, QUAL+3, QUAL+13, FINDCP+13, FINDCP+14, VIDT+13, PROC+6, PROC+8 , PROC+9, PROC+10, VTRDT+15, VTRDT+24, REFDT+13, REFDT+24, EDU+6, EDU+7, EDU+8, CONSULT+6 , CONSULT+7, CONSULT+12, CONSULT+13, PBYSTAT+12, PBYSTAT+15, PRDATA+3, PRDATA+5 |
| FINDCP | GETDATA+8, GETDATA+9, PRDATA+7, PRDATA+8 |
| GETDATA | GETPRB+6 |
| GETPOV | VPOV+6 |
| GETPRB | VST+7, MVST+9 |
| PRDATA | PBYSTAT+14 |
| PROC | TEXT+9, TEXT2+10 |
| QUAL | GETDATA+7, PRDATA+6 |
| TEXT | FINDCP+23 |
| TEXT2 | VIDT+19 |
| VIDT | GETDATA+10 |
| WRAP | TEXT+7, TEXT2+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIEN | QUAL+1~, QUAL+8*, QUAL+9, GETPOV+3~, GETPOV+36*, GETPOV+37 |
| ARR | VTRDT+3~, REFDT+2~ |
| ARR(1 | VTRDT+23 |
| ARRAY | FINDCP+1~, FINDCP+2*, FINDCP+9, REFDT+2~, REFDT+13, PBYSTAT+1~, GETPOV+3~ |
| ARRAY( | FINDCP+8*, FINDCP+10, FINDCP+11, REFDT+12*, REFDT+14, REFDT+18, REFDT+19, PBYSTAT+10*, PBYSTAT+11, PBYSTAT+13 , GETPOV+11*, GETPOV+13, GETPOV+14 |
| ASTHMA | GETPOV+3~, GETPOV+7*, GETPOV+21*, GETPOV+22 |
| BTIU | GETPOV+3~, GETPOV+16! |
| BTIU( | GETPOV+18, GETPOV+19, GETPOV+23, GETPOV+27, GETPOV+28 |
| BTIU(1102 | GETPOV+20 |
| BY | QUAL+1~ |
| CNT | VST+1~, VST+2*, VST+8, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, ADD+1*, ADD+2, QUAL~ , QUAL+2*, FINDCP~, VIDT~, VTRDT~, REFDT~, EDU~, CONSULT~, MVST+1~, MVST+2*, MVST+10 , PBYSTAT+1~, PBYSTAT+2*, PBYSTAT+16, PRDATA+6, PRDATA+7, PRDATA+8, VPOV+2~, VPOV+8*, VPOV+10*, VPOV+11 , VPOV+12, GETPOV+3~, GETPOV+15*, GETPOV+29, GETPOV+41*, GETPOV+42 |
| CODE | GETPOV+3~, GETPOV+19*, GETPOV+21 |
| CON | GETPOV+3~, GETPOV+24*, GETPOV+25 |
| CPIEN | FINDCP+1~, FINDCP+3*, FINDCP+4, FINDCP+5, FINDCP+7, FINDCP+8, FINDCP+11*, FINDCP+15, FINDCP+16, FINDCP+17 , FINDCP+18, FINDCP+20, FINDCP+21, FINDCP+23 |
| CT2 | CONSULT+1~, CONSULT+8*, CONSULT+9*, CONSULT+10 |
| DATA | ADD~, ADD+2, CONSULT+1~, CONSULT+2*, CONSULT+4 |
| DFN | VST~, VST+4, VST+5, GETPRB+2, VIDT+5, VIDT+7, VTRDT+6, VTRDT+7, VTRDT+8, REFDT+4 , REFDT+5, REFDT+6, CONSULT~, CONSULT+4, MVST~, MVST+5, MVST+6, PBYSTAT~, PBYSTAT+4, VPOV+5 |
| DONE | FINDCP+1~, FINDCP+2* |
| DUZ | FINDCP+22 |
| EDATE | FINDCP+1~, FINDCP+21*, VIDT+2~, VIDT+14*, VIDT+15*, VTRDT+3~, VTRDT+16*, VTRDT+17*, REFDT+2~, REFDT+15* , REFDT+16* |
| EDU | EDU+2~, EDU+4*, EDU+5, EDU+7 |
| EIE | VIDT+2~, VIDT+8*, VIDT+9 |
| FNUM | QUAL+1~, QUAL+6*, QUAL+9, GETPOV+3~, GETPOV+35*, GETPOV+37 |
| FOUND | VST+1~, VST+2*, VST+4, VST+5, GETPRB+6*, VIDT+2~, VIDT+3*, VIDT+5, VIDT+6*, VTRDT+3~ , VTRDT+5*, VTRDT+6, VTRDT+14*, REFDT+2~, REFDT+3*, REFDT+14, MVST+1~, MVST+2* |
| I | VST+1~, PROC+1~, PROC+2*, PROC+3, PROC+4, PROC+5, PROC+8, PROC+10, MVST+1~, WRAP+18~ , WRAP+21*, WRAP+22, VPOV+2~, VPOV+9*, VPOV+11, GETPOV+26*, GETPOV+27, GETPOV+28 |
| ICD | GETDATA+1~, GETDATA+5*, GETDATA+6, PRDATA+1~, PRDATA+4*, PRDATA+5 |
| IEN | QUAL~, QUAL+3, QUAL+7, QUAL+8, FINDCP+1~, TEXT~, TEXT+3, TEXT+4, VIDT+2~, VIDT+7* , VIDT+8, VIDT+12, VIDT+16, VIDT+18, VIDT+19, TEXT2~, TEXT2+3, TEXT2+4, VTRDT+3~, VTRDT+8* , VTRDT+9, VTRDT+13, VTRDT+19, REFDT+2~, REFDT+6*, REFDT+7, REFDT+11, REFDT+12, REFDT+19*, REFDT+20 , REFDT+25, REFDT+26, GETPOV+3~, GETPOV+6*, GETPOV+8, GETPOV+11, GETPOV+12*, GETPOV+14*, GETPOV+16, GETPOV+27 , GETPOV+33, GETPOV+36 |
| IEN2 | QUAL+1~, QUAL+7*, QUAL+8, GETPOV+3~, GETPOV+33*, GETPOV+36 |
| IN | VTRDT+3~, VTRDT+20*, VTRDT+21, REFDT+2~ |
| IND | WRAP~, WRAP+6*, WRAP+22, WRAP+28, WRAP+29, WRAP+34 |
| INVDT | VST+4*, VST+5, FINDCP+1~, FINDCP+7*, FINDCP+8, FINDCP+10*, FINDCP+11, VIDT+2~, VIDT+5*, VIDT+6 , VIDT+7, VIDT+14, VTRDT+3~, VTRDT+6*, VTRDT+7, VTRDT+8, VTRDT+16, REFDT+2~, REFDT+5*, REFDT+6 , REFDT+12, REFDT+14*, REFDT+15, REFDT+18, REFDT+19, MVST+5*, MVST+6 |
| LINE | TEXT+1~, PROC+1~, PROC+5*, PROC+6, WRAP+13~, WRAP+18~, WRAP+19*, WRAP+20, WRAP+30*, WRAP+33* , GETPOV+3~, GETPOV+17*, GETPOV+18*, GETPOV+25*, GETPOV+27*, GETPOV+28*, GETPOV+29 |
| NARR | GETDATA+1~, GETDATA+2*, GETDATA+3, PRDATA+1~, PRDATA+2*, PRDATA+3, GETPOV+3~, GETPOV+8*, GETPOV+9*, GETPOV+10* , GETPOV+11, GETPOV+12*, GETPOV+13*, GETPOV+14, GETPOV+29 |
| NODE | FINDCP+1~, FINDCP+15* |
| NUM | CONSULT+3*, CONSULT+4, MVST~, MVST+3*, MVST+5, MVST+6 |
| OUT | VTRDT+3~, VTRDT+20*, VTRDT+21, REFDT+2~, WRAP~, WRAP+4*, WRAP+20*, WRAP+25*, WRAP+30*, WRAP+33* |
| OUT( | WRAP+4*, WRAP+20*, WRAP+25*, WRAP+30*, WRAP+33* |
| PAT | GETPOV+3~, GETPOV+23*, GETPOV+24 |
| PCNT | FINDCP+1~, FINDCP+2*, FINDCP+12*, GETPOV+3~, GETPOV+15*, GETPOV+29 |
| PIECE | WRAP+13~, WRAP+14*, WRAP+17, WRAP+19, WRAP+21, WRAP+25, WRAP+28, WRAP+30, WRAP+33 |
| PRCT | EDU+2~, EDU+3*, EDU+6* |
| PRIEN | VST+1~, GETPRB+1*, GETPRB+2*, GETPRB+4, GETPRB+6, GETDATA~, GETDATA+2, GETDATA+4, GETDATA+5, GETDATA+7 , GETDATA+8, GETDATA+9, GETDATA+10, FINDCP~, FINDCP+3, VIDT~, VIDT+5, VIDT+7, VIDT+10, VTRDT~ , VTRDT+10, VTRDT+11, REFDT~, REFDT+8, REFDT+9, REFDT+12, REFDT+18*, REFDT+19, EDU~, EDU+5 , CONSULT~, CONSULT+4, MVST+1~, PBYSTAT+1~, PBYSTAT+4*, PBYSTAT+6, PBYSTAT+8, PBYSTAT+10, PBYSTAT+13*, PBYSTAT+14 , PRDATA~, PRDATA+2, PRDATA+4, PRDATA+6, PRDATA+7, PRDATA+8 |
| PRNT | TEXT+1~, TEXT+2*, TEXT+5*, TEXT+6, TEXT+7, TEXT2+1~, TEXT2+2*, TEXT2+5*, TEXT2+7, TEXT2+8 |
| PRNT2 | TEXT+1~, TEXT+2*, TEXT+5*, TEXT+6*, TEXT2+1~, TEXT2+2*, TEXT2+5*, TEXT2+7* |
| PROB | VST+1~, VTRDT+3~, VTRDT+9*, VTRDT+10, REFDT+7*, REFDT+8, MVST+1~ |
| PRTCT | VTRDT+3~, VTRDT+5*, VTRDT+15*, REFDT+2~, REFDT+3* |
| PRV | FINDCP+1~, FINDCP+16*, FINDCP+22, REFDT+25*, REFDT+26* |
| PRVNM | FINDCP+1~, FINDCP+17* |
| Q | QUAL+1~, QUAL+9*, QUAL+10*, QUAL+11, QUAL+12, GETPOV+3~, GETPOV+34*, GETPOV+37*, GETPOV+38*, GETPOV+39 |
| QUAL | QUAL+1~, QUAL+5*, QUAL+11*, QUAL+12*, QUAL+13 |
| RESULT | VPOV+2~, VPOV+6 |
| RESULT( | VPOV+9, VPOV+11 |
| RET | VST+1~, MVST+1~ |
| RETURN | GETPOV~, GETPOV+4! |
| RETURN( | GETPOV+29*, GETPOV+42* |
| RM | WRAP~, WRAP+5, WRAP+14, WRAP+25, WRAP+30 |
| SDATE | VIDT+2~, VIDT+3*, VIDT+6, CONSULT+1~, CONSULT+11*, CONSULT+13 |
| SER | CONSULT+1~, CONSULT+11*, CONSULT+12 |
| SIEN | FINDCP+1~, FINDCP+4*, FINDCP+5 |
| SIGN | FINDCP+1~, FINDCP+20*, FINDCP+22, VIDT+2~, VIDT+18*, PROC+5, PROC+9 |
| SIGNDT | FINDCP+18*, FINDCP+19*, VIDT+2~, VIDT+16*, VIDT+17*, PROC+5, PROC+9 |
| SNO | VTRDT+7*, VTRDT+8, REFDT+2~, REFDT+4*, REFDT+5, REFDT+6, REFDT+20*, REFDT+21, GETPOV+3~, GETPOV+20* , GETPOV+21 |
| SNO1 | VTRDT+3~, VTRDT+19*, VTRDT+20 |
| SP | WRAP+2~, WRAP+7*, WRAP+22, WRAP+29, WRAP+34 |
| SPACE | WRAP+13~, WRAP+28*, WRAP+29, WRAP+33 |
| SSTAT | CONSULT+1~, CONSULT+11*, CONSULT+13 |
| START | STZ+1~, STZ+2*, STZ+3 |
| STAT | GETPRB+4*, GETPRB+5, VIDT+2~, VIDT+10*, VIDT+11, VTRDT+3~, VTRDT+11*, VTRDT+12, REFDT+2~, REFDT+9* , REFDT+10, PBYSTAT+1~, PBYSTAT+8*, PBYSTAT+9, PBYSTAT+11*, PBYSTAT+12, PBYSTAT+13 |
| STATO | PBYSTAT+1~, PBYSTAT+6*, PBYSTAT+7*, PBYSTAT+10 |
| STATUS | GETDATA+1~, GETDATA+4*, GETDATA+6, FINDCP+1~, FINDCP+5*, FINDCP+6 |
| STR | CONSULT+1~, CONSULT+10*, CONSULT+11 |
| STRING | GETPOV+3~, GETPOV+32*, GETPOV+39*, GETPOV+40, GETPOV+42 |
| TARGET | VST~, VST+3, VST+8, VST+9, ADD+2, MVST~, MVST+4, MVST+10, MVST+11, PBYSTAT~ , PBYSTAT+3, PBYSTAT+16, PBYSTAT+17, VPOV~, VPOV+4, VPOV+5, VPOV+8, VPOV+11, VPOV+12, VPOV+13 |
| TEXT | WRAP~, WRAP+4, WRAP+10*, WRAP+12, WRAP+14, WRAP+22*, WRAP+25*, WRAP+29*, WRAP+30*, WRAP+33* , WRAP+34*, STZ~, STZ+2, STZ+3 |
| TXT | TEXT+1~, TEXT+4*, TEXT+5, TEXT2+1~, TEXT2+4*, TEXT2+5, VTRDT+3~, VTRDT+23*, VTRDT+24, REFDT+2~ , REFDT+23*, REFDT+24 |
| TXTIEN | TEXT+1~, TEXT+3*, TEXT+4, TEXT2+1~, TEXT2+3*, TEXT2+4 |
| TYPE | FINDCP~, FINDCP+3, FINDCP+13, FINDCP+14, FINDCP+23, TEXT~ |
| U | VST+6, GETPRB+4, FINDCP+5, FINDCP+7, VIDT+10, VIDT+12, VTRDT+9, VTRDT+11, VTRDT+13, VTRDT+19 , REFDT+7, REFDT+9, REFDT+11, REFDT+20, REFDT+23, EDU+5, CONSULT+11, MVST+7, GETPOV+38 |
| VCNT | VIDT+3*, VTRDT+3~, REFDT+2~, MVST+1~, MVST+2*, MVST+5, MVST+6, MVST+8* |
| VIEN | VST+5*, VST+6, VST+7, GETPRB~, GETPRB+6, GETDATA~, GETDATA+10, VIDT~, VIDT+4*, VIDT+12 , VTRDT~, VTRDT+4*, VTRDT+13, REFDT~, REFDT+11, EDU~, EDU+4, MVST+6*, MVST+7, MVST+9 , GETPOV~, GETPOV+6 |
| >> VSCNT | VIDT+3*, VIDT+13* |
| VST | VST+1~, MVST+1~, VPOV+2~, VPOV+3*, VPOV+4, VPOV+5*, VPOV+6 |
| WHEN | QUAL+1~ |
| WRAP | TEXT+1~, TEXT+2*, TEXT+7, TEXT+9, TEXT2+1~, TEXT2+2*, TEXT2+8, TEXT2+10, PROC~, PROC+2 , PROC+3 |
| WRAP( | PROC+4, PROC+5, PROC+8, PROC+10 |
| X | QUAL+1~, QUAL+4*, QUAL+6, QUAL+7, VTRDT+3~, VTRDT+21*, VTRDT+22, REFDT+2~, REFDT+21*, REFDT+22 , REFDT+23, VPOV+2~, VPOV+5*, GETPOV+31*, GETPOV+33, GETPOV+35 |
| Z | FINDCP+1~ |