Routine: DGJOPRT2

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(DGJTDEL,"^",9),! Line Location: DIV+0
Function Call: WRITE	Prompt: DGJTX Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: PRT2+2
Function Call: WRITE	Prompt: ?13 Line Location: PRT2+2
Function Call: WRITE	Prompt: ! Line Location: PRT2+3
Function Call: WRITE	Prompt: $E(DGJTPT,1,15) Line Location: PRT2+4
Function Call: WRITE	Prompt: VA("BID") Line Location: PRT2+5
Function Call: WRITE	Prompt: ?26 Line Location: PRT2+6
Function Call: WRITE	Prompt: ?39,$S($D(^DG(405.1,+DGJTTYP,0)):$E($P(^(0),"^",1),1,12),1:"") Line Location: PRT2+7
Function Call: WRITE	Prompt: ?53,$S($P(DGJTNODE,"^",5)]""&($D(^SC(+$P(DGJTNODE,"^",5),0))):$E($P(^SC($P(DGJTNODE,"^",5),0),"^",1),1,13),1:"") Line Location: PRT2+8
Function Call: WRITE	Prompt: ?69,$E($P(RTDATA,"^",2),1,12) Line Location: PRT2+10
Function Call: WRITE	Prompt: ?87,$E(DGJTPHY,1,15) Line Location: PRT2+12
Function Call: WRITE	Prompt: ?106,$S($P(DGJTNODE,"^",2)]""&($D(^VAS(393.3,+$P(DGJTNODE,"^",2),0))):$E($P(^VAS(393.3,$P(DGJTNODE,"^",2),0),"^",1),1,3),1:"") Line Location: PRT2+13
Function Call: WRITE	Prompt: ?111,$S($P(DGJTNODE,"^",11)&($D(^DG(393.2,+$P(DGJTNODE,"^",11),0))):$E($P(^DG(393.2,$P(DGJTNODE,"^",11),0),"^",1),1,10),1:"") Line Location: PRT2+14
Function Call: WRITE	Prompt: ?125,$J(DGJTDL,4) Line Location: PRT2+15
Function Call: WRITE	Prompt: ! Line Location: RET1+0
Function Call: READ	Prompt: "Enter <RET> to continue or ^ to QUIT " Formatting: ?22 Timeout: DTIME Variable: X Line Location: RET1+2
Function Call: WRITE	Prompt: !?5,"DIVISION: ",DGJTDV Line Location: HDR+0
Function Call: WRITE	Prompt: !?6,"PHYSICIAN: ",DGJTPHY Line Location: HDR1+0
Function Call: WRITE	Prompt: !?6,"SERVICE: ",DGJTSV Line Location: HDR2+0
Function Call: WRITE	Prompt: !?7,"SPECIALTY: ",DGJTSP Line Location: HDR3+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(393.2 - [#393.2]	PRT2+14
^DG(40.8 - [#40.8]	DIV
^DG(405.1 - [#405.1]	PRT2+7
^DGPM - [#405]	PRT2+7
^SC - [#44]	PRT2+8
^UTILITY("VAS"	DGJOPRT2+3, DGJOPRT2+4, PAT, PAT1, PHY+1, PHY1, DAT, DAT1, SER+1, SER1 , SER2
^VA(200 - [#200]	PRT2+1
^VAS(393 - [#393]	PAT1, PHY1, DAT1, SER2, PRT2
^VAS(393.3 - [#393.3]	PRT2+13

Label References

Name	Line Occurrences
@(	DGJOPRT2+3
DAT1	DAT
DATE	PRT2+2, PRT2+6
DIV	RET1+1
HDR	DGJOPRT2+3, PHY, PHY+1, SER, SER+1
HDR1	PHY+1
HDR2	SER+1
HDR3	SER+1
HEAD	DGJOPRT2+3, PHY+1, SER+1, RELP, RELP+1
PAT1	PAT
PH	PHY1
PHY1	PHY+1
PRT2	PAT1, PHY1, DAT1, SER2
QUIT	DGJOPRT2+4
RELP	PRT2
RET	DGJOPRT2+3, DGJOPRT2+4, PHY+1, SER+1, RELP, RELP+1
RET1	RET
SER1	SER+1
SER2	SER1
SET	PAT1, PHY1, DAT1, SER2
SV	SER2

Name	Field # of Occurrence
^(	PAT1, PHY1, DAT1, SER2
^("DT"	DIV
^(0	PRT2+1, PRT2+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	PAT1, PHY1, DAT1, SER2, PRT2+9*
>> DGFLAG	RET1+2*
>> DGJ	DGJOPRT2+3*
>> DGJJ	PHY+1, SER+1
>> DGJP	SER1*
>> DGJTAD	PRT2+7*
>> DGJTDEL	DIV*
>> DGJTDIR	PRT2+14
>> DGJTDIS	PRT2+7*
>> DGJTDL	PAT1, PHY1, DAT1, SER2, PRT2+15
>> DGJTDT	DATE, DAT, DAT1, PRT2+6
>> DGJTDV	DGJOPRT2+3*, SET, PAT, PAT1, PHY+1, PHY1, DAT, DAT1, SER+1, SER1 , SER2, HDR
>> DGJTDV1	SET*, DIV
>> DGJTF	DGJOPRT2+3*
>> DGJTFF	PHY, PHY+1, SER, SER+1
>> DGJTL	DGJOPRT2+3, PRT2+1, PRT2+2, PRT2+3, PRT2+5, PRT2+6, PRT2+11, RET, RELP
>> DGJTNODE	PRT2*, PRT2+1, PRT2+6, PRT2+7, PRT2+8, PRT2+9, PRT2+13, PRT2+14
>> DGJTPC	PRT2+1*
>> DGJTPHY	PHY+1, PHY1, PRT2+1, PRT2+12, HDR1
>> DGJTPT	PAT, PAT1, PHY+1, PHY1, DAT, DAT1, SER1, SER2, PRT2+4
>> DGJTSP	SER+1*, SER1, SER2, HDR3
>> DGJTSV	SER+1*, SER1, SER2, HDR2
>> DGJTTYP	PRT2+7*
DGJTX	DATE*!
>> DGJY	PAT, PHY+1, DAT, SER+1
>> DGU	DGJOPRT2+3, DGJOPRT2+4, PAT, PAT1, PHY+1, PHY1, DAT, DAT1, SER+1, SER1 , SER2, PRT2, RET1+2*, RELP, RELP+1
DTIME	RET1+2
>> IFN	PAT1, PHY1, DAT1, SER2, PRT2
IOSL	RET1, RELP, RELP+1
IOST	RET, RET+1, RET1+1, RELP+1
>> RTDATA	PRT2+10
>> RTE	PRT2+9*
>> RTYPE	PRT2+9*
>> VA("BID"	PRT2+5
>> X	DIV, RET1, RET1+2*

Customize PDF page

Package: Incomplete Records Tracking

Routine: DGJOPRT2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: