Routine: BDMDDTSN

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	^XBDBQUE EN^XBVK
IHS Standard Terminology	1	($$CONC,CONC)^BSTSAPI
Kernel	1	DISP^XQORM1
VA Fileman	1	^DIR

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	;
BROWSE	;
EOJ	;EP
EXPND	; -- expand code
BACK	;go back to listman
DISPX	;
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

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 list selected." Line Location: DISP+4
Function Call: WRITE	Prompt: !,"No list 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+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",BDMPG,! Line Location: HEAD1+3
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+4
Function Call: WRITE	Prompt: $$CTR("Listing of the "_BDMTAXN_" SNOMED List",80),!,BDM80D,! Line Location: HEAD1+5
Routine Call	VALM Line Location: EN+1
Routine Call	DIR Line Location: PAUSE+2 DISP+3 DISP+9 PHDR+2

Name	Line Occurrences (* Changed, ! Killed)
^BDMSNME - [#9003202.6]	INIT+3, INIT+4, DISP+6, P1+1
^BDMSNME("B"	INIT+2
^DIC(4 - [#4]	HEAD1+4
^TMP($J	XIT+1!
^VA(200 - [#200]	HEAD1+3

Name	Field # of Occurrence
A	P1+5~
B	P1+5~
>> BDM80D	HEAD1+5, PRINT+3*
>> BDMDUZ2	HEAD1+4
>> BDMGUI	EOJ+1, HEAD1+2
>> BDMHIGH	INIT+1, INIT+10, DISP+2
>> BDMOPT	DISP+11*
>> BDMPG	PHDR+1, HEAD1+1, HEAD1+2, HEAD1+3, PRINT+1
BDMQ	PHDR+2*, PRINT+2!, P1+2
BDMTAX	INIT+1!
BDMTAX(	INIT+6*
BDMTAX("IDX"	INIT+7*, DISP+6
>> BDMTAXI	DISP+6*, P1+1
>> BDMTAXN	DISP+6*, HEAD1+5
>> BDMTAXT	DISP+6*, P1+1
>> BDMX	INIT+3, INIT+4, INIT+6, P1+1, P1+3, P1+6
>> BDMY	INIT+4*, INIT+7
>> BDMYR	INIT+2*, INIT+3, INIT+4, INIT+7
>> C	INIT+1, INIT+8, INIT+10
D	P1+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
>> DTOUT	PHDR+2
>> DUOUT	PAUSE+2, DISP+3
DUZ	HEAD1+3
DUZ(2	HEAD1+4
E	P1+5~
I	BACK+6!
IO	PAUSE+1, PHDR+2
IO(0	PAUSE+1, PHDR+2
IOF	EN+4, HEAD1+1
IOM	CTR+1
IOSL	P1+2
IOST	PAUSE+1, PHDR+2
>> J	INIT+3, INIT+5, INIT+6, INIT+7
U	INIT+7, DISP+6, HEAD1+3, HEAD1+4, P1+6
V	P1+5~
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+10*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
X	HELP+1*, BACK+6!, 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	BACK+6!, DISP+4, DISP+6, DISP+11, DISP+12, PHDR+2, CTR~, CTR+1
Z	BACK+6!

Name	Field # of Occurrence
$T(CONC^BSTSAPI	P1+4