©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
Select the objects that you wish to see in the downloaded PDF
InfoACDRR1CB ;IHS/ADC/EDE/KML - BROKE UP ACDRR1C;
Source file <ACDRR1CB.m>
| Package | Total | Call Graph |
|---|---|---|
| Alcohol Chemical Dependency | 2 | (PRCIIF,PRCTD)^ACDRR1C (DRUGCNT,PATCNT,PROBCNT)^ACDRR1CC |
| VA Fileman | 1 | ^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZEROCNTS | ; ZERO COUNTERS
|
|
| COMPLOS2 | ; COMPUTE LENGTH OF STAY FOR ONE TD
; find in/re for same patient & component code/type before td |
|
| FINDPRB | ; FIND PROBLEMS IN EARLIER IN/RE/FU OR LATER TD
; find in/re/fu before time frame or td after time frame |
|
| TBLCNTS | ; TABLE COUNTS FOR PRINT ROUTINE
|
|
| PROBCNT | ; PATIENT COUNT BY PROBLEM
|
|
| PATIENTS | ; EP-PROCESS PATIENTS WITH VISITS WITHIN TIME FRAME
|
|
| PATCNT | ; COUNT PATIENT DATA
|
|
| DRUGCNT | ; PATIENT COUNT BY DRUG
|
|
| COMPLOS | ; COMPUTE LENGTH OF STAY BY COMP CODE/TYPE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACDCOMP - [#9002170.1] | TBLCNTS+9 |
| ^ACDVIS - [#9002172.1] | FINDPRB+3, COMPLOS2+4, COMPLOS2+5 |
| ^ACDVIS("D" | FINDPRB+3, COMPLOS2+4 |
| ^TMP("ACDRR1" | PATIENTS+3, TBLCNTS+1!, TBLCNTS+3*, TBLCNTS+4*, TBLCNTS+5*, TBLCNTS+8, TBLCNTS+10*, TBLCNTS+11*, TBLCNTS+16*, TBLCNTS+17* , TBLCNTS+18*, TBLCNTS+21*, TBLCNTS+22*, TBLCNTS+23*, TBLCNTS+24*, TBLCNTS+25*, TBLCNTS+26*, TBLCNTS+28*, TBLCNTS+29*, TBLCNTS+30* , TBLCNTS+31*, TBLCNTS+32*, TBLCNTS+33*, TBLCNTS+35*, TBLCNTS+36*, TBLCNTS+37*, TBLCNTS+38*, TBLCNTS+39*, TBLCNTS+40*, TBLCNTS+42* , TBLCNTS+43*, TBLCNTS+44*, TBLCNTS+45*, TBLCNTS+46*, TBLCNTS+47*, TBLCNTS+49*, TBLCNTS+50*, TBLCNTS+51*, TBLCNTS+52*, TBLCNTS+53* , TBLCNTS+54*, TBLCNTS+56*, TBLCNTS+57*, TBLCNTS+58*, TBLCNTS+59*, TBLCNTS+60*, TBLCNTS+61*, TBLCNTS+64*, TBLCNTS+65*, TBLCNTS+66* , TBLCNTS+70, TBLCNTS+71*, TBLCNTS+72*, TBLCNTS+73*, TBLCNTS+77, TBLCNTS+78*, TBLCNTS+79*, TBLCNTS+80*, TBLCNTS+84, TBLCNTS+85* , TBLCNTS+86*, TBLCNTS+87*, TBLCNTS+91, TBLCNTS+92, TBLCNTS+93*, TBLCNTS+94*, TBLCNTS+95*, FINDPRB+3, FINDPRB+5, COMPLOS+2 , COMPLOS+4, COMPLOS+6, COMPLOS2+17*, COMPLOS2+18* |
| Name | Line Occurrences |
|---|---|
| COMPLOS | PATIENTS+6 |
| COMPLOS2 | COMPLOS+6 |
| DRUGCNT | PATIENTS+5 |
| FINDPRB | PATIENTS+3 |
| PATCNT | PATIENTS+3 |
| PROBCNT | PATIENTS+4 |
| TBLCNTS | PATIENTS+7 |
| ZEROCNTS | PATIENTS+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PATIENTS+3, TBLCNTS+70, TBLCNTS+77, TBLCNTS+84 |
| ^(0 | FINDPRB+3, COMPLOS2+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %Y | COMPLOS2+16 |
| >> ACDBT | TBLCNTS+1, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5, TBLCNTS+10, TBLCNTS+11, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18, TBLCNTS+21 , TBLCNTS+22, TBLCNTS+23, TBLCNTS+24, TBLCNTS+25, TBLCNTS+26, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30, TBLCNTS+31, TBLCNTS+32 , TBLCNTS+33, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38, TBLCNTS+39, TBLCNTS+40, TBLCNTS+42, TBLCNTS+43, TBLCNTS+44 , TBLCNTS+45, TBLCNTS+46, TBLCNTS+47, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52, TBLCNTS+53, TBLCNTS+54, TBLCNTS+56 , TBLCNTS+57, TBLCNTS+58, TBLCNTS+59, TBLCNTS+60, TBLCNTS+61, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66, TBLCNTS+71, TBLCNTS+72 , TBLCNTS+73, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95 |
| >> ACDCC | COMPLOS2+2*, COMPLOS2+6 |
| >> ACDCCT | TBLCNTS+7*, TBLCNTS+8*, TBLCNTS+9, TBLCNTS+10, TBLCNTS+11, COMPLOS+3*, COMPLOS+4*, COMPLOS+6, COMPLOS2+2, COMPLOS2+17 , COMPLOS2+18 |
| >> ACDCMBO | TBLCNTS+90*, TBLCNTS+91*, TBLCNTS+92, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95 |
| >> ACDCT | COMPLOS2+2*, COMPLOS2+7 |
| >> ACDCT("ALCOHO | L ONLY" , ZEROCNTS+10*, ZEROCNTS+11*, ZEROCNTS+12*, ZEROCNTS+13*, ZEROCNTS+14*, ZEROCNTS+15*, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30 , TBLCNTS+31, TBLCNTS+32, TBLCNTS+33 |
| >> ACDCT("ALCOHOL" | ZEROCNTS+4*, ZEROCNTS+5*, ZEROCNTS+6*, ZEROCNTS+7*, ZEROCNTS+8*, ZEROCNTS+9*, TBLCNTS+21, TBLCNTS+22, TBLCNTS+23, TBLCNTS+24 , TBLCNTS+25, TBLCNTS+26 |
| >> ACDCT("ALCOHOL&DRUGS" | ZEROCNTS+28*, ZEROCNTS+29*, ZEROCNTS+30*, ZEROCNTS+31*, ZEROCNTS+32*, ZEROCNTS+33*, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52 , TBLCNTS+53, TBLCNTS+54 |
| >> ACDCT("DRUGS | ONLY" , ZEROCNTS+22*, ZEROCNTS+23*, ZEROCNTS+24*, ZEROCNTS+25*, ZEROCNTS+26*, ZEROCNTS+27*, TBLCNTS+42, TBLCNTS+43, TBLCNTS+44 , TBLCNTS+45, TBLCNTS+46, TBLCNTS+47 |
| >> ACDCT("DRUGS" | ZEROCNTS+16*, ZEROCNTS+17*, ZEROCNTS+18*, ZEROCNTS+19*, ZEROCNTS+20*, ZEROCNTS+21*, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38 , TBLCNTS+39, TBLCNTS+40 |
| >> ACDCT("NEITHER" | ZEROCNTS+34*, ZEROCNTS+35*, ZEROCNTS+36*, ZEROCNTS+37*, ZEROCNTS+38*, ZEROCNTS+39*, TBLCNTS+56, TBLCNTS+57, TBLCNTS+58, TBLCNTS+59 , TBLCNTS+60, TBLCNTS+61 |
| >> ACDCT("SEEN" | ZEROCNTS+1*, ZEROCNTS+2*, ZEROCNTS+3*, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5 |
| >> ACDCT("TOBACCO" | ZEROCNTS+41*, ZEROCNTS+42*, ZEROCNTS+43*, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66 |
| >> ACDCT("TRIBE" | TBLCNTS+15, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18 |
| >> ACDDATE | COMPLOS+5*, COMPLOS+6*, COMPLOS2+10, COMPLOS2+14 |
| >> ACDDRUG | TBLCNTS+83*, TBLCNTS+84*, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87 |
| >> ACDDTLO | FINDPRB+5, FINDPRB+8 |
| >> ACDINRE | COMPLOS2+3*, COMPLOS2+11*, COMPLOS2+13, COMPLOS2+14 |
| >> ACDJOB | TBLCNTS+1, TBLCNTS+3, TBLCNTS+4, TBLCNTS+5, TBLCNTS+10, TBLCNTS+11, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18, TBLCNTS+21 , TBLCNTS+22, TBLCNTS+23, TBLCNTS+24, TBLCNTS+25, TBLCNTS+26, TBLCNTS+28, TBLCNTS+29, TBLCNTS+30, TBLCNTS+31, TBLCNTS+32 , TBLCNTS+33, TBLCNTS+35, TBLCNTS+36, TBLCNTS+37, TBLCNTS+38, TBLCNTS+39, TBLCNTS+40, TBLCNTS+42, TBLCNTS+43, TBLCNTS+44 , TBLCNTS+45, TBLCNTS+46, TBLCNTS+47, TBLCNTS+49, TBLCNTS+50, TBLCNTS+51, TBLCNTS+52, TBLCNTS+53, TBLCNTS+54, TBLCNTS+56 , TBLCNTS+57, TBLCNTS+58, TBLCNTS+59, TBLCNTS+60, TBLCNTS+61, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66, TBLCNTS+71, TBLCNTS+72 , TBLCNTS+73, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95 |
| >> ACDPGM | FINDPRB+3, COMPLOS2+5 |
| >> ACDPIEN | PATIENTS+2*, PATIENTS+3*, FINDPRB+3, FINDPRB+5, COMPLOS+1*, COMPLOS+2*, COMPLOS+4, COMPLOS+6, COMPLOS2+4 |
| >> ACDPRIEN | TBLCNTS+69*, TBLCNTS+70*, TBLCNTS+71, TBLCNTS+72, TBLCNTS+73, TBLCNTS+76*, TBLCNTS+77*, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80 |
| >> ACDTC | FINDPRB+6*, FINDPRB+7, FINDPRB+8, FINDPRB+10 |
| >> ACDTRIBE | TBLCNTS+14*, TBLCNTS+15*, TBLCNTS+16, TBLCNTS+17, TBLCNTS+18 |
| >> ACDVDATE | FINDPRB+4*, FINDPRB+5, FINDPRB+8 |
| >> ACDVHIT | FINDPRB+2*, FINDPRB+5*, FINDPRB+9*, FINDPRB+10* |
| ACDVIEN | FINDPRB+2*, FINDPRB+3*, FINDPRB+5~*, FINDPRB+9, FINDPRB+10~*, COMPLOS2+3*, COMPLOS2+4*, COMPLOS2+5 |
| >> C | TBLCNTS+92*, TBLCNTS+93, TBLCNTS+94, TBLCNTS+95 |
| U | TBLCNTS+9, FINDPRB+4, FINDPRB+6, COMPLOS2+6, COMPLOS2+7, COMPLOS2+8, COMPLOS2+9 |
| >> X | TBLCNTS+4*, TBLCNTS+5*, TBLCNTS+17*, TBLCNTS+18*, TBLCNTS+25*, TBLCNTS+26*, TBLCNTS+32*, TBLCNTS+33*, TBLCNTS+39*, TBLCNTS+40* , TBLCNTS+46*, TBLCNTS+47*, TBLCNTS+53*, TBLCNTS+54*, TBLCNTS+60*, TBLCNTS+61*, TBLCNTS+65*, TBLCNTS+66*, TBLCNTS+72*, TBLCNTS+73* , TBLCNTS+79*, TBLCNTS+80*, TBLCNTS+86*, TBLCNTS+87*, TBLCNTS+94*, TBLCNTS+95*, FINDPRB+3*, FINDPRB+4, FINDPRB+6, COMPLOS2+4* , COMPLOS2+6, COMPLOS2+7, COMPLOS2+8, COMPLOS2+9*, COMPLOS2+10, COMPLOS2+11, COMPLOS2+17 |
| >> X1 | COMPLOS2+14* |
| >> X2 | COMPLOS2+14* |
| >> Y | ZEROCNTS+40*, ZEROCNTS+41, ZEROCNTS+42, ZEROCNTS+43, TBLCNTS+63*, TBLCNTS+64, TBLCNTS+65, TBLCNTS+66, TBLCNTS+70*, TBLCNTS+71 , TBLCNTS+72, TBLCNTS+73, TBLCNTS+77*, TBLCNTS+78, TBLCNTS+79, TBLCNTS+80, TBLCNTS+84*, TBLCNTS+85, TBLCNTS+86, TBLCNTS+87 |
| >> Z | TBLCNTS+9*, TBLCNTS+10, TBLCNTS+11 |