Routine: PXBPCPT

Call Graph Total: 11

Package	Total	Call Graph
PCE Patient Care Encounter	9	(LOC,REVCPT,TERM,WIN17)^PXBCC DISCPT4^PXBDCPT $$DOUBLE1^PXBGCPT2 EN1^PXBHLP0 (ADDM,DELM)^PXBPCPT1 WHICH^PXBPWCH ($$CPTOK,CASE,TIMES)^PXBUTL HELP^PXBUTL0 HELP1^PXBUTL1
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

(LOC,REVCPT,TERM,WIN17)^PXBCC DISCPT4^PXBDCPT $$DOUBLE1^PXBGCPT2 EN1^PXBHLP0 (ADDM,DELM)^PXBPCPT1 WHICH^PXBPWCH ($$CPTOK,CASE,TIMES)^PXBUTL HELP^PXBUTL0
HELP1^PXBUTL1

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBMCPT PXBMCPT2

Package

Total

Caller Graph

PCE Patient Care Encounter

PXBMCPT PXBMCPT2

Entry Points

Name	Comments	DBIA/ICR reference
CPTX	;--CPT Exit and cleanup
C	;--SECOND ENTRY POINT
FIN	;--FINISH CPT
M	;--------If Multiple entries have been entered
LI	;--------If picked a line number display
MULTI(CPTCD)	;--Prompt user to Edit existing CPT code or Add as new entry
DEL	;--------If Multiple deleting
C1	;----Third entry point
CPT	;--CPT CODE
MOD	;---Separate CPT modifiers from CPT codes in entry string, if entered

External References

Name	Field # of Occurrence
^DIC	LI+53, FIN+3
^DIR	MULTI+7
LOC^PXBCC	C+4, C+5, C+6, C+8
REVCPT^PXBCC	LI+5, LI+24, LI+32, LI+59
TERM^PXBCC	CPT+5
WIN17^PXBCC	C+12
DISCPT4^PXBDCPT	C1+12, LI+4, LI+16, LI+58
$$DOUBLE1^PXBGCPT2	LI+52
EN1^PXBHLP0	LI+40, LI+43
ADDM^PXBPCPT1	M+1
DELM^PXBPCPT1	DEL+1
WHICH^PXBPWCH	LI+35
$$CPTOK^PXBUTL	FIN+5
CASE^PXBUTL	C1+5
TIMES^PXBUTL	LI+18
HELP^PXBUTL0	FIN+4
HELP1^PXBUTL1	FIN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IOSC Line Location: C+1
Function Call: WRITE	Prompt: IOUON,"...There are "_$G(PXBCNT)_" PROCEDURES associated with this encounter.",IOUOFF,IOELEOL Line Location: C+4
Function Call: WRITE	Prompt: IOUON,"...There is "_$G(PXBCNT)_" PROCEDURE associated with this encounter.",IOUOFF,IOELEOL Line Location: C+5
Function Call: WRITE	Prompt: IOUON,"...There are "_$G(PXBCNT)_" PROCEDURES associated with this encounter.",IOUOFF,IOELEOL Line Location: C+6
Function Call: WRITE	Prompt: !,"Enter PROCEDURE (CPT CODE): " Line Location: C+13
Function Call: WRITE	Prompt: !,"Enter ",IOINHI,"NEXT",IOINLOW," PROCEDURE (CPT CODE): " Line Location: C+14
Function Call: READ	Timeout: DTIME Variable: DATA Line Location: C+15
Function Call: WRITE	Prompt: IOELEOL Line Location: C+15
Function Call: WRITE	Prompt: DATA Line Location: C1+7
Function Call: WRITE	Prompt: IOCUB,IOECH Line Location: LI+7
Function Call: WRITE	Prompt: DATA Line Location: LI+10
Function Call: WRITE	Prompt: IORC,IOCUU,IOEDEOP,! Line Location: LI+57
Function Call: WRITE	Prompt: IOCUF,IOCUF,IORVON,"INACTIVE!--",IORVOFF Line Location: FIN+6
Function Call: WRITE	Prompt: !,IOINHI,"--WARNING!",IOINLOW," Currently stored Provider of service:-",IOINHI,PREDOC,IOINLOW Line Location: CPTX+5
Function Call: WRITE	Prompt: IOEDEOP Line Location: CPTX+8
Routine Call	DIC Line Location: LI+53 FIN+3
Routine Call	DIR Line Location: MULTI+7

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	CPT+4, C1+7, FIN+8
^IBE(357.69 - [#357.69]	MULTI+5
^TMP("PXBDCPT"	LI+30
^TMP("PXK"	C+13, C+14

Name	Line Occurrences
$$MULTI	LI+19
C	C1+12, LI+39, FIN+4, FIN+5
C1	M+2, DEL+3, LI+15, LI+34, LI+41, LI+54
CPTX	C1+1, C1+9, C1+10, DEL+2
FIN	LI+11, LI+36, LI+41
LI	LI+34
MOD	DEL+5, LI+46

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAD	CPT+3~
CPT	CPT+3~, FIN+7*, FIN+8, FIN+13, FIN+15, FIN+17, FIN+21, FIN+22, FIN+23, FIN+24 , FIN+26, FIN+27, FIN+28, CPTX+6
CPTCD	MULTI~, MULTI+5, MULTI+6
>> CPTQUA	LI+8, LI+25, LI+60, FIN+17, FIN+24*
>> CYCL	C+3
DA	MULTI+2~
>> DATA	C+15, C1+1, C1+2, C1+3, C1+4, C1+7, C1+9, C1+10, C1+12, DEL+2 , LI+2, LI+4, LI+5, LI+6, LI+7, LI+8, LI+9, LI+11, LI+15, LI+16 , LI+18, LI+19, LI+21, LI+34, LI+35, LI+36, LI+39, LI+40, LI+41, LI+44 , LI+45, LI+47, LI+49, LI+53, LI+54, CPTX+2, CPTX+3, MOD+1, MOD+2, MOD+3
DIC	CPT+2~, LI+53, FIN+3
DIC("S"	CPT+8*
DIC(0	LI+53, FIN+3
DIR	MULTI+2~
DIR("A"	MULTI+4, MULTI+5, MULTI+6*
DIR(0	MULTI+3, MULTI+5
DOUBLEQQ	CPT+3~, CPT+6, C+4, C+5, C+6, LI+42
DTIME	C+15
DUZ	CPT+4, C1+7, FIN+8
EDATA	CPT+2~, C+15, C1+3, C1+4, LI+49, LI+53, MOD+3
>> FROM	LI+52*
I	CPT+3~, LI+7*
>> IDATE	FIN+5
>> IOCUB	LI+7
>> IOCUF	FIN+6
>> IOCUU	LI+57
>> IOECH	LI+7
>> IOEDEOP	LI+57, CPTX+8
>> IOELEOL	C+4, C+5, C+6, C+15
>> IOINHI	C+14, CPTX+5
>> IOINLOW	C+14, CPTX+5
>> IORC	LI+57
>> IORVOFF	FIN+6
>> IORVON	FIN+6
>> IOSC	CPT+5, C+1
>> IOUOFF	C+4, C+5, C+6
>> IOUON	C+4, C+5, C+6
LINE	CPT+2~, LI+21, LI+24, LI+25, LI+59, LI+60
NF	CPT+3~, M+2, DEL+3
>> NLINE	LI+29, LI+31, LI+32
OK	CPT+3~, FIN+5*, FIN+6
PREDOC	FIN+12, FIN+20, CPTX+4, CPTX+5, CPTX+7!
>> PXBCNT	C+4, C+5, C+6, C+12, LI+2
PXBDPRV	CPTX+7!
>> PXBEXIT	C1+1, CPTX+2
>> PXBKY(	LI+15, LI+16, LI+21, LI+57, LI+58, LI+59, FIN+10, FIN+18, FIN+20
>> PXBNCPT	FIN+9
>> PXBNCPT(	FIN+27, FIN+28
>> PXBNCPTF	FIN+9*
>> PXBPRV(	FIN+13, FIN+15, FIN+16, FIN+17, FIN+21, FIN+22, FIN+23, FIN+24, CPTX+6
>> PXBRRR	C1+1*, CPTX+3
>> PXBSAM(	LI+4, LI+8, LI+9, LI+16, LI+25, LI+31, LI+60, FIN+1, FIN+12, FIN+17 , FIN+20, FIN+24
>> PXBSKY(	FIN+11
PXBUT	CPT+2~, C1+1*
PXEDIT	CPT+3~, CPT+6, LI+15, LI+19, LI+23, LI+27, LI+34
>> PXMODSTR	MOD+2*
PXPG	LI+28~, LI+30*, LI+31
>> PXTLNS	C+11
Q	CPT+3~, LI+17!, LI+20, LI+27, LI+33, LI+34
Q(	LI+31
Q(0	LI+26
>> REQE	FIN+1, FIN+2, FIN+13, FIN+15, FIN+16, FIN+17, FIN+21, FIN+22, FIN+23, FIN+24 , FIN+26, CPTX+1, CPTX+5, CPTX+6
>> REQI	FIN+11, FIN+14, FIN+15, FIN+22, FIN+25, FIN+27, FIN+28, CPTX+6*
SELINE	CPT+2~, LI+6, LI+26, LI+33!, FIN+1, FIN+10, FIN+11, FIN+12, FIN+18
TIMED	CPT+2~, CPT+7*, C1+1
U	LI+45
>> UDATA	LI+41, LI+48*, LI+49
>> VAL	LI+52*, LI+53
>> WHAT	CPTX+2
X	CPT+3~, LI+53, FIN+3, MULTI+2~
XFLAG	CPT+2~, LI+3, LI+11, LI+22, LI+36
Y	CPT+3~, LI+11, LI+36, LI+47, LI+49, LI+52*, LI+54, LI+57, LI+58, LI+59 , FIN+3, FIN+4, FIN+5, FIN+25, MULTI+2~, MULTI+8, MULTI+9
Y(0	FIN+7, FIN+10, FIN+18, FIN+20

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXBPCPT

Information

Source Information