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

Package: Incomplete Records Tracking

Routine: DGJOPRT3


Information

DGJOPRT3 ;ALB/MAF - TOTALS PAGE FOR REPORTS ; SEP 26 1991@1100

Source Information

Source file <DGJOPRT3.m>

Entry Points

Name Comments DBIA/ICR reference
HEAD1
RET1
HEAD
QUIT
PH
SV
HD1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGJTOTAL,?40,$J(DGJTOT(DGJTOTAL),4)
  • Line Location: DGJOPRT3+3
Function Call: WRITE
  • Prompt: @IOF,"TOTALS PAGE BY DIVISION",!,"DIVISION",?37,"TOTAL DELINQ",!,DGJTLN
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RET1+0
Function Call: WRITE
  • Prompt: $P(DGJTDEL,"^",9),!
  • Line Location: RET1+1
Function Call: READ
  • Formatting: ?22
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET1+3
Function Call: WRITE
  • Prompt: @IOF,$S(DGJTDIR=1:"UNDICTATED ",1:"INCOMPLETE ")_"RECORDS LISTING BY "_$S(DGJTL="DAT":"EVENT DATE",DGJTL="PAT":"PATIENT",DGJTL="PHY":"PHYSICIAN",1:"SERVICE/SPECIALTY"),?99,DGJTDAT," ","PAGE "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: DGJTPAG
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"EVT DATE",?11,"PATIENT",?28,"PT ID"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"PATIENT",?18,"PT ID",?26,"EVT DATE"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: ?39,"D/C TYPE",?53,"LOCATION",?69,"BORROWER"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?87,"PHYSICIAN",?106,"TYP"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?112,"STATUS"
  • Condition for execution: DGJTDIR=2
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?120,"TOTAL DAYS",!,DGJTLN,!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?87,"TYP"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?94,"STATUS"
  • Condition for execution: DGJTDIR=2
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?110,"TOTAL DAYS",!,DGJTLN,!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"------------------------",!,"COUNT: ",DGJSPTOT(DGJTDV,DGJTSV,DGJTSP)
  • Line Location: SV+0
Function Call: WRITE
  • Prompt: ?87,$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: ?94,$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: HD1+1
Function Call: WRITE
  • Prompt: ?110,$J(DGJTDL,4)
  • Line Location: HD1+2
Info |  Source |  Entry Points |  Interaction Calls