Routine: DGSTAT

Information

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

Source Information

Source file <DGSTAT.m>

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

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG MANAGER MENU DG SHOW STATUS

Entry Points

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

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

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

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

Local Variables

>>	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!

Customize PDF page

Package: Registration

Routine: DGSTAT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: