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

Package: Registration

Routine: DGDISS


Information

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

Source Information

Source file <DGDISS.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "START DATE: "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !
  • Prompt: "END DATE: "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • Line Location: CRCHK+0
Info |  Source |  Entry Points |  Interaction Calls