Routine: SRHLSCRN

Information

SRHLSCRN ;B'HAM ISC/DLR - Surgery Interface Menu to initial field settings ; [ 05/06/98 7:14 AM ]

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SRHL INTERFACE FLDS

Entry Points

Name	Comments	DBIA/ICR reference
EXIT
HDR(SROBR)	;header for the OBR Menu
HDR1(SROBR,SROBX)	;header for the OBX Menu
OBR	;
KDIR	;kills all DIR variables
SDIR	;sets the DIR help screen for the OBX identifiers

External References

Name	Field # of Occurrence
^DIR	SRHLSCRN+8, HDR+6, HDR1+9, OBR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SRHLSCRN+6
Function Call: WRITE	Prompt: @IOF Line Location: SRHLSCRN+7
Function Call: READ	Variable: X Timeout: DTIME Line Location: SRHLSCRN+9
Function Call: WRITE	Prompt: !,"This setting does not correspond to the upper level setting.",!," Press <RETURN> to continue:" Line Location: SRHLSCRN+9
Function Call: WRITE	Prompt: @IOF Line Location: SRHLSCRN+11
Function Call: WRITE	Prompt: ?((IOM-$L(HDR))/2),HDR Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"To change the setting in one of the following categories, enter the",!,"corresponding number.",!," (R - Receive)",!," (S - Send)",!," (S/R - Send and Receive)",!," (I - Ignore)" Line Location: HDR+3
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: ?((IOM-$L(HDR1))/2),HDR1 Line Location: HDR1+2
Function Call: WRITE	Prompt: !!,"Toggle the current setting to (R)eceive, (S)end, or (I)gnore." Line Location: HDR1+3
Function Call: WRITE	Prompt: ! Line Location: HDR1+4
Routine Call	DIR Line Location: SRHLSCRN+8 HDR+6 HDR1+9 OBR+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133.2 - [#133.2]	SRHLSCRN+4, SRHLSCRN+5, SRHLSCRN+10, HDR+5, HDR1+2, HDR1+6, HDR1+8, OBR+2, OBR+3, OBR+6* , OBR+7, OBR+9, OBR+10*, OBR+11

Label References

Name	Line Occurrences
$$HDR	SRHLSCRN+6
$$HDR1	SRHLSCRN+7
KDIR	SRHLSCRN+8, EXIT, HDR+6, HDR1+9, OBR+2
OBR	SRHLSCRN+7
SDIR	HDR1+9

Naked Globals

Name	Field # of Occurrence
^(0	HDR+5, HDR1+6, HDR1+8, OBR+7, OBR+10
^(1	SRHLSCRN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SRHLSCRN+3~, SRHLSCRN+4*, SRHLSCRN+5, SRHLSCRN+7
CNT(	SRHLSCRN+4, SRHLSCRN+5, SRHLSCRN+7, SRHLSCRN+8, SRHLSCRN+10, HDR+5, HDR1+2, HDR1+5, HDR1+6, HDR1+7 , HDR1+8, OBR+2, OBR+3, OBR+6, OBR+7, OBR+9, OBR+10, OBR+11
CNT1	SRHLSCRN+3~, SRHLSCRN+5*
DA	SRHLSCRN+8, OBR+2, OBR+4!
DIR	KDIR+1!
DIR("?"	HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, HDR+13, HDR1+9, SDIR+1, SDIR+3 , SDIR+4, SDIR+5, SDIR+6*
DIR("A"	SRHLSCRN+8, OBR+2
DIR(0	SRHLSCRN+8, HDR+6, HDR1+9, OBR+2
DIROUT	KDIR+1!
DIRUT	SRHLSCRN+8, HDR+6, HDR1+9, OBR+2, KDIR+1!
DTIME	SRHLSCRN+9
DTOUT	KDIR+1!
DUOUT	KDIR+1!
HDR	HDR+1~, HDR+2*
HDR1	HDR1+1~, HDR1+2*
IOF	SRHLSCRN+6, SRHLSCRN+7, SRHLSCRN+11
IOM	HDR+2, HDR1+2
OUT	SRHLSCRN+3~, SRHLSCRN+6, SRHLSCRN+7, SRHLSCRN+8, HDR+6, HDR1+9, OBR+2, OBR+11*
SRA	SRHLSCRN+3~, SRHLSCRN+9, OBR+4*, OBR+5, OBR+8
SROBR	SRHLSCRN+3~, SRHLSCRN+6, SRHLSCRN+7, SRHLSCRN+8, SRHLSCRN+10, HDR~, HDR+6, HDR+14, HDR1~, HDR1+2 , HDR1+5, HDR1+6, HDR1+7, HDR1+8, OBR+2, OBR+3, OBR+6, OBR+7, OBR+9, OBR+10 , OBR+11, SDIR+2
SROBX	SRHLSCRN+3~, SRHLSCRN+7, SRHLSCRN+8, SRHLSCRN+10, HDR1~, HDR1+9, HDR1+10
SRX	SRHLSCRN+3~, SRHLSCRN+4, SRHLSCRN+5, HDR+1~, HDR+5, HDR1+1~, HDR1+5*, HDR1+6, HDR1+7, HDR1+8
SRY	SRHLSCRN+3~, SRHLSCRN+5*
U	SRHLSCRN+10, HDR+5, HDR1+2, HDR1+6, HDR1+8, OBR+2, OBR+3, OBR+6, OBR+7, OBR+9 , OBR+10, OBR+11
X	SRHLSCRN+9, SRHLSCRN+10, OBR+1~, OBR+3, OBR+6, OBR+7, OBR+9, OBR+10*
X1	OBR+1~, OBR+7, OBR+10
>> Y	SRHLSCRN+9, SRHLSCRN+10, HDR+6, HDR1+9, OBR+3, OBR+4

Customize PDF page

Package: Surgery