Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCHSM04

Package: Patient Care Component

Routine: APCHSM04


Information

APCHSM04 ; IHS/CMI/LAB -- CONTINUATION OF ROUTINES ;

Source Information

Source file <APCHSM04.m>

Call Graph

Call Graph Total: 13

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCHPWH6  

Entry Points

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 ;

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] GET1^DIQ
^BWPCD - [#9002086.1] GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All