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

Package: Incomplete Records Tracking

Routine: DGJOTP2


Information

DGJOTP2 ;ALB/MAF - TRANS PROD REPORT CONT. 2 ; AUG 30 1991@1000

Source Information

Source file <DGJOTP2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Incomplete Records Tracking 2 QUIT^DGJOTP  (,HEAD,PH,SV)^DGJOTP3  
Kernel 1 $$FMTE^XLFDT  
Registration 1 PID^VADPT6  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Incomplete Records Tracking 1 DGJOTP1  

Entry Points

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

External References

Name Field # of Occurrence
QUIT^DGJOTP QUIT
^DGJOTP3 DGJOTP2+4
HEAD^DGJOTP3 HEAD
PH^DGJOTP3 PHY1
SV^DGJOTP3 SV
PID^VADPT6 PRT2+4
$$FMTE^XLFDT HD1+3, DATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?65,$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: HD1+0
Function Call: WRITE
  • Prompt: ?70
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: $S(X=1:"UNDICT",X=2:"DICTAT",X=3:"TRANSC",X=4:"SIGNED",1:"")
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: ?77
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: X
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?88,$J($P(DGJTDL,"^",2),7)
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: ?97,$J($P(DGJTDL,"^",3),7)
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: ?106,$J($P(DGJTDL,"^",4),7)
  • Line Location: HD1+6
Function Call: WRITE
  • Prompt: ?116
  • Line Location: HD1+7
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: HD1+7
Function Call: WRITE
  • Prompt: $J(X,4)
  • Line Location: HD1+8
Function Call: WRITE
  • Prompt: "* PENDING STATUS - Number of days pending",!
  • Line Location: DIV+0
Function Call: WRITE
  • Prompt: DGJTX
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !,$E(DGJTPT,1,20)
  • Line Location: PRT2+2
Function Call: WRITE
  • Prompt: !,$E(DGJTPT,1,16)
  • Line Location: PRT2+3
Function Call: WRITE
  • Prompt: VA("BID")
  • Line Location: PRT2+4
Function Call: WRITE
  • Prompt: ?39
  • Condition for execution: DGJTL="SER"
  • Line Location: PRT2+6
Function Call: WRITE
  • Prompt: ?44
  • Condition for execution: DGJTL="PHY"
  • Line Location: PRT2+6
Function Call: WRITE
  • Prompt: $S($P(DGJTNODE,"^",5)]""&($D(^SC(+$P(DGJTNODE,"^",5),0))):$E($P(^SC($P(DGJTNODE,"^",5),0),"^",1),1,12),1:"")
  • Line Location: PRT2+6
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: ",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)
^SC - [#44] PRT2+6
^UTILITY("VAS" DGJOTP2+3, DGJOTP2+4, PHY+1, PHY1, SER+1, SER1, SER2
^VA(200 - [#200] PRT2+1
^VAS(393 - [#393] HD1+2, PHY1, SER2, PRT2
^VAS(393.3 - [#393.3] HD1

Label References

Name Line Occurrences
@( DGJOTP2+3
DATE PRT2+5
DIV RET+1
HD1 PRT2+7
HDR PHY, PHY+1, SER, SER+1
HDR1 PHY+1
HDR2 SER+1
HDR3 SER+1
HEAD DGJOTP2+3, PHY+1, SER+1, RELP
PHY1 PHY+1
PRT2 PHY1, SER2
QUIT DGJOTP2+4
RELP PRT2
RET DGJOTP2+4, PHY+1, SER+1, RELP
SER1 SER+1
SER2 SER1
SET PHY1, SER2
SV SER2

Naked Globals

Name Field # of Occurrence
^( PHY1, SER2
^("DT" HD1+2
^(0 PRT2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PHY1*, SER2*
>> DGFLAG RET+2*
>> DGJ DGJOTP2+3*
>> DGJ30AVG HD1+8*
>> DGJDYAVG HD1+7*
>> DGJJ PHY+1*, SER+1*
>> DGJP SER1*
>> DGJTDIR HD1+1
>> DGJTDL HD1+4, HD1+5, HD1+6, HD1+7, PHY1*, SER2*
>> DGJTDT DATE, PRT2+5*
>> DGJTDV DGJOTP2+3*, SET, PHY+1, PHY1, SER+1, SER1, SER2, HDR
>> DGJTDV1 SET*
>> DGJTF DGJOTP2+3*
>> DGJTFF PHY, PHY+1*, SER, SER+1*
>> DGJTL DGJOTP2+3, PRT2+1, PRT2+2, PRT2+3, PRT2+4, PRT2+5, PRT2+6, PRT2+7
>> DGJTLPG DGJOTP2+4
>> DGJTNODE HD1, HD1+1, PRT2*, PRT2+1, PRT2+5, PRT2+6
>> DGJTPC PRT2+1*
>> DGJTPHY PHY+1*, PHY1, PRT2+1*, PRT2+7, HDR1
>> DGJTPT PHY+1*, PHY1, SER1*, SER2, PRT2+2, PRT2+3
>> DGJTSP SER+1*, SER1, SER2, HDR3
>> DGJTSV SER+1*, SER1, SER2, HDR2
DGJTX DATE*!
>> DGJY PHY+1*, SER+1*
>> DGU DGJOTP2+3, DGJOTP2+4, PHY+1, PHY1, SER+1, SER1, SER2, PRT2, RET+2*, RELP
DTIME RET+2
>> IFN HD1+2, PHY1*, SER2*, PRT2
IOSL RET, RELP
IOST RET+1, RELP
>> VA("BID" PRT2+4
>> X HD1+1*, HD1+2*, HD1+3*, HD1+7*, HD1+8*, 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