Routine: DIS

Information

DIS ;SFISC/GFT - GATHER SEARCH CRITERIA ;24AUG2015

Source file <DIS.m>

Name	Comments	DBIA/ICR reference
EN	;
R	;
F	;
HARD
G	;^DOPT("DIS",1,0)=NULL
C
VALUE
PT
SET
GOT
OK
B
UP
Q
WP
X	;
W
ENS	; ENTRY POINT FOR RE-DOING THE SORT USING AN EXISTING SORT TEMPLATE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: F+2
Function Call: WRITE	Prompt: "SEARCH FOR "_R_" "_$P(^DD(DK,0),U)_": " Line Location: F+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: F+5
Function Call: READ	Prompt: "CONDITION: " Variable: X Timeout: DTIME Line Location: C+0
Function Call: WRITE	Prompt: R Line Location: C+0
Function Call: READ	Prompt: " DATE: " Variable: X Timeout: DTIME Line Location: VALUE+0
Function Call: WRITE	Prompt: W Line Location: VALUE+0
Function Call: WRITE	Prompt: O Line Location: VALUE+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: PT+0
Function Call: WRITE	Prompt: " "_$P(@(DIC_"0)"),U)_": " Line Location: PT+0
Function Call: READ	Prompt: ": " Variable: Y Timeout: DTIME Line Location: PT+1
Function Call: WRITE	Prompt: !?7 Line Location: SET+5
Function Call: WRITE	Prompt: % Line Location: SET+6
Function Call: WRITE	Prompt: "," Condition for execution: C>1 Line Location: SET+6
Function Call: WRITE	Prompt: " " Line Location: SET+6
Function Call: WRITE	Prompt: !?7 Condition for execution: $X+$L(%)>73 Line Location: SET+6
Function Call: WRITE	Prompt: %_" ]" Line Location: SET+8
Function Call: WRITE	Prompt: $C(7),"??",!! Line Location: X+1
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?DL*2,"-"_$C(DC+64)_"- " Line Location: W+0