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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: A1B2OSR4

Package: ODS

Routine: A1B2OSR4


Information

A1B2OSR4 ;ALB/AAS - ODS SUMMARY REPORT ; 11-JAN-91

Source Information

Source file <A1B2OSR4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  D^DIQ  ^DIR  
ODS 3 ^A1B2OSR1  (,RPRT)^A1B2OSR2  ^A1B2OSR3  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
BDT ;Get beginning date of report
EDT ;Get ending date of report
NSR
ONE
ONE1
DEV ;Get device for output.
DQ
END

External References

Name Field # of Occurrence
^%DT BDT+1, EDT+1
^%ZIS DEV+1
HOME^%ZIS %
^%ZTLOAD DEV+2
^A1B2OSR1 DQ+1
^A1B2OSR2 DQ+1
RPRT^A1B2OSR2 DQ+5
^A1B2OSR3 DQ+2
^DIC ONE+2
D^DIQ DQ
^DIR NSR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?28,"OPERATION DESERT SHIELD",!?26,"STATISTICAL SUMMARY REPORT",!!
  • Line Location: A1B2OSR4+28
Function Call: READ
  • Formatting: !
  • Prompt: "Go to DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: EDT+1
Function Call: READ
  • Formatting: !
  • Prompt: "Print Statistical Summary for Medical Center: ALL// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !!,"Enter station name or number to select a Statistical Summary Report",!,"for one Medical Center or 'ALL' to print the report for all Medical Centers.",!
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !,"This facility has no station number - required"
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !!,"No matches found for facility number ",FAC
  • Line Location: DQ+4
Routine Call
  • DIC
  • Line Location:
    • ONE+2
Routine Call
  • DIR
  • Line Location:
    • NSR
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • %

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" END
^DIC(4 - [#4] ONE+2
^UTILITY($J DQ+4, END+1!

Label References

Name Line Occurrences
BDT EDT+1
DEV NSR
END BDT+1, EDT+1, ONE+2, DEV+1, DEV+2, DQ+2, DQ+3, DQ+4
ONE ONE+1, ONE+2
ONE1 ONE

Naked Globals

Name Field # of Occurrence
^(99 ONE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT+1*, EDT+1*, END!
%DT("A" BDT+1*
>> %IS DEV+1*
A1B2BDT BDT+1*, EDT+1, END!
A1B2DATE DQ*, END+2!
A1B2EDT EDT+1*, END!
A1B2NSR NSR*, DQ*, DQ+1*, DQ+2, END+2!
A1B2ONE NSR*, ONE1*, DQ+1, DQ+4, END!, END+2!
A1B2QUIT %*, DQ*, DQ+2, DQ+3, END+2!
A1B2X END+2!
A1B2Y END+2!
BOS END+2!
CNTF DQ*, END+2!
DFN END+2!
DIC ONE+2*, END+2!
DIC(0 ONE+2*
DIR NSR!, END+2!
DIR("A" NSR*
DIR("B" NSR*
DIR(0 NSR*
DT DQ
DTIME EDT+1, ONE
>> DTOUT ONE+2
>> DUOUT ONE+2
FAC DQ+4*, END+2!
I END+2!
IO DEV+4
IO("Q" DEV+2
IOF %+1
IOM DQ
J END+2!
M END+2!
N END+2!
P END+2!
PAGE DQ*, END+2!
>> POP DEV+1
SPC END+2!
T END+2!
TAB DQ*, END+2!
TYPE END+2!
U %*
X EDT+1*, ONE*, ONE+1, ONE+2*, ONE1END+2!
X1 END+2!
Y BDT+1, EDT+1, NSRONE+2, DQ*, END+2!
Y1 END+2!
>> ZTDESC DEV+2*
>> ZTQUEUED END
>> ZTRTN DEV+2*
>> ZTSAVE("A1B2*" DEV+2*
ZTSK DEV+2!, END!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All