Routine: PXBGCPT2

Information

PXBGCPT2 ;ISL/JVS,ESW - DOUBLE ?? GATHERING OF CPT CODES ; 10/31/02 12:05pm

Package	Total	Call Graph
PCE Patient Care Encounter	3	(LOC,WIN17)^PXBCC ($$CPTSCREN,WAIT)^PXBUTL HELP^PXBUTL0
VA FileMan	2	(FIND,LIST)^DIC ^DIR
CPT HCPCS Codes	1	$$CPT^ICPTCOD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBHLP4 PXBPCPT

Entry Points

Name	Comments	DBIA/ICR reference
DOUBLE(FROM)	;--Entry
START	;
PROMPT	;--PROMPT
FINISH	;--FINISH
EXIT	;--EXIT
DOUBLE1(FROM)	;--Entry
NEW	;
START1	;--RECYCLE
XXX
LIST	;-DISPLAY LIST TO THE SCREEN
PRMPT	;--PROMPT
VAL	;--VAL equal value
EXITNEW	;--EXIT
BACK	;
FORWARD	;
LOC	;--LOCATE CURSOR
HEAD	;--HEAD
SUB	;--LIST
SETUP	;--SET
PRMPT2	;--Yes and No prompt

External References

Name	Field # of Occurrence
FIND^DIC	XXX+22
LIST^DIC	START+5
^DIR	PROMPT+6, PRMPT+10, PRMPT2+6
$$CPT^ICPTCOD	FINISH+3, XXX+6, XXX+15, XXX+25, SUB+6
LOC^PXBCC	PROMPT+1, PRMPT+2, LOC+1, PRMPT2+2
WIN17^PXBCC	PROMPT+1, PRMPT+1, PRMPT2+1
$$CPTSCREN^PXBUTL	XXX+3, XXX+12
WAIT^PXBUTL	XXX+4, XXX+13, XXX+27
HELP^PXBUTL0	XXX+37, XXX+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NOT" Line Location: PXBGCPT2+5
Function Call: WRITE	Prompt: !!,"Enter '^' to quit, '-' for previous page." Line Location: PROMPT+2
Function Call: WRITE	Prompt: IOCUOFF,IOCUF,IOCUF Line Location: XXX+0
Function Call: WRITE	Prompt: IOCUON Line Location: XXX+16
Function Call: WRITE	Prompt: IOCUOFF,IOCUF,IOCUF Line Location: XXX+20
Function Call: WRITE	Prompt: IOCUON Line Location: XXX+30
Function Call: WRITE	Prompt: ! Line Location: XXX+37
Function Call: WRITE	Prompt: ! Line Location: XXX+38
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: XXX+22
Routine Call	DIC Line Location: START+5
Routine Call	DIR Line Location: PROMPT+6 PRMPT+10 PRMPT2+6

FileNo	Call Tags
^ICPT - [#81]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICPT("B"	START1+8, START1+10, XXX+2, XXX+3, XXX+6, XXX+9, XXX+10, XXX+12, XXX+15
^TMP("PXBTANA"	FINISH+3, EXIT+1!, EXITNEW+1!, BACK+1, BACK+2, FORWARD+1, FORWARD+2, SUB+1, SUB+3, SUB+4
^TMP("PXBTOTAL"	EXIT+1!, XXX+5, XXX+6, XXX+14, XXX+15, XXX+28, XXX+29, 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+7
LIST	PRMPT+11
LOC	DOUBLE+5, START+7, LIST+2
PRMPT2	LIST+11
SETUP	START+4
START	PROMPT+7, PROMPT+8
SUB	START+7
VAL	LIST+1, PRMPT2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	XXX+21~
ARRAY("DILIST"	XXX+23, XXX+24, XXX+25
BACK	DOUBLE+2~, DOUBLE+4, START+5, PROMPT+7, PROMPT+8, NEW+4
CNT	NEW+1~, SUB+3*
CODE	DOUBLE+2~, NEW+1~, XXX+21~, LIST+6, LIST+8, SUB+4, SUB+6, SUB+7
>> CYCL	XXX+39*
CYCLE	NEW+1~
>> DATA	NEW+5, START1+6, START1+7, START1+8, START1+9, XXX+2, XXX+8, XXX+9, XXX+10, XXX+20 , XXX+22, XXX+29, XXX+37, XXX+38
>> DIC("S"	DOUBLE+6
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!, EXITNEW+1!
>> ERROR	XXX+39*
FIELD	DOUBLE+2~, START+5, NEW+1~, START1+4, SETUP+2
FILE	DOUBLE+2~, START+5, NEW+1~, START1+2, SETUP+1
FIRST	DOUBLE+3~, FINISH+3, NEW+2~, SUB+4, SETUP+1*, SETUP+2
FROM	DOUBLE~, DOUBLE1~
HEADING	DOUBLE+2~, NEW+1~, XXX+43, LIST+3, SUB+2, SETUP+3
>> I	XXX+24*, XXX+25
>> IDATE	FINISH+3, XXX+3, XXX+6, XXX+12, XXX+15, XXX+25, SUB+6
IEN	XXX+21~
INDEX	NEW+1~, NEW+4*
>> IOBON	HEAD+1
>> IOCUF	XXX, XXX+20
>> IOCUOFF	XXX, XXX+20
>> IOCUON	XXX+16, XXX+30
>> IOCUU	HEAD+1
>> IOEDEOP	LOC+2
>> IOELEOL	HEAD+1
>> IOINHI	HEAD+1
>> IOINLOW	HEAD+1
IOM	HEAD+1
>> IOSGR0	HEAD+1
LL	START1+5~, START1+6*, START1+8, XXX+9
>> MIEN	XXX+25*
NAME	DOUBLE+2~, NEW+1~, LIST+7, LIST+8, SUB+6, SUB+7
NUM	DOUBLE+2~, DOUBLE+4, LIST+5
OK	NEW+1~
>> PXBCNT	PROMPT+1, PRMPT+1, PRMPT2+1
>> PXBMOD	XXX+4, XXX+13, XXX+27*
SCREEN	DOUBLE+2~, DOUBLE+3~, DOUBLE+4, DOUBLE+6, START+5, NEW+1~
>> SECOND	SETUP+1*
START	DOUBLE+2~, START+5, NEW+1~, NEW+5, START1+8, START1+10, XXX+2, XXX+9, XXX+10, BACK+1* , FORWARD+1*
START("IEN"	BACK+2, FORWARD+2
SUB	DOUBLE+2~, NEW+1~, NEW+5, LIST+4, LIST+5, LIST+6, LIST+7, LIST+8, PRMPT+4, PRMPT+6 , PRMPT+11, PRMPT+12, SUB+3, SUB+4, SUB+7
SUB2	NEW+2~, NEW+5, LIST+5, PRMPT+9
SUBT	XXX+2, XXX+3, XXX+5, XXX+6, XXX+7, XXX+10, XXX+11, XXX+12, XXX+14, XXX+15 , XXX+31!
TANA	EXITNEW+2!
TEMP	DOUBLE+3~
TITLE	DOUBLE+2~, START+2, NEW+1~, START1+1, HEAD+1
TMP	START1+5~, XXX+1~
TMP(	XXX+7*, XXX+11
TOTAL	NEW+2~, XXX+2, XXX+4, XXX+5, XXX+6, XXX+13, XXX+14, XXX+15, XXX+27, XXX+28 , XXX+29, XXX+36, XXX+40, LIST+1, LIST+11, PRMPT+5, EXITNEW+2!
TT	START1+5~, START1+6*, START1+8, XXX+9
U	FINISH+3, XXX+6, XXX+15, XXX+26, XXX+28, XXX+29, VAL+1, SUB+1, SUB+6
>> VAL	PROMPT+9, FINISH+3, EXIT+2, VAL+1*, EXITNEW+3
>> X	PROMPT+7, PROMPT+8, FINISH+3, LIST+1, PRMPT+11, PRMPT+12, VAL+1, PRMPT2+7, PRMPT2+8
XX	XXX+21~, XXX+25*, XXX+26, XXX+28, XXX+29
>> Y	XXX+23*, PRMPT2+7, PRMPT2+8

Customize PDF page

Package: PCE Patient Care Encounter