Routine: PXBGPRV2

Information

PXBGPRV2 ;ISL/JVS - DOUBLE ?? GATHERING OF PROVIDER ; 7/12/07 10:38am

Name	Comments	DBIA/ICR reference
DOUBLE(FROM)	;--Entry point
START	;--RECYCLE POINT
PROMPT	;---WRITE PROMPT HERE
FINISH	;--FINISH SETTING A VARIBLE TO SELECTED ITEM
EXIT	;--EXIT
DOUBLE1(FROM)	;--Entry point
NEW	;
START1	;--RECYCLE POINT
RELOOK	;----ADJUST THE DATA FOR LOOKUP IF NECESSARY
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: PXBGPRV2+5
Function Call: WRITE	Prompt: !!,"Enter '^' to quit, '-' for previous page." Line Location: PROMPT+2
Function Call: WRITE	Prompt: ! Line Location: RELOOK+27
Function Call: WRITE	Prompt: ! Line Location: RELOOK+28
Function Call: WRITE	Prompt: ! Line Location: LIST+7
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: $G(^TMP("PXBTOTAL",$J,"DILIST","ID",X,.01)) Line Location: VAL+2
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+2