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 |