Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGJOPRT2

Package: Incomplete Records Tracking

Routine: DGJOPRT2


Information

DGJOPRT2 ;ALB/MAF - REPORTS CONTINUED ; AUG 30 1991@1000

Source Information

Source file <DGJOPRT2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Incomplete Records Tracking 1 (,HD1,HEAD,PH,QUIT,SV)^DGJOPRT3  
Kernel 1 $$FMTE^XLFDT  
Registration 1 PID^VADPT6  
Uncategorized 1 LATEST^RTUTL3  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Incomplete Records Tracking 1 DGJOPRT1  

Entry Points

Name Comments DBIA/ICR reference
PAT
HDR
RET
DATE
DIV
PRT2
SET
HDR2
SER
PHY1
HDR1
RELP
DAT
PH
HEAD
SER2
SER1
RET1
HDR3
PAT1
QUIT
DAT1
SV
PHY

External References

Name Field # of Occurrence
^DGJOPRT3 DGJOPRT2+4
HD1^DGJOPRT3 PRT2+11
HEAD^DGJOPRT3 HEAD
PH^DGJOPRT3 PH
QUIT^DGJOPRT3 QUIT
SV^DGJOPRT3 SV
LATEST^RTUTL3 PRT2+9
PID^VADPT6 PRT2+5
$$FMTE^XLFDT DATE

Interaction Calls

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

Naked Globals

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All