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

Package: Registration

Routine: DGSTAT


Information

DGSTAT ;ALB/MRL - ADT SYSTEM STATUS DISPLAY ; 03/12/2004

Source Information

Source file <DGSTAT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 5 ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  $$LKOPT^XPDMENU  $$VERSION^XPDUTL  RESCH^XUTMOPT  
Registration 1 $$LAST^DGSDUTL  

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

Package Total Caller Graph
Registration 3 DG MANAGER MENU  DG SHOW STATUS  DG53151E  

Entry Points

Name Comments DBIA/ICR reference
EN ; main entry point
Q
ONOFF(PIECE) ; return ON or OFF
; input - piece of 0 node of file 43 wanted
; output - ON or OFF
DATE(NODE,PIECE) ; return appropriate date
; input - NODE as node of data
; PIECE as piece of node to convert
; output - date in external format
SHOW
L ; write line of dots
GREETING() ; randomize greeting
SCHED(OPTION) ; sent back time time for queued process
; input - OPTION as name of option
; output - date currently queued (external format)

External References

Name Field # of Occurrence
$$LAST^DGSDUTL EN+22
$$FMTE^XLFDT EN+25, EN+27, DATE+5
$$NOW^XLFDT EN+3, SCHED+5
$$UP^XLFSTR EN+25, EN+27, DATE+5
$$LKOPT^XPDMENU SCHED+4
$$VERSION^XPDUTL EN+1, EN+4
RESCH^XUTMOPT EN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must have KERNEL version 8.0 or higher to run this option!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF,!,$$GREETING(),$S(DGUSER]"":" "_DGUSER,1:""),". Welcome to MAS, VERSION ",$$VERSION^XPDUTL("REGISTRATION"),!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "= "
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"AMIS ",I
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: "Last run for month of ",$$DATE(X,1)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"AMIS 401-420 Reports"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "Last run for month of ",$$DATE(X,1)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Auto Recalculation"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: "Last run ",$$DATE(X,7)," on CPU ",$P(X,"^",8)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: "Scheduled for ",$S(X:$$DATE(X,1),1:"(not currently scheduled)")
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: "Rescheduled to run at 9 p.m."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Embosser Option from Registration"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: "Is turned ",$$ONOFF(28)
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"Gains & Losses (G&L)"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: "Last run ",$$DATE($G(^DG(43,1,"GLS")),11)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"HINQ Option from Registration"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: "Is turned ",$$ONOFF(27)
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,"RUG-II Background Job"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: "Last run ",$$DATE($G(^DG(43,1,"RUG")),1)
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,"Appointment Status Update"
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: "Last run ",$$DATE(X,5)
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: "Updated appointments for ",$$DATE(X,1)
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: "Scheduled for "
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: "Scheduled for "
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,"IRT Background Job"
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: "Last run ",$$DATE($G(^DG(43,1,"IRT")),1)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: "Scheduled for "
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: "Scheduled for "
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,"YOU ARE PRESENTLY ON CPU ",Y,!
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: ?DGX+1
  • Line Location: L+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: L+2
Function Call: WRITE
  • Prompt: " "
  • Line Location: L+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" EN+28
^DG(43 - [#43] EN+7, EN+9, EN+19, EN+21, EN+26, ONOFF+4, SHOW
^DGAM( EN+6
^DIC(19.2 - [#19.2] SCHED+5
^SDD(409.65 - [#409.65] EN+22
^UTILITY("DG" EN+2*, SHOW
^VA(200 - [#200] EN+3

Label References

Name Line Occurrences
$$DATE EN+6, EN+8, EN+10, EN+12, EN+19, EN+21, EN+23, EN+24, EN+26
$$GREETING EN+4
$$ONOFF EN+18, EN+20
$$SCHED EN+11, EN+25, EN+27
EN SHOW+1
L EN+6, EN+8, EN+10, EN+12, EN+16, EN+18, EN+19, EN+20, EN+21, EN+23
, EN+24, EN+25, EN+26, EN+27
Q EN+1

Naked Globals

Name Field # of Occurrence
^("UCI" EN+28
^(0 SHOW

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q+1!
%H Q+1!, GREETING+1~, GREETING+3*
DA Q+1!
DGNOW EN+3*, EN+13, Q+1!
DGRE Q+1!
DGUSER EN+3*, EN+4, Q+1!
DGVERS Q+1!
DGX EN+6*, EN+8*, EN+10*, EN+18*, EN+19*, EN+20*, EN+21*, EN+23*, EN+26*, Q+1!
, L+2
DIE Q+1!
DIQUIET EN+14~, EN+15*
DR Q+1!
DT EN+17
DTIME Q
DUZ EN+3
>> DUZ("AUTO" Q
I EN+5*, EN+6*, Q+1!, L+2*, SCHED+3~, SCHED+4*, SCHED+5*
IEN SCHED+3~, SCHED+4*, SCHED+5
IOF EN+4
NODE DATE~, DATE+5
OPTION SCHED~, SCHED+4
PIECE ONOFF~, ONOFF+4, DATE~, DATE+5
X EN+6*, EN+7*, EN+8, EN+9*, EN+10, EN+11*, EN+12, EN+13, EN+22*, EN+23
, EN+24, EN+25*, EN+27*, Q*, Q+1!, GREETING+1~, GREETING+2*, GREETING+3*, GREETING+4, SCHED+3~
, SCHED+4*, SCHED+5*, SCHED+6
Y EN+28, Q+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All