Routine: XBENHANC

Information

XBENHANC ; IHS/ADC/GTH - DISPLAY/PRINT ENHANCEMENTS FIELD IN PACKAGE FILE ; [ 02/07/97 3:02 PM ]

Source file <XBENHANC.m>

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR
VA Fileman	3	DT^DICRW ^DIWP ^DIWW
IHS VA Utilities	1	$$DIR^XBDIR

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHS DEFDEN ENHANCEMENTS ACHS ENHANCEMENTS

Name	Comments	DBIA/ICR reference
DIWP(X)	;
K	;
DEV	;
START	;EP - TaskMan.
EN(XB)	;PEP - XB = Namespace of package to print enhancements.
TOF	;

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: !! Line Location: TOF+3
Function Call: WRITE	Prompt: @IOF,!!,?DIWL-1,XBHDR,?(DIWR-$L("Page "_XBPG)-1),"Page ",XBPG,!?DIWL-1,$$REPEAT^XLFSTR("-",DIWR-DIWL),!! Line Location: TOF+6
Routine Call	%ZIS Line Location: EN+2
Routine Call	%ZIS Line Location: DEV+2 DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	START+2, START+4, START+5, START+7, START+13
^UTILITY($J	START+8!, START+15!

Name	Field # of Occurrence
^(	START+13

Name	Field # of Occurrence
%	START+12, START+13, DIWP+1~, TOF+1~
>> %ZIS	DEV+1*
A	START+1~, START+2*, START+3, START+4, START+5, START+7, START+13, DIWP+1~, TOF+1~
B	START+1~, START+5*, START+6, START+13, DIWP+1~, TOF+1~
DIRUT	START+1~, START+13, START+14, TOF+5
DIWF	START+1~, START+9*
DIWL	START+1~, START+9*, TOF+6
DIWR	START+1~, START+9*, TOF+6
IO	START+10, TOF+4
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+6, TOF+4
IO(0	TOF+4
IOF	TOF+6
IOM	DEV+7, START+9
ION	DEV+7
>> IOP	DEV+3*
IOSL	DEV+7, START+13
IOST	DEV+6, DEV+7
>> POP	DEV+3
U	START+7
X	DIWP~
XB	EN~, EN+1, START+2
XBHDR	START+1~, START+7*, TOF+6
XBPG	START+1~, TOF+2*, TOF+6
>> ZTDESC	DEV+7*
>> ZTIO	DEV+7*
>> ZTQUEUED	TOF+4
>> ZTRTN	DEV+7*
>> ZTSAVE("XB"	DEV+7*
ZTSK	DEV+9, K+1!

Name	Field # of Occurrence
$T(XBENHANC	DEV+7