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

Package: Medicine

Routine: MCENV00


Information

MCENV00 ;WISC/DAD-ENVIRONMENT CHECK ROUTINE ;9/9/96 07:38

Source Information

Source file <MCENV00.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  $$FMADD^XLFDT  ($$PATCH,$$VERSION)^XPDUTL  
VA FileMan 3 $$GET1^DID  $$VFILE^DILFD  ^DIR  
Medicine 1 ^MCARE  

Entry Points

Name Comments DBIA/ICR reference
GETVER ; Get version of Medicine package installed
ASKDEL ; Ask about deletion of Medicine if version is < 2.0
FILCHK ; Check to see if required files are present
PCHCHK ; Check for patch DI*21*25
ASKDEV ; Ask device to print conversion reports to
REQFILE ; File# ^ Package_Name ^ Minimum_Required_Version

External References

Name Field # of Occurrence
^%ZIS ASKDEV+10
$$GET1^DID FILCHK+4, FILCHK+6
$$VFILE^DILFD FILCHK+8
^DIR ASKDEL+16, ASKDEL+26
^MCARE GETVER+3
$$FMADD^XLFDT MCENV00+3
$$PATCH^XPDUTL PCHCHK+2
$$VERSION^XPDUTL FILCHK+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking for previous version of the medicine package."
  • Line Location: GETVER+2
Function Call: WRITE
  • Prompt: !!,"Found Medicine package version ",VERSION,"."
  • Line Location: GETVER+7
Function Call: WRITE
  • Prompt: !!,"You are running a version of the Medicine package less"
  • Line Location: GETVER+9
Function Call: WRITE
  • Prompt: !,"than 2.0. Medicine 2.3 can only install over top of"
  • Line Location: GETVER+10
Function Call: WRITE
  • Prompt: !,"version 2.0, 2.2, or in a virgin account."
  • Line Location: GETVER+11
Function Call: WRITE
  • Prompt: !!,"Medicine package not found."
  • Line Location: GETVER+15
Function Call: WRITE
  • Prompt: !!,"Checking for minimum required package versions."
  • Line Location: FILCHK+2
Function Call: WRITE
  • Prompt: !!,"The Medicine Package requires the "_FILENAME
  • Line Location: FILCHK+10
Function Call: WRITE
  • Prompt: !,"file (#"_FILENUM_") from the "_PACKAGE
  • Line Location: FILCHK+11
Function Call: WRITE
  • Prompt: !,"package, minimum version "_REQVER_"."
  • Line Location: FILCHK+12
Function Call: WRITE
  • Prompt: !!,"Missing or insufficient version of"
  • Line Location: FILCHK+17
Function Call: WRITE
  • Prompt: "file(s), aborting installation."
  • Line Location: FILCHK+18
Function Call: WRITE
  • Prompt: !!,"All required files found."
  • Line Location: FILCHK+21
Function Call: WRITE
  • Prompt: !!,"Checking for patch DI*21*25."
  • Line Location: PCHCHK+1
Function Call: WRITE
  • Prompt: !,"Patch not found, aborting installation."
  • Line Location: PCHCHK+3
Function Call: WRITE
  • Prompt: !,"Patch found."
  • Line Location: PCHCHK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+10
Function Call: WRITE
  • Prompt: !!,"You must enter a device name!"
  • Line Location: ASKDEV+11
Function Call: WRITE
  • Prompt: !!,"No device selected, aborting installation."
  • Line Location: ASKDEV+15
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+10
Routine Call
  • DIR
  • Line Location:
    • ASKDEL+16
    • ASKDEL+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("MC" MCENV00+3*, GETVER+5*, ASKDEL+2*, ASKDEL+27*, ASKDEV+2*, ASKDEV+18*

Label References

Name Line Occurrences
ASKDEL MCENV00+9
ASKDEV MCENV00+10
FILCHK MCENV00+6
GETVER MCENV00+5
PCHCHK MCENV00+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKDEV+4~, ASKDEV+6!, ASKDEV+7*
%ZIS("A" ASKDEV+7*
%ZIS("B" ASKDEV+8*
%ZIS("S" ASKDEV+9*
ABORT FILCHK+1~, FILCHK+2*, FILCHK+9*, FILCHK+15
CHECK FILCHK+1~, FILCHK+3*, FILCHK+4, FILCHK+5, FILCHK+7
DIR ASKDEL+4~, ASKDEL+17!
DIR("?" ASKDEL+9*, ASKDEL+10*, ASKDEL+11*, ASKDEL+12*, ASKDEL+13*, ASKDEL+14*, ASKDEL+15*, ASKDEL+22*, ASKDEL+23*, ASKDEL+24*
, ASKDEL+25*
DIR("A" ASKDEL+6*, ASKDEL+7*, ASKDEL+19*, ASKDEL+20*
DIR("B" ASKDEL+8*, ASKDEL+21*
DIR(0 ASKDEL+5*, ASKDEL+18*
DT MCENV00+3
FILENAME FILCHK+1~, FILCHK+4*, FILCHK+10
FILENUM FILCHK+1~, FILCHK+4*, FILCHK+6, FILCHK+8, FILCHK+11
INSVER FILCHK+1~, FILCHK+6*, FILCHK+7*, FILCHK+8
IOM ASKDEV+18
ION ASKDEV+18
IOP ASKDEV+4~, ASKDEV+6!
IOSL ASKDEV+18
IOST ASKDEV+18
LOOP FILCHK+1~, FILCHK+3*
MC ASKDEV+4~, ASKDEV+5*, ASKDEV+11
PACKAGE FILCHK+1~, FILCHK+5*, FILCHK+11
POP ASKDEV+4~, ASKDEV+5, ASKDEV+6!, ASKDEV+11, ASKDEV+13
REQVER FILCHK+1~, FILCHK+5*, FILCHK+8, FILCHK+12
U MCENV00+3, FILCHK+4, FILCHK+5, FILCHK+7
VERSION GETVER+1~, GETVER+3*, GETVER+4*, GETVER+5, GETVER+6, GETVER+7, GETVER+8, ASKDEL+1~, ASKDEL+2*, ASKDEL+3
, ASKDEL+6, ASKDEV+1~, ASKDEV+2*, ASKDEV+3
>> XPDABORT ASKDEL+16*, ASKDEL+26*, FILCHK+16*, PCHCHK+4*, ASKDEV+14*
>> XPDENV MCENV00+8
>> XPDNOQUE MCENV00+4*
>> Y ASKDEL+16, ASKDEL+26

Marked Items

Name Field # of Occurrence
$T(MCARE+1^MCARE GETVER+3
$T(REQFILE+LOOP FILCHK+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All