Routine: BDMLLMR

Information

BDMLLMR ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;

Source Information

Source file <BDMLLMR.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
VA Fileman	6	DD^%DT (C,COMMA,NOW)^%DTC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK GUIR^XBLM EN^XBVK
Kernel	2	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
Registration	1	(CLEAR,FULL)^VALM1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Diabetes Registry	1	BDMGRG

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HDR	;
GUIEP	;-- lets do the GUI report
USR()	;EP - Return name of current user from ^VA(200.
PRINT	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HDR1	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
V1	;
EN	;
ZIS	;EP
ED	;get ending date
M	;
L	;
ENDLOG	;-- write the end of the log
BDMG(BDMJ,BDMBTH,BDMTYPE,BDMBD,BDMED)	;-- EP for LMR report
C(X,X2,X3)	;
EXIT1	;
TYPE	;
GETDATES	;
EXIT	;
TAX(I,TYPE)	;
PROC	;
TAXM(I)	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4, BDMG+3
COMMA^%DTC	C+1
NOW^%DTC	BDMG+6, ENDLOG+1
^%ZTLOAD	BDMG+19
FILE^DICN	BDMG+12
^DIE	ENDLOG+4
IX1^DIK	GUIEP+11
^DIR	TYPE+2, BD+1, ED+1, ZIS+1, PRINT+14, HDR+2
CLEAR^VALM1	EXIT1+1
FULL^VALM1	EXIT1+2
^XBDBQUE	ZIS+6, BROWSE+2
$$VAL^XBDIQ1	L+5, M+5
^XBFMK	EXIT+4, EXIT1+5, BDMG+17
GUIR^XBLM	GUIEP+4
EN^XBVK	EXIT+2, EXIT1+3
$$FMADD^XLFDT	BD+1, EN+3
$$FMTE^XLFDT	BD+1, HDR1+3, HDR1+5
$$NOW^XLFDT	BDMG+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will list all lab tests or medications that are used at" Line Location: BDMLLMR+4
Function Call: WRITE	Prompt: !,$P(^DIC(4,DUZ(2),0),U),". It will list the name, internal entry number," Line Location: BDMLLMR+5
Function Call: WRITE	Prompt: !,"number of occurences, units and result example (lab only) and the taxonomies" Line Location: BDMLLMR+6
Function Call: WRITE	Prompt: !,"that the item is a member of.",! Line Location: BDMLLMR+7
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+1
Function Call: WRITE	Prompt: !!,"Nothing to Report." Line Location: PRINT+3
Function Call: WRITE	Prompt: ?51,$P(BDMD,U,3),?63,$P(BDMD,U,2) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?5,T,! Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: $$FMTE^XLFDT(DT),?72,"Page ",BDMPG,! Line Location: HDR1+3
Function Call: WRITE	Prompt: $$CTR(BDMTYPEP_" Used at "_$P(^DIC(4,DUZ(2),0),U),80),! Line Location: HDR1+4
Function Call: WRITE	Prompt: $$CTR("Date Range: "_$$FMTE^XLFDT(BDMBD)_" - "_$$FMTE^XLFDT(BDMED)),! Line Location: HDR1+5
Function Call: WRITE	Prompt: $S(BDMTYPE="L":"LAB TEST NAME",1:"MEDICATION/DRUG NAME"),?32,"IEN",?41,"# DONE" Line Location: HDR1+6
Function Call: WRITE	Prompt: ?51,"UNITS",?64,"RESULT" Line Location: HDR1+7
Function Call: WRITE	Prompt: !,?5,"TAXONOMIES",! Line Location: HDR1+8
Function Call: WRITE	Prompt: "--------------------------------------------------------------------",! Line Location: HDR1+9
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIR Line Location: TYPE+2 BD+1 ED+1 ZIS+1 PRINT+14 HDR+2

FileNo	Call Tags
^BDMGUI - [#9003201.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	TAXM+5, TAXM+6, TAXM+7, TAXM+9
^ATXLAB - [#9002228]	TAX+6, TAX+7, TAX+9
^AUPNVLAB - [#9000010.09]	L+3, L+4, L+6, L+7
^AUPNVLAB("AD"	L+1, L+2
^AUPNVMED - [#9000010.14]	M+3, M+4
^AUPNVMED("AD"	M+1, M+2
^AUPNVSIT - [#9000010]	V1+2, V1+3, V1+4
^AUPNVSIT("B"	PROC+1, V1+1
^BDMGUI - [#9003201.4]	GUIEP+9, GUIEP+10
^BDMTAXS - [#9003202.3]	TAX+8, TAXM+8
^BDMTAXS("B"	TAX+4, TAX+5, TAXM+3, TAXM+4
^DIC(4 - [#4]	BDMLLMR+5, LOC+1, HDR1+4
^TMP($J	GUIEP+2!, GUIEP+6, GUIEP+7, GUIEP+13!
^VA(200 - [#200]	USR+1
^XTMP("BDMLLMR"	PRINT+3, PRINT+5, PRINT+7, PRINT+8, EN+2!, EN+3, L+8, L+9, L+10, L+11* , M+6, M+7

Name	Line Occurrences
$$C	PRINT+9
$$CTR	HDR1+4, HDR1+5
$$TAX	PRINT+11
$$TAXM	TAX+3
@(	V1+5
BD	ED+2
BROWSE	ZIS+4
EN	GUIEP+1
ENDLOG	GUIEP+12
EXIT	TYPE+3, TYPE+4, BD+2, ZIS+2, ZIS+4
EXIT1	ZIS+7
HDR	PRINT+3, PRINT+4, PRINT+6
HDR1	HDR+1
PROC	EN+5
V1	PROC+1

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+7, ENDLOG+2
A	TAX+1~, TAXM+1~
B	TAX+1~, TAXM+1~
BDMBD	BD+3*, ED+1, ED+4, HDR1+5, BDMG~, BDMG+3
BDMBTH	BDMG~, BDMG+9
>> BDMD	PRINT+8*, PRINT+9, PRINT+10
>> BDMDCTA	GUIEP+7*, GUIEP+9
>> BDMDSP	GUIEP+5
BDMED	ED+3*, PROC+1, HDR1+5, BDMG~
>> BDMGIEN	BDMG+16*, GUIEP+9, GUIEP+10, GUIEP+11, ENDLOG+3
>> BDMH	PRINT+3, PRINT+5, PRINT+7, PRINT+8, EN+1*, EN+2, L+8, L+9, L+10, L+11 , M+6, M+7
>> BDMIEN	PRINT+7, PRINT+8, PRINT+9, PRINT+11, BDMG+14, BDMG+15*, BDMG+16
BDMJ	PRINT+3, PRINT+5, PRINT+7, PRINT+8, EN+1*, EN+2, L+8, L+9, L+10, L+11 , M+6, M+7, BDMG~
BDMN	EN+4~
>> BDMNAME	PRINT+5*, PRINT+7, PRINT+8, PRINT+9
>> BDMNOW	BDMG+7, BDMG+10, ENDLOG+2, ENDLOG+3
>> BDMODAT	PROC+1*, V1+1
BDMOPT	ZIS+3, BDMG+4~, BDMG+5, BDMG+10
>> BDMPG	PRINT+1, HDR+1, HDR1+1, HDR1+2, HDR1+3
BDMQUIT	PRINT+2!, PRINT+5, PRINT+6, PRINT+7, HDR+2*
>> BDMSD	ED+4, PROC+1, BDMG+3
BDMTYPE	TYPE+1, TYPE+5, PRINT+10, PRINT+11, V1+5, HDR1+6, HDR1+7, BDMG~, BDMG+1, BDMG+2
>> BDMTYPEP	TYPE+6, HDR1+4, BDMG+1, BDMG+2*
>> BDMVIEN	V1+1*, V1+2, V1+3, V1+4, L+1, L+2, M+1, M+2
>> C	GUIEP+6, GUIEP+9, GUIEP+10
D0	BDMG+8!
DA	TYPE+2!, ZIS+1!, BDMG+13!, GUIEP+11, ENDLOG+3, ENDLOG+5!
DD	BDMG+8!
DFN	EXIT+3!, EXIT1+4!
DIADD	BDMG+11*, BDMG+13!
DIC	BDMG+8!, BDMG+11*, BDMG+13!
DIC("DR"	BDMG+10*
DIC(0	BDMG+11*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+11*
DIR	TYPE+2!, BD+1!, ED+1!, ZIS+1!, PRINT+14!, HDR+2!
DIR("A"	TYPE+2, BD+1, ED+1, ZIS+1, PRINT+14*
DIR("B"	BD+1, ZIS+1
DIR(0	TYPE+2, BD+1, ED+1, ZIS+1, PRINT+14, HDR+2
>> DIRUT	TYPE+3, BD+1, BD+2, ED+1, ED+2, ZIS+2, PRINT+14*
DLAYGO	BDMG+11*, BDMG+13!
DR	ENDLOG+3*, ENDLOG+5!
DT	BD+1, EN+3, HDR1+3, GUIEP+10
>> DTOUT	HDR+2
>> DUOUT	BD+1, ED+1, PRINT+14
DUZ	USR+1, BDMG+9, BDMG+10
DUZ(2	BDMLLMR+5, LOC+1, HDR1+4
G	TAX+1~, TAX+2, TAX+10, TAX+12, TAXM+1~, TAXM+2, TAXM+10, TAXM+12
I	TAX~, TAX+3, TAX+9, TAXM~, TAXM+9, L+4, L+8, L+9, L+10, L+11 , M+4, M+6, M+7
IO	PRINT+14, HDR+2
IO(0	PRINT+14, HDR+2
IOF	BDMLLMR+3, HDR1+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+6
IOST	PRINT+14, HDR+2
L	EN+4~
N	TAX+1~, TAX+7, TAX+8, TAX+10, TAXM+1~, TAXM+7, TAXM+8, TAXM+10, L+5, L+8 , L+9, L+10, L+11, M+5, M+6, M+7
P	EN+4~
>> R	L+6*, L+10
T	PRINT+11*, EN+4~
TYPE	TAX~, TAX+3
U	BDMLLMR+5, PRINT+9, PRINT+10, TAX+7, TAXM+6, TAXM+7, USR+1, LOC+1, V1+3, V1+4 , L+4, L+6, L+7, L+9, L+10, L+11, M+4, M+7, HDR1+4
X	ED+4, TAX+1~, TAX+6, TAX+7, TAX+9, TAXM+1~, TAXM+5, TAXM+6, TAXM+7, TAXM+9 , C~, C+2, CTR~, CTR+1, EN+4~, L+2, L+3, L+4, L+5, L+6 , L+7, M+2, M+3, M+4, M+5, BDMG+3, BDMG+9, GUIEP+6, GUIEP+7, GUIEP+9
>> X1	ED+4, BDMG+3
X2	ED+4, C~, BDMG+3
X3	C~
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	TYPE+4, TYPE+5, BD+3, ED+1, ED+3, ZIS+3, ZIS+4, TAX+1~, TAX+4, TAX+5* , TAX+8, TAXM+1~, TAXM+3, TAXM+4, TAXM+8, CTR~, CTR+1, EN+4~, L+7*, L+11 , HDR+2, BDMG+14, BDMG+15
Y(0	TYPE+6
Z	TAX+1~, TAX+4, TAX+5, TAXM+1~, TAXM+3, TAXM+4
>> ZTDESC	BDMG+19*
>> ZTDTH	BDMG+19*
>> ZTIO	BDMG+19*
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+19*
ZTSAVE	BDMG+18!
ZTSAVE("*"	BDMG+18*

Customize PDF page

Package: Diabetes Registry

Routine: BDMLLMR

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: