Routine: BDP

Package	Total	Call Graph
Kernel	4	^%ZIS ENDR^%ZISS $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS Designated Provider	1	DIC^BDPFMC
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Designated Provider	13	BDPADD BDPAMA BDPCHNG BDPCHNGD BDPCOMA BDPDEL BDPDPEE BDPIQ BDPLDEL BDPMOD BDPPASS BDPTDEL BDPTRANS

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	; EP - PAUSE FOR USER
HDR	;EP - Screen header
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
USR()	;EP - Return name of current user from ^VA(200.
DEV	; EP - SELECT OUTPUT DEVICE
LZERO(V,L)	;left zero fill
ASF()	;EP - Return ASUFAC number for current DUZ(2).
EOP	;EP - End of page.
CONF	; EP - CONFIDENTIAL CLIENT DATA HEADER
DIC(DIC)	;EP - File lookup.
UNLOCK(DA)
LOGO	;EP - Print logo of main menu.
LOCK(DA)	;EP - Lock the selected Record.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"NO ENTRY FROM THE TOP OF ^BDP.",! Line Location: BDP+4
Function Call: WRITE	Prompt: @IOF,!,$$CTR("DESIGNATED SPECIALTY PROVIDER MANAGEMENT SYSTEM"),!,$$CTR($$LOC()),!,$$CTR(X),!! Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF,!,$$CTR($$REPEAT^XLFSTR("",D)),!?L,"",$$CTR("INDIAN HEALTH SERVICE",N),?R,"",!?L,"",$$CTR("DESIGNATED SPECIALTY PROVIDER MGT SYSTEM",N),?R,"",!?L,"",$$CTR("VERSION "_V_", "_Y,N),?R,"",!,$$CTR($$REPEAT^XLFSTR("",D)),! Line Location: LOGO+4
Function Call: WRITE	Prompt: $$CTR($$LOC()) Line Location: LOGO+5
Function Call: WRITE	Prompt: !,$$CTR(X),! Line Location: LOGO+12
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+3
Function Call: WRITE	Prompt: !,$$CTR("* CONFIDENTIAL PATIENT INFORMATION *"),! Line Location: CONF+1
Routine Call	DIR Line Location: EOP+5 PAUSE+2
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	ASF+2
^BDPRECN - [#90360.1]	LOCK+1, UNLOCK+1
^DIC(4 - [#4]	LOC+1
^DIC(9.4 - [#9.4]	LOGO+3
^VA(200 - [#200]	USR+1

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

Name	Field # of Occurrence
%	LZERO+1~, LZERO+2*
>> %ZIS	DEV+2*
A	LOGO+1~, LOGO+3*
>> BDPQ	BDP+5, DEV+1, DEV+3*
D	LOGO+1~, LOGO+2*, LOGO+4
DA	LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
DFOUT	EOP+4!
DIC	DIC~
DIC(0	DIC+1*
DIR	EOP+3~, PAUSE+2!
DIR("A"	PAUSE+2*
DIR(0	EOP+5, PAUSE+2
DIRUT	EOP+4!, PAUSE+2*
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	EOP+4!, PAUSE+2
DUZ	USR+1
DUZ(2	ASF+1, ASF+2, LOC+1
I	LZERO+1~, LZERO+2, LOGO+1~, LOGO+3
IO("S"	EOP+2
IOF	HDR+7, LOGO+4
IOM	CTR+1
>> IORVOFF	HDR+5, LOGO+11
>> IORVON	HDR+2, HDR+5, LOGO+8, LOGO+11
IOST	EOP+1
>> IOT	EOP+2
L	LZERO~, LZERO+2, LOGO+1~, LOGO+2*, LOGO+4
N	LOGO+1~, LOGO+2*, LOGO+4
>> POP	DEV+3
R	LOGO+1~, LOGO+2*, LOGO+4
U	ASF+2, USR+1, LOC+1, HDR+3, LOGO+3, LOGO+9
V	LZERO~, LZERO+2, LZERO+3, LOGO+1~, LOGO+3, LOGO+4
X	CTR~, CTR+1, HDR+2, HDR+3, HDR+4, HDR+5, HDR+7, LOGO+8, LOGO+9, LOGO+10* , LOGO+11*, LOGO+12
>> XQY0	HDR+1, HDR+3, LOGO+7, LOGO+9
Y	CTR~, CTR+1, DIC+3, LOGO+3*, LOGO+4, CONF+4
>> Z	LZERO+2*
>> ZTQUEUED	BDP+4, EOP+2, LOCK+2, UNLOCK+2