Routine: BDMDETV

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	2	^XBDBQUE EN^XBVK
Kernel	2	$$STRIP^XLFSTR DISP^XQORM1
VA Fileman	2	$$GET1^DIQ ^DIR
Taxonomy	1	BLDTAX^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP - add an item to the selected list - called from a protocol
PHDR	;
EN	;EP -- main entry point for
HDR	; -- header code
HEAD1	;
DISPX	;
BROWSE	;
EOJ	;EP
EXPND	; -- expand code
BACK	;go back to listman
P11
INIT	;EP -- init variables and list array
PAUSE	;EP
EXIT	; -- exit code
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;
XIT	;
P1
EP	;EP - CALLED FROM OPTION
HELP	; -- help code

External References

Name	Field # of Occurrence
BLDTAX^ATXAPI	P1+5
$$GET1^DIQ	P11+6, P11+7, P11+8, P11+9, P11+10, P11+13
^DIR	PAUSE+2, DISP+3, DISP+9, PHDR+2
$$ICDDX^ICDEX	P11+3
$$ICDOP^ICDEX	P11+4
$$CPT^ICPTCOD	P11+5
EN^VALM	EN+1
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+2
FULL^VALM1	EN+3, DISP+8
^XBDBQUE	DISP+14, BROWSE+2
EN^XBVK	EOJ+1
$$STRIP^XLFSTR	P11+6
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: !,"No taxonomy selected." Line Location: DISP+4
Function Call: WRITE	Prompt: !,"No taxonomy selected." Line Location: DISP+5
Function Call: WRITE	Prompt: ! Line Location: DISP+9
Function Call: WRITE	Prompt: ! Line Location: PHDR+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",BDMPG,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U))/2),$P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR("Listing of the "_BDMTAXN_" taxonomy",80),!,BDM80D,! Line Location: HEAD1+6
Routine Call	VALM Line Location: EN+1
Routine Call	DIR Line Location: PAUSE+2 DISP+3 DISP+9 PHDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSNDF(50.67 - [#50.67]	GET1^DIQ
^LAB(95.3 - [#95.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	PRINT+4, PRINT+7, P1+6, P1+7
^ATXAX("B"	INIT+9, P1+5
^ATXLAB - [#9002228]	PRINT+3, P1+2
^ATXLAB("B"	INIT+10
^AUTTIMM("C"	P11+9
^BDMTAXS - [#9003202.3]	INIT+3, INIT+4, INIT+6, INIT+9, INIT+10, INIT+11
^BDMTAXS("B"	INIT+2
^DIC - [#1]	INIT+6
^DIC(4 - [#4]	HEAD1+5
^ICDS - [#80.4]	P11+3, P11+4
^LAB(95.3 - [#95.3]	P11+10
^PSNDF(50.67 - [#50.67]	P11+6
^TMP($J	P1!, P1+3, P1+4, P1+6, P11, XIT+1!
^VA(200 - [#200]	HEAD1+4

Label References

Name	Line Occurrences
$$CTR	HEAD1+6
BACK	DISPX+1
BROWSE	DISP+12
DISPX	DISP+4, DISP+5, DISP+15
EN	EP+1
EOJ	EN+5
HDR	BACK+4
HEAD1	PHDR+1
INIT	BACK+3
P11	P1+1
PHDR	PRINT+6, P11+14
XIT	DISP+10, DISP+12, P11+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P11+9, P11+10
>> BDM1	P11+1, P11+3, P11+4, P11+5, P11+6, P11+7, P11+8, P11+9, P11+10, P11+11 , P11+13, P11+15
>> BDM2	P11+1, P11+3, P11+4, P11+5, P11+6, P11+8, P11+9, P11+10, P11+15
>> BDM3	P11+1, P11+3, P11+4*, P11+15
>> BDM80D	HEAD1+6, PRINT+5*
>> BDMC2	P11+1, P11+2, P11+3, P11+4, P11+5, P11+8, P11+9, P11+10, P11+15
>> BDMC3	P11+1, P11+2, P11+3, P11+4, P11+15
>> BDMDUZ2	HEAD1+5
>> BDMF	P11+1, P11+12
>> BDMFILE	PRINT+7, PRINT+8, P1+5, P1+7*, P11+3, P11+4, P11+5, P11+6, P11+7, P11+8 , P11+9, P11+10, P11+13
>> BDMGUI	EOJ+1, HEAD1+3
>> BDMHIGH	INIT+1, INIT+14, DISP+2
>> BDMOPT	DISP+11*
>> BDMPG	PHDR+1, HEAD1+1, HEAD1+2, HEAD1+3, HEAD1+4, PRINT+1
BDMQ	PHDR+2*, PRINT+2!, P11+14
BDMTAX	INIT+1!
BDMTAX(	INIT+8*
BDMTAX("IDX"	INIT+11*, DISP+6
>> BDMTAXI	DISP+6*, PRINT+3, PRINT+4, PRINT+7, P1+2, P1+6, P1+7
>> BDMTAXN	HEAD1+6, PRINT+3, PRINT+4, P1+5
>> BDMTAXT	DISP+6*, PRINT+3, PRINT+4, PRINT+7, PRINT+8, P1+1
>> BDMX	INIT+3, INIT+4, INIT+8, INIT+9, INIT+10, P1+6, P11*, P11+3, P11+4, P11+5 , P11+6, P11+7, P11+8, P11+9, P11+10, P11+13
>> BDMY	INIT+4*, INIT+6, INIT+9, INIT+10, INIT+11
>> BDMYR	INIT+2*, INIT+3, INIT+4, INIT+6, INIT+9, INIT+10, INIT+11
>> C	INIT+1, INIT+12, INIT+14
>> D	P11+3, P11+4, P11+5*
DA	DISP+9!
DIR	PAUSE+2!, BACK+5!, DISP+3!, DISP+9!, PHDR+2!
DIR("A"	PAUSE+2, DISP+2, DISP+9*
DIR("B"	DISP+9*
DIR(0	PAUSE+2, DISP+2, DISP+9, PHDR+2
>> DIRUT	PAUSE+2, DISP+3, DISP+5, DISP+10
DT	P11+3, P11+4
>> DTOUT	PHDR+2
>> DUOUT	PAUSE+2, DISP+3
DUZ	HEAD1+4
DUZ(2	HEAD1+5
>> F	P1+4*, P1+5
I	INIT+9, INIT+10, INIT+11, BACK+6!
IO	PAUSE+1, PHDR+2
IO(0	PAUSE+1, PHDR+2
IOF	EN+4, HEAD1+1
IOM	CTR+1
IOSL	P11+14
IOST	PAUSE+1, PHDR+2
>> J	INIT+3, INIT+7, INIT+8, INIT+11
U	INIT+6, INIT+9, INIT+10, INIT+11, DISP+6, HEAD1+4, HEAD1+5, PRINT+3, PRINT+4, PRINT+7 , P1+7, P11+3, P11+4, P11+5
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+14*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
X	HELP+1, BACK+6!, P1+2, P1+3, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	DISP+13*
>> XBRC	DISP+13, BROWSE+2
>> XBRP	DISP+13, BROWSE+1
>> XBRX	DISP+13, BROWSE+2
Y	INIT+6*, INIT+8, BACK+6!, DISP+4, DISP+6, DISP+11, DISP+12, PHDR+2, CTR~, CTR+1
Z	BACK+6!

Customize PDF page

Package: Diabetes Registry

Routine: BDMDETV

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: