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

Entry Points

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

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