Routine: MCENV00

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

Package

Total

Call Graph

Kernel

^%ZIS $$FMADD^XLFDT ($$PATCH,$$VERSION)^XPDUTL

VA Fileman

$$GET1^DID $$VFILE^DILFD ^DIR

Medicine

^MCARE

Entry Points

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

Name	Field # of Occurrence
^%ZIS	ASKDEV+10
$$GET1^DID	FILCHK+4
$$VFILE^DILFD	FILCHK+8
^DIR	ASKDEL+16, ASKDEL+26
^MCARE	GETVER+3
$$FMADD^XLFDT	MCENV00+3
$$PATCH^XPDUTL	PCHCHK+3
$$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 DI2125." Line Location: PCHCHK+2
Function Call: WRITE	Prompt: !,"Patch not found, aborting installation." Line Location: PCHCHK+4
Function Call: WRITE	Prompt: !,"Patch found." Line Location: PCHCHK+8
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	DIR Line Location: ASKDEL+16 ASKDEL+26
Routine Call	%ZIS Line Location: ASKDEV+10

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

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

Local Variables

>>	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+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+5, ASKDEV+14*
>> XPDENV	MCENV00+8
>> XPDNOQUE	MCENV00+4*
>> Y	ASKDEL+16, ASKDEL+26

Customize PDF page

Package: Medicine

Routine: MCENV00

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items