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

Package: Registration

Routine: DGDISS


Information

DGDISS ;ALB/JDS - DISPOSITION SUMMARY ; 26 AUG 84 14:14

Source Information

Source file <DGDISS.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^%DT  C^%DTC  YN^DICN  
Registration 2 LO^DGUTL  (CLOSE,ZIS)^DGUTQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG DISPOSITION SUMMARY  

Entry Points

Name Comments DBIA/ICR reference
P1
DON
D
ED
S1
TOT
AN
Q
START
S
CRCHK
MON
S2
PRINT ;
OU
HD
SD

External References

Name Field # of Occurrence
^%DT SD, ED, HD+1
C^%DTC MON
LO^DGUTL DGDISS+3
CLOSE^DGUTQ Q
ZIS^DGUTQ OU
YN^DICN AN

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "START DATE: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: SD+0
Function Call: WRITE
  • Prompt: !!,"Run statistics for the whole month"
  • Line Location: AN+0
Function Call: WRITE
  • Prompt: !?4,"YES - To generate a log for this entire month",!?4,"NO - To select an end date to which to generate log."
  • Line Location: AN+1
Function Call: READ
  • Prompt: "END DATE: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !?4,*7,"Can't preceed start date."
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OU+0
Function Call: WRITE
  • Prompt: !,$S($D(^DIC(37,S,0)):$E($P(^(0),"^",1),1,30),S=0:"NOT DISPOSITIONED YET",1:"UNDEFINED DISPOSITION "_S),?30
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: ?(S1*13+30),$J(T(S1),6)
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: $J(T,13)
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,"TOTAL"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?(S1*13+30),$J(TOT(S1),6)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: $J(TOT,13),!
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?25," run "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: Y,?70,"PAGE: ",PG+1
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!?31,"10-10",?38,"UNSCHEDULED",?52,"APPLICATIONS",!,"DISPOSITION",?30,"VISITS",?43,"VISITS",?54,"W/O EXAM",?70,"TOTAL",!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CRCHK+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("SITE" S2+1, HD
^DG(40.8 - [#40.8] HD
^DIC(37 - [#37] P1
^DPT - [#2] S2
^DPT("ADIS" S, S1, S2

Label References

Name Line Occurrences
AN AN+1
CRCHK HD
D HD, HD+1
DON S
ED AN, ED
HD PRINT+1, P1
MON AN
OU MON
P1 P1+3
PRINT DON
Q SD, AN, ED, OU
S S1
S1 S2
S2 S2, S2+1
SD SD
TOT P1

Naked Globals

Name Field # of Occurrence
^( S2
^(0 S2, P1
^(1 S2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AN*, D*
%DT SD*, ED*, Q!, HD+1!*
%DT(0 SD*
D Q!
>> DGPGM OU*
>> DGVAR OU*
>> DGX DON*, PRINT+1, P1, HD, CRCHK*
DIS START!, Q!
DIS( S2+1*, DON, P1+1
DIST S2+1*, Q!
DT SD
DTD Q!, HD+1*
DTIME SD, ED, CRCHK
ED ED*, START*, S, Q!, MON*, HD
I Q!, TOT*, HD+2*
I1 Q!
>> II DON*
IO START
IOF HD
IOSL P1
IOST CRCHK
L S2*, S2+1, Q!
L1 S2*, Q!
L2 Q!
L3 Q!
PG DON*, Q!, HD+1*, CRCHK
POP OU, Q!
S START*, S*, S1, S2, Q!, PRINT+1*, P1*, P1+1
S1 S*, S1*, S2, Q!, PRINT+1*, P1+2*, TOT+1*
S2 S1*, S2*, Q!
S3 S2*, Q!
SD SD*, AN, ED, START, Q!, MON, HD
SITE S2+1*, DON*, Q!, P1+1, HD
ST S2+1*, Q!
STAT Q!
T Q!, P1+1*, P1+2*, P1+3
T( PRINT+1*, P1+1*, P1+2*
T1 Q!, P1+1*
TOT Q!, TOT+1*, TOT+2
TOT( PRINT+1*, P1+1*, TOT+1
U S2+1
X SD*, ED*, Q!, MON, HD+1*, CRCHK*
>> X1 MON*
>> X2 MON*
Y SD, ED, Q!, D*, HD*, HD+1*
Z Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All