Routine: PXBGPOV2

Information

PXBGPOV2 ;ISL/JVS - DOUBLE ?? GATHERING OF DIAGNOSES ;27 Mar 2013 6:12 PM

Name	Comments	DBIA/ICR reference
DOUBLE(FROM)	;--Entry point ; WHAT = The same WHAT as sent in from the API ; FROM = Exactly which prompt is asking for the list ; SCREEN = Same as the DIC("S") screen used by FileMan ; START = The starting point as to what to look up
START	;--RECYCLE POINT
PROMPT	;---WRITE PROMPT HERE
FINISH	;--FINISH SETTING A VARIABLE TO SELECTED ITEM
EXIT	;--EXIT
DOUBLE1(FROM)	;--Entry point
NEW	;
START1	;--RECYCLE POINT
FILTER	;--FILTER OUT DUPLICATES
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	;-SETUP VARIABLES
SETSECND	;
PRMPT2	;-----Yes and No prompt if only choice

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS IS NOT AN ENTRY POINT" Line Location: PXBGPOV2+3
Function Call: WRITE	Prompt: !!,"Enter '^' to quit, '-' for previous page." Line Location: PROMPT+2
Function Call: WRITE	Prompt: ! Line Location: START1+1
Function Call: WRITE	Prompt: ! Line Location: FILTER+21
Function Call: WRITE	Prompt: !,IOCUU,?(IOM-$L(RESULTS))\2,RESULTS Line Location: FILTER+22
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