Routine: DGPTFM3

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Registration	7	ICDINFO^DGAPI (CKSCI,PRV)^DGPTFM MOB^DGPTFM2 XREF^DGPTFM21 HEAD^DGPTFMO D^DGPTUTL CPT^DGPTUTL1
DRG Grouper	3	$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG $$CPT^ICPTCOD
VA Fileman	2	^DIK ^DIR
Scheduling	1	CL^SDCO21

Package

Total

Call Graph

Registration

ICDINFO^DGAPI (CKSCI,PRV)^DGPTFM MOB^DGPTFM2 XREF^DGPTFM21 HEAD^DGPTFMO D^DGPTUTL CPT^DGPTUTL1

DRG Grouper

$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG $$CPT^ICPTCOD

VA Fileman

^DIK ^DIR

Scheduling

CL^SDCO21

Package	Total	Caller Graph
Registration	2	DGPTFM2 DGPTFQWK

Package

Total

Caller Graph

Registration

DGPTFM2 DGPTFQWK

Entry Points

External References

Name	Field # of Occurrence
ICDINFO^DGAPI	LOOP+1
CKSCI^DGPTFM	LOOP+13
PRV^DGPTFM	LOOP+3, LOOP+4
MOB^DGPTFM2	PF
XREF^DGPTFM21	LOOP+1
HEAD^DGPTFMO	LOOP+18
D^DGPTUTL	LOOP+2
CPT^DGPTUTL1	LOOP+8
^DIK	REQ+3, REQ+7, REQ+12
^DIR	END
$$ICDDX^ICDCODE	LOOP+11
$$GETDATE^ICDGTDRG	REQ+8, LOOP+11
$$CPT^ICPTCOD	REQ+8
CL^SDCO21	LOOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No CPT record has been filed because no performing provider was specified." Line Location: REQ+3
Function Call: WRITE	Prompt: $P(N,U,2)," ",$P(N,U,3)," not filed because no diagnosis 1 was entered." Line Location: REQ+8
Function Call: WRITE	Prompt: !!,"No CPT record has been filed because no CPT codes were filed." Line Location: REQ+12
Function Call: WRITE	Prompt: !,J,"-CPT Capture Date/Time: ",Y Line Location: LOOP+2
Function Call: WRITE	Prompt: " (cont.)" Condition for execution: ($P(DGZPRF,U,2)-1!($G(PGBRK))) Line Location: LOOP+2
Function Call: WRITE	Prompt: !,?5,"Referring or Ordering Provider: " Line Location: LOOP+3
Function Call: WRITE	Prompt: !,?5,"Rendering Provider: " Line Location: LOOP+4
Function Call: WRITE	Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U) Line Location: LOOP+5
Function Call: WRITE	Prompt: !,?2,PS2," " Line Location: LOOP+8
Function Call: WRITE	Prompt: !,?4 Line Location: LOOP+9
Function Call: WRITE	Prompt: DS," Related Diagnosis ",DS Line Location: LOOP+9
Function Call: WRITE	Prompt: !,?8,CD," ",$P(N,U,3) Line Location: LOOP+12
Function Call: WRITE	Prompt: ! Line Location: END+0
Routine Call	DIR Line Location: END

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

Name	Line Occurrences (* Changed, ! Killed)
^DGCPT(46 - [#46]	REQ+5, REQ+6, REQ+7, RESEQ+4, RESEQ+6*
^DGPT - [#45]	REQ+2, PF
^SC - [#44]	LOOP+5

Name	Line Occurrences
$$CHKGAP	RESEQ+6
END	PF+1
LOOP	LOOP+18
REQQ	REQ+1, REQ+2, REQ+10
RESEQ	REQ+4
RESEQDGN	RESEQ+6

Name	Field # of Occurrence
^(9	REQ+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CD	LOOP+10, LOOP+11, LOOP+12, LOOP+14*, END+1!
>> CKSCI	LOOP+10
>> CPT	REQ+7*, REQ+8
CPTINFO	RESEQ+2~, RESEQ+4, RESEQ+5, RESEQ+6, RESEQDGN~, RESEQDGN+8
>> D0	PF
DA	REQ+2, REQ+3!, REQ+7, REQ+11*, REQ+12!
DA(1	REQ+2, REQ+11
>> DFN	PF*, LOOP+1
>> DGLOC	LOOP+10, LOOP+13, LOOP+14
>> DGLST	LOOP*
DGNARAY	RESEQ+2~, RESEQ+4!, RESEQ+6, CHKGAP~, RESEQDGN~, RESEQDGN+5!
DGNARAY(	RESEQ+5, CHKGAP+4, CHKGAP+5, CHKGAP+6, RESEQDGN+4, RESEQDGN+6, RESEQDGN+7*, RESEQDGN+8
>> DGPSM	REQ+2
>> DGSTRT	LOOP, LOOP+10, LOOP+14
>> DGZP	REQ+1, REQ+2, REQ+5, REQ+11
>> DGZPRF	PF, PF+1, LOOP, LOOP+2, LOOP+7, LOOP+16, LOOP+17, LOOP+18
>> DGZPRF(	REQ+1, REQ+2, REQ+5, REQ+11, LOOP, LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+7 , LOOP+10, LOOP+13, LOOP+15, LOOP+16, LOOP+18
>> DIK	REQ+2, REQ+7, REQ+11*
DIR	END!
DIR(0	END*
>> DS	LOOP+9*
>> END	CHKGAP+3, CHKGAP+5, CHKGAP+6
FCPT	REQ+4, REQ+6, REQ+10!, REQ+12!
I	REQ+4, REQ+5, REQ+6, REQ+7, REQ+10!, REQ+12!, RESEQDGN+2~, RESEQDGN+6, RESEQDGN+7, RESEQDGN+8* , END+1!
IOST	END
J	REQ+5, REQ+10!, REQ+12!, RESEQ+5, PF, LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4 , LOOP+5, LOOP+7, LOOP+10, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+17, LOOP+18
>> K	LOOP+8*
K1	LOOP+7*, LOOP+8, LOOP+10, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+17, END+1!
>> L	LOOP+3, LOOP+4
L1	LOOP+6, LOOP+10, LOOP+15*, LOOP+16, LOOP+17, END+1!
>> MISSING	CHKGAP+3, CHKGAP+4, CHKGAP+6, CHKGAP+7
N	REQ+8, REQ+10!, REQ+12!, LOOP+11, LOOP+12, END+1!
NOTNULL	RESEQDGN+3!, RESEQDGN+9!
NOTNULL(	RESEQDGN+4*, RESEQDGN+7
>> PGBRK	LOOP+2, LOOP+6, LOOP+7, LOOP+10, LOOP+16*
>> PS2	PF, LOOP+8, LOOP+14
>> PS2(	LOOP+14*
PTF	REQ+2, REQ+4, REQ+5, REQ+8, REQ+11, RESEQ~, RESEQ+4, PF*, LOOP+1, LOOP+11
REC	RESEQ+2~, RESEQ+3, RESEQ+4, RESEQ+6
>> RFL	REQ+1, REQ+3, REQ+9, REQ+12
>> SDCLY	LOOP+1
>> SEQ	CHKGAP+3, CHKGAP+4, CHKGAP+5, CHKGAP+6, RESEQDGN+3, RESEQDGN+4, RESEQDGN+5, RESEQDGN+7
U	REQ+2, REQ+6, REQ+8, RESEQ+5, RESEQDGN+8, PF+1, LOOP, LOOP+2, LOOP+3, LOOP+4 , LOOP+5, LOOP+7, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+17
>> Y	LOOP*, LOOP+2

Name	Comments	DBIA/ICR reference
END
RESEQ(PTF)
REQ	;CHECK FOR REQUIRED FIELDS IN CPT RECORDS. RECORDS MISSING ONE OR MORE REQUIRED FIELDS ARE DELETED.
REQQ	;D RESEQ(PTF)
PF
RESEQDGN(CPTINFO,DGNARAY)
CHKGAP(DGNARAY)	;Function call to determine if an inside DGN code has been deleted
LOOP

Customize PDF page

Package: Registration

Routine: DGPTFM3

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: