Routine: DGPTFMO

Package	Total	Call Graph
Registration	3	EN2^DGPTF4 (PRN2,PRN3)^DGPTFM8 D^DGPTUTL
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDCODE ($$DRGD,$$GETDATE)^ICDGTDRG

Package	Total	Caller Graph
Registration	2	DGPTFM3 DGPTFM7

Entry Points

External References

Name	Field # of Occurrence
EN2^DGPTF4	DXLS+7
PRN2^DGPTFM8	WRITE+14, DXLS+6
PRN3^DGPTFM8	SUR+6
D^DGPTUTL	EN+5, WRITE, SUR
$$ICDDX^ICDCODE	WRITE+11, DXLS+1, DXLS+2, DSP
$$ICDOP^ICDCODE	SUR+4, PROC, 601+1
$$DRGD^ICDGTDRG	WRITE+19
$$GETDATE^ICDGTDRG	WRITE+11, WRITE+19, SUR+4, PROC, 601+1, DXLS

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Procedure Date: ",Y Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: EN+8
Function Call: WRITE	Prompt: !!,"Movement Date: ",Y,?40,"Losing Specialty: ",$E(DGL,1,22),!,"Leave Days: ",$P(DGM,U,3),?40,"Pass Days: ",$P(DGM,U,4) Line Location: WRITE+1
Function Call: WRITE	Prompt: !,"Treated for SC condition: ",$S($P(DGM,U,18)=1:"Yes",1:"No") Line Location: WRITE+2
Function Call: WRITE	Prompt: !!?13,"DX: " Condition for execution: DGF="" Line Location: WRITE+12
Function Call: WRITE	Prompt: $P(DGICD,U,3)_" ("_$P(DGICD,U)_")",!?17 Line Location: WRITE+12
Function Call: WRITE	Prompt: ! Line Location: WRITE+14
Function Call: WRITE	Prompt: !?3,"TRANSFER DRG: ",DGTD," - " Line Location: WRITE+17
Function Call: WRITE	Prompt: !,DGDX(DGDS) Line Location: WRITE+20
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEAD+0
Function Call: WRITE	Prompt: *7 Line Location: HEAD+0
Function Call: WRITE	Prompt: @IOF,! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"("_$P(^DPT(+^DGPT(D0,0),0),U,1)_")",! Line Location: HEAD+2
Function Call: WRITE	Prompt: !!," Date of Surg: ",Y,?45,"Chief Surg: " Line Location: SUR+0
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1) Line Location: SUR+0
Function Call: WRITE	Prompt: !," Anesth Tech: " Line Location: SUR+1
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: " Line Location: SUR+1
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: " Line Location: SUR+1
Function Call: WRITE	Prompt: !," Source of pay: " Line Location: SUR+2
Function Call: WRITE	Prompt: $P($P(L,L1,2),";",1) Line Location: SUR+2
Function Call: WRITE	Prompt: ?46,"Surg spec: ",$S($D(^DIC(45.3,+$P(S1,U,3),0)):$P(^(0),U,2),1:"") Line Location: SUR+3
Function Call: WRITE	Prompt: $S(+DGPTTMP>0:$P(DGPTTMP,U,5)_" ("_$P(DGPTTMP,U,2)_")",1:"**********-"_L),!?17 Line Location: SUR+4
Function Call: WRITE	Prompt: $P(DGOP,U,4)_" ("_$P(DGOP,U)_")",!?17 Line Location: PROC+1
Function Call: WRITE	Prompt: !?17,$P(DGPROC,U,4)_" ("_$P(DGPROC,U)_")" Line Location: 601+1
Function Call: WRITE	Prompt: !!?11,"PRINCIPAL DIAGNOSIS: ",$P(DXLS,U,3)_" ("_$P(DXLS,U)_")" Line Location: DXLS+1
Function Call: WRITE	Prompt: !!," Principal Diag: ",$P(DGP,U,3)_" ("_$P(DGP,U)_")" Line Location: DXLS+2
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))," " Line Location: DT+0
Function Call: WRITE	Prompt: $J(Y#100\1,2),"," Condition for execution: Y#100 Line Location: DT+0
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " ",$E(Y_0,9,10),":",$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: DT+0
Function Call: WRITE	Prompt: ?40,$P(J,U,4)_"("_$P(J,U,2)_")" Line Location: DSP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(45.01	SUR, SUR+1, SUR+2
^DGPT - [#45]	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, WRITE+14, WRITE+17, HEAD+2, SUR , SUR+6, DXLS+4, DXLS+6
^DIC(42.4 - [#42.4]	WRITE
^DIC(45.3 - [#45.3]	SUR+3
^DPT - [#2]	HEAD+2
^ICD - [#80.2]	WRITE+17
^UTILITY(	Q1!
^UTILITY($J	HEAD+1

Label References

Name	Line Occurrences
601	EN+5
DSP	DXLS+3, DXLS+4
DXLS	EN+6
HEAD	EN+4, EN+5, WRITE, WRITE+14, SUR, DXLS
PROC	EN+4
Q	EN+4, EN+5, EN+6, WRITE, SUR
SUR	EN+3
WRITE	EN+2

Naked Globals

Name	Field # of Occurrence
^(	EN+1
^("401P"	EN+4
^("P"	WRITE+17
^(0	EN+1, EN+2, WRITE, SUR+3
^(2	HEAD+1
^(300	WRITE+14, SUR+6, DXLS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+7!
A	EN!
AD	EN!
ADA	EN!
AGE	EN+7!
B	EN!, EN+7!
>> D0	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, WRITE+11, WRITE+14, WRITE+17, WRITE+19 , HEAD+2, SUR, SUR+4, SUR+6, PROC, 601+1, DXLS, DXLS+4, DXLS+6
DA	EN+7!
DAM	EN+7!
>> DC	HEAD+1*
DFN	EN+7!
DG1	Q1!
DG300	WRITE+14, WRITE+15!, SUR+6, SUR+7!, DXLS+6*!
DG601	EN+5*, EN+7!, 601+1
DGDD	EN!
DGDS	EN+7!, WRITE+19, WRITE+20
DGDX	WRITE+18~
DGDX(	WRITE+20
DGF	EN+7!, WRITE+11, WRITE+12, PROC, PROC+1
DGFC	EN!
DGICD	EN+7!, WRITE+11*, WRITE+12
DGL	EN+7!, WRITE*, WRITE+1
DGM	EN+2*, EN+7!, WRITE, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7 , WRITE+8, WRITE+9, WRITE+11
DGN	EN!, EN+7!
DGOP	EN+7!, PROC*, PROC+1
DGOP1	EN+4*, EN+7!, PROC
DGP	EN+7!, DXLS+2*
DGPR	EN+7!
DGPROC	EN+7!, 601+1*
DGPT	EN+6*, EN+7!, DXLS+1, DXLS+2, DXLS+3
DGPTDAT	EN+7!, DXLS*, DXLS+1, DXLS+2, DSP
DGPTFE	EN!, EN+7!
>> DGPTTMP	WRITE+11, SUR+4, PROC, 601+1, DXLS+1, DXLS+2
DGST	EN!, EN+7!
DGTD	EN+7!, WRITE+17*, WRITE+19
>> DN	EN+4, EN+5, EN+6, WRITE, HEAD*, SUR
DOB	EN+7!
DP	EN+7!
DRG	EN+7!
DTIME	HEAD
DXD	WRITE+18~, WRITE+19*
DXLS	EN+7!, DXLS+1*, DXLS+2
EXP	EN+7!
HEAD	EN!
>> I	EN+1, EN+2, EN+3, EN+5, WRITE+10, WRITE+14, WRITE+17, SUR, SUR+6, PROC* , DXLS+3, DXLS+4, DSP, DSP+1
IOF	HEAD+1
IOM	HEAD+1
IOSL	EN+4, EN+5, WRITE, WRITE+14, SUR, DXLS
IOST	HEAD
J	EN+1, EN+7!, WRITE+11, 601+1, DSP, DSP+1, DSP+2
K	EN+7!, HEAD+1, SUR+4, DXLS+3, DXLS+4, DSP
>> L	SUR, SUR+1, SUR+2, SUR+4
L1	EN+7!, SUR, SUR+1, SUR+2*
NO	EN+7!
P	EN+7!
PTF	EN+7!
S1	EN+7!, SUR*, SUR+1, SUR+2, SUR+3, SUR+4
SD1	EN+7!
SEX	EN+7!
T	EN!, EN+3!, EN+7!
T(	EN+1*, EN+2, WRITE+10, WRITE+14, WRITE+17
TAC	EN+7!
TRS	EN+7!
U	EN+1, WRITE, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8 , WRITE+9, WRITE+11, WRITE+12, HEAD, HEAD+2, SUR, SUR+1, SUR+2, SUR+3, SUR+4 , PROC, PROC+1, 601+1, DXLS+1, DXLS+2, Q1, DT, DSP, DSP+1, DSP+2
>> X	HEAD*
>> Y	EN+5, WRITE, WRITE+1, SUR*, DT

Customize PDF page

Package: Registration

Routine: DGPTFMO

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
Q
HEAD
EN
601	;print the procedures/dates from the 601 procedure multiple (eff. 10/1/87)
DXLS
DSP
WRITE
SUR
DT
PROC