Routine: DIP

Information

DIP ;SFISC/XAK,TKW - GET SORT SPECS ;23MAR2013

Source file <DIP.m>

Name	Comments	DBIA/ICR reference
Q
QQ
INIT
EN
EN1	;	ICR #329 Status: Active Usage: Private ICR #10010 Status: Active Usage: Supported
I	;
SORT
LEVELS	;F DJ=DJ:1:7 D DJ Q:$G(X)=""!($D(DTOUT))!($D(DUOUT))!'$D(DJ) G FTEM^DIP1:X?1"[".E
DJ	;Process one SORT BY level (DJ=level)
EGP
SN
D1
BY
D
Y
STRIP
NUM
BB
G
NM
S	;from DIP0
B
XR
XER
IDXOK(DIEN,DIFILE,DISUB,DIFIELD)	;
ADD

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: Y+4
Function Call: WRITE	Prompt: $C(7),"??" Line Location: B+0