©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
APCDETPD ; IHS/CMI/LAB - POV ICDUP ;
Source file <APCDETPD.m>
| Package | Total | Call Graph |
|---|---|---|
| Lexicon Utility | 4 | LOOK^LEXA CONFIG^LEXSET $$ONE^LEXSRC ($$ICDONE,$$ONE)^LEXU |
| IHS Patient | 2 | $$CHK^AUPNCIX $$IMP^AUPNSICD |
| DRG Grouper | 1 | $$ICDDX^ICDEX |
| IHS VA Utilities | 1 | EN^XBNEW |
| Kernel | 1 | $$DT^XLFDT |
| Patient Care Component | 1 | GETANS^APCDAPOV |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICDONE9(ALEX,ALEXVDT) | ;EP - Return one ICD code for an expression
; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes |
|
| I | ;
|
|
| START1 | ;EP
|
|
| XITL | ||
| START | ;
|
|
| LEX | ;EP - called from input template
|
|
| LEXN | ;
|
|
| ICDONE1(ALEX,ALEXVDT) | ;EP - Return one ICD code for an expression
; LEX IEN of file 757.01 ; LEXVDT Date to use for screening by codes |
| Name | Field # of Occurrence |
|---|---|
| GETANS^APCDAPOV | LEX+32 |
| $$CHK^AUPNCIX | ICDONE9+8, ICDONE1+7 |
| $$IMP^AUPNSICD | I+1 |
| ^DIR | LEX+9 |
| $$ICDDX^ICDEX | LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+40, ICDONE9+6, ICDONE1+5 |
| LOOK^LEXA | LEX+26, LEX+27 |
| CONFIG^LEXSET | LEX+4, LEX+5, LEX+20, LEX+21 |
| $$ONE^LEXSRC | ICDONE9+5 |
| $$ICDONE^LEXU | LEX+36 |
| $$ONE^LEXU | LEX+37, ICDONE1+4 |
| EN^XBNEW | START+1 |
| $$DT^XLFDT | ICDONE9+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("LEXFND" | LEX+19! |
| ^TMP("LEXHIT" | LEX+19!, LEX+36, LEX+37 |
| ^TMP("LEXSCH" | LEX+3!, LEX+19!, LEX+38! |
| Name | Line Occurrences |
|---|---|
| LEX | LEX+28, LEX+33, LEX+34, LEX+35 |
| LEXN | LEX+14, LEX+15, LEX+16, LEX+17, LEX+18 |
| XITL | LEX+10, LEX+11, LEX+39, LEX+41 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LEX+13*, LEX+14*, LEX+15*, LEX+16*, LEX+17*, LEX+18*, LEX+40*, LEX+41, LEXN+1, ICDONE1+3~ |
| ALEVXDT | ICDONE1+3~ |
| ALEX | ICDONE9~, ICDONE9+5*, ICDONE9+6, ICDONE1~, ICDONE1+4*, ICDONE1+5 |
| ALEXICD | ICDONE9+3~, ICDONE9+6*, ICDONE9+7, ICDONE9+8, ICDONE1+3~, ICDONE1+5*, ICDONE1+6, ICDONE1+7 |
| ALEXVDT | ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+4, ICDONE1+5 |
| APCDANS | START1+4~, LEX+31* |
| >> APCDD | START1+2*, START1+3*, I+1, LEX+4, LEX+5, LEX+14, LEX+15, LEX+16, LEX+17, LEX+18 , LEX+20, LEX+21, LEX+26, LEX+27, LEX+36, LEX+37, LEX+40 |
| APCDIMP | START1+4~, I+1*, LEX+4, LEX+5, LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+20 , LEX+21, LEX+23, LEX+24, LEX+26, LEX+27, LEX+36, LEX+37, LEX+40 |
| >> APCDINPE | START1+1* |
| >> APCDLOOK | LEX+10*, LEX+11*, LEX+39*, LEX+41* |
| >> APCDTDI | START1+2, ICDONE9+8, ICDONE1+7 |
| >> APCDTDX | LEXN+1* |
| >> APCDTERR | LEX+39*, LEX+41* |
| >> APCDTIN9 | LEX+7, LEX+8 |
| APCDTPCC | START1+1*, XITL! |
| >> APCDTSKI | LEX+10*, LEX+11* |
| >> APCDUINP | LEX+12*, LEX+14, LEX+15, LEX+16, LEX+17, LEX+18, LEX+22 |
| >> APCDY | LEX+33, LEX+34, LEX+35, LEX+36, LEX+37 |
| D | XITL! |
| DA | LEX+9! |
| DD | XITL! |
| >> DIC("A" | LEX+25* |
| >> DIC("S" | LEX+23*, LEX+24* |
| DIPGM | XITL! |
| DIR | LEX+2!, LEX+9! |
| DIR("?" | LEX+7* |
| DIR("??" | LEX+8* |
| DIR("A" | LEX+6* |
| DIR(0 | LEX+6* |
| >> DIRUT | LEX+10 |
| DO | LEX+38!, XITL! |
| DT | START1+3 |
| LEX | LEX+19!, LEX+28 |
| LEX("HLP" | LEX+29 |
| U | LEX+36, LEX+37, LEX+41, ICDONE9+8, ICDONE1+7 |
| X | LEX+22*, LEX+26, LEX+27, LEX+29*, XITL! |
| Y | LEX+11, LEX+12, LEX+36*, LEX+37*, LEX+39, LEX+40, XITL! |