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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ONCOENV

Package: Oncology

Routine: ONCOENV


Information

ONCOENV ;WASH ISC/SRR,MLH-PACKAGE ENVIRONMENT CHECK VERSION 2.11

Source Information

Source file <ONCOENV.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Oncology 3 LOGO^ONCODIS  QNORSTG^ONCOENA  $$RSTGASK^ONCOU55A  
VA FileMan 3 DD^%DT  YX^%DTC  ^DIR  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
PRE ; PRE INIT - Check user and device
CK ;Check if installed
; 7/14/94 MLH added NEW to next line to cause version to be
; correctly identified
NN
START
EX ;Exit conversion
CI ;CHECK INSTALLATION VERSION
CN
V
AB
ABORT
GOAHEAD() ; does user want to go ahead with installation?
CV
RSTSET ;JAH 01FEB95; Set up for restaging - called by CK

External References

Name Field # of Occurrence
DD^%DT NN+5, START+1, CI+9
YX^%DTC START+1
^%ZIS ONCOENV+5
^DIR AB, GOAHEAD+16, RSTSET+8
LOGO^ONCODIS START+2
QNORSTG^ONCOENA NN+17
$$RSTGASK^ONCOU55A RSTSET+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?15,"YOU ARE NOT IDENTIFIED AS A USER!!",!!?17,"TERMINATING this Installation!",!!!
  • Line Location: PRE+1
Function Call: WRITE
  • Prompt: !!,*7,*7,?10,"INSTALLATION "_V_" Completed: "_Y_"."
  • Line Location: NN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!?10,"Appears installation was started, not completed"
  • Line Location: CI+3
Function Call: WRITE
  • Prompt: !?10,"- no other information available, will continue..."
  • Line Location: CI+4
Function Call: WRITE
  • Prompt: !!?10,"Appears installation of V"_VX_" on "_Y
  • Line Location: CI+10
Function Call: WRITE
  • Prompt: !?10,"began, but did not complete - will continue installation..."
  • Line Location: CI+11
Function Call: WRITE
  • Prompt: !!,"I am going to clean out DD's (national fields only)."
  • Line Location: CN+0
Function Call: WRITE
  • Prompt: !,"I will also purge the static files, except for FOLLOW-UP FORM LETTER."
  • Line Location: CN+1
Function Call: WRITE
  • Prompt: !!,"Please convert to Version 2.0 before proceeding.",!!
  • Line Location: CN+5
Function Call: WRITE
  • Prompt: !!!?25,"INSTALLATION: VERSION ",VR,!?25,Y
  • Line Location: V+0
Function Call: WRITE
  • Prompt: !!?7,"Installation aborted - you may DO ^ONCOINIT at any time."
  • Line Location: ABORT+0
Function Call: WRITE
  • Prompt: !?20,"VERSION "_V_" currently installed",!?32,VX
  • Line Location: CV+1
Function Call: WRITE
  • Prompt: !,?20,"This is a VIRGIN Installation",!!
  • Line Location: CV+2
Function Call: WRITE
  • Prompt: !!,"The post-initialization can automatically recompute"
  • Line Location: RSTSET+1
Function Call: WRITE
  • Prompt: !,"the AJCC staging of entries on your primary file with"
  • Line Location: RSTSET+2
Function Call: WRITE
  • Prompt: !,"a DIAGNOSIS DATE on or after a date you specify."
  • Line Location: RSTSET+3
Function Call: WRITE
  • Prompt: !!,"Answer YES to restage."
  • Line Location: RSTSET+4
Routine Call
  • DIR
  • Line Location:
    • AB
    • GOAHEAD+16
    • RSTSET+8
Routine Call
  • %ZIS
  • Line Location:
    • ONCOENV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(160 CI+2
^ONCO(160 - [#160] START+3, CV+2
^ONCO(169.99 - [#169.99] NN, NN+3, NN+4, CI+1, CI+5, CV*
^UTILITY($J EX+1!

Label References

Name Line Occurrences
$$GOAHEAD NN+7
AB CN+2
ABORT AB
CI START+8
CK PRE+2
CV START+5, CI+15
EX PRE+3
RSTSET NN+12
START NN+11
V START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H START+1*
DIFQ PRE+1!, NN+7!, NN+11, NN+12, NN+17, CN+5!, ABORT!
DIK EX+1!
DIR EX+1!, AB!, GOAHEAD+1~
DIR("?" GOAHEAD+3*, GOAHEAD+4*, GOAHEAD+5*, GOAHEAD+7*, GOAHEAD+8*, GOAHEAD+9*, GOAHEAD+10*, GOAHEAD+11*, GOAHEAD+12*, RSTSET+6*
, RSTSET+7*
DIR("A" AB*, GOAHEAD+2*, RSTSET+5*
DIR("B" AB*, GOAHEAD+2*, RSTSET+5*
DIR(0 AB*, GOAHEAD+2*, RSTSET+5*
DIU EX+1!
>> DTOUT RSTSET+9
>> DUOUT RSTSET+9
DUZ PRE+1
ER EX+1!
I NN+2~, NN+3*, NN+4, EX+1!*
>> INS CI+1*, CI+2, CI+8, CI+9
IOF ONCOENV+5
>> IOP ONCOENV+5*
J EX+1!
K EX+1!
L EX+1!
LTD EX+1!
MC EX+1!
N EX+1!
N1 EX+1!
NAC EX+1!
NF EX+1!
NFM EX+1!
>> NM START*
NXT EX+1!
>> OFST NN+12, START*, START+4*, CV+1
>> ONCOBEG START+1*
>> ONCOI1ST NN+17, RSTSET+9*, RSTSET+10*
>> ONCOST START+1*
REM EX+1!
RR EX+1!
S EX+1!
>> ST CI+9*
T EX+1!
TC EX+1!
U NN+3, NN+4, CI+9, CV
V NN~*, NN+1, NN+6, CI+5*, CN+4, CV*, CV+1
>> VND CV*
VR NN~*, NN+1, V
>> VRN CV*
>> VX CI+9*, CI+10, CV*, CV+1
XDD EX+1!
XIU START*, EX+1!
Y NN+2~, NN+4*, NN+6, START+1, CI+9*, CI+10, CN+3, V, AB, GOAHEAD+17
, RSTSET+9

Marked Items

Name Field # of Occurrence
$T( GOAHEAD+6
$T(ONCOENV+1 NN
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All