Routine: DGPTFM6

Package	Total	Call Graph
Registration	9	Q^DGPTF ^DGPTFJ 601^DGPTFJC ^DGPTFM E^DGPTFM1 R^DGPTFM4 Z^DGPTFM5 CHK601^DGPTSCAN D^DGPTUTL
DRG Grouper	2	$$ICDOP^ICDCODE $$GETDATE^ICDGTDRG
VA Fileman	2	^DIC ^DIE

Package

Total

Call Graph

Registration

Q^DGPTF ^DGPTFJ 601^DGPTFJC ^DGPTFM E^DGPTFM1 R^DGPTFM4 Z^DGPTFM5 CHK601^DGPTSCAN
D^DGPTUTL

DRG Grouper

$$ICDOP^ICDCODE $$GETDATE^ICDGTDRG

VA Fileman

^DIC ^DIE

Package	Total	Caller Graph
Registration	4	DGPTFJC DGPTFM DGPTFM1 DGPTTS
Integrated Billing	1	IB20PT83

Package

Total

Caller Graph

Registration

DGPTFJC DGPTFM DGPTFM1 DGPTTS

Integrated Billing

IB20PT83

Entry Points

External References

Name	Field # of Occurrence
Q^DGPTF	WRT+8
^DGPTFJ	WRT+9
601^DGPTFJC	WRT+5
^DGPTFM	EN, EN+1, T+2, T+3, WRT, NEXP+1, P+3, P1, P2+2, FY86+1 , FY86+2
E^DGPTFM1	E+1
R^DGPTFM4	R+1
Z^DGPTFM5	WRT, WRT+2
CHK601^DGPTSCAN	EDIT+1
D^DGPTUTL	WRT
^DIC	T+2
^DIE	EDIT+1, P2+2, FY86+2
$$ICDOP^ICDCODE	WRT+2
$$GETDATE^ICDGTDRG	WRT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Data cannot be entered into these fields until after 10/1/1987" Line Location: EN+0
Function Call: WRITE	Prompt: !!,"Data can not be entered into these fields until after 10/1/1987" Line Location: EN+1
Function Call: WRITE	Prompt: @IOF,HEAD,?68 Line Location: WRT+0
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO,!! Line Location: WRT+0
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO,!! Line Location: WRT+0
Function Call: WRITE	Prompt: $S($D(^DIC(42.4,+$P(P(DGZP),U,2),0)):$P(^(0),U),1:""),! Line Location: WRT+1
Function Call: WRITE	Prompt: " Number of Dialysis Treatments: ",$P(P(DGZP),U,4),! Line Location: WRT+1
Function Call: WRITE	Prompt: !! Line Location: WRT+2
Function Call: WRITE	Prompt: " Procedures: " Line Location: WRT+2
Function Call: WRITE	Prompt: $S(+DGPTTMP>0&($P(DGPTTMP,U,10)):$P(DGPTTMP,U,5)_" ("_$P(DGPTTMP,U,2)_")",1:"**************"_L),!?19 Line Location: WRT+3
Function Call: WRITE	Prompt: ! Line Location: WRT+4
Function Call: WRITE	Prompt: "Enter <RET> to continue, 1-2 to edit,",!,"'T' to add a Procedure Segment, '^N' for screen N, or '^' to abort: <",DGNUM,">//" Line Location: WRT+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: WRT+7
Function Call: WRITE	Prompt: !,"Enter '^' to stop display and edit of data",!,"'^N' to jump to screen #N (appears in upper right of screen as <N>)",!,"<RET> to continue on to next screen or 1-2 to edit:" Line Location: HELP+0
Function Call: WRITE	Prompt: !?10,"1-Procedure information",!,?10,"2-Procedure codes",!,"You may also enter any combination of the above, separated by commas (ex:1,2)",! Line Location: HELP+1
Function Call: READ	Prompt: "Enter <RET>: " Formatting: !! Timeout: DTIME Variable: X Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"There are no procedure records that can be added to.",*7 Line Location: P+3
Function Call: READ	Timeout: DTIME Variable: DGRC Line Location: P1+0
Function Call: WRITE	Prompt: !!,"Add to procedure record <",L,"> : " Line Location: P1+0
Function Call: WRITE	Prompt: !!,"No more procedures can be added.",*7 Line Location: FY86+1
Routine Call	DIE Line Location: EDIT+1 P2+2 FY86+2
Routine Call	DIC Line Location: T+2

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	T+1, T+2, SET+1, WRT, MOB, BS+1, BS+2, P, GETVAR+1, GETVAR+2 , GETVAR+3
^DGPTF(	EN
^DIC(42.4 - [#42.4]	WRT+1

Name	Line Occurrences
@(	EN+2
EDIT	WRT+11
FY86	P, P+1
HELP	EDIT, WRT+10, WRT+12
MOB	T+2, EDIT+1, SET
NEXP	SET
P1	P2
P2	P+4
SET	NEXP+2
T	WRT+10
WRT	HELP+2

Name	Field # of Occurrence
^(	MOB, BS+1, GETVAR+1, GETVAR+3
^("401P"	GETVAR+2
^(0	T+1*, SET+1, WRT, WRT+1, BS+2
^(70	EN, P

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	P1+1
DA	EDIT, EDIT+1!, WRT+11, BS+1, P2+2, FY86+2
DA(1	T+2, P2+1, P2+2*
DGADD	EDIT+1!
DGJUMP	EDIT, EDIT+1!
>> DGMOVM	BS+2*
DGNUM	WRT+5*, WRT+6, WRT+8!
>> DGPC	T+2, MOB+1*, P+2
>> DGPROC(	T+3*
>> DGPROCD	T+2*
>> DGPROCI	WRT*
>> DGPROCM	T+2*, T+3
>> DGPTF	EDIT*
>> DGPTOUT	WRT+7*
>> DGPTSCRN	WRT+9*
>> DGPTTMP	WRT+2*, WRT+3
>> DGRC	P+4, P1, P1+1*, P2, P2+1, P2+2
>> DGST	WRT+5
>> DGVI	WRT
>> DGVO	WRT
>> DGZP	T+1, T+2, T+3, SET, SET+1, WRT, WRT+1, WRT+2, WRT+5, WRT+11 , NEXP+1
DIC	T+2*, EDIT+1!
DIC(0	T+2*
DIE	EDIT, EDIT+1!, P2+1, P2+2!, FY86+2!
>> DP	P2+1, FY86+2
DR	EDIT, EDIT+1!, P2+1, P2+2!, FY86, FY86+1, FY86+2*!
DT	EN+1, P+1
DTIME	WRT+7, HELP+2, P1
>> HEAD	WRT
>> I	T+2, WRT+2, WRT+4, MOB, BS+1, BS+2, P+2, P2+1, GETVAR+1, GETVAR+3*
>> I1	MOB, MOB+1, GETVAR+1, GETVAR+2, GETVAR+3*
IOF	WRT
IOSL	WRT+4
>> J	P+2, FY86
>> J1	GETVAR+2*
>> L	WRT, WRT+2, WRT+3, P+2, P+3, P+4, P1, P2
>> L2	P+2*
P	SET, MOB!, GETVAR+3!
P(	T+2, SET!, SET+1, WRT, WRT+1, WRT+2, WRT+5, WRT+11, NEXP+1, MOB! , P+2, P2+1, P2+2, GETVAR+3
P1	SET+1*, MOB!
P2	MOB!, GETVAR+2!
P2(	GETVAR+2*
>> PM	GETVAR+1*
>> PROC	FY86, GETVAR+2*
>> PTF	EN, T+1, T+2, EDIT, SET+1, WRT, WRT+2, MOB, BS+1, BS+2 , P, P2+1, P2+2, FY86+2, GETVAR+1, GETVAR+2, GETVAR+3
>> S(	GETVAR+1*
>> SU	GETVAR+2*
U	T+2, WRT+1, WRT+2, WRT+3, BS+2, P+2, P1, P2+1, FY86, GETVAR+2
>> X	EN+2, T+3, EDIT, EDIT+1, WRT+7, WRT+8, WRT+9, WRT+10, WRT+11, WRT+12 , HELP+2*
>> Y	T+2, WRT*
>> Z	WRT, WRT+2, P1, P2*

Customize PDF page

Package: Registration

Routine: DGPTFM6

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

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
P2
SET
E	;EDIT PROCEDURE RECORD
HELP
P1
EDIT
GETVAR	;CALLED FROM GET+1^DGPTFM
NEXP	;S DGZP=DGZP+1 G ^DGPTFM:'$D(P(DGZP)),SET
P
WRT
EN
FY86
T	;ADD PROCEDURE RECORD
BS	;CALLED FROM [DG601]
MOB
R	;DELETE PROCEDURE RECORD