Routine: INHDIFPK

Information

INHDIFPK ;MTM; 12 Apr 94 15:03; difrom/package file utilities

Source file <INHDIFPK.m>

Package	Total	Call Graph
Uncategorized	1	$$YN^UTSRD
VA Fileman	1	^DIC

Name	Comments	DBIA/ICR reference
YNHELP
YN	; Yes/No reader for installing inits.
RX
HELP(D000,SUB,PTR)	; Help logic for PACKAGE file.
Y	;
LOOKUP(DIC,X,Y,XQY)	; Lookup logic for PACKAGE file.

Name	Field # of Occurrence
^DIC	HELP+2, HELP+5, LOOKUP+2
$$YN^UTSRD	HELP+4

Name	Line Occurrences
Function Call: WRITE	Prompt: $G(%A),"? " Line Location: YN+1
Function Call: WRITE	Prompt: $P("YES// ^NO// ",U,%) Line Location: Y+1
Function Call: READ	Timeout: $S($G(DTIME):DTIME,1:300) Variable: %Y Line Location: RX+0
Function Call: WRITE	Prompt: *7 Line Location: RX+0
Function Call: WRITE	Prompt: *7,"??",!?4,"Answer 'YES' or 'NO': " Line Location: RX+2
Function Call: WRITE	Prompt: ! Line Location: RX+3
Function Call: WRITE	Prompt: ! Condition for execution: $X>73 Line Location: RX+4
Function Call: WRITE	Prompt: $P(" (YES)^ (NO)",U,%) Line Location: RX+4
Function Call: WRITE	Prompt: !?4,"Sorry, no help available." Line Location: YNHELP+0
Function Call: WRITE	Prompt: !?4,%H Line Location: YNHELP+2
Routine Call	DIC Line Location: HELP+2 HELP+5 LOOKUP+2

Name	Field # of Occurrence
>> %	Y+1, RX+1, RX+2, RX+3, RX+4
%1	Y+1*, RX+3, RX+4!
%A	YN+1, RX+4!
%H	RX+4!, YNHELP, YNHELP+1, YNHELP+2
>> %Y	RX*, RX+1, RX+2
D	HELP+1~
D000	HELP~
DIC	HELP+1~, HELP+2, HELP+5, LOOKUP~
DIC("IOSL"	HELP+1, LOOKUP+1
DIC(0	HELP+2, LOOKUP+1
DIX	HELP+1~, LOOKUP+1~
DS	HELP+1~, LOOKUP+1~
DTIME	RX
>> DTOUT	RX*
>> DWD	HELP+1, LOOKUP+1
DZ	HELP+1~
PTR	HELP~, HELP+3, HELP+5
SUB	HELP~, HELP+2
U	LOOKUP+3, Y+1, RX, RX+4, YNHELP+1
X	HELP+2, HELP+5, LOOKUP~, LOOKUP+2!, LOOKUP+3*
XQY	LOOKUP~, LOOKUP+2!
XQY(0	LOOKUP+3*
Y	HELP+1~, HELP+4*, LOOKUP~, LOOKUP+2!
Y(0	LOOKUP+3