Routine: DIR2

Information

DIR2 ;SFISC/XAK - READER (SETUP VARS,REPLACE...WITH) ;2DEC2016

Source file <DIR2.m>

Name	Comments	DBIA/ICR reference
FIELD
NN
S0(%B)	;CREATE PROMPT FOR READING A 'SET' TYPE. %B is the SET OF CODES
EO
DIR(DIALA)	;** INSERTS DIALOGS INTO DIR ARRAY
RW	; Replace...With... ENTER WITH 'Y', EXIT WITH 'Y' CHANGED. CALLED FROM MANY ROUTINES
A
H
WITH
B
Q
F	;;Enter response: ;8051
S	;;Enter response: ;8051
Y	;;Enter Yes or No: ;8052
E	;;Press RETURN to continue or '^' to exit: ;8053
N	;;Enter a number;8054
D	;;Enter a date;8055
L	;;Enter a list or range of numbers;8056
P	;;Select: ;8057
F1	;;;This response can be free text;9031
S1	;;;Enter a code from the list.;9032
Y1	;;;Enter either 'Y' or 'N'.;9040
E1	;;;Enter either RETURN or '^';9033
N1	;;;This response must be a number;9034
D1	;;;This response must be a date;9035
L1	;;;This response must be a list or range, e.g., 1,3,5 or 2-4,8;9036

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: A+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>50 Line Location: A+0
Function Call: WRITE	Prompt: $$EZBLD^DIALOG(8047) Line Location: A+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: WITH+0
Function Call: WRITE	Prompt: $$EZBLD^DIALOG(8048) Line Location: WITH+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: WITH+0
Function Call: WRITE	Prompt: $C(7),$S($L(Y)-L'>DIMAX:$$EZBLD^DIALOG(349,($L(Y)-L+$L(X)-DIMAX)),X'=U:$$EZBLD^DIALOG(350),1:" ??") Line Location: WITH+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: WITH+3
Function Call: WRITE	Prompt: !?3 Line Location: B+0
Function Call: WRITE	Prompt: X Line Location: B+0