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: DGJPDEF2

Package: Incomplete Records Tracking

Routine: DGJPDEF2


Information

DGJPDEF2 ;ALB/MAF - PHYSICIAN DEFICIENCY PRINT ROUTINE (CONT) ; NOV 10 1992@300

Source Information

Source file <DGJPDEF2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Incomplete Records Tracking 3 $$RECTYP^DGJOPRT1  QUIT^DGJPDEF  (,HEAD,SV)^DGJPDEF3  
Kernel 1 $$FMTE^XLFDT  
Record Tracking 1 LATEST^RTUTL3  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Incomplete Records Tracking 1 DGJPDEF1  

Entry Points

Name Comments DBIA/ICR reference
PAT
HDR
RET
DATE
DIV
PRT2
HDR4
SET
HDR2
HDR3
PHY1
HDR1
RELP
PAT1
HEAD
SER2
SER1
SER
DATE1
QUIT
HD1
SV
PHY

External References

Name Field # of Occurrence
$$RECTYP^DGJOPRT1 PRT2+10
QUIT^DGJPDEF QUIT
^DGJPDEF3 DGJPDEF2+3
HEAD^DGJPDEF3 HEAD
SV^DGJPDEF3 SV
LATEST^RTUTL3 PRT2+10
PID^VADPT6 PRT2+4
$$FMTE^XLFDT DATE, DATE1, PRT2+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DGJPDEF2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: ?88,$J($P(DGJTDL,"^",2),7)
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: ?97,$J($P(DGJTDL,"^",3),7)
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: ?106,$J($P(DGJTDL,"^",4),7)
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?116
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: $J(X,4)
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: $P(DGJTDEL,"^",9),!
  • Line Location: DIV+0
Function Call: WRITE
  • Prompt: DGJTX
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: X
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: !,$S(X]"":X,1:"NOT SPECIFIED")
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: !,$E($P(^DPT($P(DGJTPT,"^",2),0),"^",1),1,20)
  • Line Location: PRT2+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT($P(DGJTPT,"^",2),0),"^",1),1,16)
  • Line Location: PRT2+3
Function Call: WRITE
  • Prompt: VA("BID")
  • Line Location: PRT2+4
Function Call: WRITE
  • Prompt: ?27
  • Condition for execution: DGJTL="SER"
  • Line Location: PRT2+5
Function Call: WRITE
  • Prompt: DATE
  • Condition for execution: DGJTL'="SER" ?31 D:DGJTDT]""&(DGJTDT'="OUTPATIENT")
  • Line Location: PRT2+5
Function Call: WRITE
  • Prompt: DGJTDT
  • Line Location: PRT2+5
Function Call: WRITE
  • Prompt: $S($D(^VAS(393.3,+X,0)):$E($P(^VAS(393.3,+X,0),"^",1),1,10),1:"NOT SPECIF")
  • Line Location: PRT2+6
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRT2+8
Function Call: WRITE
  • Prompt: X
  • Line Location: PRT2+8
Function Call: WRITE
  • Prompt: ?82
  • Line Location: PRT2+9
Function Call: WRITE
  • Prompt: $S($D(^DG(393.2,+X,0)):$E($P(^DG(393.2,X,0),"^",1),1,10),1:"")
  • Line Location: PRT2+9
Function Call: WRITE
  • Prompt: ?95,$E($P(RTDATA,"^",2),1,10),?107,$E($P(RTDATA,"^",3),1,10),?121
  • Line Location: PRT2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+0
Function Call: READ
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Formatting: ?22
  • Timeout: DTIME
  • Variable: X
  • Line Location: RET+2
Function Call: WRITE
  • Prompt: !?5,"DIVISION: ",$S($D(^DG(40.8,+$P(DGJTDV,"^",2),0)):$P(^DG(40.8,$P(DGJTDV,"^",2),0),"^",1),1:"NOT SPECIFIED")
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?6,"PHYSICIAN: ",$S($P(DGJTPHY,"^",2)]""&($D(^VA(200,+$P(DGJTPHY,"^",2),0))):$P(^VA(200,$P(DGJTPHY,"^",2),0),"^",1),1:"NOT SPECIFIED")
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?6,"SERVICE: ",$S($P(DGJTSV,"^",2)]"":$P(^DG(393.1,$P(DGJTSV,"^",2),0),"^",1),1:"NOT SPECIFIED")
  • Line Location: HDR2+0
Function Call: WRITE
  • Prompt: !?7,"SPECIALTY: ",$S($P(DGJTSP,"^",2)]"":$P(^DIC(45.7,$P(DGJTSP,"^",2),0),"^",1),1:"NOT SPECIFIED")
  • Line Location: HDR3+0
Function Call: WRITE
  • Prompt: !?6,"PATIENT: ",$P(^DPT($P(DGJTPT,"^",2),0),"^",1)
  • Line Location: HDR4+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(393.1 - [#393.1] HDR2
^DG(393.2 - [#393.2] PRT2+9
^DG(40.8 - [#40.8] DIV, HDR
^DGPM - [#405] PRT2+5
^DIC(45.7 - [#45.7] HDR3
^DPT - [#2] PRT2+2, PRT2+3, HDR4
^TMP("VAS" DGJPDEF2+2, DGJPDEF2+3, PHY+1, PHY1, SER+1, PAT+1, PAT1, SER1, SER2
^VA(200 - [#200] PRT2+1, PRT2+7, HDR1
^VAS(393 - [#393] PHY1, PAT1, SER2, PRT2, PRT2+6, PRT2+7, PRT2+8
^VAS(393.3 - [#393.3] PRT2+6

Label References

Name Line Occurrences
@( DGJPDEF2+2
DATE PRT2+5
DATE1 PRT2+11
DIV DGJPDEF2+5, QUIT+1, RET+1
HDR PHY, PHY+1, SER, SER+1, PAT, PAT+1
HDR1 PHY+1
HDR2 SER+1
HDR3 SER+1
HDR4 PAT+1
HEAD DGJPDEF2+2, PHY+1, SER+1, PAT+1, RELP
PAT1 PAT+1
PHY1 PHY+1
PRT2 PHY1, PAT1, SER2
QUIT DGJPDEF2+3
RELP PRT2
RET DGJPDEF2+3, PHY+1, SER+1, PAT+1, RELP
SER1 SER+1
SER2 SER1
SET PHY1, PAT1, SER2

Naked Globals

Name Field # of Occurrence
^( PHY1, PAT1, SER2
^("DT" DIV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN SET*, SER2*, PRT2+10*
>> DGFLAG RET+2*
>> DGJ DGJPDEF2+2*
>> DGJADM PHY1*, PAT+1*, PAT1
>> DGJJ PHY+1*, SER+1*, PAT1*
>> DGJP SER1*
>> DGJTDEL DIV*
>> DGJTDL HD1, HD1+1, HD1+2, HD1+3, SET, PHY1*, PAT1*, SER2*
>> DGJTDT DATE, PRT2+5*
>> DGJTDV DGJPDEF2+2*, SET, PHY+1, PHY1, SER+1, PAT+1, PAT1, SER1, SER2, HDR
>> DGJTDV1 SET*, DIV
>> DGJTF DGJPDEF2+2*
>> DGJTFF PHY, PHY+1*, SER, SER+1*, PAT, PAT+1*
>> DGJTL DGJPDEF2+2, PRT2+1, PRT2+2, PRT2+3, PRT2+4, PRT2+5, PRT2+6, PRT2+7
>> DGJTLPG DGJPDEF2+3
>> DGJTNODE PRT2*, PRT2+5, PRT2+9, PRT2+10
>> DGJTPHY PHY+1*, PHY1, PAT1*, PRT2+1, HDR1
>> DGJTPT PHY+1*, PHY1, PAT+1*, PAT1, SER1*, SER2, PRT2+2, PRT2+3, HDR4
>> DGJTSP SER+1*, SER1, SER2, HDR3
>> DGJTSV SER+1*, SER1, SER2, HDR2
DGJTX DATE*!
>> DGJY PHY+1*, SER+1*, PAT+1*
>> DGU DGJPDEF2+2, DGJPDEF2+3, PHY+1, PHY1, SER+1, PAT+1, PAT1, SER1, SER2, PRT2
, RET+2*, RELP
DTIME RET+2
>> IFN PHY1*, PAT1*, SER2*, PRT2, PRT2+6, PRT2+7, PRT2+8
IOSL DGJPDEF2+4, QUIT+1, RET, RELP
IOST RET+1, RELP
>> RTDATA PRT2+11
>> RTE PRT2+10*
>> RTYPE PRT2+10*
>> VA("BID" PRT2+4
>> X DGJPDEF2+4*, QUIT+1*, HD1+3*, HD1+4*, DIV*, DATE1*, PRT2+1*, PRT2+6*, PRT2+7*, PRT2+8*
, PRT2+9*, PRT2+11*, RET*, RET+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All