Routine: PXBGPOV4

Package	Total	Call Graph
PCE Patient Care Encounter	3	(LOC,WIN17)^PXBCC HELP1^PXBUTL1 ($$ACTDT,$$CSDATE)^PXDXUTL
Automated Information Collection System	1	GETLST^IBDF18A
DRG Grouper	1	$$ICDDATA^ICDXCODE
VA FileMan	1	^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXBHLP3

Entry Points

Name	Comments	DBIA/ICR reference
DOUBLE1(FROM)	;--Entry point
NEW	;
START1	;--RECYCLE POINT
ME	;
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 only choice

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS IS NOT AN ENTRY POINT" Line Location: PXBGPOV4+5
Function Call: WRITE	Prompt: IOCUU,IOCUU,!,IOELEOL Line Location: ME+22
Function Call: WRITE	Prompt: ! Line Location: ME+23
Function Call: WRITE	Prompt: !!!,?(IOM-$L(RESULTS))\2,RESULTS Line Location: ME+24
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
Routine Call	DIR Line Location: PRMPT+10 PRMPT2+6

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PXBTANA"	EXITNEW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+1, SUB+3, SUB+4
^TMP("PXBTOTAL"	ME+16, ME+17, LIST+4, LIST+5, LIST+6, VAL+1, EXITNEW+1!

Name	Field # of Occurrence
>> BACK	NEW+7*
>> CLINIC	START1+6
CNT	NEW+2~, ME+10, ME+15, ME+16, ME+17, ME+18, SUB+3*
CODE	NEW+2~, ME+12, ME+13, ME+16, LIST+5, LIST+7
CYCLE	NEW+2~
>> DATA	NEW+8
DIR	EXITNEW+1!
DIR("?"	PRMPT+8*
DIR("A"	PRMPT+6, PRMPT+7, PRMPT2+3*
DIR("B"	PRMPT2+4*
DIR(0	PRMPT+9, PRMPT2+5
DIRUT	PRMPT+13!
DTIME	ME+24
FIELD	NEW+2~, SETUP+1*
FILE	NEW+2~, SETUP+1*
FROM	DOUBLE1~
HEADING	NEW+2~, ME+29, LIST+2, SUB+2, SETUP+2
INDEX	NEW+2~, NEW+7*
>> IOBON	HEAD+1
>> IOCUU	ME+22, HEAD+1
>> IOEDEOP	LOC+2
>> IOELEOL	ME+22, HEAD+1
>> IOINHI	HEAD+1
>> IOINLOW	HEAD+1
IOM	ME+24, HEAD+1
>> IOSGR0	HEAD+1
NAME	NEW+2~, ME+14, ME+17, LIST+6, LIST+7, SUB+4*, SUB+5
>> NUM	LIST+4*
OK	NEW+2~, ME+24*
POVSTR	NEW+2~, START1+3, START1+4, START1+5*
PRV	NEW+2~
>> PXBCNT	PRMPT+1, PRMPT2+1
PXBPMT	NEW+2~
PXBPMT(	ME+10, ME+11, ME+12, ME+14
PXBPMT(0	ME+8, ME+9
>> PXBVST	NEW+4
PXDXDATE	NEW+3~, NEW+5*, START1+3, START1+6, ME+13
>> RESULTS	ME+24*
SCREEN	NEW+3~
START	NEW+3~, NEW+8, BACK+1, FORWARD+1*
START("IEN"	BACK+2, FORWARD+2
SUB	NEW+3~, NEW+8, ME+10, ME+11, ME+12, ME+14, LIST+3, LIST+4, LIST+5, LIST+6 , LIST+7, PRMPT+4, PRMPT+6, PRMPT+11, PRMPT+12, SUB+3*, SUB+4, SUB+5
SUB2	NEW+3~, NEW+8, LIST+4, PRMPT+9
TANA	EXITNEW+2!
TITLE	NEW+3~, START1+1*, HEAD+1
TOTAL	NEW+3~, ME+8, ME+18, ME+22, ME+25, LIST+10, PRMPT+5, EXITNEW+2!
U	START1+3
>> VAL	PRMPT+13, VAL+1, EXITNEW+3
>> VISIT	NEW+4
VSTIEN	NEW+3~, NEW+4*, NEW+5
>> X	PRMPT+11, PRMPT+12, VAL+1, PRMPT2+7, PRMPT2+8*
>> Y	PRMPT2+7, PRMPT2+8

Name	Field # of Occurrence
$T(@POVSTR	START1+6