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

Package: ODS

Routine: A1B2STAT


Information

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

Source Information

Source file <A1B2STAT.m>

Entry Points

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

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