©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
APCDFHD ; IHS/CMI/LAB - POV ICDUP ;
Source file <APCDFHD.m>
| Package | Total | Call Graph |
|---|---|---|
| Lexicon Utility | 3 | LOOK^LEXA CONFIG^LEXSET ($$ICDONE,$$ONE)^LEXU |
| DRG Grouper | 1 | $$ICDDX^ICDEX |
| IHS Patient | 1 | ($$CHKFH,$$IMP)^AUPNSICD |
| 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 |
|
| START1 | ;EP
|
|
| XITL | ||
| START | ;
|
|
| LEX | ;EP - called from input template
|
|
| 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+24 |
| $$CHKFH^AUPNSICD | ICDONE9+8, ICDONE1+8 |
| $$IMP^AUPNSICD | START1+4 |
| ^DIR | LEX+8 |
| $$ICDDX^ICDEX | LEX+32, ICDONE9+6, ICDONE1+6 |
| LOOK^LEXA | LEX+18, LEX+19 |
| CONFIG^LEXSET | LEX+3, LEX+4, LEX+13, LEX+14 |
| $$ICDONE^LEXU | LEX+28, ICDONE9+5 |
| $$ONE^LEXU | LEX+29, ICDONE1+5 |
| 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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("LEXFND" | LEX+12! |
| ^TMP("LEXHIT" | LEX+12!, LEX+28, LEX+29 |
| ^TMP("LEXSCH" | LEX+2!, LEX+12!, LEX+30! |
| Name | Line Occurrences |
|---|---|
| LEX | LEX+20, LEX+25, LEX+26, LEX+27 |
| XITL | LEX+9, LEX+10, LEX+31, LEX+33 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | LEX+32*, LEX+33, LEX+34 |
| ALEX | ICDONE9~, ICDONE9+5*, ICDONE9+6, ICDONE1~, ICDONE1+5*, ICDONE1+6 |
| ALEXICD | ICDONE9+3~, ICDONE9+6*, ICDONE9+7, ICDONE9+8, ICDONE1+3~, ICDONE1+6*, ICDONE1+7, ICDONE1+8 |
| ALEXVDT | ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+5, ICDONE1+6 |
| >> APCDANS | LEX+23* |
| APCDCSI | START1+3~, START1+4* |
| >> APCDDATE | START1+4, LEX+3, LEX+4, LEX+13, LEX+14, LEX+18, LEX+19, LEX+28, LEX+29, LEX+32 |
| >> APCDICD | LEX+34* |
| >> APCDIMP | START1+4*, LEX+3, LEX+4, LEX+13, LEX+14, LEX+16, LEX+17, LEX+18, LEX+19, LEX+28 , LEX+29, LEX+32 |
| >> APCDINPE | START1+1* |
| >> APCDLOOK | LEX+9*, LEX+10* |
| >> APCDTCLK | LEX+31*, LEX+33* |
| >> APCDTERR | LEX+31*, LEX+33* |
| APCDTPCC | START1+1*, XITL! |
| >> APCDTSKI | LEX+9*, LEX+10* |
| >> APCDUINP | LEX+11*, LEX+15 |
| >> APCDY | LEX+25, LEX+26, LEX+27, LEX+28, LEX+29 |
| D | XITL! |
| DA | LEX+8! |
| DD | XITL! |
| >> DIC("S" | LEX+16*, LEX+17* |
| DIPGM | XITL! |
| DIR | LEX+1!, LEX+8! |
| DIR("?" | LEX+6* |
| DIR("??" | LEX+7* |
| DIR("A" | LEX+5* |
| DIR(0 | LEX+5* |
| >> DIRUT | LEX+9 |
| DO | LEX+30!, XITL! |
| DT | START1+4 |
| LEX | LEX+12!, LEX+20 |
| LEX("HLP" | LEX+21 |
| U | LEX+28, LEX+29, LEX+33, LEX+34, ICDONE9+8, ICDONE1+8 |
| X | LEX+15*, LEX+18, LEX+19, LEX+21*, XITL! |
| Y | LEX+10, LEX+11, LEX+28*, LEX+29*, LEX+31, LEX+32, XITL! |