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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHSDM5

Package: Health Summary Components

Routine: BHSDM5


Information

BHSDM5 ;IHS/CIA/MGH - Health Summary for Diabetic Supplement ;30-Nov-2015 10:24;DU

Source Information

Source file <BHSDM5.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Health Summary Components 3 $$REFDF^BHSDM3  $$HYSTER^BHSDM4  $$TYPEREF^BHSMU  
Kernel 2 $$FMTE^XLFDT  $$VERSION^XPDUTL  
Patient Care Component Reports 2 $$LASTMAM^APCLAPI1  $$START1^APCLDF  
Health Summary 1 REGDT4^GMTSU  
IHS Patient 1 $$AGE^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component 1 $$MAMREF^APCHS9B4  
Taxonomy 1 $$ICD^ATXAPI  
VA Fileman 1 (,C)^%DTC  
Women's Health 1 ($$BNEED,$$CNEED)^BWUTL1  

Entry Points

Name Comments DBIA/ICR reference
PAP ;EP
BI() ;EP- check to see if using new imm package or not 1/5/1999 IHS/CMI/LAB
PPDS(P) ;EP
ACE(P,D) ;EP - return date of last ACE iNHIBITOR
PAPA
ASPREF(P) ;EP - CHECK FOR ASPIRIN NMI OR REFUSAL
PNEU(P) ;EP
PPDSPL ;CHECK PL
MAMA ;
PPD(P) ;EP
MAM ;EP

External References

Name Field # of Occurrence
^%DTC MAMA+9
C^%DTC MAMA+8
$$MAMREF^APCHS9B4 MAM+8
$$LASTMAM^APCLAPI1 MAM+8
$$START1^APCLDF PNEU+1, PNEU+4, PNEU+7, PPD+1, PPD+3, PPDS+5, PPDSPL+11
$$ICD^ATXAPI PPDSPL+8
$$AGE^AUPNPAT MAMA+1, MAMA+2, PAP+4
$$REFDF^BHSDM3 PNEU+12, PNEU+14, PNEU+16, PPD+5
$$HYSTER^BHSDM4 PAPA
$$TYPEREF^BHSMU ASPREF+12
$$BNEED^BWUTL1 MAM+11
$$CNEED^BWUTL1 PAP+9
REGDT4^GMTSU MAMA+8
$$VAL^XBDIQ1 ASPREF+12
$$FMTE^XLFDT ACE+11, ACE+12, ACE+18, ACE+19, ASPREF+12, PNEU+11, PPD+2, PPD+4, PPDSPL+12
$$VERSION^XPDUTL MAM+9, PAP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" MAM+10, PAP+8
^ATXAX - [#9002226] ACE+16, ASPREF+7, PPDS+9
^ATXAX("B" ACE+13, ASPREF+4, PPDS+7, PPDSPL+4
^AUPNHF("AA" PPDS+9
^AUPNPREF("AA" ASPREF+6, ASPREF+8, ASPREF+9
^AUPNPROB - [#9000011] PPDSPL+8
^AUPNPROB("AC" PPDSPL+7
^AUPNVMED - [#9000010.14] ACE+9, ACE+11, ACE+12, ACE+16, ACE+18, ACE+19
^AUPNVMED("AA" ACE+8, ACE+9, ACE+15, ACE+16
^AUPNVSIT - [#9000010] ACE+11, ACE+12, ACE+18, ACE+19
^AUPNVSK - [#9000010.12] PPD+2
^AUTTIMM("C" PNEU+12, PNEU+14, PNEU+16
^AUTTIMM(0 BI+1
^AUTTSK("B" PPD+5
^BWP - [#9002086] MAM+11, PAP+9
^DPT - [#2] MAM+5, PAP+4
^PSDRUG - [#50] ACE+9

Label References

Name Line Occurrences
$$BI PNEU+1, PNEU+12, PNEU+14, PNEU+16
MAMA MAM+9
PAPA PAP+7
PPDSPL PPDS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ACE+6~, ACE+7*, ACE+8, ACE+9*, ACE+10, ACE+11*, ACE+12*, ACE+15, ACE+16*, ACE+17
, ACE+18*, ACE+19*, PNEU+1*, PNEU+4*, PNEU+7*, PPD+1~*
APCHY PNEU+1~, PNEU+4!, PNEU+7!, PNEU+10!, PPD+1~, PPD+3!
APCHY( PNEU+10*
APCHY(1 PNEU+2, PNEU+5, PNEU+8, PNEU+11, PNEU+12, PNEU+14, PNEU+16, PPD+2, PPD+4
APCHY(2 PNEU+3, PNEU+6, PNEU+9, PNEU+11
BHS PPDS+3~, PPDS+4!, PPDS+6, PPDSPL+11!
BHS(1 PPDSPL+12
BHSAVX MAM+10*!, PAP+8*!
BHSBWR MAM+10*, MAM+11, MAMA+7!, PAP+8*, PAP+9
BHSDAT MAM+1!, MAM+3*, MAM+8*, MAMA+5*, MAMA+6, MAMA+8, MAMA+9, PAP+1!, PAP+2*, PAPA+2*
>> BHSDD MAMA+9
BHSDF1 MAM+6!, PAP+5!
BHSEXD MAM+6!, PAP+5!
>> BHSINT MAMA+4*, MAMA+8, MAMA+9
>> BHSPAT MAM+5, MAM+8, MAM+11, MAMA+1, MAMA+2, PAP+4, PAP+9, PAPA, PNEU+12, PNEU+14
, PNEU+16, PPD+5
BHSTEX MAM+1!, PAP+1!
BHSTEX( MAM+11*, PAP+9*, PAPA+1*
BHSTEX("" MAM+12, PAPA+2
BHSTEX(1 MAM+11!, MAMA+5*, MAMA+6*, MAMA+8*, MAMA+9*, PAP+9!
BHSTP PAP+1!, PAPA*, PAPA+1
BHSTXN MAM+7*, MAM+11*, MAMA+3!, PAP+6*, PAP+9*, PAPA+1*
>> BHSWD MAMA+8*, MAMA+9
C PNEU+1~, PNEU+10*
D ACE~, ACE+5*, ACE+8, ACE+15, ASPREF+2~, ASPREF+6*, ASPREF+7, ASPREF+8, ASPREF+9, ASPREF+10
DATE ASPREF+2~, ASPREF+10*, ASPREF+12
DRUG ASPREF+2~, ASPREF+10*, ASPREF+12
DT MAMA+1, MAMA+2, MAMA+9, PAP+4, PAPA
E PNEU+1*, PNEU+4*, PNEU+7*, PPD+1~*, PPD+3*, PPDS+3~, PPDS+5*, PPDSPL+11*
G ACE+9*, ACE+16*, ASPREF+6*, ASPREF+10*, ASPREF+11, PNEU+12*, PNEU+13, PNEU+14*, PNEU+15, PNEU+16*
, PNEU+17, PPD+5*, PPD+6, PPDS+9~*, PPDS+10
I ACE+6~, ACE+8*, ACE+9, ACE+15*, ACE+16, PPDSPL+6~*, PPDSPL+7, PPDSPL+8*, PPDSPL+9
IEN ASPREF+2~, ASPREF+10*, ASPREF+12
N ASPREF+2~, ASPREF+9*, ASPREF+10
P ACE~, ACE+4, ACE+8, ACE+9, ACE+15, ACE+16, ASPREF~, ASPREF+1, ASPREF+6, ASPREF+8
, ASPREF+9, PNEU~, PNEU+1, PNEU+4, PNEU+7, PPD~, PPD+1, PPD+3, PPDS~, PPDS+5
, PPDS+9, PPDSPL+7, PPDSPL+11
PNEU PNEU+1~
PNEU( PNEU+10
PNEU(9999999 PNEU+2*, PNEU+3*, PNEU+5*, PNEU+6*, PNEU+8*, PNEU+9*
T ACE+13~*, ACE+14, ACE+16, ASPREF+4*, ASPREF+5, ASPREF+7, PPDS+7~*, PPDS+8, PPDS+9, PPDSPL+1~
, PPDSPL+4*, PPDSPL+5, PPDSPL+8
TAXARR PPDSPL+1~, PPDSPL+3*
U MAM+5, MAMA+5, PAP+4, ACE+9, ACE+11, ACE+12, ACE+16, ACE+18, ACE+19, PNEU+2
, PNEU+3, PNEU+5, PNEU+6, PNEU+8, PNEU+9, PNEU+11, PNEU+12, PNEU+14, PNEU+16, PPD+2
, PPD+4, PPDSPL+8, PPDSPL+12
V ACE+6~, ACE+9*, ACE+16*
X MAM+10*, MAMA+8, MAMA+9, PAP+8*, ASPREF+2~, ASPREF+3!, ASPREF+8*, ASPREF+9, ASPREF+10, PNEU+1~
, PNEU+10*, PPD+1~, PPD+3*, PPDS+3~, PPDS+5*, PPDS+9*, PPDSPL+6~*, PPDSPL+7*, PPDSPL+8, PPDSPL+11*
X1 MAM+2~, MAMA+8*, MAMA+9*
X2 MAM+2~, MAMA+8*, MAMA+9*
Y PPD+1~, PPDSPL+6~*, PPDSPL+8*
Z ASPREF+2~
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All