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

Entry Points

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

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