Routine: BLSELL

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	3	^DIC ^DIK ^DIR
IHS VA Utilities	2	^XBFMK EN^XBVK
Kernel	1	DISP^XQORM1

Entry Points

Name	Comments	DBIA/ICR reference
REMX	;
EN	;EP -- main entry point for BLS LOINC TO EXPORT
HDR	; -- header code
BANNER	;EP
EXPND	; -- expand code
BACK	;go back to listman
INIT	; -- init variables and list array
EOP	;EP - End of page.
EXIT	; -- exit code
TEXT	;
SITE
REM	;
PRINT
XIT	;
ADD	;EP - add an item to the selected list - called from a protocol
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Adding new Lab Test (LOINC code) to the exported lab test list....",! Line Location: ADD+2
Function Call: WRITE	Prompt: !,"No Loinc Code selected." Line Location: REM+5
Function Call: WRITE	Prompt: !,"No Loinc Code selected." Line Location: REM+6
Function Call: WRITE	Prompt: !,"Not a valid LOINC ENTRY." Line Location: REM+8
Function Call: WRITE	Prompt: !!,"Deleting LOINC code "_$P(^LAB(95.3,$P(^BLSELL(LIEN,0),U),0),U)_" from list of exported Lab Tests.",! Line Location: REM+9
Function Call: WRITE	Prompt: !?80-$L(BLSX)\2,BLSX Line Location: PRINT+1
Function Call: WRITE	Prompt: !!?80-$L(BLS("SITE"))\2,BLS("SITE") Line Location: SITE+0
Routine Call	VALM Line Location: EN+1
Routine Call	DIC Line Location: ADD+4
Routine Call	DIR Line Location: EOP+5

FileNo	Call Tags
^BLSELL - [#90222]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BLSELL - [#90222]	INIT+2, INIT+4, REM+8, REM+9
^DIC(4 - [#4]	SITE
^LAB(95.3 - [#95.3]	INIT+4, REM+9

Name	Field # of Occurrence
%	XIT+1!
%Y	XIT+1!
BLS	BANNER+1~, XIT+1!
BLS("SITE"	SITE*
>> BLSC	INIT+1, INIT+3, INIT+4, INIT+5
BLSELL	INIT+1!
BLSELL(	INIT+4*
BLSELL("IDX"	INIT+3*, REM+7
>> BLSIEN	INIT+4*
BLSJ	BANNER+1~, PRINT+1*, XIT+1!
BLSLINE	BANNER+1~, BANNER+2*, PRINT+1, XIT+1!
BLSTEXT	BANNER+1~, BANNER+2*, XIT+1!
BLSX	INIT+1, INIT+2, INIT+3, INIT+4, BANNER+1~, PRINT+1*!, XIT+1!
DA	REM+10*, XIT+1!
DFOUT	EOP+4!
DIC	ADD+4*, XIT+1!
DIC(0	ADD+4*
DIK	REM+10*, REM+11!
DIR	EOP+3~, BACK+5!, REMX+2!
DIR(0	EOP+5*
DIRUT	EOP+4!
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	EOP+4!
DUZ(2	SITE
I	BACK+6!
IO("S"	EOP+2
IOF	PRINT
IOST	EOP+1
>> IOT	EOP+2
LIEN	REM+2~, REM+3, REM+6!, REM+7, REM+8!, REM+9, REM+10, REMX+3!
U	INIT+4, REM+9
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+5*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMHDR(3	HDR+3*
VALMY	REM+5, REM+6!
VALMY(0	REM+6
X	HELP+1*, BACK+6!, XIT+1!
XQORNOD	REM+6!
XQORNOD(0	REM+4
Y	BACK+6!, XIT+1!
Z	BACK+6!
>> ZTQUEUED	EOP+2

Name	Field # of Occurrence
$T(@BLSTEXT+BLSJ	PRINT+1