Routine: PXBMCPT2

Call Graph Total: 15

Package	Total	Call Graph
PCE Patient Care Encounter	14	(CLEAR1,FULL0,LOC,TERM,WIN17)^PXBCC EN0^PXBDCPT (PRINT,REQ,RSET)^PXBDREQ CPT^PXBGCPT PRV^PXBGPRV CPT^PXBPCPT MOD^PXBPMOD PRV^PXBPPRV QUA^PXBPQUA EN0^PXBSTOR (HDR,PRIM)^PXBUTL KILL^PXBUTL3 REMOVE^PXCEVFIL EN1^PXKMAIN
DRG Grouper	1	$$CODM^ICPTCOD

Package

Total

Call Graph

(CLEAR1,FULL0,LOC,TERM,WIN17)^PXBCC EN0^PXBDCPT (PRINT,REQ,RSET)^PXBDREQ CPT^PXBGCPT PRV^PXBGPRV CPT^PXBPCPT MOD^PXBPMOD PRV^PXBPPRV
QUA^PXBPQUA EN0^PXBSTOR (HDR,PRIM)^PXBUTL KILL^PXBUTL3 REMOVE^PXCEVFIL EN1^PXKMAIN

DRG Grouper

$$CODM^ICPTCOD

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXBMCPT

Package

Total

Caller Graph

PCE Patient Care Encounter

PXBMCPT

Entry Points

Name	Comments	DBIA/ICR reference
CPTXIT	;----EXIT AND CLEAN UP
TEST3	;---THIRD SERERIO FOR PROMPTING FOR CPT'S
TEST3P	;--GET PROVIDER
R2
HEADER	;--Display header and list CPT codes and associated modifiers
TEST3Q	;--Prompt of the QUANTITY of the CPT code
CPT(PXBVST)	;---Real entry point
TEST3C	;--Display the CPT codes
P	;--Obtain the correct provider

External References

Name	Field # of Occurrence
$$CODM^ICPTCOD	R2+12
CLEAR1^PXBCC	CPTXIT+4
FULL0^PXBCC	R2+10, CPTXIT+3
LOC^PXBCC	HEADER+3, HEADER+8
TERM^PXBCC	TEST3+2
WIN17^PXBCC	TEST3Q+2, HEADER+7
EN0^PXBDCPT	HEADER+6
PRINT^PXBDREQ	R2+7
REQ^PXBDREQ	HEADER+2
RSET^PXBDREQ	TEST3C+3, R2+3, R2+4, R2+15, TEST3Q+6, TEST3P+8
CPT^PXBGCPT	HEADER+5
PRV^PXBGPRV	TEST3P+2
CPT^PXBPCPT	R2+2
MOD^PXBPMOD	R2+14
PRV^PXBPPRV	TEST3P+3
QUA^PXBPQUA	TEST3Q+3
EN0^PXBSTOR	TEST3Q+10, TEST3P+6
HDR^PXBUTL	HEADER+1
PRIM^PXBUTL	CPTXIT+2
KILL^PXBUTL3	CPTXIT+1
REMOVE^PXCEVFIL	TEST3Q+5, TEST3Q+15
EN1^PXKMAIN	TEST3Q+11, TEST3P+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is not the entry into this routine" Line Location: PXBMCPT2+3
Function Call: WRITE	Prompt: IOEDEOP Line Location: R2+2
Function Call: WRITE	Prompt: IOSC Line Location: TEST3P+2
Function Call: WRITE	Prompt: IOCUU Line Location: TEST3P+3
Function Call: WRITE	Prompt: IOEDEOP Line Location: HEADER+4

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	CPT+1, CPT+13
^TMP("PXBDCPT"	CPT+15*, CPTXIT+9!
^TMP("PXBSTOR"	CPTXIT+9!
^TMP("PXBTANA"	CPTXIT+10!
^TMP("PXBTOTAL"	CPTXIT+10!
^TMP("PXK"	CPTXIT+9!
^TMP("PXMODARR"	R2+13!

Name	Line Occurrences
CPTXIT	R2+2, R2+4
HEADER	TEST3C+1
R2	R2+2
TEST3	R2+15, TEST3Q+4
TEST3C	R2+3, TEST3Q+14, TEST3P+11
TEST3P	TEST3P+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CPT+9~
CLINIC	CPT+10~, CPT+13*
COM	CPT+8~, TEST3Q+9*
CPTQUA	CPT+7~
CYCL	CPT+9~
DATA	CPT+9~, R2+3, R2+4, R2+15, TEST3P+3
DEL	CPT+8~, TEST3Q+1, TEST3Q+12, TEST3Q+14
DIRUT	R2+4!
DOUBLEQQ	CPT+7~, TEST3+1
>> EDATA	TEST3Q+4
ENTRY	CPT+7~
ERROR	CPT+7~, R2!, R2+2
FIRST	CPT+10~, CPT+15, TEST3+1
FIRSTCPT	CPT+9~, CPT+15*
FPRI	CPT+7~, TEST3P+1~, TEST3P+2
FROM	CPT+8~, CPT+9~, TEST3P+3*
I	CPT+6~
IDATE	CPT+6~, CPT+9~, R2+14
>> IOCUU	TEST3P+3
>> IOEDEOP	R2+2, HEADER+4
>> IOSC	TEST3P+2
J	CPT+6~
KFIRST	CPT+9~
LEAVE	CPT+11~
NAME	CPT+7~
NOREV	CPT+8~
PATIENT	CPT+11~, TEST3Q+10, TEST3P+6
POV	CPT+6~
PRI	CPT+6~
PRIP	CPT+6~
PRIPOV	CPT+6~
PRISEC	CPT+6~
PROMPT	CPT+9~, CPT+13, TEST3Q+3
PRV	CPT+6~
PRVDR	TEST3P+1~, TEST3P+2
PXBCNT	CPT+6~, TEST3Q+2, TEST3P+1~, TEST3P+2, HEADER+7
PXBDPRV	TEST3P+5!
PXBENT	CPT+6~
>> PXBEXIT	CPT+15*, R2+2
PXBKY	TEST3P+1~, TEST3P+2, CPTXIT+5!
PXBNCPT	CPT+10~
PXBNCPT(	R2+16*
PXBNPOV	CPT+10~
PXBNPRV	CPT+10~
>> PXBPAT	R2+14
PXBPMT	CPT+11~
PXBPRV	CPT+7~
PXBSAM	TEST3P+1~, TEST3P+2, CPTXIT+5!
PXBSAVE	CPT+7~
PXBSKY	TEST3P+1~, TEST3P+2, CPTXIT+5!
>> PXBSOURC	R2+12
PXBUT	CPT+7~, R2+4!
PXBVST	CPT~, CPT+1, CPT+13, R2+14, TEST3Q+10, TEST3P+2, TEST3P+6, HEADER+1, HEADER+5
>> PXBVSTDT	R2+12
PXBWIN	CPT+10~
PXKVST	CPTXIT+5!
PXMDCNT	CPT+11~, R2+12*, R2+14
PXMODSTR	CPT+11~, R2!, R2+14
PXMREQ	CPT+11~, R2+1*, R2+3!, R2+4!, R2+14, R2+15!, TEST3Q+6!, TEST3Q+10, TEST3P+6, TEST3P+9!
PXNEWIEN	CPT+11~, R2+1, R2+11, R2+16, TEST3Q+5, TEST3Q+15
PXTLNS	CPT+11~
QUA	CPT+6~
REQE	CPT+8~, CPT+12*
REQI	CPT+8~, CPT+12, R2+12, R2+14, R2+16, TEST3Q+9, TEST3Q+10, TEST3P+4, TEST3P+6, TEST3P+10*
SAVE	CPT+6~
>> TEST	CPT+2*
VAR	CPT+7~
VISIT	CPT+6~

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXBMCPT2

Information

Source Information