Routine: PXBGPRV3

Information

PXBGPRV3 ;ISL/JVS - DOUBLE ?? GATHERING OF CLINIC PROVIDER ;11/5/96 14:23

Name	Comments	DBIA/ICR reference
DOUBLE1(FROM)	;--Entry point
NEW	;
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: !,"THIS IS NOT AN ENTRY POINT" Line Location: PXBGPRV3+5
Function Call: WRITE	Prompt: IOCUU,IOCUU,!,IOELEOL Line Location: START1+13
Function Call: WRITE	Prompt: ! Line Location: START1+14
Function Call: WRITE	Prompt: !!!,?(IOM-$L(RESULTS))\2,RESULTS Line Location: START1+15
Function Call: WRITE	Prompt: ! Line Location: LIST+1
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