©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
BPCGDX ; IHS/OIT/MJL - PROGRAM TO GET LIST OF DIAGNOSES ;
Source file <BPCGDX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETTXT | ; Handles text entries
|
|
| EN | ;
|
|
| GETKWD | ; Handles keywords
|
|
| SETRES | ; Copy from ^BPCTMP to BPCRES
|
|
| KWLC | ; Look in Keyword Lookup Control file for synonyms
|
|
| GETNUM | ; Handles numeric entries
|
|
| SETMATCH | ;
; Validate the ICD9 code : It doesn't start with an E, It's not ; inactive, and if Patient sex is set, and if sex is defined for this ; code, they're equal. |
|
| KILL | ;
|
|
| DXLIST(BPCRES,BPCX,BPCMAX,BPCMORE,BPCPARAM) | ;EP REMOTE PROC: BPC GETDIAGNOSISLIST
|
| RPC Name | Call Tags |
|---|---|
| BPC GETDIAGNOSISLIST | DXLIST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AICDKWLC(1 | EN+6, KWLC+3 |
| ^BGUTMP( | EN+2!, SETMATCH+8*, SETRES+3*, SETRES+4, SETRES+6*, SETRES+7! |
| ^ICD9 - [#80] | SETMATCH+4, SETMATCH+6 |
| ^ICD9("AIHS" | EN+6, KWLC+3, GETKWD+2 |
| ^ICD9("BA" | GETNUM+2, GETNUM+3, GETNUM+4 |
| ^ICD9("D" | GETTXT+2 |
| ^ICM - [#80.3] | SETMATCH+6 |
| Name | Line Occurrences |
|---|---|
| @( | EN+6, KWLC+3 |
| KILL | EN+3, EN+6 |
| SETMATCH | GETNUM+4, GETKWD+2, GETTXT+2 |
| SETRES | EN+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | KWLC+3, SETRES+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BPCC | EN+1*, GETNUM+2*, GETNUM+3*, GETNUM+4*, GETNUM+5!, GETTXT+2*, KILL+1! |
| BPCCAT | SETMATCH+6*, SETMATCH+8, KILL+1! |
| BPCCDE | SETMATCH+6*, SETMATCH+7*, SETMATCH+8, SETRES+3, KILL+1! |
| BPCCTR | EN+1*, SETRES+4*, SETRES+5*, SETRES+6*, KILL+1! |
| BPCDATA | SETMATCH+4*, SETMATCH+5, SETMATCH+6, SETMATCH+8, KILL+1! |
| BPCDESC | SETMATCH+6*, SETMATCH+8, KILL+1! |
| BPCFND | GETNUM+2*, GETNUM+3*, GETNUM+4, GETNUM+5! |
| BPCGUI | DXLIST+1*, EN+1*, EN+4, KILL+1! |
| BPCI | GETNUM+4*, GETKWD+2*, GETTXT+2*, SETMATCH+4, SETMATCH+6, SETMATCH+8, KILL+1! |
| BPCLEN | EN+1*, GETNUM+2, GETNUM+3, GETNUM+4, GETTXT+2, KILL+1! |
| BPCLSQA | EN+2*, SETRES+3*, KILL+1! |
| BPCLSQP | EN+2*, SETRES+4, KILL+1! |
| BPCMAX | DXLIST~, EN+4*, SETRES+4, KILL+1! |
| BPCMORE | DXLIST~, EN+1*, EN+2, EN+5, EN+6, SETRES+3, KILL+1! |
| BPCN | EN+5*, KWLC+2*, KWLC+3*, KWLC+4!, KILL+1! |
| BPCN1 | KWLC+3*, KWLC+4! |
| BPCNEXT | GETNUM+2*, GETNUM+3*, GETNUM+5!, KILL+1! |
| BPCPARAM | DXLIST~, EN+5, KILL+1! |
| BPCPRM1 | EN+5*, KILL+1! |
| >> BPCPSEX | SETMATCH+5 |
| BPCPV | EN+5*, SETRES+7! |
| BPCPVS | EN+5*, SETRES+7! |
| BPCRES | DXLIST~, EN+2! |
| BPCRES( | SETRES+4*, SETRES+6* |
| BPCRES(0 | EN+3*, SETRES+2*, SETRES+5*, SETRES+6* |
| BPCRES(1 | EN+3*, SETRES+2* |
| BPCSEQ | EN+2*, SETMATCH+8*, SETRES+2, SETRES+3*, SETRES+4*, SETRES+5, SETRES+6, KILL+1! |
| BPCSUB | EN+1*, EN+2, SETMATCH+8, SETRES+3, SETRES+4, SETRES+6, SETRES+7, KILL+1! |
| BPCSVX | KWLC+2*, KWLC+3, KWLC+4! |
| BPCX | DXLIST~, EN+1, EN+3, EN+6, GETNUM+2, GETNUM+3, GETNUM+4, KWLC+2, KWLC+3*, GETKWD+2 , GETTXT+2, KILL+1! |
| BPCXS | KILL+1! |
| U | EN+1*, EN+2, SETMATCH+5, SETMATCH+6, SETMATCH+8, SETRES+3, SETRES+6 |
| >> XWBWRAP | EN+1* |