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

Package: Registration

Routine: DGSTAT


Information

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

Source Information

Source file <DGSTAT.m>

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)

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
Info |  Source |  Entry Points |  Interaction Calls