Routine: PXBGPOV2

Information

PXBGPOV2 ;ISL/JVS - DOUBLE ?? GATHERING OF DIAGNOSES ;11/5/96 14:19

Source Information

Source file <PXBGPOV2.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	LIST^DIC WAIT^DICD ^DIR
PCE Patient Care Encounter	2	(LOC,WIN17)^PXBCC HELP^PXBUTL0

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBHLP3 PXBPPOV

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	;
FILTER	;--FILTER OUT DUPLICATES
START	;--RECYCLE POINT
EXIT	;--EXIT
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 file man ; START = The starting point as to what to look up
FORWARD	;
NEW	;
HEAD	;--HEAD

External References

Name	Field # of Occurrence
LIST^DIC	START+3, START1+13
WAIT^DICD	START1+11
^DIR	PROMPT+6, PRMPT+10, PRMPT2+6
LOC^PXBCC	PROMPT+1, PRMPT+2, LOC+1, PRMPT2+2
WIN17^PXBCC	PROMPT+1, PRMPT+1, PRMPT2+1
HELP^PXBUTL0	FILTER+19

Interaction Calls

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+19
Function Call: WRITE	Prompt: !,IOCUU,?(IOM-$L(RESULTS))\2,RESULTS Line Location: FILTER+20
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
Routine Call	DIC Line Location: START+3 START1+13
Routine Call	DIR Line Location: PROMPT+6 PRMPT+10 PRMPT2+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9("BA"	START1+5, START1+6, START1+7, START1+8
^ICD9("D"	START1+10
^TMP("PXBOTAL"	FILTER+2*, FILTER+4, FILTER+6, FILTER+7, FILTER+12!
^TMP("PXBTANA"	FINISH+1, EXIT+1!, EXITNEW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+1, SUB+3, SUB+4 , SUB+5
^TMP("PXBTOTAL"	EXIT+1!, FILTER+1, FILTER+2, FILTER+3!, FILTER+8, FILTER+9, FILTER+10, FILTER+11, FILTER+14, LIST+5 , LIST+6, LIST+7, VAL+1, EXITNEW+1!

Label References

Name	Line Occurrences
BACK	PROMPT+7
EXIT	PROMPT+9
FORWARD	PROMPT+8
HEAD	START+4
LIST	PRMPT+11
LOC	DOUBLE+9, START+4, LIST+2
PRMPT2	LIST+11
SETUP	START+2
START	PROMPT+7, PROMPT+8
SUB	START+4
VAL	LIST+1, PRMPT2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BACK	DOUBLE+6~, DOUBLE+8, START+3, PROMPT+7, PROMPT+8, NEW+3, START1+13
C	FILTER+4~, FILTER+5, FILTER+8, FILTER+9, FILTER+10, FILTER+11
CNT	NEW+1~, SUB+3*
CODE	DOUBLE+6~, NEW+1~, LIST+6, LIST+8, SUB+4, SUB+6
>> CYCL	FILTER+21*
CYCLE	NEW+1~
>> DATA	NEW+4, START1+5, START1+6, START1+7, START1+8, START1+9, START1+10, START1+11, START1+13
>> DIC("S"	DOUBLE+10, START1+13
DIR	EXIT+1!, EXITNEW+1!
DIR("?"	PROMPT+4, PRMPT+8
DIR("A"	PROMPT+3, PRMPT+6, PRMPT+7, PRMPT2+3
DIR("B"	PRMPT2+4*
DIR(0	PROMPT+5, PRMPT+9, PRMPT2+5*
DIRUT	PROMPT+9!
>> ERROR	FILTER+21*
FIELD	DOUBLE+6~, START+3, NEW+1~, START1+4, START1+13, SETUP+2
FILE	DOUBLE+6~, START+3, NEW+1~, START1+3, START1+13, SETUP+1
FIRST	DOUBLE+7~, FINISH+1, NEW+2~, SUB+4, SETUP+1*, SETUP+2
FROM	DOUBLE~, DOUBLE1~
HEADING	DOUBLE+6~, NEW+1~, FILTER+25, LIST+3, SUB+2, SETUP+3
HLP	NEW+2~, START1+9*, FILTER+19, FILTER+20
I	FILTER+1~, FILTER+2, FILTER+4~, FILTER+6, FILTER+7, FILTER+8
INDEX	NEW+1~, NEW+3, START1+5, START1+6, START1+7, START1+8, START1+10, START1+13
>> IOBON	HEAD+1
>> IOCUU	FILTER+20, HEAD+1
>> IOEDEOP	FILTER+18, LOC+2
>> IOELEOL	HEAD+1
>> IOINHI	HEAD+1
>> IOINLOW	HEAD+1
IOM	FILTER+20, HEAD+1
>> IOSGR0	HEAD+1
J	FILTER+4~, FILTER+6, FILTER+7, FILTER+9
K	FILTER+4~, FILTER+7, FILTER+10
NAME	DOUBLE+6~, NEW+1~, LIST+7, LIST+8, SUB+5, SUB+6
NRD	DOUBLE+7~
NUM	DOUBLE+6~, DOUBLE+8, LIST+5
OK	NEW+1~
>> PXBCNT	PROMPT+1, PRMPT+1, PRMPT2+1
>> RESULTS	FILTER+20*
SCREEN	DOUBLE+6~, DOUBLE+7~, DOUBLE+8, DOUBLE+10, START+3, NEW+1~
>> SECOND	FINISH+1, SUB+5, SETUP+1*, SETUP+2
START	DOUBLE+6~, DOUBLE+12, START+3, NEW+1~, NEW+4, START1+5, START1+6, START1+7, START1+8, START1+10* , START1+13, BACK+1, FORWARD+1
START("IEN"	BACK+2, FORWARD+2
SUB	DOUBLE+6~, NEW+1~, NEW+4, LIST+4, LIST+5, LIST+6, LIST+7, LIST+8, PRMPT+4, PRMPT+6 , PRMPT+11, PRMPT+12, SUB+3, SUB+4, SUB+5, SUB+6
SUB2	DOUBLE+7~, NEW+2~, NEW+4, LIST+5, PRMPT+9
TANA	EXITNEW+2!
TEMP	DOUBLE+7~
TITLE	DOUBLE+6~, START+1, NEW+1~, START1+2, HEAD+1
TOTAL	NEW+2~, FILTER+14*, FILTER+17, FILTER+22, LIST+1, LIST+11, PRMPT+5, EXITNEW+2!
>> VAL	PROMPT+9, FINISH+1, EXIT+2, VAL+1*, EXITNEW+3
>> X	PROMPT+7, PROMPT+8, FINISH+1, LIST+1, PRMPT+11, PRMPT+12, VAL+1, PRMPT2+7, PRMPT2+8
>> Y	PRMPT2+7, PRMPT2+8

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXBGPOV2

Call Graph Total: 5

Caller Graph Total: 2