Routine: DGPTFM2

Call Graph Total: 19

Package	Total	Call Graph
Registration	12	ICDINFO^DGAPI ($$DATA2PCE,$$DELVFILE)^DGAPI1 Q^DGPTF ^DGPTFJ 801^DGPTFJC (,PRV)^DGPTFM (GETINFO,XREF)^DGPTFM21 REQ^DGPTFM3 Z^DGPTFM5 PCE^DGPTFQWK D^DGPTUTL (CPT,HELP)^DGPTUTL1
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR
DRG Grouper	2	$$GETDATE^ICDGTDRG $$CPT^ICPTCOD
Scheduling	1	CL^SDCO21

Package

Total

Call Graph

ICDINFO^DGAPI ($$DATA2PCE,$$DELVFILE)^DGAPI1 Q^DGPTF ^DGPTFJ 801^DGPTFJC (,PRV)^DGPTFM (GETINFO,XREF)^DGPTFM21 REQ^DGPTFM3
Z^DGPTFM5 PCE^DGPTFQWK D^DGPTUTL (CPT,HELP)^DGPTUTL1

VA Fileman

NOW^%DTC ^DIC ^DIE ^DIR

DRG Grouper

$$GETDATE^ICDGTDRG $$CPT^ICPTCOD

Scheduling

CL^SDCO21

Package	Total	Caller Graph
Registration	7	DGPTFJC DGPTFM DGPTFM1 DGPTFM21 DGPTFM3 DGPTFQWK DGPTFREL

Package

Total

Caller Graph

Registration

DGPTFJC DGPTFM DGPTFM1 DGPTFM21 DGPTFM3 DGPTFQWK DGPTFREL

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	ASK+5, QEL
ICDINFO^DGAPI	PCE+2
$$DATA2PCE^DGAPI1	PCE+3
$$DELVFILE^DGAPI1	FMDIE+1
Q^DGPTF	WRT+20
^DGPTFJ	WRT+21
801^DGPTFJC	WRT+13
^DGPTFM	ADD+3, ADD+5, ADD+8, JUMP+11, WRT, WRT+22, EXIT, ASK+2, ASK+4, ASK+11 , NOPROC, N+1, P1+2, P1+6, DC+4, QQ, QQA+7, QQA+8, QEL+5
PRV^DGPTFM	WRT+5, WRT+6
GETINFO^DGPTFM21	JUMP+2, SED
XREF^DGPTFM21	PCE+2
REQ^DGPTFM3	ED+2, JUMP+10, P1+5
Z^DGPTFM5	WRT+2, WRT+8
PCE^DGPTFQWK	P1+6, QEL+4
D^DGPTUTL	WRT+2, ASK+2, DC+4
CPT^DGPTUTL1	WRT+10
HELP^DGPTUTL1	ED, WRT+23, WRT+27
^DIC	ADD+3, JUMP+4, P1+5
^DIE	ASK+9, QEL+3, FMDIE+1
^DIR	ADD+5, WRT+19, ASK+2, ASK+4, P1+2, DC+4, QQ, QQA+7
$$GETDATE^ICDGTDRG	QQA+3
$$CPT^ICPTCOD	QQA+3
CL^SDCO21	JUMP, P1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,HEAD,?68 Line Location: WRT+0
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO,!! Line Location: WRT+1
Function Call: WRITE	Prompt: ?5,"CPT Record Date/Time: ",Y Line Location: WRT+2
Function Call: WRITE	Prompt: ?55,"Visit Service Category: ",$P(DGZPRF(J),U,8) Line Location: WRT+3
Function Call: WRITE	Prompt: !,?5,"Referring or Ordering Provider: " Line Location: WRT+4
Function Call: WRITE	Prompt: !,?5,"Rendering Provider: " Line Location: WRT+6
Function Call: WRITE	Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U) Line Location: WRT+7
Function Call: WRITE	Prompt: !! Line Location: WRT+8
Function Call: WRITE	Prompt: " Procedures: " Line Location: WRT+8
Function Call: WRITE	Prompt: ! Line Location: WRT+10
Function Call: WRITE	Prompt: ! Line Location: WRT+11
Function Call: READ	Prompt: "Enter <RET>: " Formatting: !! Timeout: DTIME Variable: X Line Location: WRT+27
Function Call: WRITE	Prompt: !,"CPT Record is being edited by another user" Line Location: PCE+1
Function Call: WRITE	Prompt: !,"PTF Record sent to PCE" Line Location: PCE+4
Function Call: WRITE	Prompt: @IOF Line Location: PCE+5
Function Call: WRITE	Prompt: !,^(I) Line Location: PCE+6
Function Call: WRITE	Prompt: !,"The PTF Record may not have been filed in PCE due to errors." Line Location: PCE+7
Function Call: WRITE	Prompt: !,"Press return to continue." Line Location: PCE+8
Function Call: WRITE	Prompt: !!,"CPT Records....Deleted" Line Location: ASK+10
Function Call: WRITE	Prompt: !!,*7,"No procedures to delete",! Line Location: NOPROC+0
Function Call: WRITE	Prompt: !!,"There are no 801 records that can be added to.",*7 Line Location: N+1
Function Call: WRITE	Prompt: !!,"CPT Code....Deleted" Line Location: QEL+2
Function Call: WRITE	Prompt: !,"CPT Record is being edited by another user" Line Location: ERR+0
Routine Call	DIE Line Location: ASK+9 QEL+3 FMDIE+1
Routine Call	DIC Line Location: ADD+3 JUMP+4 P1+5
Routine Call	DIR Line Location: ADD+5 WRT+19 ASK+2 ASK+4 P1+2 DC+4 QQ QQA+7

FileNo	Call Tags
^DGCPT(46 - [#46]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCPT(46 - [#46]	ED+7, ED+8, JUMP+1, ASK+6, MOB+4
^DGPT - [#45]	ADD+1, ADD+3, ED+2, ED+6, JUMP+11, WRT, PCE, PCE+4, PCE+9, ASK+2 , ASK+9, DC+4, QEL+5, MOB+1, MOB+2, MOB+3, LOCK
^ICPT - [#81]	QQA+2
^SC - [#44]	WRT+7

Label References

Name	Line Occurrences
$$LOCK	ED+4, ASK+4, QQA+8
ADD	WRT+23
ED	JUMP+8, WRT+25
EXIT	ED+2, NEXP+1
FMDIE	ED+5, ED+9, ASK+7, QEL+2
JUMP	JUMP+7
MOB	ADD+6, ED+2, JUMP+10, SET, ASK+11, P1+5, QEL+5, F
NEXP	SET
NOPROC	DEL+1
PCE	WRT+26
QQ	DC+1
SED	JUMP+4, P1+5
SET	WRT+24, NEXP+2, F
WRT	WRT+26, WRT+27

Name	Field # of Occurrence
^(0	ADD+1*, ASK+2, DC+4, MOB+5
^(9	ED+8, JUMP+1, ASK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	JUMP+4*
A1	QQA*, QEL, QEL+2!
>> ANS	DC+1, F
>> CPT	QQA*, QQA+2, QQA+3, QQA+6
DA	ED!, ED+3, ED+5, ED+7, ED+9, ED+10, JUMP+2, JUMP+5, JUMP+9!, ASK+7* , ASK+8, ASK+11!, P1+4, QEL, QEL+3, SED*
DA(1	ADD+2, ED+3, ASK+9, QEL+3
>> DFN	JUMP, PCE+2, PCE+3, P1+3, FMDIE+1
>> DGDIAG	JUMP+1, JUMP+7
DGI	ED+7, ED+8, ED+9, JUMP, JUMP+1, JUMP+2, JUMP+9!, ASK+5, ASK+6, ASK+7 , ASK+11!, P1+3
DGJUMP	ED+1*, JUMP, JUMP+8, JUMP+9!
DGNUM	WRT+1~, WRT+12*, WRT+19
DGPNUM	ASK+11!
DGPRD	ED+1, ED+6, ED+9, ED+11, JUMP, JUMP+9!, P1+3*, P1+5!, SED
DGPROC	ASK+11!
DGPSM	ADD+4, ADD+7, ADD+8, EXIT!, ASK+11!, MOB+8
>> DGPTSCRN	WRT+21*
>> DGPZ	DC+1*
>> DGST	WRT+13
>> DGVI	WRT+1
>> DGVO	WRT+1
DGZP	ADD+1~, ADD+7, ADD+8, ED+1, ED+3, ED+6, ED+8, ED+11, JUMP+1, JUMP+11 , SET, WRT, WRT+1, WRT+12, WRT+22, WRT+24, PCE+3, NEXP, NEXP+1, EXIT* , ASK+2, ASK+6, ASK+8, P1+3, DC+4, DC+5, QQA, QEL, QEL+1, QEL+3 , QEL+4, F*, FMDIE+1
DGZPRF	ADD+7, SET, WRT+9, DEL+1, ASK+1, N+1, P1, DC+3, MOB!, MOB+9*
DGZPRF(	ADD+7, ED+1, ED+3, ED+6, ED+8, ED+11, JUMP+1, JUMP+11, SET!, WRT , WRT+1, WRT+3, WRT+4, WRT+5, WRT+6, WRT+7, WRT+9, WRT+12, WRT+24, NEXP+1 , ASK+2, ASK+6, ASK+8, P1+3, DC+4, DC+5, QQA, QEL, QEL+1, QEL+3 , QEL+4, MOB+3, MOB+4, MOB+5, MOB+6, MOB+7, MOB+8!
DIC	ADD+2, ADD+3!, JUMP+5, JUMP+9!, P1+4*, P1+5!
DIC("S"	JUMP+6, P1+4
DIC(0	ADD+2, ED+4, JUMP+5, P1+4
DIE	ED+3, ED+9, JUMP+2, JUMP+9!, ASK+7, ASK+8, QEL+2, QEL+3, SED, FMDIE+1! , ERR!
DIK	ASK+11!
DIR	WRT+20!, ASK+2!, ASK+4!, P1+2!, DC+4!, QQ!, QQA+7!
DIR("?"	WRT+18*
DIR("??"	WRT+19, ASK+1, P1+1, DC+3
DIR("A"	ADD+5, WRT+14, WRT+15, WRT+16, WRT+17, ASK, ASK+3, P1, DC+2, QQ , QQA+1, QQA+5, QQA+6*
DIR("B"	ADD+5, WRT+19, ASK+4, QQA+7
DIR(0	ADD+5, WRT+19, ASK+1, ASK+4, P1, DC+3, QQ, QQA+7
>> DIRUT	ADD+5, WRT+20, ASK+2, DC+4, QQ
DLAYGO	ADD+2, ADD+3!, JUMP+5, JUMP+9!, P1+4*, P1+5!
>> DOUT	ED+5
DR	ED+4, ED+9, JUMP+2, JUMP+9!, ASK+7, ASK+8, QEL, QEL+2!, QEL+3, SED
DTIME	WRT+27, PCE+8
DUOUT	JUMP+1!, JUMP+3, JUMP+4, JUMP+7!, JUMP+8!
F	MOB+3, MOB+5, MOB+8, MOB+9!
>> FLAG	ED+2, ED+5, ED+10
>> H	MOB, MOB+1, MOB+2
>> HEAD	WRT
I	ADD+7, ADD+8!, WRT+11, WRT+12!, MOB, MOB+2, MOB+3, MOB+9!
>> I2	MOB+1, MOB+3, MOB+4, MOB+5, MOB+6, MOB+7, MOB+8, MOB+9
IOF	WRT, PCE+5
IOSL	WRT+11
J	WRT*, WRT+1, WRT+3, WRT+4, WRT+5, WRT+6, WRT+7, WRT+9, WRT+12!
K	WRT+9, WRT+12!, MOB+3, MOB+4*, MOB+5, MOB+9!
K1	MOB+3, MOB+5, MOB+6, MOB+7, MOB+9!
L	WRT+5, WRT+6, WRT+12!, MOB+4, MOB+6, MOB+7
>> M	MOB, MOB+6
N	QQA+3, QQA+4, QQA+5, MOB*, MOB+4, MOB+9!
>> PS2	DC+5, DC+6, QQ
>> PS2(	DC+5*, QQA, QEL
>> PTF	ADD+1, ADD+2, ADD+3, ED+2, ED+3, ED+6, ED+7, JUMP+1, JUMP+5, JUMP+11 , WRT, PCE, PCE+2, PCE+3, PCE+4, PCE+9, ASK+2, ASK+6, ASK+8, ASK+9 , P1+4, DC+4, QQA+3, QEL+3, QEL+5, MOB+1, MOB+2, MOB+3, MOB+4, SED , FMDIE+1, LOCK
REC	ED+3, ED+9, JUMP+2, ASK+7, QEL+1, SED, FMDIE+1!, ERR!
>> RES	PCE+3, PCE+4, FMDIE+1
RFL	JUMP+10!
>> SDCLY	JUMP, P1+3
>> SDCLY(	MOB
U	ADD+5, ADD+7, ED+11, WRT+3, WRT+4, WRT+5, WRT+6, WRT+7, WRT+9, DEL+1 , ASK+1, N+1, P1, DC+3, QQA, QQA+4, QQA+5, QEL, MOB+6
>> X	ADD+8, ED, ED+1, ED+2, JUMP+8, WRT+20, WRT+21, WRT+22, WRT+23, WRT+24 , WRT+25, WRT+26, WRT+27, PCE+8
XREF	JUMP+9!
Y	ADD+3, ADD+4, ADD+5, ED+5, ED+7, ED+10, JUMP+4, WRT+1, WRT+2, ASK+2 , ASK+3, ASK+4, ASK+11!, P1+2, P1+3, P1+5!, DC+4*, QQ, QQA, QQA+7 , SED, FMDIE+1
Z	WRT+1, WRT+8, WRT+12!

Customize PDF page

Package: Registration

Routine: DGPTFM2

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NOPROC
ERR
DC	;DELETE A CPT PROCEDURE
DEL	;DELETE A CPT RECORD
PCE
SET
NEXP
QEL
SED
ASK
LOCK()
P1
FMDIE	;Prompt user for questions and file answers (using DIE)
F
ED
N	;ADD CPT CODES TO CPT RECORD
JUMP
WRT
QQ
QQA
ADD	;ADD CPT RECORD
EXIT
MOB