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

Package: ODS

Routine: A1B2STAT


Information

A1B2STAT ;ALB/AAS - ODS SYSTEM STATUS SCREEN ; 1/14/91

Source Information

Source file <A1B2STAT.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 DT^DIQ  ^DIR  
Kernel 1 HOME^%ZIS  

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

Package Total Caller Graph
ODS 1 A1B2SUP  

Entry Points

Name Comments DBIA/ICR reference
LAST
TOT
END
CALC ; -- count entries rolled up since midnight

External References

Name Field # of Occurrence
HOME^%ZIS %
DT^DIQ %+6, %+7
^DIR TOT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Operation Desert Shield - Software Status"
  • Line Location: A1B2STAT+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: A1B2STAT+6
Function Call: WRITE
  • Prompt: !,"ODS Software Active ........................ ",$S($P(A1B2N,"^",2):"YES",1:"NO")
  • Line Location: A1B2STAT+8
Function Call: WRITE
  • Prompt: !,"ODS Software Activation date ............... "
  • Line Location: A1B2STAT+9
Function Call: WRITE
  • Prompt: !,"Date of last ODS Rollup .................... "
  • Line Location: A1B2STAT+10
Function Call: WRITE
  • Prompt: !,"Status Last Rollup ......................... "
  • Line Location: A1B2STAT+11
Function Call: WRITE
  • Prompt: $P($P($P(^DD(11500.5,.05,0),"^",3),$P(A1B2N,"^",5)_":",2),";",1)
  • Line Location: A1B2STAT+11
Function Call: WRITE
  • Prompt: !,"Message sent to ............................ "
  • Line Location: A1B2STAT+12
Function Call: WRITE
  • Prompt: $P(^DIC(4.2,$P(A1B2N,"^",6),0),"^")
  • Line Location: A1B2STAT+12
Function Call: WRITE
  • Prompt: !!,"Since Midnight Last Night"
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !,"-------------------------"
  • Line Location: LAST+1
Function Call: WRITE
  • Prompt: !,"Number Patients in Last Rollup ............. ",C(.1)
  • Line Location: LAST+2
Function Call: WRITE
  • Prompt: !,"Number Admissions in Last Rollup ........... ",C(.2)
  • Line Location: LAST+3
Function Call: WRITE
  • Prompt: !,"Number Displaced VA Pts in Last Rollup ..... ",C(.3)
  • Line Location: LAST+4
Function Call: WRITE
  • Prompt: !,"Number Registered ODS Pts in Last Rollup ... ",C(.4)
  • Line Location: LAST+5
Function Call: WRITE
  • Prompt: !!,"Total Entries in ODS files"
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,"--------------------------"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !,"ODS Patients ............................... ",$S($D(^A1B2(11500.1,0)):$P(^(0),"^",4),1:"")
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !,"ODS Admissions ............................. ",$S($D(^A1B2(11500.2,0)):$P(^(0),"^",4),1:"")
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !,"ODS Displaced Patients ..................... ",$S($D(^A1B2(11500.3,0)):$P(^(0),"^",4),1:"")
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !,"ODS Registrations .......................... ",$S($D(^A1B2(11500.4,0)):$P(^(0),"^",4),1:"")
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOT+7
Routine Call
  • %ZIS
  • Line Location:
    • %
Routine Call
  • DIR
  • Line Location:
    • TOT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^A1B2( CALC+1
^A1B2(11500.1 TOT+2
^A1B2(11500.2 TOT+3
^A1B2(11500.3 TOT+4
^A1B2(11500.4 TOT+5
^A1B2(11500.5 %+4
^DD(11500.5 %+8
^DIC(4.2 - [#4.2] %+9

Label References

Name Line Occurrences
CALC LAST

Naked Globals

Name Field # of Occurrence
^(0 %+4, TOT+2, TOT+3, TOT+4, TOT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1B2FI END!, CALC+1*
A1B2N %+4*, %+5, %+6, %+7, %+8, %+9, END!
C END!
C( LAST+2, LAST+3, LAST+4, LAST+5, CALC+1*
DIR END!
DIR(0 TOT+7*
DT CALC+1
I END!, CALC+1*
IOF %+2
IOM %+3
J END!, CALC+1*
U %*
X %+3*, END!, CALC+1*
Y %+6*, %+7*, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All