Routine: PXBGPL2

Package	Total	Call Graph
PCE Patient Care Encounter	4	(LOC,WIN17)^PXBCC PL^PXBGPL HELP^PXBUTL0 HELP1^PXBUTL1
VA Fileman	1	^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXBHLP3

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS IS NOT AN ENTRY POINT" Line Location: PXBGPL2+3
Function Call: WRITE	Prompt: IOCUU,IOCUU,!,IOELEOL Line Location: START1+12
Function Call: WRITE	Prompt: ! Line Location: START1+13
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: !! Line Location: PRMPT3+3
Function Call: WRITE	Prompt: IOEDEOP Line Location: LOC+2
Function Call: WRITE	Prompt: IOINHI,!,IOCUU,?(IOM-$L(TITLE))\2,TITLE,IOINLOW,IOELEOL Line Location: HEAD+1
Function Call: WRITE	Prompt: !!," E N D O F L I S T" Line Location: SUB+1
Routine Call	DIR Line Location: PRMPT+10 PRMPT2+6

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PXBTANA"	EXITNEW+1!, EXITNEWW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+1, SUB+3, SUB+4
^TMP("PXBTOTAL"	START1+8*, LIST+4, LIST+5, VAL+1, EXITNEW+1!, VALL+1, EXITNEWW+1!

Name	Field # of Occurrence
>> BACK	NEW+6*
CNT	NEW+3~, NEW+4~, START1+7, START1+8, START1+9, SUB+3
CODE	NEW+3~
CYCLE	NEW+3~
>> DATA	NEW+7
DIR	EXITNEW+1!
DIR("?"	PRMPT+8*
DIR("A"	PRMPT+6, PRMPT+7, PRMPT2+3*
DIR("B"	PRMPT2+4*
DIR(0	PRMPT+9, PRMPT2+5
DTIME	START1+15, PRMPT3+4
FIELD	NEW+3~, SETUP+1*
FILE	NEW+3~, SETUP+1*
FROM	DOUBLE1~
HEADING	NEW+3~, START1+20, LIST+2, SUB+2, SETUP+2
INDEX	NEW+3~, NEW+6*
>> IOCUU	START1+12, HEAD+1
>> IOEDEOP	LOC+2
>> IOELEOL	START1+12, HEAD+1
>> IOINHI	HEAD+1
>> IOINLOW	HEAD+1
IOM	HEAD+1
NAME	NEW+2, NEW+3~, LIST+5, LIST+6, SUB+4, SUB+5
>> NUM	LIST+4*
OK	NEW+3~, START1+15, PRMPT3+4
>> PATIENT	START1+3
>> PNAME	NEW+2*
POV	NEW+4~, START1+7*, START1+8
>> PXBCNT	PRMPT+2, PRMPT3+2, PRMPT2+1
PXBPMT	NEW+4~, START1+5, START1+6
PXBPMT("PL"	START1+7
SCREEN	NEW+3~
START	NEW+3~, NEW+7, BACK+1, FORWARD+1*
START("IEN"	BACK+2, FORWARD+2
SUB	NEW+3~, NEW+7, LIST+3, LIST+4, LIST+5, LIST+6, PRMPT+4, PRMPT+6, PRMPT+11, PRMPT+12 , PRMPT3+5, PRMPT3+6, SUB+3, SUB+4, SUB+5
SUB2	NEW+4~, NEW+7, LIST+4, PRMPT+9
TANA	EXITNEW+2!, EXITNEWW+2!
TITLE	NEW+3~, START1+1*, HEAD+1
TOTAL	NEW+4~, START1+5, START1+9, START1+12, START1+16, LIST+9, PRMPT+5, EXITNEW+2!, EXITNEWW+2!
>> VAL	VAL+1, EXITNEW+3, VALL+1, EXITNEWW+3
>> VALL	LIST+10
>> X	PRMPT+11, PRMPT+12, VAL+1, PRMPT3+6, VALL+1, PRMPT2+7, PRMPT2+8
>> Y	PRMPT2+7, PRMPT2+8