Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Incomplete Records Tracking 1 CLOSE^DGJUTQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Incomplete Records Tracking 1 DGJOPRT2  

Entry Points

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

External References

Name Field # of Occurrence
CLOSE^DGJUTQ QUIT+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(393.2 - [#393.2] HD1+1
^DG(40.8 - [#40.8] RET1+1
^UTILITY("VAS" QUIT+2!, PH, SV, SV+1
^VAS(393.3 - [#393.3] HD1

Label References

Name Line Occurrences
HEAD1 DGJOPRT3+3
RET1 PH, SV+1

Naked Globals

Name Field # of Occurrence
^("DT" RET1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT+1!
DFN QUIT!, PH, SV
DGFLAG RET1+3*, QUIT+1!
DGJ QUIT!
DGJFL QUIT!
DGJJ QUIT!
DGJP QUIT!
DGJPHTOT QUIT+1!
DGJPHTOT( PH
DGJSPTOT QUIT!
DGJSPTOT( SV
DGJSVTOT QUIT!
DGJSVTOT( SV+1
DGJTAD QUIT+1!
DGJTBEG QUIT!
DGJTBG QUIT!
DGJTCK QUIT+1!
DGJTDAT HEAD+1, QUIT+1!
DGJTDEL RET1+1*, QUIT+1!
DGJTDIR HEAD+1, HEAD+5, HEAD+6, QUIT+1!, HD1+1
DGJTDIS QUIT+1!
DGJTDIV QUIT+1!
DGJTDL QUIT+1!, HD1+2
DGJTDT QUIT!
DGJTDV HEAD, QUIT!, PH, SV, SV+1
DGJTDV1 RET1+1, HEAD, QUIT+1!
DGJTDVN QUIT!
DGJTEND QUIT!
DGJTF QUIT!
DGJTFF QUIT!
DGJTFLAG QUIT!
DGJTL HEAD+1, HEAD+2, HEAD+3, HEAD+5, HEAD+6, QUIT!
DGJTLN HEAD1, HEAD+5, HEAD+6, QUIT!
DGJTMESS QUIT+1!
DGJTMUL QUIT!
DGJTNODE QUIT!, HD1, HD1+1
DGJTNODT QUIT+1!
DGJTNOW QUIT+1!
DGJTOT QUIT+1!
DGJTOT( DGJOPRT3+3
DGJTOTAL DGJOPRT3+3*, QUIT+1!
DGJTPAG HEAD*, HEAD+1*, QUIT+1!
DGJTPAR QUIT+1!
DGJTPC QUIT!
DGJTPHY QUIT!, PH
DGJTPT QUIT!, PH, SV
DGJTSP QUIT!, SV, SV+1
DGJTSR QUIT+1!
DGJTSR1 QUIT+1!
DGJTSTAT QUIT+1!
DGJTSV QUIT!, SV, SV+1
DGJTTO DGJOPRT3+3*, QUIT+1!
DGJTTYP QUIT+1!
DGJY QUIT!
DGPGM QUIT+1!
DGU RET1+3*, QUIT!
DGVAR QUIT+1!
DIC QUIT!
DIR QUIT+1!
DTIME RET1+3
IFN QUIT!, PH, SV
IOF HEAD1, HEAD+1
IOSL RET1
IOST RET1+2, PH, SV+1
POP QUIT+1!
RT QUIT+2!
RTDATA QUIT+2!
RTE QUIT+2!
RTYPE QUIT+2!
VA QUIT+1!
VADAT QUIT+1!
VADATE QUIT+1!
VAERR QUIT+1!
VAR QUIT+1!
VAUTD QUIT!
VAUTN QUIT!
VAUTNI QUIT!
VAUTSTR QUIT!
VAUTT QUIT!
VAUTVB QUIT!
VAUTY QUIT+2!
X RET1*, RET1+1*, RET1+3*, QUIT!
Y QUIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All