Routine: BDMSMU

Information

BDMSMU ; IHS/CMI/LAB - utilities for hmr ;

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Diabetes Registry	2	$$DATE^BDMS9B1 ($$CODEN,$$ICD)^BDMUTL
VA Fileman	2	^%DT EN^DDIOL
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	$$START1^APCLDF

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Diabetes Registry	10	BDMDE1T BDMDF1T BDMDG1T BDMDR4 BDMS9B1 BDMS9B3 BDMS9B4 BDMS9B5 BDMS9D1 BDMSMU2

Entry Points

Name	Comments	DBIA/ICR reference
LASTLAB(P,BDMI,BDMT,BDML,BDMLT,F)	;EP P is patient, BDMI is ien of lab test, BDMT is IEN of lab taxonomy, BDML is ien of loinc code, BDMLT is ien o f loinc taxonmy
PLCODE(P,A,F)	;EP
LASTHF(P,C,F,BD,ED)	;EP - get last factor in category C for patient P
FFD(%)	;EP
D1(D)	;EP - DATE WITH 4 YR
TYPEREF(N)	;EP
REFUSAL(P,F,I,B,E)	;EP
INP	;EP - called from input transform
DATEAGE(P,Y)	;EP
WRITE	;EP - write out reminder
CPTREFT(P,BDATE,EDATE,T)	;EP - return ien of CPT entry
PLTAX(P,A,S,F)	;EP - is DM on problem list 1 or 0
REF(P,F,I,D,T)	;EP - dm item refused?
LOINC(A,LT,LI)	;
FRSTITEM(P,V,T,F)	;EP - return last item V
LASTITEM(P,V,T,F)	;EP - return last item V
INAC(X)	;EP - active?
DATE(D)	;EP - convert to slashed date
FIRST	;EP

External References

Name	Field # of Occurrence
^%DT	REFUSAL+6, REFUSAL+7
$$START1^APCLDF	LASTITEM+2, FRSTITEM+2
$$DOB^AUPNPAT	DATEAGE+3, LASTHF+6
$$DATE^BDMS9B1	LASTHF+21, LASTHF+22
$$CODEN^BDMUTL	PLCODE+6
$$ICD^BDMUTL	PLTAX+11, CPTREFT+9
EN^DDIOL	INP+3, INP+4
$$VAL^XBDIQ1	REF+10, REF+13, TYPEREF+6, LASTHF+19, LASTHF+21, LASTHF+22
$$FMADD^XLFDT	CPTREFT+4
$$FMTE^XLFDT	REF+10, REF+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?26,"LAST",?38,"NEXT",! Line Location: WRITE+15
Function Call: WRITE	Prompt: !,$S($P(^BDMSURV(BDMSITI,0),U,4)]"":$P(^BDMSURV(BDMSITI,0),U,4),1:$P(^BDMSURV(BDMSITI,0),U)) Line Location: WRITE+16
Function Call: WRITE	Prompt: ?26,$$DATE(BDMLAST) Line Location: WRITE+17
Function Call: WRITE	Prompt: !,?36,BDMSTEX(BDMSL) Line Location: WRITE+18
Function Call: WRITE	Prompt: ?26,"LAST",?38,"NEXT",! Line Location: FIRST+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LOINC+5, LOINC+7
^ATXLAB - [#9002228]	LASTLAB+8
^AUPNPREF - [#9000022]	TYPEREF+1, REFUSAL+8, CPTREFT+8, CPTREFT+10
^AUPNPREF("AA"	REF+6, REF+8, REFUSAL+8, CPTREFT+7, CPTREFT+8
^AUPNPROB - [#9000011]	PLTAX+8, PLTAX+9, PLTAX+10, PLTAX+12, PLCODE+8
^AUPNPROB("AC"	PLTAX+8, PLCODE+8
^AUPNVHF - [#9000010.23]	LASTHF+20
^AUPNVHF("AA"	LASTHF+10, LASTHF+11, LASTHF+15
^AUPNVLAB - [#9000010.09]	LASTLAB+6, LASTLAB+8, LASTLAB+10
^AUPNVLAB("AE"	LASTLAB+3, LASTLAB+4, LASTLAB+5
^AUTTHF("AC"	LASTHF+9
^AUTTHF("B"	LASTHF+4
^AUTTREFT - [#9999999.73]	FFD+4, FFD+6
^BDMSURV(	WRITE+4, WRITE+16, INAC+1
^LAB(95.3 - [#95.3]	LOINC+4, LOINC+6

Label References

Name	Line Occurrences
$$DATE	WRITE+6, WRITE+17
$$FFD	REF+10, REF+13
$$LOINC	LASTLAB+11
$$TYPEREF	REF+10, REF+13
FIRST	WRITE+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOINC+3~, LOINC+4, LOINC+5, LOINC+6, LOINC+7, LASTITEM+2~, TYPEREF+1~, TYPEREF+2, TYPEREF+3, TYPEREF+4 , TYPEREF+5, FRSTITEM+2~*, FFD~, FFD+1, FFD+4
%DT	REFUSAL+6~, REFUSAL+7
A	WRITE+2~, WRITE+7*, LOINC~, LOINC+2, LOINC+4, LOINC+6, PLTAX~, PLTAX+2, PLTAX+6, PLCODE~ , PLCODE+2, PLCODE+6
B	WRITE+2~, WRITE+3, WRITE+7, WRITE+8, REFUSAL~, REFUSAL+4, REFUSAL+6*, REFUSAL+8
BD	LASTHF~, LASTHF+6*, LASTHF+13
BDATE	CPTREFT~, CPTREFT+4*, CPTREFT+8
>> BDMC	LASTLAB+2, LASTLAB+3, LASTLAB+4, LASTLAB+5, LASTLAB+7, LASTLAB+8, LASTLAB+12, LASTLAB+14
BDMI	LASTLAB~, LASTLAB+7
>> BDMICAR	WRITE+10, WRITE+11, WRITE+12
BDML	LASTLAB~, LASTLAB+11
>> BDMLAST	WRITE+5, WRITE+6, WRITE+17
BDMLT	LASTLAB~, LASTLAB+11
>> BDMNEXT	WRITE+9
>> BDMSANY	WRITE+13*
>> BDMSBRK	FIRST+1
>> BDMSCKP	WRITE+14, WRITE+20, FIRST+1
>> BDMSCT	WRITE+15, WRITE+19, WRITE+20, FIRST+3*
>> BDMSGHR	WRITE+1
>> BDMSGHR(1	WRITE+4*
>> BDMSGHR(2	WRITE+5*
>> BDMSGHR(3	WRITE+6*
>> BDMSGHR(4	WRITE+8*
>> BDMSGHR(5	WRITE+9*
>> BDMSGHR(6	WRITE+10*
>> BDMSGHR(7	WRITE+11*
>> BDMSGHR(8	WRITE+12*
>> BDMSITI	WRITE+4, WRITE+16
>> BDMSL	WRITE+18*
>> BDMSNPG	WRITE+13, WRITE+15, WRITE+20, FIRST+1
>> BDMSQIT	WRITE+13, WRITE+14, WRITE+20, FIRST+1
BDMSTEX	WRITE+21!
BDMSTEX(	WRITE+7, WRITE+18
BDMSTEX(1	WRITE+18
BDMT	LASTLAB~, LASTLAB+8
BDMY	LASTITEM+2~!, FRSTITEM+2~!
BDMY(1	LASTITEM+3, FRSTITEM+3
C	LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+9
D	D1~, D1+1, D1+2, DATE~, DATE+1, DATE+2, DATEAGE+2~, DATEAGE+3, DATEAGE+4, LASTLAB+3 , LASTLAB+4, LASTLAB+5, LASTLAB+7, LASTLAB+8, LASTLAB+12, REF~, REF+4, REF+10, REF+11, LASTHF+8~ , LASTHF+11, LASTHF+12, LASTHF+13, LASTHF+14, LASTHF+15, LASTHF+17, LASTHF+18, LASTHF+19, LASTHF+20, LASTHF+21 , LASTHF+22, LASTHF+23, REFUSAL+8, CPTREFT+8*, CPTREFT+10
DT	LASTHF+7
E	LASTITEM+2~, FRSTITEM+2~, REFUSAL~, REFUSAL+5, REFUSAL+7*, REFUSAL+8
ED	LASTHF~, LASTHF+7*, LASTHF+14
EDATE	CPTREFT~, CPTREFT+3, CPTREFT+4, CPTREFT+8
F	LASTLAB~, LASTLAB+1, LASTITEM~, LASTITEM+1, LASTITEM+3, PLTAX~, PLTAX+4, PLTAX+5, PLTAX+15, PLTAX+16 , PLCODE~, PLCODE+3, PLCODE+9, PLCODE+10, REF~, REF+2, REF+6, REF+8, REF+10, REF+13 , LASTHF~, LASTHF+3, LASTHF+19, LASTHF+20, LASTHF+21, LASTHF+22, FRSTITEM~, FRSTITEM+1*, FRSTITEM+3, REFUSAL~ , REFUSAL+2, REFUSAL+8
G	REFUSAL+6~, REFUSAL+8, REFUSAL+9, CPTREFT+5~, CPTREFT+6, CPTREFT+7, CPTREFT+8, CPTREFT+10, CPTREFT+12
H	LASTHF+8~, LASTHF+9, LASTHF+10, LASTHF+11, LASTHF+15
I	PLTAX+8~, PLTAX+13, PLTAX+15, PLCODE+8~, PLCODE+9, REF~, REF+3, REF+6, REF+8, REF+10 , REF+13, REFUSAL~, REFUSAL+3, REFUSAL+8, CPTREFT+5~, CPTREFT+7, CPTREFT+8, CPTREFT+9
>> J	LASTLAB+10*, LASTLAB+11
>> L	LASTLAB+4*, LASTLAB+5, LASTLAB+7
LI	LOINC~, LOINC+1, LOINC+2
LT	LOINC~, LOINC+1, LOINC+5, LOINC+7
N	REF+6~, REF+8*, REF+10, REF+13, TYPEREF~, TYPEREF+1, TYPEREF+6
O	LASTHF+8~!
O(	LASTHF+15*, LASTHF+19, LASTHF+20, LASTHF+21, LASTHF+22
O(0	LASTHF+17
P	DATEAGE~, DATEAGE+1, DATEAGE+3, LASTLAB~, LASTLAB+3, LASTLAB+4, LASTLAB+5, LASTITEM~, LASTITEM+2, PLTAX~ , PLTAX+1, PLTAX+8, PLCODE~, PLCODE+1, PLCODE+8, REF~, REF+1, REF+6, REF+8, LASTHF~ , LASTHF+1, LASTHF+6, LASTHF+10, LASTHF+11, LASTHF+15, FRSTITEM~, FRSTITEM+2, REFUSAL~, REFUSAL+1, REFUSAL+8 , CPTREFT~, CPTREFT+1, CPTREFT+7, CPTREFT+8
S	PLTAX~, PLTAX+3*, PLTAX+12
T	LASTITEM~, LASTITEM+2, PLTAX+6~, PLTAX+11, PLCODE+4~, PLCODE+6, PLCODE+7, PLCODE+8, REF~, REF+5* , REF+10, REF+12, FRSTITEM~, FRSTITEM+2, CPTREFT~, CPTREFT+2, CPTREFT+9
U	WRITE+4, WRITE+10, WRITE+11, WRITE+12, WRITE+16, LASTLAB+8, LASTLAB+10, LOINC+4, LOINC+6, PLTAX+9 , PLTAX+10, PLTAX+12, PLCODE+8, TYPEREF+1, LASTHF+20, LASTHF+22, FFD+4, FFD+6, REFUSAL+8, CPTREFT+7 , CPTREFT+8, CPTREFT+10
V	LASTITEM~, LASTITEM+2, FRSTITEM~, FRSTITEM+2
X	INAC~, INAC+1, LASTLAB+5, LASTLAB+6, LASTLAB+8, LASTLAB+10, INP+1!, INP+3!, INP+4!, PLTAX+8~ , PLTAX+9, PLTAX+10, PLTAX+12, PLTAX+14, PLCODE+8~, PLCODE+10, REF+6~, REF+7, REF+8, REF+9 , FFD+2~, FFD+4, REFUSAL+6~, REFUSAL+7, REFUSAL+8, CPTREFT+5~, CPTREFT+8*
Y	DATEAGE~, DATEAGE+3, LASTITEM+2~, PLTAX+8~, PLTAX+10, PLTAX+11, PLCODE+8~, REF+9~, REF+10, REF+11 , REF+12, REF+13, FRSTITEM+2~, FFD+2~, FFD+4, FFD+5, FFD+6, REFUSAL+6~, REFUSAL+7, REFUSAL+8 , CPTREFT+5~, CPTREFT+8*, CPTREFT+10
Z	PLTAX+8~, PLTAX+14, PLTAX+16, CPTREFT+5~

Customize PDF page

Package: Diabetes Registry

Routine: BDMSMU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: