Routine: DDBRU

Information

DDBRU ;SFISC/DCL-BROWSER UTILITIES AND EXTRINSIC FUNCTIONS ;2/27/99 11:57

Source file <DDBRU.m>

Package	Total	Call Graph
VA Fileman	7	^%DT DOCLIST^DDBR RTN^DDBRU KILL^DDGLIB0 EDIT^DDW BLD^DIALOG $$FMTE^DILIBF

Package	Total	Caller Graph
VA Fileman	3	DDBR DDBRGE DDBRU

Name	Comments	DBIA/ICR reference
RTNEDIT
KTMP
TRMERR(DDGLCH)	;Terminal type errors
EDIT	;ROUTINE EDIT VIA VA FILEMAN SCREEN EDITOR
K
NOW()	;
SP(X)	;MAKE SURE A TAB OR 1ST SPACE IS SET TO SPACES
132
RE(DDBRTN)
ENDR
MSMCON	;MSM CONSOLE FOR 132/80 MODES
RTNTB(DDBRTOP,DDBRBOT)	;PASS TOP AND BOTTOM MARGINS
TAB(X)	;CONVERT 1ST SPACE TO TAB IF NO TAB
80
OUT	;
DR	;Display Routine(s)
COL(DDBC)	;Set up colums used by Fileman Print Set DIOEND="D COL^DDBRU()" when calling Browser
RTN(RTN,TMPGBL)	;
CTRLCH()	;Extrinsic function - returns control characters 1-31

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"...building ""Current List"" tables" Line Location: DR+10
Function Call: WRITE	Prompt: !,"ROUTINE SAVE NODE NOT DEFINED IN MUMPS OPERATING SYSTEM FILE",! Line Location: EDIT+3
Function Call: WRITE	Prompt: !,DDBRTN," Invalid",! Line Location: EDIT+5
Function Call: WRITE	Prompt: !,"NO ROUTINE SELECTED",! Line Location: EDIT+8
Function Call: WRITE	Prompt: !,"NO SUCH ROUTINE",! Line Location: EDIT+10
Function Call: WRITE	Prompt: !,"Loading ",DDBRTN Line Location: EDIT+12
Function Call: WRITE	Prompt: $C(27),"[?",3,$C(108) Line Location: 80+0
Function Call: WRITE	Prompt: $C(27),"[?",3,$C(104) Line Location: 132+0
Routine Call	DIALOG Line Location: TRMERR+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EON"	EDIT+6, EDIT+21
^%ZOSF("RM"	80+1, 132+1
^%ZOSF("RSEL"	DR+3
^%ZOSF("TEST"	EDIT+5, EDIT+9
^DD("OS" - [#.7]	EDIT+3, EDIT+19
^TMP("DDB"	KTMP!
^TMP("DDBC"	COL+3, KTMP!
^TMP("DDBLST"	KTMP+1!
^TMP("DDBRTN"	EDIT+11!, EDIT+13, EDIT+16, EDIT+17, EDIT+20!
^TMP($J	DR+2!, DR+6*, K!
^UTILITY($J	COL+4, DR+2!, DR+3, DR+4, K!, EDIT+15!, EDIT+17*, EDIT+20!

Name	Field # of Occurrence
^(	COL+4, EDIT+17
^($J	COL+3!

Name	Field # of Occurrence
%	EDIT+4~
%DT	NOW+1~, NOW+2*
%X	EDIT+4~
%Y	EDIT+4~
DDBC	COL~, COL+2*, COL+6, COL+9
DDBENDR	ENDR~*
>> DDBFLG	OUT+1, OUT+2
DDBRBOT	RTNTB~, DR+11
DDBRI	EDIT+4~, EDIT+13, EDIT+16, EDIT+17*
DDBRTN	RE~, RTNEDIT~, EDIT+5, EDIT+7*, EDIT+8, EDIT+9, EDIT+12, EDIT+14, EDIT+18
DDBRTOP	RTNTB~, DR+11
DDBRX	EDIT+4~, EDIT+13*
DDGLCH	TRMERR~, TRMERR+2
>> DDS	OUT+1
DESC	DR+1~, DR+5*, DR+6
DTIME	EDIT+7
E	TAB+1~, TAB+7, TAB+8, TAB+9, SP+1~, SP+7, SP+8, SP+9, SP+10*
F	RTN+1~, RTN+2*
H	COL+1~, COL+5*, COL+8
I	CTRLCH+1~, COL+1~, COL+6, COL+9, RTN+1~, RTN+2
IOM	80+1, 132+1
IOST	TRMERR+2
L	TAB+1~, TAB+6, TAB+7, SP+1~, SP+6, SP+7
P	COL+1~, COL+6, COL+9, TRMERR+1~, TRMERR+3
P(1	TRMERR+2*
P(2	TRMERR+2*
Q	COL+1~, COL+6, COL+9
RN	DR+1~, DR+4, DR+6
RSA	DR+1~, DR+6*, DR+8
RTN	RTN~, DR+1~, DR+4*, DR+6, DR+7, DR+8
S	SP+1~, SP+4*, SP+7
SPS	SP+1~, SP+4*, SP+7
T	COL+1~, COL+4, COL+5, COL+6, COL+8, COL+9, TAB+1~, TAB+4, TAB+5, TAB+7 , SP+1~, SP+4, SP+5
TMPGBL	RTN~, RTN+2
X	CTRLCH+1~, CTRLCH+2, COL+1~, COL+4, COL+8, RTN+1~, RTN+2, DR+1~, EDIT+4~, EDIT+5* , EDIT+9, EDIT+18, TAB~, TAB+2, TAB+3, TAB+5, TAB+6, TAB+7, TAB+9, TAB+11 , SP~, SP+2, SP+3, SP+5, SP+6, SP+7, SP+9, SP+12, NOW+1~, NOW+2 , 80+1, 132+1
Y	DR+1~, EDIT+4~, NOW+1~, NOW+4