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* |