©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
IBDFBK3 ;ALB/AAS - AICS broker Utilities ;23-May-95
Source file <IBDFBK3.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | $$CPT^ICPTCOD $$MODP^ICPTMOD |
| Kernel | 1 | $$FMTE^XLFDT |
| PCE Patient Care Encounter | 1 | ($$DSPLYED,$$DSPLYEX,$$DSPLYHF,$$DSPLYIM,$$DSPLYSK)^PXAPIIB |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 3 | IBDF18E0 IBDFBK2 IBDFDE1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VTYPE(X) | ;
; -- Vital sign type from codes |
|
| LSTQ | ||
| PROV | ; -- expand the additional provider node
|
|
| MODLIST | ; -- expand the modifiers filed
|
|
| PROBNAR(IEN) | ; -- display problem narrative
|
|
| PROBDIA(IEN) | ; -- return problem diagnosis code pointer
|
|
| NEWLINE(RESULT,X,LCNT) | ;
; -- increment count and add new line to results array. |
|
| LSTDATA(RESULT,PXCA,LCNT) | ;
; -- expand the PXCA array data into human readable terms for ; display on the workstation |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | PROBNAR+2, PROBDIA+1 |
| ^AUTNPOV - [#9999999.27] | PROBNAR+2 |
| ^DIC(40.7 - [#40.7] | LSTDATA+46 |
| ^DIC(8 - [#8] | LSTDATA+45 |
| ^GMP(757.01 | LSTDATA+85 |
| ^ICD9 - [#80] | LSTDATA+53, LSTDATA+88 |
| ^LEX | LSTDATA+84 |
| ^LEX(757.01 - [#757.01] | LSTDATA+84 |
| ^VA(200 - [#200] | LSTDATA+24, PROV+2 |
| Name | Line Occurrences |
|---|---|
| $$PROBNAR | LSTDATA+87 |
| $$VTYPE | LSTDATA+63 |
| MODLIST | LSTDATA+94 |
| NEWLINE | LSTDATA+18, LSTDATA+23, LSTDATA+24, LSTDATA+31, LSTDATA+33, LSTDATA+38, LSTDATA+40, LSTDATA+41, LSTDATA+42, LSTDATA+43 , LSTDATA+44, LSTDATA+45, LSTDATA+46, LSTDATA+51, MODLIST+2, MODLIST+5, PROV+3 |
| PROV | LSTDATA+50 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | LSTDATA+11~, LSTDATA+15*, LSTDATA+16, LSTDATA+50*, LSTDATA+51, LSTDATA+94, MODLIST+3, MODLIST+4, PROV+1, PROV+2 |
| IBM | LSTDATA+34~*, LSTDATA+35*, LSTDATA+36, LSTDATA+37, MODLIST+1~*, MODLIST+3*, MODLIST+4 |
| IBMDESC | LSTDATA+36~*, LSTDATA+37 |
| IBVST | LSTDATA+28~, LSTDATA+30*, LSTDATA+36 |
| IBX | LSTDATA+11~, LSTDATA+16*, LSTDATA+17, LSTDATA+22*, LSTDATA+23, LSTDATA+24, LSTDATA+26, LSTDATA+40, LSTDATA+41, LSTDATA+42 , LSTDATA+43, LSTDATA+44, LSTDATA+45, LSTDATA+46, LSTDATA+51*, LSTDATA+53, LSTDATA+56, LSTDATA+57, LSTDATA+59, LSTDATA+61 , LSTDATA+63, LSTDATA+65, LSTDATA+67, LSTDATA+69, LSTDATA+71, LSTDATA+73, LSTDATA+75, LSTDATA+79, LSTDATA+81, LSTDATA+83 , LSTDATA+84, LSTDATA+85, LSTDATA+86, LSTDATA+87, LSTDATA+88, LSTDATA+89, LSTDATA+90, LSTDATA+91, LSTDATA+92, LSTDATA+93 , PROV+1*, PROV+2 |
| >> IBY | LSTDATA+88* |
| IEN | PROBNAR~, PROBNAR+2, PROBDIA~, PROBDIA+1 |
| J | LSTDATA+11~, LSTDATA+15*, LSTDATA+16, LSTDATA+50*, LSTDATA+51, LSTDATA+94, MODLIST+3, MODLIST+4 |
| LCNT | LSTDATA~, LSTDATA+18, LSTDATA+23, LSTDATA+24, LSTDATA+31, LSTDATA+33, LSTDATA+38, LSTDATA+40, LSTDATA+41, LSTDATA+42 , LSTDATA+43, LSTDATA+44, LSTDATA+45, LSTDATA+46, LSTDATA+51, MODLIST+2, MODLIST+5, PROV+3, NEWLINE~, NEWLINE+2* , NEWLINE+3 |
| M | LSTDATA+11~, LSTDATA+49*, LSTDATA+50, LSTDATA+51, LSTDATA+53, LSTDATA+55, LSTDATA+63, LSTDATA+65, LSTDATA+67, LSTDATA+69 , LSTDATA+71, LSTDATA+73, LSTDATA+75, LSTDATA+77, LSTDATA+93, LSTDATA+94, MODLIST+3, MODLIST+4, PROV+1 |
| PXCA | LSTDATA~ |
| PXCA( | LSTDATA+49, LSTDATA+50, LSTDATA+51, LSTDATA+94, MODLIST+3, MODLIST+4, PROV+1 |
| PXCA("ENCOUNTER" | LSTDATA+22, LSTDATA+32, LSTDATA+35 |
| PXCA("IBD-ABORT" | LSTDATA+14, LSTDATA+15, LSTDATA+16 |
| RESULT | LSTDATA~, LSTDATA+18, LSTDATA+23, LSTDATA+24, LSTDATA+31, LSTDATA+33, LSTDATA+38, LSTDATA+40, LSTDATA+41, LSTDATA+42 , LSTDATA+43, LSTDATA+44, LSTDATA+45, LSTDATA+46, LSTDATA+51, MODLIST+2, MODLIST+5, PROV+3, NEWLINE~ |
| RESULT( | NEWLINE+3* |
| X | LSTDATA+11~, LSTDATA+17*, LSTDATA+18, LSTDATA+23*, LSTDATA+24*, LSTDATA+26*, LSTDATA+27, LSTDATA+29*, LSTDATA+30*, LSTDATA+31* , LSTDATA+33*, LSTDATA+37*, LSTDATA+38, LSTDATA+51!, LSTDATA+53*, LSTDATA+57*, LSTDATA+58*, LSTDATA+59*, LSTDATA+61*, LSTDATA+63* , LSTDATA+65*, LSTDATA+67*, LSTDATA+69*, LSTDATA+71*, LSTDATA+73*, LSTDATA+75*, LSTDATA+77*, LSTDATA+78*, LSTDATA+79*, LSTDATA+81* , LSTDATA+83*, LSTDATA+84*, LSTDATA+85*, LSTDATA+86*, LSTDATA+87*, LSTDATA+88*, LSTDATA+89*, LSTDATA+90*, LSTDATA+91*, LSTDATA+92* , LSTDATA+93*, MODLIST+1~, MODLIST+2*, MODLIST+4*, MODLIST+5, PROV+2*, PROV+3, NEWLINE~, NEWLINE+3, VTYPE~ , VTYPE+2*, VTYPE+3 |
| Y | LSTDATA+71~*, LSTDATA+78~, LSTDATA+79* |