Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
  • Formatting: ?22
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls