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

Package: Incomplete Records Tracking

Routine: DGJOTP3


Information

DGJOTP3 ;ALB/MAF - TOTALS PAGE FOR TRANS PROD REPORT ; SEP 26 1991@1100

Source Information

Source file <DGJOTP3.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT
SET
TOT
HEAD1
RET1
RELP
HEAD
PH
SV
LIST
WR
EXT
CNTWR
DIVTOT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"------------------------",?30,"-------",?45,"-------",?60,"-------",?75,"-------",?88,"-------",?100,"-------",?112,"-------",?125,"-------"
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,"DIVISION TOTAL",?30
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?45
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?45
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?45
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?45
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?100,$J(+DGJTOT(DGJTOTAL),7),?112,$S($P(DGJTOT(DGJTOTAL),"^",2)]"":$J($P(DGJTOT(DGJTOTAL),"^",2),7),1:$J(0,7)),?125
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: @IOF,"TOTALS PAGE FOR "_DGJTOTAL,?100,DGJTDAT,!
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: $S(DGJTL="PHY":"PHYSICIAN",1:"SERVICE/SPECIALTY"),?30,"AVG DAYS",?45,"AVG DAYS",?60,"AVG DAYS",?75,"AVG TOT",?88,"AVG DAYS",?100,"TOT REC",?111,"REC DELQ",?123,"% DELQ>30",!
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: ?30,"D/C-DIC",?45,"DIC-TRAN",?60,"TRAN-COD",?75,"DAYS DELQ",?88,"DELQ>30",!,DGJTLN
  • Line Location: HEAD1+2
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: @IOF,"TRANSCRIPTION PRODUCTIVITY REPORT BY "_$S(DGJTL="PHY":"PHYSICIAN",1:"SERVICE/SPECIALTY"),?97,DGJTDAT," ","PAGE "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: DGJTPAG
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"PATIENT",?19,"PT ID",?26,"EVT DATE",?39
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"PATIENT",?23,"PT ID",?31,"EVT DATE",?44
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: "LOCATION"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?53,"PHYSICIAN"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?65,"TYP"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?70,"STATUS"
  • Condition for execution: DGJTDIR=2
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?78,"DIC DATE",?88,"D/C-DIC",?97,"DIC-TRN",?106,"TRN-COD",?115,"TOT DAYS",?125,"DELQ>30",!,DGJTLN,!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"------------------------",!,"COUNT: ",DGJSPTOT(DGJTDV,DGJTSV,DGJTSP)
  • Line Location: SV+0
Function Call: WRITE
  • Prompt: !,$E(DGJDOC,1,20),?30
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: ?45
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: ?45
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: ?75
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: ?88
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: ?100,$J($P(DGJX,"^",1),7),?112
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: ?125
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: EXT+1
Function Call: WRITE
  • Prompt: $J(X,7)
  • Line Location: EXT+2
Function Call: WRITE
  • Prompt: ?70,"AVG DAYS"
  • Line Location: CNTWR+0
Function Call: WRITE
  • Prompt: ?88
  • Line Location: CNTWR+0
Function Call: WRITE
  • Prompt: ?97
  • Line Location: CNTWR+1
Function Call: WRITE
  • Prompt: ?106
  • Line Location: CNTWR+1
Function Call: WRITE
  • Prompt: ?106
  • Line Location: CNTWR+1
Function Call: WRITE
  • Prompt: ?106
  • Line Location: CNTWR+1
Info |  Source |  Entry Points |  Interaction Calls