©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
BHSPL2 ;IHS/MSC/MGH - Health Summary for Items associated with Problem list ;09-Mar-2016 09:58;du
Source file <BHSPL2.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 5 | GET^BGOCPLAN $$CONCEPT^BGOPAUD NOTES^BGOPRBN (GET,GETCON)^BGOVTR GET^BGOVVI |
| Kernel | 2 | $$FMTE^XLFDT $$LJ^XLFSTR |
| Health Summary | 1 | CKP^GMTSUP |
| IHS Standard Terminology | 1 | $$DESC^BSTSAPI |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TREAT | ; GET THE TREATMENT DATA
|
|
| LOOK(SNOMED) | ;LOOKUP CODE
|
|
| ADD2(TXT) | ;
|
|
| VST | ;GET ALL VISIT INSTRUCTIONS
|
|
| QUAL(IEN) | ;Get any qualifiers for this problem
|
|
| DETAIL(RET,IEN,DFN) | ;Get a detail report on one problem
|
|
| CARE(IEN,DFN,ACT) | ;EP
|
|
| NOTES | ; Get the notes for this problem
|
|
| PROB(VIEN) | ;Find problems used in this visit
|
|
| POVVST | ;DISPLAY PROBLEMS USED BY VISITS IN HEALTH SUMMARY
|
|
| CONSULT(IEN,DFN,NUM) | ;FIND consults
|
|
| POVP | ;DISPLAY PROBLEMS USED BY LAST VISIT IN HEALTH SUMMARY
|
|
| POVCHK(PRIEN,VIEN) | ;Check for different provider narrative or normal/abnormal Patch 13
|
|
| ICD(IEN) | ;Get any additional ICD codes for this problem
|
|
| PLAN | ;GET ALL CARE PLANNING DATA
|
|
| ADD1(TXT,LBL) | ;
|
|
| TMPGBL() | ;EP
|
|
| VISIT(IEN,DFN,NUM,VIEN) | ;visit instructions
|
| Name | Field # of Occurrence |
|---|---|
| GET^BGOCPLAN | CARE+5, CARE+15 |
| $$CONCEPT^BGOPAUD | QUAL+10 |
| NOTES^BGOPRBN | NOTES+2 |
| GET^BGOVTR | VISIT+15 |
| GETCON^BGOVTR | CONSULT+4 |
| GET^BGOVVI | VISIT+5 |
| $$DESC^BSTSAPI | LOOK+2 |
| $$GET1^DIQ | PROB+3, DETAIL+7, DETAIL+8, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+15, DETAIL+16, DETAIL+18, DETAIL+19 , DETAIL+20, DETAIL+21, DETAIL+22, DETAIL+24, NOTES+6, NOTES+10, ICD+5, QUAL+7, QUAL+8, QUAL+9 , PLAN+16, PLAN+17, VST+18, VST+19, VST+20, VST+21, VST+22, TREAT+16, TREAT+17, TREAT+18 , TREAT+19, POVCHK+6, POVCHK+7 |
| CKP^GMTSUP | POVP+6, POVVST+8, PROB+14 |
| $$FMTE^XLFDT | NOTES+11 |
| $$LJ^XLFSTR | ADD1+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| ^AUPNVVI - [#9000010.58] | GET1^DIQ |
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| 9000011.12 | GET1^DIQ |
| ^AUPNCPL - [#9000092] | GET1^DIQ |
| ^AUTTLOC - [#9999999.06] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | PROB+6, PROB+8, DETAIL+4, DETAIL+26, DETAIL+28, ICD+2, ICD+3, QUAL+2, QUAL+5 |
| ^AUPNPROB("AC" | PROB+4 |
| ^AUPNVPOV - [#9000010.07] | POVCHK+4 |
| ^AUPNVPOV("AD" | POVCHK+3 |
| ^AUPNVSIT - [#9000010] | POVP+11, POVVST+13 |
| ^AUPNVSIT("AA" | POVP+9, POVP+10, POVVST+11, POVVST+12 |
| ^TMP("BGOPLAN" | CARE+6, CARE+11!, CARE+16, CARE+20!, PLAN+3, PLAN+4 |
| ^TMP("BGOVIN" | VISIT+6, VISIT+11!, VISIT+16, VISIT+20!, CONSULT+5, CONSULT+9, CONSULT+10, VST+3, VST+4, TREAT+2 , TREAT+3 |
| ^TMP("BHSPL" | TMPGBL+1! |
| Name | Line Occurrences |
|---|---|
| $$POVCHK | DETAIL+30 |
| $$TMPGBL | POVP+4, POVVST+6, PROB+9 |
| ADD1 | DETAIL+7, DETAIL+9, DETAIL+10, DETAIL+14, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+20, DETAIL+21, DETAIL+23 , DETAIL+25, DETAIL+27, DETAIL+29, DETAIL+31, DETAIL+32 |
| ADD2 | DETAIL+6, DETAIL+33, NOTES+3, NOTES+13, NOTES+14, NOTES+15, NOTES+16, ICD+2, ICD+5, QUAL+2 , QUAL+11, QUAL+12, CARE+7, CARE+8, CARE+17, CARE+18, VISIT+7, VISIT+8, VISIT+17, VISIT+18 , CONSULT+6, CONSULT+7, CONSULT+12, CONSULT+13, PLAN+6, PLAN+9, PLAN+12, PLAN+18, VST+6, VST+11 , VST+13, VST+16, VST+17, VST+23, VST+24, VST+26, TREAT+8, TREAT+9, TREAT+11, TREAT+14 , TREAT+15, TREAT+20, TREAT+21 |
| CARE | DETAIL+37 |
| CONSULT | DETAIL+39 |
| DETAIL | PROB+11 |
| ICD | DETAIL+35 |
| NOTES | DETAIL+34 |
| PLAN | CARE+9, CARE+19 |
| PROB | POVP+11, POVVST+15 |
| QUAL | DETAIL+36 |
| TREAT | VISIT+19 |
| VISIT | DETAIL+38 |
| VST | VISIT+9 |
| Name | Field # of Occurrence |
|---|---|
| ^($J | TMPGBL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACLASS | DETAIL+1~, DETAIL+22*, DETAIL+23 |
| ACT | DETAIL+5*, CARE~, CARE+4*, CARE+5, CARE+14*, CARE+15 |
| AIEN | NOTES+1~, ICD+1~, ICD+4*, ICD+5, QUAL+1~, QUAL+6*, QUAL+7, QUAL+8, QUAL+9 |
| BY | NOTES+1~, NOTES+9*, NOTES+10*, NOTES+14, QUAL+1~, QUAL+7*, QUAL+12, PLAN+8*, PLAN+9 |
| CHK | DETAIL+1~, DETAIL+30*, DETAIL+31, DETAIL+32 |
| CLASS | DETAIL+1~, DETAIL+11*, DETAIL+13 |
| CNT | POVVST+1~, POVVST+5*, POVVST+11, POVVST+12, POVVST+14*, DETAIL+1~, DETAIL+3*, ADD1+1*, ADD2+1* |
| CPIEN | PLAN+1~, PLAN+15*, PLAN+16, PLAN+17 |
| CT | TREAT+1~ |
| CT2 | VISIT+12~, VISIT+13*, CONSULT+1~, CONSULT+8*, CONSULT+9*, CONSULT+10, PLAN+1~, PLAN+2*, PLAN+3*, PLAN+4 , VST+1~, VST+2*, VST+3*, VST+4, TREAT+2*, TREAT+3 |
| DATA | CARE+2~, CARE+3*, CARE+5, CARE+12~, CARE+13*, CARE+15, VISIT+2~, VISIT+3*, VISIT+5, VISIT+12~ , VISIT+13*, VISIT+15, CONSULT+1~, CONSULT+2*, CONSULT+4 |
| DESC | DETAIL+1~, DETAIL+28*, DETAIL+29 |
| DFN | POVP+9, POVP+10, POVVST+11, POVVST+12, PROB+4, PROB+11, DETAIL~, DETAIL+37, DETAIL+38, DETAIL+39 , CARE~, CARE+5, CARE+15, VISIT~, VISIT+5, VISIT+15, CONSULT~, CONSULT+4 |
| ENTBY | VST+1~, VST+19*, VST+23, TREAT+1~, TREAT+16*, TREAT+20 |
| ENTDT | VST+1~, VST+20*, VST+23, TREAT+1~, TREAT+17*, TREAT+20 |
| EVDT | VST+1~, VST+14*, VST+17, TREAT+1~, TREAT+12*, TREAT+15 |
| FAC | NOTES+1~, NOTES+5*, NOTES+6*, NOTES+13, VST+1~, VST+12*, VST+13, TREAT+1~, TREAT+10*, TREAT+11 |
| FNUM | QUAL+1~, QUAL+4*, QUAL+7, QUAL+8, QUAL+9 |
| FOUND | POVCHK+1~, POVCHK+2*, POVCHK+3, POVCHK+5* |
| >> GMTSNDM | POVVST+3*, POVVST+4*, POVVST+11, POVVST+12 |
| >> GMTSNPG | PROB+14 |
| >> GMTSQIT | POVP+6, POVVST+8, PROB+14 |
| I | NOTES+1~, NOTES+4*, NOTES+5, NOTES+7, NOTES+8, NOTES+9, NOTES+11, NOTES+12 |
| IEN | DETAIL~, DETAIL+4, DETAIL+7, DETAIL+8, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+15, DETAIL+16, DETAIL+18 , DETAIL+19, DETAIL+20, DETAIL+21, DETAIL+22, DETAIL+24, DETAIL+26, DETAIL+28, DETAIL+30, DETAIL+35, DETAIL+36 , DETAIL+37, DETAIL+38, DETAIL+39, NOTES+2, ICD~, ICD+2, ICD+3, ICD+4, QUAL~, QUAL+2 , QUAL+5, QUAL+6, CARE~, CARE+5, CARE+15, VISIT~, VISIT+5, VISIT+15, CONSULT~, CONSULT+4 |
| IEN2 | NOTES+1~, ICD+1~, ICD+3*, ICD+4, QUAL+1~, QUAL+5*, QUAL+6 |
| IN | DETAIL+1~ |
| INVDT | POVP+1~, POVP+9*, POVP+10, POVVST+1~, POVVST+11*, POVVST+12 |
| LBL | ADD1~, ADD1+1* |
| LINE | POVP+1~, POVVST+1~, PROB+1~, PROB+12*, PROB+13*, PROB+15 |
| MODBY | VST+1~, VST+21*, VST+24, TREAT+1~, TREAT+18*, TREAT+21 |
| MODDT | VST+1~, VST+22*, VST+24, TREAT+1~, TREAT+19*, TREAT+21 |
| NARR | NOTES+1~, NOTES+12*, NOTES+15 |
| NORM | POVCHK+1~, POVCHK+6*, POVCHK+8 |
| NOTES | NOTES+1~, NOTES+2, NOTES+3 |
| NOTES( | NOTES+4, NOTES+5, NOTES+7, NOTES+8, NOTES+9, NOTES+11, NOTES+12 |
| NUM | POVP+3*, POVVST+1~, POVVST+5*, DETAIL+5*, DETAIL+39, NOTES+1~, NOTES+7*, NOTES+13, VISIT~, VISIT+4* , VISIT+5, VISIT+14*, VISIT+15, CONSULT~, CONSULT+3*, CONSULT+4 |
| ONSET | DETAIL+1~, DETAIL+15*, DETAIL+16*, DETAIL+17 |
| OUT | DETAIL+1~ |
| PIP | DETAIL+1~, DETAIL+24*, DETAIL+25 |
| PRIEN | PROB+1~, PROB+2*, PROB+4*, PROB+6, PROB+8, PROB+11, POVCHK~, POVCHK+4 |
| PROB | DETAIL+1~, DETAIL+8*, DETAIL+9 |
| PRV | VST+1~, VST+15*, VST+16, TREAT+1~, TREAT+13*, TREAT+14 |
| Q | QUAL+1~, QUAL+9*, QUAL+10*, QUAL+11 |
| QUIT | POVP+1~, POVP+8*, POVP+9, POVP+10, POVP+11*, POVVST+1~, POVVST+10* |
| RET | DETAIL~, LOOK+1~, LOOK+2*, LOOK+3, ADD1+1, ADD2+1 |
| SDATE | CONSULT+1~, CONSULT+11*, CONSULT+13 |
| SER | CONSULT+1~, CONSULT+11*, CONSULT+12 |
| SIGNBY | PLAN+1~, PLAN+16*, PLAN+18, VST+1~, VST+18*, VST+26 |
| SIGNDT | PLAN+1~, PLAN+17*, PLAN+18, VST+1~, VST+25*, VST+26 |
| SIGNED | PLAN+1~, PLAN+13*, PLAN+14, VST+1~ |
| SNOMED | DETAIL+1~, DETAIL+26*, DETAIL+27, TREAT+1~, TREAT+5*, TREAT+8, LOOK~, LOOK+2 |
| SSTAT | CONSULT+1~, CONSULT+11*, CONSULT+13 |
| STAT | PROB+1~, PROB+6*, PROB+7, NOTES+8*, NOTES+13, PLAN+1~, PLAN+10*, PLAN+11*, PLAN+12, VST+1~ |
| STATUS | DETAIL+1~, DETAIL+12*, DETAIL+13*, DETAIL+14, NOTES+8* |
| STR | CARE+2~, CARE+12~, VISIT+2~, VISIT+12~, CONSULT+1~, CONSULT+10*, CONSULT+11, PLAN+1~, PLAN+4*, PLAN+5 , PLAN+6, PLAN+8, PLAN+10, PLAN+13, PLAN+15, VST+1~, VST+4*, VST+5, VST+6, VST+8 , VST+9, VST+10, VST+12, VST+14, VST+15, VST+25, TREAT+1~, TREAT+3*, TREAT+4, TREAT+5 , TREAT+6, TREAT+7, TREAT+10, TREAT+12, TREAT+13 |
| TARGET | POVP+1~, POVP+4*, POVP+5, POVVST+1~, POVVST+6*, POVVST+7, PROB+9*, PROB+11, PROB+13, PROB+15 , PROB+16! |
| TXT | ADD1~, ADD1+1, ADD2~, ADD2+1 |
| U | POVP+11, POVVST+13, PROB+6, DETAIL+26, DETAIL+28, DETAIL+31, DETAIL+32, NOTES+5, NOTES+7, NOTES+8 , NOTES+9, NOTES+11, NOTES+12, CONSULT+11, PLAN+5, PLAN+6, PLAN+8, PLAN+10, PLAN+13, PLAN+15 , VST+5, VST+6, VST+8, VST+9, VST+10, VST+12, VST+14, VST+15, VST+25, TREAT+4 , TREAT+5, TREAT+6, TREAT+7, TREAT+10, TREAT+12, TREAT+13, LOOK+2, POVCHK+4, POVCHK+8 |
| VCAT | VST+1~, VST+10*, VST+11, TREAT+1~, TREAT+7*, TREAT+9 |
| VDT | PROB+1~, PROB+3*, PROB+10, VST+1~, VST+9*, VST+11, TREAT+1~, TREAT+6*, TREAT+9 |
| VIEN | POVP+10*, POVP+11, POVVST+12*, POVVST+13, POVVST+15, PROB~, PROB+3, PROB+8, DETAIL+2*, DETAIL+30 , DETAIL+38, VISIT~, VISIT+5, VISIT+15, POVCHK~, POVCHK+3 |
| VIIEN | VST+1~, VST+8*, VST+18, VST+19, VST+20, VST+21, VST+22, TREAT+1~, TREAT+4*, TREAT+16 , TREAT+17, TREAT+18, TREAT+19 |
| VNAR | POVCHK+1~, POVCHK+7*, POVCHK+8 |
| VPOV | POVCHK+1~, POVCHK+3*, POVCHK+4, POVCHK+6, POVCHK+7 |
| WHEN | NOTES+1~, NOTES+11*, NOTES+14, QUAL+1~, QUAL+8*, QUAL+12, PLAN+8*, PLAN+9 |
| X | POVP+1~, POVVST+1~, QUAL+1~, QUAL+3*, QUAL+4, QUAL+5 |
| ZERO | DETAIL+1~, DETAIL+4* |