Routine: BDGOPL

Call Graph

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$BROWSE,$$CONF,$$TIME,ZIS)^BDGF ($$OPTOUT,$$WRDABRV)^BDGF1
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG OPERATORS' LIST
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
PHONE()	; returns room phone number if asked for
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
SET(LINE,NUM)	; put display line into array
PRINT	; print report to paper
LINE	; set up dislay line for patient
EXPND	; -- expand code
HELP	; -- help code

Name	Field # of Occurrence
^%ZISC	PRINT+10
$$BROWSE^BDGF	BDGOPL+3
$$CONF^BDGF	HDR+1, HDG+2
$$TIME^BDGF	HDG+3
ZIS^BDGF	BDGOPL+4
$$OPTOUT^BDGF1	LINE+4
$$WRDABRV^BDGF1	LINE+8
$$GET1^DIQ	INIT+8, LINE+3, LINE+9, LINE+10, LINE+11, PHONE+4
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$FMTE^XLFDT	HDG+2
$$NOW^XLFDT	HDG+3
$$REPEAT^XLFSTR	LINE+4, HDG+4, HDG+7, PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !?16,$$CONF^BDGF,?67,$$FMTE^XLFDT(DT) Line Location: HDG+2
Function Call: WRITE	Prompt: !?28,"Operators' Inpatient List",?70,$J($$TIME^BDGF($$NOW^XLFDT),9) Line Location: HDG+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+4
Function Call: WRITE	Prompt: !,"Patient",?25,"Phone",?33,"Room",?42,"Ward",?49,"Sex" Line Location: HDG+5
Function Call: WRITE	Prompt: ?57,"Age",?65,"Community" Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	PHONE+3
^DPT - [#2]	LINE+7, PHONE+2
^DPT("CN"	INIT+6, INIT+7
^TMP("BDGOPL"	INIT+2!, SET+2*, PRINT+5, PRINT+7, EXIT+1!
^TMP("BDGOPL1"	INIT+2!, INIT+8*, INIT+11, INIT+12, INIT+15!

Name	Line Occurrences
$$PAD	LINE+6, LINE+7, LINE+8, LINE+9, LINE+10, LINE+11, SP+1
$$PHONE	LINE+6
$$SP	HDR+1
EN	BDGOPL+3
EXIT	PRINT+10
HDG	PRINT+2, PRINT+6
INIT	EN+1
LINE	INIT+13
PRINT	EN+1
SET	LINE+12

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3*
BDGLN	PRINT+1~, PRINT+7*, PRINT+8
BDGPG	PRINT+1~, HDG+1*
BDGSRT	EXIT+2!
BDGX	PRINT+1~, PRINT+5*, PRINT+7
D	PAD~, PAD+2
DFN	INIT+1~, INIT+7, INIT+8, INIT+12, LINE+3, LINE+4, LINE+7, LINE+8, LINE+9, LINE+10 , LINE+11, PHONE+2
DT	HDG+2
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+6
IOST	EN+1
L	PAD~, PAD+2
LINE	LINE+1~, LINE+3, LINE+4, LINE+6, LINE+7, LINE+8, LINE+9, LINE+10, LINE+11, LINE+12 , SET~, SET+2
N	SP~, SP+1
NAME	INIT+1~
>> NM	INIT+11*, INIT+12
NUM	SET~, SET+1*, SET+2
ROOM	PHONE+1~, PHONE+2*, PHONE+3
VALMCNT	EN+2~, INIT+3*, LINE+12
>> VALMHDR(1	HDR+1*
WD	INIT+1~, INIT+6*, INIT+7
X	LINE+1~, PHONE+1~, PHONE+3, PHONE+4, PHONE+5, HELP+1*