AUPNSIC9 ; IHS/CMI/LAB - Screen Purpose of Visit/ICD9 codes 24-MAY-1993 ;
Source file <AUPNSIC9.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 2 | EN^DDIOL ^DIR |
DRG Grouper | 1 | ($$ICDDX,$$ICDOP,$$IMP,IMP)^ICDEX |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Kernel | 1 | $$FMADD^XLFDT |
Taxonomy | 1 | LST^ATXAPI |
Package | Total | Caller Graph |
---|---|---|
Patient Care Component | 3 | APCDAPOV APCDCPOV APCDLPOV |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHKOP9 | ;EP
|
|
CHKDX91 | ;CODING SYSTEM 1 - ICD9
|
|
HELPOP9 | ;EP
|
|
CHKPL9 | ;EP
|
|
CHK9 | ;EP
|
|
HELPPL9 | ;EP
|
|
CHK91(Y) | ;EP
|
|
ASKLISTO() | ;
|
|
CHKE9 | ;EP
|
|
HELPE9 | ;EP
|
|
CHKPL91(Y) | ;
|
|
ASKLIST() | ;
|
|
EOP | ;
|
|
CHKE91(Y) | ;
|
|
CHKOP91(Y) | ;
|
|
CSEX | ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
|
|
HELP9 | ;EP
|
Name | Field # of Occurrence |
---|---|
LST^ATXAPI | HELP9+3, HELP9+15, HELPE9+3, HELPE9+12, HELPPL9+3, HELPPL9+10, HELPOP9+3, HELPOP9+17 |
EN^DDIOL | HELP9+7, HELP9+9, HELP9+25, HELPE9+5, HELPE9+6, HELPE9+21, HELPPL9+19, HELPOP9+8, HELPOP9+26 |
^DIR | ASKLIST+2, ASKLISTO+2, EOP+4 |
$$ICDDX^ICDEX | CHK91+5, HELP9+21, CHKE91+5, HELPE9+18, CHKPL91+5, HELPPL9+16 |
$$ICDOP^ICDEX | HELPOP9+23, CHKOP91+5 |
$$IMP^ICDEX | CHK91+3, HELP9+4, CHKE91+3, HELPE9+4, CHKPL91+3, HELPPL9+4, HELPOP9+6, CHKOP91+3 |
IMP^ICDEX | HELPOP9+6 |
$$VAL^XBDIQ1 | HELP9+6 |
$$FMADD^XLFDT | CHK91+3, HELP9+4, CHKE91+3, HELPE9+4, CHKPL91+3, HELPPL9+4, HELPOP9+6, CHKOP91+3 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ICD9 - [#80] | CHK9+2, CHKE9+2, CHKPL9+2, CHKOP9+2 |
^ICDS("F" | HELP9+2, HELPE9+2, HELPPL9+2, HELPOP9+2 |
^TMP($J | HELP9+14!, HELP9+18, HELP9+21, HELP9+27!, HELPE9+11!, HELPE9+15, HELPE9+18, HELPE9+23!, HELPPL9+9!, HELPPL9+13 , HELPPL9+16, HELPPL9+21!, HELPOP9+16!, HELPOP9+20, HELPOP9+23, HELPOP9+28! |
Name | Line Occurrences |
---|---|
$$ASKLIST | HELP9+12, HELPE9+9, HELPPL9+7 |
$$ASKLISTO | HELPOP9+14 |
$$CHK91 | CHK9+1 |
$$CHKE91 | CHKE9+1 |
$$CHKOP91 | CHKOP9+1 |
$$CHKPL91 | CHKPL9+1 |
@( | CHK91+8 |
EOP | HELP9+19, HELPE9+16, HELPPL9+14, HELPOP9+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | ASKLIST+1~, ASKLISTO+1~, CHK91+1~, CHK91+5*, CHK91+6, CHKDX91+1, CHKDX91+2, CSEX+3, HELP9+1~, HELP9+6* , HELP9+7, HELP9+21*, HELP9+23, HELP9+24, CHKE91+1~, CHKE91+5*, CHKE91+6, CHKE91+8, CHKE91+9, CHKE91+12 , HELPE9+1~, HELPE9+18*, HELPE9+19, HELPE9+20, CHKPL91+1~, CHKPL91+5*, CHKPL91+6, CHKPL91+8, CHKPL91+9, CHKPL91+12 , HELPPL9+1~, HELPPL9+16*, HELPPL9+17, HELPPL9+18, HELPOP9+1~, HELPOP9+7*, HELPOP9+8, HELPOP9+23*, HELPOP9+24, HELPOP9+25 , CHKOP91+1~, CHKOP91+5*, CHKOP91+6, CHKOP91+8, CHKOP91+11 |
A | CHK91+1~, CHKE91+1~, CHKPL91+1~, CHKOP91+1~ |
AUPNC | HELP9+13~, HELP9+14*, HELP9+15, HELPE9+10~, HELPE9+11*, HELPE9+12, HELPPL9+8~, HELPPL9+9*, HELPPL9+10, HELPOP9+15~ , HELPOP9+16*, HELPOP9+17 |
AUPNF | HELP9+17~, HELP9+18*, HELP9+19, HELP9+26*, HELPE9+14~, HELPE9+15*, HELPE9+16, HELPE9+22*, HELPPL9+12~, HELPPL9+13* , HELPPL9+14, HELPPL9+20*, HELPOP9+19~, HELPOP9+20*, HELPOP9+21, HELPOP9+27* |
AUPNQ | EOP+1*, EOP+5*, HELP9+17~, HELP9+18*, HELP9+19, HELPE9+14~, HELPE9+15*, HELPE9+16, HELPPL9+12~, HELPPL9+13* , HELPPL9+14, HELPOP9+19~, HELPOP9+20*, HELPOP9+21 |
>> AUPNSEX | CSEX+1, CSEX+3, CHKE91+11, CHKE91+12, CHKPL91+11, CHKPL91+12, CHKOP91+10, CHKOP91+11 |
AUPNX | HELP9+17~, HELP9+18*, HELP9+21, HELP9+22, HELP9+24, HELPE9+14~, HELPE9+15*, HELPE9+18, HELPE9+20, HELPPL9+12~ , HELPPL9+13*, HELPPL9+16, HELPPL9+18, HELPOP9+19~, HELPOP9+20*, HELPOP9+23, HELPOP9+25 |
AUPNY | HELP9+17~, HELPE9+14~, HELPPL9+12~, HELPOP9+19~ |
D | ASKLIST+1~, ASKLISTO+1~, EOP+2~, CHK91+1~, CHK91+2*, CHK91+3*, CHK91+5, HELP9+1~, HELP9+4*, HELP9+21 , CHKE91+1~, CHKE91+2*, CHKE91+3*, CHKE91+5, HELPE9+1~, HELPE9+4*, HELPE9+18, CHKPL91+1~, CHKPL91+2*, CHKPL91+3* , CHKPL91+5, HELPPL9+1~, HELPPL9+4*, HELPPL9+16, HELPOP9+1~, HELPOP9+4*, HELPOP9+6*, HELPOP9+23, CHKOP91+1~, CHKOP91+2* , CHKOP91+3* |
DA | ASKLIST+1~, ASKLIST+2!, ASKLISTO+1~, ASKLISTO+2! |
DFOUT | EOP+3~ |
DIC | ASKLIST+1~, ASKLISTO+1~ |
DIE | ASKLIST+1~, ASKLISTO+1~ |
DIR | ASKLIST+1~, ASKLIST+2!, ASKLISTO+1~, ASKLISTO+2!, EOP+2~, EOP+4! |
DIR("A" | ASKLIST+2*, ASKLISTO+2* |
DIR("B" | ASKLIST+2*, ASKLISTO+2* |
DIR(0 | ASKLIST+2*, ASKLISTO+2*, EOP+4* |
DIRUT | ASKLIST+1~, ASKLIST+3, ASKLISTO+1~, ASKLISTO+3, EOP+3~ |
DLOUT | EOP+3~ |
DT | HELPOP9+6 |
DTOUT | EOP+3~ |
DUOUT | ASKLIST+1~, ASKLISTO+1~, EOP+3~, EOP+5 |
I | ASKLIST+1~, ASKLISTO+1~, CHK91+1~, CHK91+4*, CHK91+6, CHK91+7*, CHK91+8, HELP9+1~, HELP9+5*, HELP9+6 , HELP9+8, HELP9+15, HELP9+22, CHKE91+1~, CHKE91+4*, CHKE91+6, HELPE9+1~, CHKPL91+1~, CHKPL91+4*, CHKPL91+6 , HELPPL9+1~, HELPPL9+5*, HELPOP9+1~, HELPOP9+5*, HELPOP9+17, CHKOP91+1~, CHKOP91+4*, CHKOP91+6 |
IOF | EOP+6 |
IOSL | HELP9+19, HELPE9+16, HELPPL9+14, HELPOP9+21 |
U | CHK91+6, CHKDX91+1, CHKDX91+2, CSEX+3, HELP9+21, HELP9+23, HELP9+24, CHKE91+6, CHKE91+8, CHKE91+9 , CHKE91+12, HELPE9+18, HELPE9+19, HELPE9+20, CHKPL91+6, CHKPL91+8, CHKPL91+9, CHKPL91+12, HELPPL9+16, HELPPL9+17 , HELPPL9+18, HELPOP9+23, HELPOP9+24, HELPOP9+25, CHKOP91+6, CHKOP91+8, CHKOP91+11 |
X | ASKLIST+1~, ASKLISTO+1~, HELP9+10, HELP9+17~, HELP9+24*, HELP9+25, HELPE9+8, HELPE9+14~, HELPE9+20*, HELPE9+21 , HELPPL9+6, HELPPL9+12~, HELPPL9+18*, HELPPL9+19, HELPOP9+13, HELPOP9+19~, HELPOP9+25*, HELPOP9+26 |
Y | ASKLIST+1~, ASKLIST+4, ASKLISTO+1~, ASKLISTO+4, CHK9+1, CHK9+2, CHK91~, CHK91+5, CHKE9+1, CHKE9+2 , CHKE91~, CHKE91+5, CHKPL9+1, CHKPL9+2, CHKPL91~, CHKPL91+5, CHKOP9+1, CHKOP9+2, CHKOP91~, CHKOP91+5 |
Name | Field # of Occurrence |
---|---|
$T(IMP^ICDEX | HELPOP9+6 |
$T(LST^ATXAPI | HELP9+3, HELPE9+3, HELPPL9+3, HELPOP9+3 |