Routine: PXBGSTP2

Information

PXBGSTP2 ;ISL/JVS - DOUBLE ?? GATHERING OF STOP CODES ;1/24/97 14:14

Name	Comments	DBIA/ICR reference
DOUBLE(FROM)	;--Entry point
START	;--RECYCLE
PROMPT	;--PROMPT
FINISH	;--FINISH
EXIT	;--EXIT
DOUBLE1(FROM)	;--Entry point
START1	;--RECYCLE POINT
LIST	;-DISPLAY LIST TO THE SCREEN
PRMPT	;---WRITE PROMPT HERE
VAL	;-----Set the VAL equal to the value
EXITNEW	;--EXIT
BACK	;
FORWARD	;
LOC	;--LOCATE CURSOR
HEAD	;--HEAD
SUB	;--DISPLAY LIST TO THE SCREEN
SETUP	;-SETP VARIABLES
PRMPT2	;-----Yes and No prompt if onlyi choice

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NOT" Line Location: PXBGSTP2+5
Function Call: WRITE	Prompt: !!,"Enter '^' to quit, '-' for previous page." Line Location: PROMPT+2
Function Call: WRITE	Prompt: ! Line Location: START1+16
Function Call: WRITE	Prompt: ! Line Location: START1+17
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: PRMPT+3
Function Call: WRITE	Prompt: !,"Enter '^' to quit" Line Location: PRMPT+4
Function Call: WRITE	Prompt: !," END OF LIST" Line Location: PRMPT+5
Function Call: WRITE	Prompt: IOEDEOP Line Location: LOC+2
Function Call: WRITE	Prompt: !,IOCUU,IOBON,"HELP SCREEN",IOSGR0,?(IOM-$L(TITLE))\2,IOINHI,TITLE,IOINLOW,IOELEOL Line Location: HEAD+1
Function Call: WRITE	Prompt: !!," E N D O F L I S T" Line Location: SUB+1