AUPNSICD ; IHS/CMI/LAB - Screen Purpose of Visit/ICD9 codes 24-MAY-1993 ; 05 Nov 2014 10:46 AM
Source file <AUPNSICD.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 2 | ($$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD |
IHS Patient | 1 | (HELP,HELPE,HELPFH,HELPOP,HELPPL,HELPRFB)^AUPNSICH |
IHS Standard Terminology | 1 | $$CONC^BSTSAPI |
Kernel | 1 | $$VERSION^XPDUTL |
Patient Care Component Reports | 1 | $$DSCHDATE^APCLV |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHKFH1 | ;
|
|
FHCHK | ;PEP - called from input tx on FAMILY HISTORY .01 field
|
|
HELP | ;EP
|
|
HELPFH | ;EP
|
|
CHKOP2 | ;CODING SYSTEM 2 - ICD9
|
|
CONC(IN) | ;PEP - called to return ICD codes for a snomed concept ID
|
|
CHKPL(Y) | ; SCREEN OUT E CODES AND INACTIVE CODES
|
|
CHKOP31 | ;coding system 31 - ICD10
|
|
CHKDX1 | ;CODING SYSTEM 1 - ICD9
|
|
CHKE | ;EP - ECODE SCREEN
|
|
CHKEX1 | ;CODING SYSTEM 1 - ICD9
|
|
CPT | ;EP - screen on CPT from V CPT .01 and V Procedure
|
|
CHKPL30 | ;coding system 30 - ICD10
|
|
HELPE | ;EP
|
|
OPSEX | ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
|
|
CHKDX30 | ;coding system 30 - ICD10
|
|
HELPPL | ;EP
|
|
IMP(D) | ;PEP - which coding system should be used:
|
|
CHKCPT(Y) | ;check CPT for valid date, inactive flag
|
|
CHKOP(Y) | ;EP
|
|
CHKPL1 | ;CODING SYSTEM 1 - ICD9
|
|
UNCODE(D) | ;
|
|
ICDOPCHK | ;EP called from input tx on V PROCEDURE .01 SCREEN OUT E CODES AND INACTIVE CODES
|
|
IMPOP(D) | ;PEP - which coding system should be used:
|
|
RFB | ;EP - ECODE SCREEN
|
|
PLACE | ;EP - ECODE SCREEN
|
|
RFBH | ;EP
|
|
CHKE1(Y) | ;EP SCREEN OUT E CODES AND INACTIVE CODES
|
|
CHKRFB(Y) | ; SCREEN Z18-Z18.9
|
|
CHKFH(Y) | ;EP - SCREEN OUT E CODES AND INACTIVE CODES
|
|
CHKEX30 | ;coding system 30 - ICD10
|
|
CHKRFB1 | ;CODING SYSTEM 1 - ICD9
|
|
HELPOP | ;EP
|
|
EOP | ;
|
|
CHK(Y) | ;EP - SCREEN OUT E CODES AND INACTIVE CODES
|
|
CHKFH30 | ;
|
|
CHKRFB30 | ;coding system 30 - ICD10
|
|
CSEX | ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
|
|
CSEX30 | ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
|
|
CSEX31 | ; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
|
Name | Field # of Occurrence |
---|---|
$$DSCHDATE^APCLV | CHK+10, CHKCPT+9, CHKOP+11, CHKE1+10, CHKPL+10, CHKRFB+10 |
HELP^AUPNSICH | HELP+1 |
HELPE^AUPNSICH | HELPE+1 |
HELPFH^AUPNSICH | HELPFH+1 |
HELPOP^AUPNSICH | HELPOP+1 |
HELPPL^AUPNSICH | HELPPL+1 |
HELPRFB^AUPNSICH | RFBH+1 |
$$CONC^BSTSAPI | CONC+22 |
^DIR | EOP+4 |
$$ICDDX^ICDEX | CHK+15, CHKFH+7, CHKE1+15, CHKPL+16, CHKRFB+16, CONC+30 |
$$ICDOP^ICDEX | CHKOP+16 |
$$CPT^ICPTCOD | CHKCPT+15 |
$$VERSION^XPDUTL | CHKCPT+16, CHKFH1+8, CHKFH30+9, CHKEX1+2, CHKEX1+3 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | CHK+9, CHK+10, CHK+11, CHKCPT+8, CHKCPT+9, CHKCPT+10, CHKOP+10, CHKOP+11, CHKOP+12, CHKE1+9 , CHKE1+10, CHKE1+11, CHKPL+9, CHKPL+10, CHKPL+11, CHKRFB+9, CHKRFB+10, CHKRFB+11 |
^ICD0 - [#80.1] | ICDOPCHK+2 |
^ICD9 - [#80] | AUPNSICD+5, CHKFH1+9, CHKFH30+10, CHKE+2, CHKEX1+4, FHCHK+4, PLACE+2, RFB+2 |
^ICDS - [#80.4] | IMP+10, IMP+11, IMPOP+10, IMPOP+11 |
^ICDS("F" | IMP+7, IMP+9, IMPOP+7, IMPOP+9 |
^ICPT - [#81] | CPT+3, CHKCPT+17 |
Name | Line Occurrences |
---|---|
$$CHK | AUPNSICD+4 |
$$CHKCPT | CPT+2 |
$$CHKE1 | CHKE+1 |
$$CHKFH | FHCHK+3 |
$$CHKOP | ICDOPCHK+1 |
$$CHKPL | PLACE+1 |
$$CHKRFB | RFB+1 |
$$IMP | CHK+14, CHKFH+6, CHKE1+14, CHKPL+15, CHKRFB+14, CONC+27, UNCODE+3 |
$$IMPOP | CHKOP+15 |
$$UNCODE | CONC+25, CONC+31, CONC+32 |
@( | CHK+18, CHKOP+18, CHKFH+9, CHKE1+17, CHKPL+18, CHKRFB+18 |
CSEX | CHKEX1+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CHK+1~, CHK+15*, CHK+16, CHKDX1+1, CHKDX1+2, CSEX+2, CHKDX30+1, CHKDX30+2, CHKDX30+3, CHKDX30+4 , CHKDX30+5, CSEX30+2, CHKCPT+5~, CHKCPT+15*, CHKCPT+16, CHKOP+8~, CHKOP+16*, CHKOP+17, CHKOP2+1, OPSEX+2 , CHKOP31+1, CSEX31+2, CHKFH+2~, CHKFH+7*, CHKFH+8, CHKFH1+2, CHKFH1+3, CHKFH1+4, CHKFH1+5, CHKFH1+6 , CHKFH1+8, CHKFH30+2, CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6, CHKFH30+7, CHKFH30+9, CHKE1+1~, CHKE1+15* , CHKE1+16, CHKEX1+1, CHKEX1+2, CHKEX30+3, CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+8, CHKPL+1~, CHKPL+16* , CHKPL+17, CHKPL1+1, CHKPL1+2, CHKPL30+3, CHKPL30+5, CHKRFB+1~, CHKRFB+16*, CHKRFB+17, CHKRFB30+3, CHKRFB30+5 |
A | CHK+1~, CHKCPT+5~, CHKCPT+17*, CHKOP+8~, CHKFH+2~, CHKFH1+1*, CHKFH1+2*, CHKFH1+3*, CHKFH1+4*, CHKFH1+5* , CHKFH1+6*, CHKFH1+7, CHKFH1+9*, CHKFH1+11, CHKFH30+1*, CHKFH30+2*, CHKFH30+3*, CHKFH30+4*, CHKFH30+5*, CHKFH30+6* , CHKFH30+7*, CHKFH30+8, CHKFH30+10*, CHKFH30+12, CHKE1+1~, CHKEX1+4*, CHKEX1+6, CHKPL+1~, CHKRFB+1~ |
>> ACHSDIEN | CHK+3, CHKCPT+3, CHKOP+3, CHKE1+3, CHKPL+3, CHKRFB+3 |
>> APCDDATE | CHK+12, CHKCPT+12, CHKOP+13, CHKFH+4, CHKE1+12, CHKPL+12, CHKRFB+12 |
>> APCDOVR | CHKCPT+1 |
>> APCDVSIT | CHK+9, CHK+10, CHK+11, CHKCPT+8, CHKCPT+9, CHKCPT+10, CHKOP+10, CHKOP+11, CHKOP+12, CHKE1+9 , CHKE1+10, CHKE1+11, CHKPL+9, CHKPL+10, CHKPL+11, CHKRFB+9, CHKRFB+10, CHKRFB+11 |
AUPND | CONC+19~, CONC+21*, CONC+25, CONC+27, CONC+30, CONC+31, CONC+32 |
AUPNI | CONC+19~, CONC+24*, CONC+25, CONC+28, CONC+29*, CONC+31*, CONC+32*, CONC+34 |
AUPNIMP | CONC+19~, CONC+27* |
AUPNIN1 | CONC+19~, CONC+20*, CONC+22 |
AUPNP | CONC+19~, CONC+30*, CONC+31, CONC+32 |
>> AUPNQ | EOP+1*, EOP+5* |
>> AUPNSEX | CSEX+1, CSEX+2, CSEX30+1, CSEX30+2, OPSEX+1, OPSEX+2, CSEX31+1, CSEX31+2 |
AUPNV | CONC+19~, CONC+22*, CONC+24, CONC+25*, CONC+34*, CONC+35 |
AUPNY | CONC+19~, CONC+28*, CONC+29*, CONC+30 |
AUPNZ | CONC+19~, CONC+28*, CONC+29, CONC+31, CONC+32 |
D | IMP~, IMP+5*, IMP+14, IMP+15, IMP+16, IMPOP~, IMPOP+5*, IMPOP+14, IMPOP+15, IMPOP+16 , CHK+1~, CHK+8*, CHK+10*, CHK+11*, CHK+12*, CHK+13*, CHK+14, CHK+15, CHKCPT+5~, CHKCPT+7* , CHKCPT+9*, CHKCPT+10*, CHKCPT+12*, CHKCPT+13*, CHKCPT+15, CHKCPT+18, CHKOP+8~, CHKOP+9*, CHKOP+11*, CHKOP+12* , CHKOP+13*, CHKOP+14*, CHKOP+15, CHKOP+16, CHKFH+2~, CHKFH+3*, CHKFH+4*, CHKFH+5*, CHKFH+6, CHKFH+7 , CHKFH1+10, CHKFH1+11, CHKFH30+11, CHKFH30+12, CHKE1+1~, CHKE1+8*, CHKE1+10*, CHKE1+11*, CHKE1+12*, CHKE1+13* , CHKE1+14, CHKE1+15, CHKEX1+5, CHKEX1+6, CHKPL+1~, CHKPL+8*, CHKPL+10*, CHKPL+11*, CHKPL+12*, CHKPL+13* , CHKPL+15, CHKPL+16, CHKRFB+1~, CHKRFB+8*, CHKRFB+10*, CHKRFB+11*, CHKRFB+12*, CHKRFB+13*, CHKRFB+14, CHKRFB+16 , UNCODE~, UNCODE+1*, UNCODE+3 |
DFOUT | EOP+3~ |
>> DIFGLINE | CHK+2, CHKCPT+2, CHKOP+2, CHKFH+1, CHKE1+2, CHKPL+2, CHKRFB+2 |
DIR | EOP+2~, EOP+4! |
DIR(0 | EOP+4* |
DIRUT | EOP+3~ |
DLOUT | EOP+3~ |
DT | IMP+5, IMPOP+5, CHK+13, CHKCPT+13, CHKOP+14, CHKFH+5, CHKE1+13, CHKPL+13, CHKRFB+13, CONC+21 , UNCODE+1 |
DTOUT | EOP+3~ |
DUOUT | EOP+3~, EOP+5 |
DUZ("AG" | CHK+4, CHKCPT+4, CHKOP+4, CHKE1+4, CHKPL+4, CHKRFB+4 |
I | CHK+1~, CHK+14*, CHK+16, CHK+17*, CHK+18, CHKCPT+5~, CHKCPT+17*, CHKCPT+18, CHKOP+8~, CHKOP+15* , CHKOP+17, CHKOP+18*, CHKFH+2~, CHKFH+6*, CHKFH+8, CHKFH+9*, CHKFH1+9*, CHKFH1+10, CHKFH30+10*, CHKFH30+11 , CHKE1+1~, CHKE1+14*, CHKE1+16, CHKE1+17*, CHKEX1+4*, CHKEX1+5, CHKPL+1~, CHKPL+15*, CHKPL+17, CHKPL+18* , CHKRFB+1~, CHKRFB+14*, CHKRFB+15, CHKRFB+17, CHKRFB+18*, UNCODE+2~, UNCODE+3*, UNCODE+4 |
IN | CONC~, CONC+20, CONC+21 |
IOF | EOP+6 |
J | CHKEX30+1~, CHKEX30+2*, CHKEX30+3*, CHKEX30+4*, CHKEX30+5*, CHKEX30+6*, CHKEX30+7, CHKPL30+1~, CHKPL30+2*, CHKPL30+3* , CHKPL30+4, CHKRFB30+1~, CHKRFB30+2*, CHKRFB30+3*, CHKRFB30+4 |
U | IMP+10, IMP+11, IMPOP+10, IMPOP+11, CHK+10, CHK+11, CHK+16, CHKDX1+1, CHKDX1+2, CSEX+2 , CHKDX30+1, CHKDX30+2, CHKDX30+3, CHKDX30+4, CHKDX30+5, CSEX30+2, CHKCPT+9, CHKCPT+10, CHKCPT+16, CHKCPT+17 , CHKOP+11, CHKOP+12, CHKOP+17, CHKOP2+1, OPSEX+2, CHKOP31+1, CSEX31+2, CHKFH+8, CHKFH1+2, CHKFH1+3 , CHKFH1+4, CHKFH1+5, CHKFH1+6, CHKFH1+8, CHKFH1+9, CHKFH30+2, CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6 , CHKFH30+7, CHKFH30+9, CHKFH30+10, CHKE1+10, CHKE1+11, CHKE1+16, CHKEX1+1, CHKEX1+2, CHKEX1+4, CHKEX30+3 , CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+8, CHKPL+10, CHKPL+11, CHKPL+17, CHKPL1+1, CHKPL1+2, CHKPL30+3 , CHKPL30+5, CHKRFB+10, CHKRFB+11, CHKRFB+17, CHKRFB30+3, CHKRFB30+5, CONC+20, CONC+21, CONC+24, CONC+25 , CONC+31, CONC+32, CONC+34 |
X | IMP+6~, IMP+9*, IMP+10, IMP+11, IMP+13*, IMP+14, IMP+15, IMP+16, IMPOP+6~, IMPOP+9* , IMPOP+10, IMPOP+11, IMPOP+13*, IMPOP+14, IMPOP+15, IMPOP+16 |
Y | AUPNSICD+4, AUPNSICD+5, IMP+6~, IMP+8*, IMP+15*, IMP+16*, IMP+17*, IMP+18, IMPOP+6~, IMPOP+8* , IMPOP+15*, IMPOP+16*, IMPOP+17*, IMPOP+18, CHK~, CHK+15, CPT+2, CPT+3, CHKCPT~, CHKCPT+15 , CHKCPT+17, ICDOPCHK+1, ICDOPCHK+2, CHKOP~, CHKOP+16, CHKFH~, CHKFH+7, CHKFH1+9, CHKFH30+10, CHKE+1 , CHKE+2, CHKE1~, CHKE1+15, CHKEX1+4, FHCHK+3, FHCHK+4, PLACE+1, PLACE+2, CHKPL~, CHKPL+16 , RFB+1, RFB+2, CHKRFB~, CHKRFB+16 |
Z | IMP+6~, IMPOP+6~ |
Z( | IMP+11*, IMP+13, IMP+15, IMP+16, IMP+17, IMPOP+11*, IMPOP+13, IMPOP+15, IMPOP+16, IMPOP+17 |
Z(0 | IMP+17, IMPOP+17 |