Routine: XBHEDD

Package	Total	Call Graph
IHS VA Utilities	4	GL^XBHEDD10 (MULT,PRINT)^XBHEDD7 GLOBAL^XBHEDD9 ^XBHEDDM
Kernel	1	^%ZIS
VA Fileman	1	^DIC

Entry Points

Name	Comments	DBIA/ICR reference
EN
HD1	;Heading for Top of Main Menu
MENU	;
TOP	;
HD	;
PRT	;Stop page feeds. Use on ptr/keyboard
INIT	;
EX	;Exit
GETFILE	;File lookup
GL	;Call XBHEDD here to get listing of Globals in ASCII order.
DIR	;Supress heading

External References

Name	Field # of Occurrence
^%ZIS	INIT+3
^DIC	GETFILE+4
GL^XBHEDD10	GL+2
MULT^XBHEDD7	EN+2
PRINT^XBHEDD7	MENU+2
GLOBAL^XBHEDD9	GETFILE+2
^XBHEDDM	MENU+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!?5,"Your DUZ is not defined!",! Line Location: TOP+1
Function Call: READ	Prompt: "Select FILE: " Formatting: !?8 Timeout: DTIME Variable: X Line Location: GETFILE+1
Function Call: WRITE	Prompt: !?1,"Enter global in the format '^DG' or '^RA(78', or" Line Location: GETFILE+3
Function Call: WRITE	Prompt: ! Line Location: MENU+4
Function Call: READ	Timeout: DTIME Line Location: MENU+5
Function Call: WRITE	Prompt: !?65,"David Bolduc",!?65,"Togus, ME" Line Location: HD+2
Function Call: WRITE	Prompt: !!!?35,"E D D",!?34,"~~~~~~~",!?35,"~~~~~",!?36,"~~~",!?37,"~",!?25,"Electronic Data Dictionary",!?32,"Version 2.3",! Line Location: HD+3
Function Call: WRITE	Prompt: !?22,"",?25,"Everything you ever wanted",?53,"",!?22,"",?25,"to know about a file but",?53,"",!?22,"",?25,"were afraid to ask.",?53,"" Line Location: HD+4
Function Call: WRITE	Prompt: !! Line Location: HD+5
Function Call: WRITE	Prompt: !?M1,"A.) FILE NAME:------------- ",ZNAM Line Location: HD1+1
Function Call: WRITE	Prompt: !?48,"F.) FILE ACCESS:" Line Location: HD1+2
Function Call: WRITE	Prompt: !?M1,"B.) FILE NUMBER:----------- ",ZNUM Line Location: HD1+3
Function Call: WRITE	Prompt: ?53,"DD______ ",$S($D(^DIC(ZNUM,0,"DD")):^("DD"),1:"") Line Location: HD1+4
Function Call: WRITE	Prompt: !?53,"Read____ ",$S($D(^DIC(ZNUM,0,"RD")):^("RD"),1:"") Line Location: HD1+5
Function Call: WRITE	Prompt: !?M1,"C.) NUM OF FLDS:----------- ",^UTILITY($J,"TOT") Line Location: HD1+6
Function Call: WRITE	Prompt: ?53,"Write___ ",$S($D(^DIC(ZNUM,0,"WR")):^("WR"),1:"") Line Location: HD1+7
Function Call: WRITE	Prompt: !?53,"Delete__ ",$S($D(^DIC(ZNUM,0,"DEL")):^("DEL"),1:"") Line Location: HD1+8
Function Call: WRITE	Prompt: !?M1,"D.) DATA GLOBAL:----------- ",ZGL Line Location: HD1+9
Function Call: WRITE	Prompt: ?53,"Laygo___ ",$S($D(^DIC(ZNUM,0,"LAYGO")):^("LAYGO"),1:"") Line Location: HD1+10
Function Call: WRITE	Prompt: !!?M1,"E.) TOTAL GLOBAL ENTRIES:-- " Line Location: HD1+11
Function Call: WRITE	Prompt: $S($P(ZZGL,U,4)]"":$P(ZZGL,U,4),1:"Blank") Line Location: HD1+12
Function Call: WRITE	Prompt: ?48,"G.) PRINTING STATUS:-- ",$S(FLAGP:"On",1:"Off") Line Location: HD1+13
Function Call: WRITE	Prompt: !,$E(ZLINE1,1,80) Line Location: HD1+14
Routine Call	DIC Line Location: GETFILE+4
Routine Call	%ZIS Line Location: INIT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	GETFILE+5, HD1+4, HD1+5, HD1+7, HD1+8, HD1+10
^UTILITY($J	EN!, EX+1!, HD1+6

Label References

Name	Line Occurrences
EN	EN+3
EX	EN+2, GL+2
GETFILE	EN+2, GETFILE+2, GETFILE+4
HD	EN+1
HD1	MENU+2
INIT	TOP+6, GL+2
MENU	EN+2, MENU+2, MENU+3, MENU+6
TOP	DIR+1, PRT+1

Naked Globals

Name	Field # of Occurrence
^("DD"	HD1+4
^("DEL"	HD1+8
^("LAYGO"	HD1+10
^("RD"	HD1+5
^("WR"	HD1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	TOP+3~
B	TOP+3~
BAR	TOP+3~
C	TOP+3~
C1	TOP+3~
DASHES	TOP+3~
DIC	TOP+3~, GETFILE+4*!
DIC(0	GETFILE+4*
DTIME	GETFILE+1, MENU+5, INIT+1*
DUZ	TOP+1*
E	TOP+3~
EDDDATE	TOP+3~
FGRP	TOP+3~
FILE	TOP+3~
FLAGE	TOP+2~, EN+2, MENU+1, MENU+3, MENU+5
FLAGG	TOP+2~, MENU+1*
FLAGGL	TOP+2~, GETFILE+2
FLAGGL1	TOP+2~
FLAGH	EN+1, EN+3, EX+1!, DIR+1, GL+1~, PRT+1, INIT+3
FLAGL	TOP+2~, MENU+1*
FLAGM	TOP+2~, MENU+1*, MENU+3
FLAGNFF	EX+1!, GL+1~, PRT+1, HD+1, HD1+1, INIT+3
FLAGP	TOP+2~, EN, MENU+2, GL+1~, GL+2, HD1+13
FLAGP1	TOP+2~, MENU+1*, MENU+2
FLAGQ	TOP+2~, EN, EN+2, GETFILE+1, MENU+1, MENU+2, MENU+3, GL+1~, GL+2*
FLAGS	TOP+2~, EN, MENU+1
FLD	TOP+3~
G	TOP+3~
GROUP	TOP+3~
GROUP1	TOP+3~
GRP1	TOP+3~
GRP2	TOP+3~
GT	TOP+3~
H	TOP+3~
HD	TOP+3~
I	TOP+3~, MENU+4*
I2	TOP+3~
II	TOP+3~
III	TOP+3~
IO	MENU+2
IO(0	MENU+2
IOF	HD+1, HD1+1
IOP	TOP+3~, INIT+3*!
IOSL	GL+2, INIT+3
J	TOP+3~
K	TOP+3~
L	TOP+3~
LENGTH	TOP+3~
LEVEL	TOP+3~
LINE	TOP+3~
M1	TOP+3~, GL+1~, HD1+1, HD1+3, HD1+6, HD1+9, HD1+11, INIT+1*
M2	TOP+3~, GL+1~, INIT+1*
M3	TOP+3~, GL+1~, INIT+1*
M4	TOP+3~, GL+1~, INIT+1*
M5	TOP+3~, GL+1~, INIT+1*
NORMAL	TOP+3~
NUM	TOP+3~
O	TOP+3~
PAGE	TOP+3~
SCROLL	TOP+3~
SIZE	TOP+3~, MENU+4, GL+1~, GL+2, INIT+3
SLOW	TOP+3~
SPACE	TOP+3~
STRING	TOP+3~
U	GETFILE+5, HD1+12, INIT+2*
X	TOP+3~, GETFILE+1*, GETFILE+2, GETFILE+3
XREF	TOP+3~
XREFNAM	TOP+3~
XREFTYPE	TOP+3~
XX	TOP+3~
Y	TOP+3~, GETFILE+4, GETFILE+5
YCNT	TOP+3~
Z	TOP+4~
Z1	TOP+4~, MENU+5*, GL+1~
ZA	TOP+4~
ZANS	TOP+4~
ZAP	TOP+4~
ZB	TOP+4~
ZCNT	TOP+4~
ZD	TOP+4~
ZDATA	TOP+4~
ZDATA1	TOP+4~
ZDSUB	TOP+4~
ZFLDNAM	TOP+4~
ZFLDNUM	TOP+4~
ZGL	TOP+4~, GETFILE+5*, HD1+9, HD1+12
ZGL1	TOP+4~
ZHELP	TOP+4~
ZHNUM	TOP+4~
ZLINE	TOP+4~, GL+1~, INIT+2!*
ZLINE1	TOP+4~, GL+1~, HD1+14, INIT+2!*
ZLINE2	TOP+4~, GL+1~, INIT+2!*
ZMULT	TOP+4~
ZMZ	TOP+4~
ZNAM	TOP+4~, GETFILE+5*, HD1+1
ZNUM	TOP+5~, GETFILE+5*, HD1+3, HD1+4, HD1+5, HD1+7, HD1+8, HD1+10
ZONE	TOP+5~
ZPAGE	TOP+5~
ZPF	TOP+5~
ZPO	TOP+5~
ZPO1	TOP+5~
ZPO2	TOP+5~
ZPOTMP	TOP+4~
ZTHREE	TOP+5~
ZTWO	TOP+5~
ZX	TOP+5~
ZY1	TOP+5~
ZZ	TOP+5~
ZZ1	TOP+5~
ZZA	TOP+5~
ZZB	TOP+5~
ZZGL	TOP+4~, HD1+12*
ZZH	TOP+5~
ZZX	TOP+5~

Customize PDF page

Package: IHS VA Utilities

Routine: XBHEDD

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: