Routine: PXBGPRV2

Information

PXBGPRV2 ;ISL/JVS - DOUBLE ?? GATHERING OF PROVIDER ; 1/13/01 10:57am

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
PCE Patient Care Encounter	3	(LOC,WIN17)^PXBCC $$OCCUP^PXBGPRV HELP^PXBUTL0
VA Fileman	2	LIST^DIC ^DIR
Kernel	1	$$GET^XUA4A72

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBHLP2 PXBPPRV

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;--LOCATE CURSOR
PRMPT	;---WRITE PROMPT HERE
FINISH	;--FINISH SETTING A VARIBLE TO SELECTED ITEM
PROMPT	;---WRITE PROMPT HERE
SUB	;--DISPLAY LIST TO THE SCREEN
VAL	;-----Set the VAL equal to the value
PRMPT2	;-----Yes and No prompt if onlyi choice
DOUBLE1(FROM)	;--Entry point
SETUP	;-SETP VARIABLES
START1	;--RECYCLE POINT
LIST	;-DISPLAY LIST TO THE SCREEN
EXITNEW	;--EXIT
BACK	;
RELOOK	;----ADJUST THE DATA FOR LOOKUP IF NECESSARY
START	;--RECYCLE POINT
EXIT	;--EXIT
DOUBLE(FROM)	;--Entry point
FORWARD	;
NEW	;
HEAD	;--HEAD

Name	Field # of Occurrence
LIST^DIC	START+5, RELOOK+6
^DIR	PROMPT+7, PRMPT+10, PRMPT2+6
LOC^PXBCC	PROMPT+1, PRMPT+2, LOC+1, PRMPT2+2
WIN17^PXBCC	PROMPT+1, RELOOK+22, PRMPT+1, PRMPT2+1
$$OCCUP^PXBGPRV	LIST+14, SUB+6
HELP^PXBUTL0	RELOOK+23, RELOOK+24
$$GET^XUA4A72	LIST+4

Interaction Calls

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+23
Function Call: WRITE	Prompt: ! Line Location: RELOOK+24
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
Routine Call	DIC Line Location: START+5 RELOOK+6
Routine Call	DIR Line Location: PROMPT+7 PRMPT+10 PRMPT2+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	LIST+4, LIST+14, LIST+16, SUB+6, SUB+8
^DD("DD"	LIST+16, SUB+8
^TMP("PXBTANA"	FINISH+2, EXIT+1!, EXITNEW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+2, SUB+4, SUB+5 , SUB+6
^TMP("PXBTOTAL"	EXIT+1!, RELOOK+7, RELOOK+9, RELOOK+16, RELOOK+17, LIST+4, LIST+10, LIST+13, LIST+14, VAL+1 , VAL+2, EXITNEW+1!
^VA(200 - [#200]	RELOOK+1, RELOOK+3, RELOOK+10, RELOOK+12, RELOOK+13, RELOOK+16, RELOOK+17

Name	Line Occurrences
BACK	PROMPT+9
EXIT	PROMPT+11
FORWARD	PROMPT+10
HEAD	START+7
LIST	PRMPT+11
LOC	DOUBLE+11, START+7, LIST+7
PRMPT2	LIST+23
SETUP	START+4
START	PROMPT+9, PROMPT+10
SUB	START+7
VAL	LIST+3, PRMPT2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BACK	DOUBLE+8~, DOUBLE+10, START+5, PROMPT+9, PROMPT+10, NEW+5, RELOOK+6
CNT	NEW+2~, SUB+4*
CODE	DOUBLE+8~, NEW+2~
>> CYCL	RELOOK+25*
CYCLE	NEW+2~
>> DATA	NEW+6, RELOOK+1, RELOOK+2*, RELOOK+3, RELOOK+6, RELOOK+10, RELOOK+11, RELOOK+12, RELOOK+23, RELOOK+24
DATE	LIST+15~, LIST+16, LIST+17, SUB+7~, SUB+8, SUB+9
>> DIC("S"	DOUBLE+12
DIR	EXIT+1!, EXITNEW+1!
DIR("?"	PROMPT+5, PRMPT+8
DIR("A"	PROMPT+3, PROMPT+4, PRMPT+6, PRMPT+7, PRMPT2+3*
DIR("B"	PRMPT2+4*
DIR(0	PROMPT+6, PRMPT+9, PRMPT2+5*
DIRUT	PROMPT+8*, PROMPT+11!
>> ERROR	RELOOK+25*
FIELD	DOUBLE+8~, START+5, NEW+2~, START1+3, RELOOK+6, SETUP+1
FILE	DOUBLE+8~, START+5, NEW+2~, START1+2, RELOOK+6, SETUP+1
FROM	DOUBLE~, DOUBLE1~, VAL+2
HEADING	DOUBLE+8~, NEW+2~, RELOOK+30, LIST+8, SUB+3, SETUP+2
IEN	RELOOK+14~, RELOOK+16*, RELOOK+17
INDEX	NEW+2~, NEW+5, RELOOK+3, RELOOK+6
>> IOBON	HEAD+1
>> IOCUU	HEAD+1
>> IOEDEOP	LOC+2
>> IOELEOL	HEAD+1
>> IOINHI	HEAD+1
>> IOINLOW	HEAD+1
IOM	HEAD+1
>> IOSGR0	HEAD+1
NAME	DOUBLE+8~, NEW+2~, LIST+12~, LIST+13, LIST+19, SUB+5, SUB+11
NUM	DOUBLE+8~, DOUBLE+10, LIST+10
OK	NEW+2~
>> PXBCNT	PROMPT+1, RELOOK+22, PRMPT+1, PRMPT2+1
PXBTYPE	LIST+2~, LIST+3, LIST+4*
PXBVA	NEW+3~, RELOOK+9*
>> PXBVST	LIST+4, LIST+14, LIST+16, SUB+6, SUB+8
SCREEN	DOUBLE+8~, DOUBLE+9~, DOUBLE+10, DOUBLE+12, NEW+2~, RELOOK+5*, RELOOK+6
START	DOUBLE+8~, START+5, PROMPT+2, PROMPT+3, PROMPT+4, PROMPT+8, NEW+2~, NEW+6, RELOOK+1, RELOOK+3* , RELOOK+6, RELOOK+10, RELOOK+11, RELOOK+12, RELOOK+13, RELOOK+16, BACK+1, FORWARD+1*
START("IEN"	BACK+2, FORWARD+2
SUB	DOUBLE+8~, NEW+2~, NEW+6, LIST+9, LIST+10, LIST+13, LIST+14, LIST+19, PRMPT+4, PRMPT+6 , PRMPT+11, PRMPT+12, SUB+4, SUB+5, SUB+6, SUB+11
SUB2	NEW+3~, NEW+6, LIST+10, PRMPT+9
TANA	EXITNEW+2!
TEMP	DOUBLE+9~, NEW+3~
TITLE	DOUBLE+8~, START+2, NEW+2~, START1+1, HEAD+1
TOTAL	NEW+3~, RELOOK+7, RELOOK+15, RELOOK+16, RELOOK+17, RELOOK+21, RELOOK+26, LIST+3, LIST+23, PRMPT+5 , VAL+2, EXITNEW+2!
>> TOTAL1	NEW+5*
TYPE	LIST+12~, LIST+14, LIST+17, LIST+18, LIST+19, SUB+1~, SUB+6, SUB+9, SUB+10, SUB+11
>> VAL	PROMPT+11, FINISH+2, EXIT+2, VAL+1*, EXITNEW+3
VANUMBER	NEW+3~
VANUMBER(	RELOOK+9*, RELOOK+13
>> X	PROMPT+8, PROMPT+9, PROMPT+10, FINISH+2, LIST+3, PRMPT+11, PRMPT+12, VAL+1, VAL+2, PRMPT2+7 , PRMPT2+8*
Y	LIST+15~, LIST+16, SUB+7~, SUB+8, PRMPT2+7, PRMPT2+8

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXBGPRV2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: