APCHSM04 ; IHS/CMI/LAB -- CONTINUATION OF ROUTINES ;
Source file <APCHSM04.m>
Package | Total | Call Graph |
---|---|---|
Patient Care Component | 3 | $$BI^APCHS11C ($$AGESEX,$$DATE,$$DATEAGE,$$INAC,$$MINAGE,$$OVR,$$PLTAX,$$REF,$$SITECRIT,WRITE)^APCHSMU ($$CPT,$$LASTDX,$$WH,MAMREF)^APCHSMU2 |
Patient Care Component Reports | 3 | ($$LASTMAM,$$LASTPAP)^APCLAPI1 $$LASTFLU^APCLAPI4 ($$LASTDXT,$$LASTITEM)^APCLAPIU |
VA Fileman | 2 | ^%DT $$GET1^DIQ |
DRG Grouper | 1 | $$ICDOP^ICDEX |
IHS Patient | 1 | ($$AGE,$$DOB)^AUPNPAT |
Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
Taxonomy | 1 | $$ICD^ATXAPI |
Women's Health | 1 | ($$BNEED,$$CNEED)^BWUTL1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PAP | ;
|
|
LASTHPV(P) | ;EP
|
|
HASWWP(DFN) | ;
|
|
PAPDAYS(P) | ;PEP - called from WH to return # of days
; from last pap until this patient's next pap is due ; 0 = clinical discretion (had hysterectomy) ; -1 = patient not eligible for this reminder ; return = # days |
|
PAPWT | ;
|
|
FLU | ;EP - influenza
|
|
HT | ;EP
|
|
WW | ;EP - WiseWoman reminder - Mike Mosley
|
|
MAMREF | ;
|
|
MAMREG | ;regular stuff
|
|
HYSTER(P) | ;EP has patient had hysterectomy?
|
|
REF | ;
|
|
FLUIHS(P) | ||
IHSHT | ;
|
|
MAMDAYS(P) | ;PEP - called from WH to return # of days
; from last mammogram that the next one is due ; -1 = patient not eligible for this reminder ; return = # days |
|
PAPREG | ;regular stuff
|
|
WWPDT(DFN) | ;
|
|
PRHT | ;
|
|
HTREG1 | ;
|
|
FLUREG | ;
|
|
MAMR | ;NOW REGULAR OLD STUFF
|
|
S(X) | ;
|
|
MAMWT | ;
|
|
LOINC(A,B) | ;
|
|
HTT | ;
|
|
MAMM | ;
|
|
HTREG | ;
|
Name | Field # of Occurrence |
---|---|
^%DT | MAMM+14, PAP+17 |
$$BI^APCHS11C | FLU+8 |
$$AGESEX^APCHSMU | HTREG+2, FLU+5, MAMREG+7, PAPREG+7, PAPDAYS+15, MAMDAYS+14 |
$$DATE^APCHSMU | HT+8, HTREG1+1, HTREG1+3, HTREG1+4, IHSHT+1, IHSHT+10, HTT+1, HTT+2, HTT+3, FLU+13 , FLUREG+2, FLUREG+9, FLUREG+10, MAMM+26, MAMR+3, MAMREG+9, MAMREG+12, MAMREG+13, PAP+30, PAP+35 , PAPREG+11, PAPREG+15, PAPREG+16, PAPREG+22, PAPREG+23, PAPREG+25, PAPREG+31, PAPREG+32, PAPREG+34, PAPREG+37 , PAPREG+38, PAPREG+40, WW+11, WW+12 |
$$DATEAGE^APCHSMU | HTREG1+1, IHSHT+1, FLUREG+2, MAMREG+9, PAPREG+11 |
$$INAC^APCHSMU | HT+2, FLU+3, MAMM+1, PAP+1, WW+2 |
$$MINAGE^APCHSMU | HTREG+2, FLU+5, MAMREG+7, PAPREG+7 |
$$OVR^APCHSMU | HT+6, FLU+11, MAMM+24, MAMR+1, PAP+28, PAP+33, WW+5 |
$$PLTAX^APCHSMU | FLU+6, FLUIHS+6 |
$$REF^APCHSMU | PRHT+1, FLU+15, FLUREG+4, FLUREG+12, REF+2, REF+3 |
$$SITECRIT^APCHSMU | HTREG+1, FLU+4, MAMREG+1, PAPREG+1, PAPDAYS+9, MAMDAYS+8 |
WRITE^APCHSMU | PRHT+2, FLU+16, FLUREG+5, FLUREG+13, MAMWT+2, PAPWT+4, WW+15 |
$$CPT^APCHSMU2 | HYSTER+13, LASTHPV+25 |
$$LASTDX^APCHSMU2 | HYSTER+7 |
$$WH^APCHSMU2 | HYSTER+10 |
MAMREF^APCHSMU2 | MAMREF+1 |
$$LASTMAM^APCLAPI1 | MAMM+4 |
$$LASTPAP^APCLAPI1 | PAP+4 |
$$LASTFLU^APCLAPI4 | FLU+9 |
$$LASTDXT^APCLAPIU | LASTHPV+22 |
$$LASTITEM^APCLAPIU | HT+4 |
$$ICD^ATXAPI | HYSTER+5 |
$$AGE^AUPNPAT | FLU+6, FLUIHS+3, PAPDAYS+13, MAMDAYS+11, MAMDAYS+12 |
$$DOB^AUPNPAT | HYSTER+10, LASTHPV+4 |
$$BNEED^BWUTL1 | MAMM+9 |
$$CNEED^BWUTL1 | PAP+9 |
$$GET1^DIQ | WW+6, WWPDT+5, WWPDT+6, HASWWP+3 |
$$ICDOP^ICDEX | HYSTER+4 |
$$FMADD^XLFDT | HTREG1+2, IHSHT+5, IHSHT+10, IHSHT+11, IHSHT+12, IHSHT+13, IHSHT+14, IHSHT+15, FLUREG+8, MAMREG+11 , PAPREG+14, PAPREG+21, PAPREG+25, PAPREG+30, PAPREG+32, PAPREG+36, PAPREG+40, WW+10 |
$$FMDIFF^XLFDT | IHSHT+9, FLUIHS+4, PAPREG+20, PAPREG+29 |
FileNo | Call Tags |
---|---|
^AUPNPAT - [#9000001] | GET1^DIQ |
^BWPCD - [#9002086.1] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | MAMM+7, PAP+7 |
^APCHSURV("B" | PAPDAYS+8, MAMDAYS+7 |
^ATXAX - [#9002226] | LOINC+3, LOINC+5 |
^ATXAX("B" | HYSTER+5, HYSTER+11, LASTHPV+6, LASTHPV+23 |
^ATXLAB - [#9002228] | REF+1, LASTHPV+13 |
^ATXLAB("B" | PAPWT+1, LASTHPV+7 |
^AUPNVLAB - [#9000010.09] | LASTHPV+11, LASTHPV+12, LASTHPV+13, LASTHPV+15 |
^AUPNVLAB("AE" | LASTHPV+8, LASTHPV+9, LASTHPV+10 |
^AUPNVPRC - [#9000010.08] | HYSTER+4 |
^AUPNVPRC("AC" | HYSTER+4 |
^AUPNVSIT - [#9000010] | HYSTER+4 |
^AUTTIMM("C" | FLU+8, FLU+14, FLUREG+3, FLUREG+11 |
^AUTTMSR("B" | PRHT+1 |
^BWP - [#9002086] | MAMM+8, PAP+8 |
^BWPCD("C" | WWPDT+4, HASWWP+2 |
^BWPN("B" | HYSTER+8 |
^DPT - [#2] | FLUIHS+4, HYSTER+13 |
^LAB(60 - [#60] | REF+3, LASTHPV+12 |
^LAB(95.3 - [#95.3] | LOINC+2, LOINC+4 |
Name | Line Occurrences |
---|---|
$$FLUIHS | FLU+6 |
$$HASWWP | WW+8 |
$$HYSTER | PAPREG+10, PAPDAYS+10 |
$$LASTHPV | PAPREG+28 |
$$LOINC | LASTHPV+16 |
$$WWPDT | WW+9 |
HTREG1 | IHSHT+2, IHSHT+3, IHSHT+7 |
HTT | IHSHT+11, IHSHT+12, IHSHT+13, IHSHT+14, IHSHT+15 |
IHSHT | HTREG+5 |
MAMREF | MAMWT+1 |
MAMWT | MAMM+27, MAMR+4, MAMREG+10, MAMREG+14 |
PAPWT | PAP+31, PAP+36, PAPREG+10, PAPREG+12, PAPREG+17, PAPREG+26, PAPREG+35, PAPREG+41 |
PRHT | HT+9, HTREG1+1, HTREG1+5, IHSHT+1, IHSHT+10, HTT+1, HTT+2, HTT+3 |
REF | PAPWT+2 |
S | HT+8, PRHT+1, FLU+13, FLU+15, FLUREG+4, FLUREG+12, MAMM+23, MAMM+26, MAMR+3, REF+4 , PAP+27, PAP+30, PAP+35 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | S+1~*, FLUIHS+1~, FLUIHS+4*, FLUIHS+5, REF+4*, LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5 |
>> %DT | MAMM+14*, PAP+17* |
A | LOINC~, LOINC+2, LOINC+4 |
APCH | LASTHPV+1~, LASTHPV+20! |
APCHC | LASTHPV+1~, LASTHPV+2*, LASTHPV+8, LASTHPV+9, LASTHPV+10, LASTHPV+12*, LASTHPV+13*, LASTHPV+17*, LASTHPV+19 |
>> APCHDAYS | IHSHT+9*, IHSHT+10, IHSHT+11, IHSHT+12, IHSHT+13, IHSHT+14 |
>> APCHHPV | PAP+3*, PAPREG+28* |
>> APCHIC | MAMM+3*, PAP+3* |
>> APCHICAR | HT+4*, HT+5, FLU+9*, FLU+10, MAMM+3*, MAMM+4*, MAMM+5, PAP+3*, PAP+4*, PAP+5 |
>> APCHIMMC | FLU+8* |
APCHLAST | HT+3*, HT+5*, HT+7, HTREG1+1, HTREG1+2, IHSHT+1, IHSHT+6, HTT+1, PRHT+1, FLU+7* , FLU+10*, FLU+12, FLU+15, FLUREG+2, FLUREG+4, FLUREG+8, FLUREG+12, MAMM+3*, MAMM+5*, MAMM+18 , MAMM+19, MAMM+25, MAMR+2, MAMREG+9, MAMREG+11, REF+2, REF+3, PAP+3*, PAP+5*, PAP+20 , PAP+23, PAP+25*, PAP+29, PAP+34, PAPREG+11, PAPREG+14, PAPREG+20, PAPREG+21, PAPREG+25, PAPREG+29 , PAPREG+30, PAPREG+32, PAPREG+36, PAPREG+40, WW+1~, WW+4*, WW+9*, WW+10 |
>> APCHLDUE | IHSHT+11*, IHSHT+12*, IHSHT+13*, IHSHT+14*, IHSHT+15*, HTT+1 |
APCHLPAP | LASTHPV+1~, LASTHPV+3*, LASTHPV+19*, LASTHPV+22*, LASTHPV+24*, LASTHPV+26 |
APCHLT | LASTHPV+1~, LASTHPV+7*, LASTHPV+13 |
>> APCHMIN | HTREG+2*, HTREG+3*, HTREG1+1, IHSHT+1, FLU+5*, FLU+6*, FLUREG+2, MAMREG+6*, MAMREG+7*, MAMREG+9 , PAPREG+6*, PAPREG+7*, PAPREG+11 |
APCHNEXT | HT+3*, HTREG1+2*, HTREG1+3, HTREG1+4, IHSHT+11*, IHSHT+12*, IHSHT+13*, IHSHT+14*, IHSHT+15*, HTT+2 , HTT+3, FLU+7*, FLUREG+8*, FLUREG+9, FLUREG+10, MAMM+3*, MAMM+21*, MAMREG+11*, MAMREG+12, MAMREG+13 , PAP+3*, PAP+25*, PAPREG+14*, PAPREG+15, PAPREG+16, PAPREG+21*, PAPREG+22, PAPREG+23, PAPREG+30*, PAPREG+31 , PAPREG+34, PAPREG+36*, PAPREG+37, PAPREG+38, WW+1~, WW+4*, WW+10*, WW+11, WW+12 |
>> APCHOVR | HT+6*, HT+7, HT+8, FLU+11*, FLU+12, FLU+13, MAMM+24*, MAMM+25, MAMM+26, MAMR+1* , MAMR+2, MAMR+3, PAP+28*, PAP+29, PAP+30, PAP+33*, PAP+34, PAP+35, WW+5* |
APCHREF | REF+1!, REF+4 |
APCHREF( | REF+4 |
APCHREF(9999999 | REF+2*, REF+3* |
>> APCHSAGE | IHSHT+2, IHSHT+3, IHSHT+4, MAMREG+3, MAMREG+4, PAPREG+3, PAPREG+4, PAPREG+13, WW+14 |
>> APCHSC | FLU+14*, FLUREG+3*, FLUREG+11* |
APCHSCRI | HTREG+1*, HTREG+2, HTREG+3, HTREG+5, FLU+4*, FLU+5, FLU+6, MAMREG+1*, MAMREG+2, MAMREG+7 , PAPREG+1*, PAPREG+2, PAPREG+7, PAPDAYS+7~, PAPDAYS+9*, PAPDAYS+11, MAMDAYS+6~, MAMDAYS+8*, MAMDAYS+9 |
>> APCHSDOB | IHSHT+5, IHSHT+9, IHSHT+10, IHSHT+11, IHSHT+12, IHSHT+13, IHSHT+14, IHSHT+15 |
>> APCHSEX | MAMM+2, PAP+2, WW+3 |
>> APCHSFLX | FLU+8*, FLU+14*, FLU+15, FLUREG+3*, FLUREG+4, FLUREG+11*, FLUREG+12 |
>> APCHSINT | HTREG+1*, HTREG+2*, HTREG+3*, HTREG+4, HTREG1+2, IHSHT+2*, IHSHT+3*, FLU+4*, FLU+5*, FLU+6* , FLUREG+1, FLUREG+8, MAMREG+1*, MAMREG+5*, MAMREG+7*, MAMREG+8, MAMREG+11, PAPREG+1*, PAPREG+5*, PAPREG+7* , PAPREG+8, PAPREG+14, PAPREG+21, PAPREG+36 |
APCHSITI | HT+2, HT+6, HTREG+1, HTREG+2, FLU+3, FLU+4, FLU+5, FLU+11, MAMM+1, MAMM+24 , MAMR+1, MAMREG+1, MAMREG+7, PAP+1, PAP+28, PAP+33, PAPREG+1, PAPREG+7, WW+2, WW+5 , PAPDAYS+7~, PAPDAYS+8*, PAPDAYS+9, PAPDAYS+15, MAMDAYS+6~, MAMDAYS+7*, MAMDAYS+8, MAMDAYS+14 |
>> APCHSPAT | HT+4, HT+6, HTREG+2, HTREG1+1, IHSHT+1, PRHT+1, FLU+5, FLU+6, FLU+9, FLU+11 , FLU+15, FLUREG+2, FLUREG+4, FLUREG+12, FLUIHS+6, MAMM+4, MAMM+8, MAMM+9, MAMM+24, MAMR+1 , MAMREG+7, MAMREG+9, REF+2, REF+3, PAP+4, PAP+8, PAP+9, PAP+28, PAP+33, PAPREG+7 , PAPREG+10, PAPREG+11, PAPREG+28, WW+5, WW+6, WW+8, WW+9 |
APCHSTEX | HT+3!, FLU+7!, MAMM+3!, PAP+3!, WW+1~, WW+4!, WW+15 |
APCHSTEX( | S+1, S+2* |
APCHSTEX(1 | HTREG1+1*, HTREG1+3*, HTREG1+4*, IHSHT+1*, IHSHT+10*, HTT+1*, HTT+2*, HTT+3*, FLUREG+2*, FLUREG+9* , FLUREG+10*, MAMM+22*, MAMREG+9*, MAMREG+12*, MAMREG+13*, PAP+26*, PAPREG+10*, PAPREG+11*, PAPREG+15*, PAPREG+16* , PAPREG+22*, PAPREG+31*, PAPREG+37*, WW+11*, WW+12*, WW+14* |
APCHSTEX(2 | PAPREG+10*, PAPREG+23*, PAPREG+32*, PAPREG+38* |
APCHSTEX(3 | PAPREG+10*, PAPREG+24*, PAPREG+33*, PAPREG+39* |
APCHSTEX(4 | PAPREG+25*, PAPREG+34*, PAPREG+40* |
>> APCHSURX | HT+1, HTREG+4, IHSHT+6, PRHT+2, FLU+2, FLU+17, FLUREG+1, FLUREG+6, FLUREG+14, MAMWT+3 , MAMREG+8, PAPWT+5, PAPREG+8, WW+16 |
APCHSVDT | HYSTER+3~, HYSTER+4* |
>> APCHSWHR | MAMM+3*, MAMM+15*, PAP+3*, PAP+12*, PAP+19*, PAP+22, PAP+26 |
>> APCHT | REF+1*, REF+2 |
>> APCHTAXN | PAPWT+1*, REF+1 |
>> APCHWF | MAMM+3*, MAMM+4*, PAP+3*, PAP+5* |
>> APCHWHL | MAMM+3*, PAP+3*, PAP+20*, PAP+25 |
>> APCHWHN | MAMM+3*, MAMM+15*, MAMM+18, MAMM+19, MAMM+21, PAP+3*, PAP+12*, PAP+19*, PAP+23, PAP+25 |
APCHX | MAMM+3!, MAMM+9*, MAMM+10!, MAMM+11!, MAMM+12, MAMM+15, MAMM+22, PAP+3!, PAP+9*, PAP+10! , PAP+11!, PAP+12, PAP+14, PAP+15, PAP+19 |
>> APCHY | PAP+13*, PAP+18*, PAP+19 |
B | LASTHPV+1~, LASTHPV+8*, LOINC~, LOINC+3, LOINC+5 |
>> BDATE | LASTHPV+4*, LASTHPV+8, LASTHPV+25 |
C | S+1~*, S+2, HYSTER+4~*, HYSTER+5 |
D | LASTHPV+1~, LASTHPV+8*, LASTHPV+9, LASTHPV+10, LASTHPV+12, LASTHPV+13, LASTHPV+17 |
DFN | WWPDT~, WWPDT+3, WWPDT+4, HASWWP~, HASWWP+2 |
DT | HTREG1+3, HTREG1+4, IHSHT+9, HTT+2, HTT+3, FLU+1, FLUREG+9, FLUREG+10, FLUIHS+3, FLUIHS+4 , MAMREG+12, MAMREG+13, PAPREG+15, PAPREG+16, PAPREG+20, PAPREG+29, HYSTER+10, HYSTER+13, LASTHPV+5, WW+11 , PAPDAYS+13, MAMDAYS+11, MAMDAYS+12 |
E | LASTHPV+1~, LASTHPV+8* |
>> EDATE | LASTHPV+5*, LASTHPV+8, LASTHPV+25 |
F | HYSTER+4~* |
FLG | HASWWP+1~, HASWWP+2*, HASWWP+3*, HASWWP+4 |
G | PAPDAYS+7~, PAPDAYS+11, PAPDAYS+12*, PAPDAYS+14*, PAPDAYS+15*, PAPDAYS+16, PAPDAYS+17, MAMDAYS+6~, MAMDAYS+9, MAMDAYS+10* , MAMDAYS+13*, MAMDAYS+14*, MAMDAYS+15, MAMDAYS+16 |
>> I | MAMM+17*, MAMM+18*, MAMM+19*, MAMM+20, PAP+21*, PAP+22*, PAP+23*, PAP+24 |
IEN | WWPDT+1~, WWPDT+4*, WWPDT+5, WWPDT+6, HASWWP+1~, HASWWP+2*, HASWWP+3 |
J | LASTHPV+1~, LASTHPV+15*, LASTHPV+16 |
L | LASTHPV+1~, LASTHPV+9*, LASTHPV+10 |
P | FLUIHS~, FLUIHS+2, FLUIHS+3, FLUIHS+4, HYSTER~, HYSTER+1, HYSTER+4, HYSTER+7, HYSTER+10, HYSTER+13 , LASTHPV~, LASTHPV+4, LASTHPV+8, LASTHPV+9, LASTHPV+10, LASTHPV+22, LASTHPV+25, PAPDAYS~, PAPDAYS+5, PAPDAYS+10 , PAPDAYS+13, PAPDAYS+15, MAMDAYS~, MAMDAYS+4, MAMDAYS+11, MAMDAYS+12, MAMDAYS+14 |
PDT | WWPDT+1~, WWPDT+2*, WWPDT+3, WWPDT+4*, WWPDT+6*, WWPDT+7 |
S | FLUIHS+1~, HYSTER+4~*, HYSTER+5*, HYSTER+6 |
T | HYSTER+8*, HYSTER+9, HYSTER+10, HYSTER+11*, HYSTER+12, HYSTER+13, LASTHPV+1~, LASTHPV+6*, LASTHPV+14, LASTHPV+16 , LASTHPV+21*, LASTHPV+23*, LASTHPV+24, LASTHPV+25 |
U | HT+5, HT+7, HT+8, PRHT+1, FLU+10, FLU+12, FLU+13, FLU+15, FLUREG+4, FLUREG+12 , FLUIHS+4, MAMM+4, MAMM+5, MAMM+25, MAMM+26, MAMR+2, MAMR+3, REF+2, REF+3, REF+4 , PAP+5, PAP+29, PAP+30, PAP+34, PAP+35, PAPREG+28, HYSTER+4, HYSTER+7, HYSTER+13, LASTHPV+12 , LASTHPV+13, LASTHPV+15, LASTHPV+22, LASTHPV+24, LOINC+2, LOINC+4 |
>> V | PRHT+1*, FLU+14*, FLU+15*, FLUREG+3*, FLUREG+4*, FLUREG+11*, FLUREG+12*, REF+2*, REF+3*, REF+4* |
WWP | WWPDT+1~, WWPDT+5*, WWPDT+6 |
WWSTAT | WW+1~, WW+6*, WW+7 |
X | S~, S+2, HT+8*, PRHT+1*, FLU+13*, FLU+15*, FLUREG+4*, FLUREG+12*, MAMM+7*, MAMM+12* , MAMM+13, MAMM+23*, MAMM+26*, MAMR+3*, REF+4*, PAP+7*, PAP+15*, PAP+16, PAP+27*, PAP+30* , PAP+35*, HYSTER+9, HYSTER+10*, HYSTER+12, HYSTER+13*, LASTHPV+1~, LASTHPV+10*, LASTHPV+11, LASTHPV+12, LASTHPV+13 , LASTHPV+15, LASTHPV+22*, LASTHPV+24, LASTHPV+25* |
>> Y | IHSHT+5*, IHSHT+6, MAMM+15, PAP+18 |
>> Z | LASTHPV+12* |