©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
Select the objects that you wish to see in the downloaded PDF
InfoAPCPUTIL ; IHS/TUCSON/LAB - DW UTILITIES ; [ 08/18/2003 7:44 AM ]
Source file <APCPUTIL.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient | 2 | $$CPT^AUPNCPT $$BEN^AUPNPAT |
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
| Patient Care Component Reports | 1 | ($$CLINIC,$$PRIMPROV,$$SECPROV)^APCLV |
| VA Fileman | 1 | ^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GLUCOSE(V) | ;EP - return glucose test value on this visit
|
|
| CLS(P) | ;return ihs class code for provider P
|
|
| VENTYP(V) | ;EP return vendor type from VCHS
|
|
| SSN(P) | ;return provider's ssn
|
|
| LOS(V) | ;EP
|
|
| CPTRECS(V) | ;EP # of cpt records (AD4's)
|
|
| LABDONE(V,T) | ;EP - return Y/N
|
|
| DMNUTR(V) | ;EP - was dm nutrition educ done on this visit, Y or N
|
|
| BI() | ;IHS/CMI/LAB - new subroutine patch 4 1/5/1999
|
|
| ZIP(V) | ;EP - zip code of patient
|
|
| LBLK(V,L) | ;left blank fill
|
|
| DSCHTYPE(V) | ;EP
|
|
| LABRES(V,T) | ;EP - return result of lab test in taxonomy T
|
|
| PED(V,N) | ;EP - return nth v patient ed on this visit
|
|
| DATE(D) | ;EP - return YYYYMMDD from internal fm format
|
|
| EXAM(V,N) | ;EP - return nth v exam on this visit
|
|
| UPI(V) | ;EP unique Patient ID
|
|
| C | ;
|
|
| E | ;
|
|
| DENTSSN(V) | ;EP - if a provider is a 52 get SSN
|
|
| I | ;
|
|
| H | ;
|
|
| PHNAC(V) | ;
|
|
| CHSDT | ;
|
|
| IMM(V,F,N) | ;EP
|
|
| S | ;
|
|
| RBLK(V,L) | ;EP right blank fill
|
|
| HFNAME(V,C) | ;EP return name of health factor in this category
|
|
| LZERO(V,L) | ;EP - left zero fill
|
|
| CHSDD | ;
|
|
| CHSLOS | ;
|
|
| PHN(V) | ;
|
|
| HF(V,F) | ;EP was this health factor recorded on this visit
|
|
| DELM(V) | ;
|
|
| RZERO(V,L) | ;ep right zero fill
|
|
| NATION(V) | ;EP
|
|
| PAP(V) | ;EP - was pap performed Y/N
|
|
| DENTCOST(V) | ;COST OF THIS VISIT
|
|
| LEVEL(V) | ;EP
|
|
| DSCHDATE(V) | ;EP
|
|
| MEAS(V,T,F) | ;EP - return first weight recorded
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | DMNUTR+8 |
| ^ATXAX("B" | DMNUTR+4 |
| ^ATXLAB - [#9002228] | PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5 |
| ^ATXLAB("B" | PAP+2, GLUCOSE+2, LABDONE+3, LABRES+3 |
| ^AUPNVCHS - [#9000010.03] | VENTYP+5, VENTYP+7, CHSDD+2, CHSLOS+2 |
| ^AUPNVCHS("AD" | VENTYP+3, CHSDT+1, CHSDD+1, CHSLOS+1 |
| ^AUPNVDEN - [#9000010.05] | DENTCOST+4 |
| ^AUPNVDEN("AD" | DENTCOST+4, DELM+6 |
| ^AUPNVHF - [#9000010.23] | HF+3, HFNAME+3 |
| ^AUPNVHF("AD" | HF+3, HFNAME+3 |
| ^AUPNVIMM - [#9000010.11] | IMM+6, S+1 |
| ^AUPNVIMM("AD" | IMM+6 |
| ^AUPNVINP - [#9000010.02] | DSCHDATE+6, LOS+7 |
| ^AUPNVINP("AD" | DSCHTYPE+6, DSCHDATE+5, LOS+6 |
| ^AUPNVLAB - [#9000010.09] | PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5 |
| ^AUPNVLAB("AD" | PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5 |
| ^AUPNVMSR - [#9000010.01] | MEAS+10 |
| ^AUPNVMSR("AD" | MEAS+5, MEAS+10 |
| ^AUPNVPED - [#9000010.16] | PED+6, DMNUTR+8 |
| ^AUPNVPED("AD" | PED+6, DMNUTR+3, DMNUTR+8 |
| ^AUPNVPHN - [#9000010.32] | LEVEL+5 |
| ^AUPNVPHN("AD" | LEVEL+3 |
| ^AUPNVPRV - [#9000010.06] | PHN+5, DENTSSN+3 |
| ^AUPNVPRV("AD" | PHN+5, DENTSSN+3 |
| ^AUPNVSIT - [#9000010] | DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, VENTYP+2, DSCHDATE+2, DSCHDATE+3, LOS+2, LOS+3, LOS+5, LOS+7 , CHSLOS+2, PHNAC+3, MEAS+3, EXAM+2, PED+2, IMM+2, DENTSSN+2, NATION+2, DMNUTR+2, ZIP+2 , DELM+3, UPI+2 |
| ^AUPNVXAM - [#9000010.13] | EXAM+6 |
| ^AUPNVXAM("AD" | EXAM+6 |
| ^AUTTEDT - [#9999999.09] | PED+8, PED+9 |
| ^AUTTEXAM - [#9999999.15] | EXAM+8, EXAM+9 |
| ^AUTTHF - [#9999999.64] | HFNAME+3 |
| ^AUTTHF("B" | HF+2, HFNAME+2 |
| ^AUTTIMM - [#9999999.14] | IMM+8, E+1, C+2, H+2 |
| ^AUTTIMM(0 | BI+1 |
| ^AUTTLOC - [#9999999.06] | UPI+4 |
| ^AUTTMSR("B" | MEAS+6 |
| ^AUTTSITE(1 | UPI+4*, UPI+6 |
| ^DD(9000010.02 | DSCHTYPE+10, DSCHTYPE+11 |
| ^DD(9000010.06 | CLS+3, SSN+2, SSN+3 |
| ^DG(405.1 - [#405.1] | DSCHTYPE+11 |
| ^DIC(16 - [#16] | SSN+3 |
| ^DIC(42.2 - [#42.2] | DSCHTYPE+10 |
| ^DIC(6 - [#6] | CLS+9, CLS+10 |
| ^DIC(7 - [#7] | CLS+7, CLS+12 |
| ^DPT - [#2] | ZIP+3 |
| ^VA(200 - [#200] | CLS+4, CLS+5, SSN+2 |
| Name | Line Occurrences |
|---|---|
| $$BI | C+2, H+1 |
| $$CLS | DENTSSN+4 |
| $$DATE | DSCHDATE+8, CHSDD+4 |
| $$PHN | PHNAC+2, LEVEL+2 |
| $$SSN | DENTSSN+5 |
| @( | IMM+10 |
| CHSDD | DSCHDATE+5 |
| CHSDT | DSCHTYPE+5 |
| CHSLOS | LOS+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RZERO+1~, RZERO+2*, LZERO+1~, LZERO+2*, LBLK+1~, LBLK+2*, RBLK+1~, RBLK+2*, DSCHTYPE+4~, DSCHTYPE+6* , PHN+3~, PHN+5*, PHN+6, EXAM+4~, PED+4~, IMM+4~, IMM+10*, IMM+11, I+1*, E+1* , S+1*, C+2*, H+1*, H+2*, CLS+2~*, CLS+3, CLS+7*, LABDONE+4~*, LABDONE+5*, LABDONE+6 , LABRES+4~*, LABRES+5*, LABRES+6 |
| %1 | CLS+5~*, CLS+6, CLS+7, CLS+10~*, CLS+11, CLS+12 |
| >> APCPVIEN | DELM+4, DELM+5, DELM+6 |
| AUPNCPT | CPTRECS+1!, CPTRECS+3 |
| AUPNCPT( | CPTRECS+4 |
| C | CPTRECS+2~, CPTRECS+4*, CPTRECS+5, VENTYP+3~*, VENTYP+4, VENTYP+5, VENTYP+7, EXAM+4~, EXAM+5*, EXAM+6* , PED+4~, PED+5*, PED+6*, IMM+4~, IMM+5*, IMM+6*, DENTCOST+2~, DENTCOST+3*, DENTCOST+4*, DENTCOST+5 , HFNAME~, HFNAME+2*, HFNAME+3 |
| D | DATE~, DATE+1, DATE+2, PHN+3~, PHN+5*, DENTSSN+4*, DENTSSN+5 |
| E | VENTYP+6~, VENTYP+7*, VENTYP+8, VENTYP+9 |
| F | MEAS~, MEAS+8*, MEAS+12, IMM~, IMM+9*, IMM+10, HF~, HF+2 |
| I | RZERO+1~, RZERO+2*, LZERO+1~, LZERO+2*, LBLK+1~, LBLK+2*, RBLK+1~, RBLK+2* |
| L | RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, RBLK~, RBLK+2 |
| N | PHN+3~, PHN+5*, EXAM~, EXAM+3, EXAM+6, PED~, PED+3, PED+6, IMM~, IMM+3 , IMM+6 |
| P | LEVEL+3~*, LEVEL+4, LEVEL+5, EXAM+4~, EXAM+5*, EXAM+6*, EXAM+7, EXAM+8, EXAM+9, PED+4~ , PED+5*, PED+6*, PED+7, PED+8, PED+9, IMM+4~, IMM+5*, IMM+6*, IMM+7, IMM+8 , I+1, E+1, C+2, H+2, CLS~, CLS+1, CLS+4, CLS+5, CLS+9, CLS+10 , SSN~, SSN+1, SSN+2, SSN+3, NATION+2~*, NATION+3, NATION+4, ZIP+2~*, ZIP+3, UPI+2~* , UPI+3, UPI+6 |
| R | CPTRECS+2~, CPTRECS+5*, CPTRECS+6, MEAS+9~*, MEAS+10*, MEAS+11, MEAS+12, MEAS+13*, DMNUTR+6~, DMNUTR+7* , DMNUTR+8*, DMNUTR+9 |
| S | DENTSSN+3~*, DENTSSN+5*, DENTSSN+7, DELM+1~, DELM+3*, DELM+4, DELM+5, DELM+6 |
| T | VENTYP+6~, VENTYP+9*, VENTYP+10, MEAS~, MEAS+4, MEAS+6, PAP+2~*, PAP+3, PAP+4, GLUCOSE+2~* , GLUCOSE+3, GLUCOSE+4, LABDONE~, LABDONE+2, LABDONE+3*, LABDONE+5, LABRES~, LABRES+2, LABRES+3*, LABRES+5 , HF+2~*, HF+3 |
| U | DENTCOST+4, DMNUTR+8, ZIP+2, ZIP+3, PAP+4, GLUCOSE+4, LABDONE+5, LABRES+5, HF+3, HFNAME+3 , DELM+3, UPI+2, UPI+4, UPI+6 |
| V | RZERO~, RZERO+2*, RZERO+3, LZERO~, LZERO+2*, LZERO+3, LBLK~, LBLK+2*, LBLK+3, RBLK~ , RBLK+2*, RBLK+3, CPTRECS~, CPTRECS+2, DSCHTYPE~, DSCHTYPE+1, DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, DSCHTYPE+6 , VENTYP~, VENTYP+1, VENTYP+2, VENTYP+3, CHSDT+1, DSCHDATE~, DSCHDATE+1, DSCHDATE+2, DSCHDATE+3, DSCHDATE+5 , CHSDD+1, LOS~, LOS+1, LOS+2, LOS+3, LOS+5, LOS+6, CHSLOS+1, PHNAC~, PHNAC+1 , PHNAC+2, PHNAC+3, PHNAC+4, PHN~, PHN+2, PHN+4, PHN+5, LEVEL~, LEVEL+1, LEVEL+2 , LEVEL+3, MEAS~, MEAS+3, MEAS+5, MEAS+10, EXAM~, EXAM+1, EXAM+2, EXAM+6, PED~ , PED+1, PED+2, PED+6, IMM~, IMM+1, IMM+2, IMM+6, DENTSSN~, DENTSSN+1, DENTSSN+2 , DENTSSN+3, NATION~, NATION+1, NATION+2, DENTCOST~, DENTCOST+1, DENTCOST+4, DMNUTR~, DMNUTR+1, DMNUTR+2 , DMNUTR+3, DMNUTR+8, ZIP~, ZIP+1, ZIP+2, PAP~, PAP+1, PAP+4, GLUCOSE~, GLUCOSE+1 , GLUCOSE+4, LABDONE~, LABDONE+1, LABDONE+5, LABRES~, LABRES+1, LABRES+5, HF~, HF+1, HF+3 , HFNAME~, HFNAME+1, HFNAME+3, DELM~, DELM+2, DELM+3, UPI~, UPI+1, UPI+2 |
| X | CPTRECS+2~*, CPTRECS+4*, LOS+4~, LOS+8*, LOS+9, CHSLOS+3*, CHSLOS+4, PHN+3~, PHN+5*, MEAS+9~ , MEAS+10*, DENTSSN+3~*, DENTCOST+2~, DENTCOST+3*, DENTCOST+4*, DMNUTR+6~, DMNUTR+8*, PAP+4~*, GLUCOSE+4~*, LABDONE+4~* , LABDONE+5*, LABRES+4~*, LABRES+5*, HF+3~*, HFNAME+3~* |
| X1 | LOS+4~, LOS+7*, CHSLOS+2* |
| X2 | LOS+4~, LOS+7*, CHSLOS+2* |
| Y | DSCHTYPE+4~, DSCHTYPE+8*, DSCHTYPE+9, DSCHTYPE+10, DSCHTYPE+11, CHSDT+2*, CHSDT+3*, CHSDT+4, DSCHDATE+4~, DSCHDATE+6* , DSCHDATE+7, DSCHDATE+8, CHSDD+2*, CHSDD+3, CHSDD+4, LOS+4~, MEAS+6~*, MEAS+7, MEAS+10, EXAM+4~ , EXAM+5*, EXAM+6*, PED+4~, PED+5*, PED+6*, IMM+4~, IMM+5*, IMM+6*, DENTSSN+3~*, DENTSSN+4 , DENTSSN+5, DENTCOST+2~, DMNUTR+4~*, DMNUTR+5, DMNUTR+8, PAP+4~*, PAP+5, GLUCOSE+4~*, GLUCOSE+5, LABDONE+4~ , LABDONE+5*, LABRES+4~, LABRES+5*, HF+3~*, HF+4, HFNAME+3~*, HFNAME+4 |
| Z | RZERO+2*, LZERO+2*, LBLK+2*, RBLK+2*, DSCHTYPE+4~, DSCHTYPE+6*, DSCHTYPE+7, DSCHTYPE+8, CHSDT+1*, CHSDT+2 , DSCHDATE+4~, DSCHDATE+5*, DSCHDATE+6, CHSDD+1*, CHSDD+2, LOS+4~, LOS+6*, LOS+7, CHSLOS+1*, CHSLOS+2 , MEAS+9~, EXAM+4~, EXAM+5*, EXAM+6*, PED+4~, PED+5*, PED+6*, IMM+4~, IMM+5*, IMM+6* , S+1, DMNUTR+6~, DMNUTR+8*, PAP+4~*, GLUCOSE+4~*, HFNAME+3~* |