Routine: MCARENV1

Package	Total	Call Graph
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
NOTIFY(X)	; alert user to cleanup, allow them to bail out
NOTIFY1(X)	; alert user to cleanup -- part 2

External References

Name	Field # of Occurrence
^DIR	NOTIFY+29, NOTIFY1+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"OK, stopping the installation here..nothing changed!" Line Location: MCARENV1+13
Function Call: WRITE	Prompt: @IOF,"*********************************************************" Line Location: NOTIFY+1
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY+2
Function Call: WRITE	Prompt: !,"* " Line Location: NOTIFY+3
Function Call: WRITE	Prompt: 7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),7 Line Location: NOTIFY+4
Function Call: WRITE	Prompt: " ",7 Line Location: NOTIFY+5
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY+6
Function Call: WRITE	Prompt: !,"* This pre-initialization routine will " Line Location: NOTIFY+7
Function Call: WRITE	Prompt: MCSCATT(4),"delete",MCSCATT(0)," the *" Line Location: NOTIFY+8
Function Call: WRITE	Prompt: !,"* ",MCSCATT(1),"DATA DICTIONARIES",MCSCATT(0) Line Location: NOTIFY+9
Function Call: WRITE	Prompt: " (but ",MCSCATT(4),"retain",MCSCATT(0)," the data) for the *" Line Location: NOTIFY+10
Function Call: WRITE	Prompt: !,"* following files: *" Line Location: NOTIFY+11
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY+12
Function Call: WRITE	Prompt: !,"* 690 (MEDICAL PATIENT) *" Line Location: NOTIFY+13
Function Call: WRITE	Prompt: !,"* 691.1 (CARDIAC CATHETERIZATION) *" Line Location: NOTIFY+14
Function Call: WRITE	Prompt: !,"* 697 (ANATOMY) *" Line Location: NOTIFY+15
Function Call: WRITE	Prompt: !,"* 697.5 (MEDICAL DIAGNOSIS/ICD CODES) *" Line Location: NOTIFY+16
Function Call: WRITE	Prompt: !,"* 699.6 (DIAG/THERAP INTERVENT) *" Line Location: NOTIFY+17
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY+18
Function Call: WRITE	Prompt: !,"* You " Line Location: NOTIFY+19
Function Call: WRITE	Prompt: MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *" Line Location: NOTIFY+20
Function Call: WRITE	Prompt: !,"* data dictionaries for these files before *" Line Location: NOTIFY+21
Function Call: WRITE	Prompt: !,"* proceeding with this routine. *" Line Location: NOTIFY+22
Function Call: WRITE	Prompt: !,"* (See the Installation Guide for instructions.) *" Line Location: NOTIFY+23
Function Call: WRITE	Prompt: !,"* Any changes not saved will be " Line Location: NOTIFY+24
Function Call: WRITE	Prompt: MCSCATT(1),"LOST!",MCSCATT(0)," *" Line Location: NOTIFY+25
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY+26
Function Call: WRITE	Prompt: !,"*********************************************************",! Line Location: NOTIFY+27
Function Call: WRITE	Prompt: @IOF,"*********************************************************" Line Location: NOTIFY1+1
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY1+2
Function Call: WRITE	Prompt: !,"* " Line Location: NOTIFY1+3
Function Call: WRITE	Prompt: 7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),7 Line Location: NOTIFY1+4
Function Call: WRITE	Prompt: " ",7 Line Location: NOTIFY1+5
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY1+6
Function Call: WRITE	Prompt: !,"* This pre-initialization routine will " Line Location: NOTIFY1+7
Function Call: WRITE	Prompt: MCSCATT(4),"delete",MCSCATT(0)," the *" Line Location: NOTIFY1+8
Function Call: WRITE	Prompt: !,"* ",MCSCATT(1),"DATA DICTIONARIES ",MCSCATT(0) Line Location: NOTIFY1+9
Function Call: WRITE	Prompt: MCSCATT(4),"and",MCSCATT(0),MCSCATT(1)," DATA",MCSCATT(0) Line Location: NOTIFY1+10
Function Call: WRITE	Prompt: " for the following *" Line Location: NOTIFY1+11
Function Call: WRITE	Prompt: !,"* file: *" Line Location: NOTIFY1+12
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY1+13
Function Call: WRITE	Prompt: !,"* 697.3 (MEDICINE SCREEN) *" Line Location: NOTIFY1+14
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY1+15
Function Call: WRITE	Prompt: !,"* You " Line Location: NOTIFY1+16
Function Call: WRITE	Prompt: MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *" Line Location: NOTIFY1+17
Function Call: WRITE	Prompt: !,"* data dictionaries and data for this file *" Line Location: NOTIFY1+18
Function Call: WRITE	Prompt: !,"* before proceeding with this routine. *" Line Location: NOTIFY1+19
Function Call: WRITE	Prompt: !,"* (See the Installation Guide for instructions.) *" Line Location: NOTIFY1+20
Function Call: WRITE	Prompt: !,"* Any changes not saved will be " Line Location: NOTIFY1+21
Function Call: WRITE	Prompt: MCSCATT(1),"LOST!",MCSCATT(0)," *" Line Location: NOTIFY1+22
Function Call: WRITE	Prompt: !,"* *" Line Location: NOTIFY1+23
Function Call: WRITE	Prompt: !,"*********************************************************",! Line Location: NOTIFY1+24
Routine Call	DIR Line Location: NOTIFY+29 NOTIFY1+26

Name	Line Occurrences
$$NOTIFY	MCARENV1+9
$$NOTIFY1	MCARENV1+10

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIFQ	MCARENV1+14!
>> DIR("A"	NOTIFY+28, NOTIFY1+25
>> DIR(0	NOTIFY+28, NOTIFY1+25
>> I	MCARENV1+5, MCARENV1+6
IOF	NOTIFY+1, NOTIFY1+1
IOST	MCARENV1+5
MCSCATT	MCARENV1+4~
MCSCATT(	MCARENV1+5, MCARENV1+6
MCSCATT(0	NOTIFY+4, NOTIFY+8, NOTIFY+9, NOTIFY+10, NOTIFY+20, NOTIFY+25, NOTIFY1+4, NOTIFY1+8, NOTIFY1+9, NOTIFY1+10 , NOTIFY1+17, NOTIFY1+22
MCSCATT(1	NOTIFY+9, NOTIFY+20, NOTIFY+25, NOTIFY1+9, NOTIFY1+10, NOTIFY1+17, NOTIFY1+22
MCSCATT(4	NOTIFY+8, NOTIFY+10, NOTIFY1+8, NOTIFY1+10
MCSCATT(5	NOTIFY+4, NOTIFY1+4
MCSCATT(7	NOTIFY+4, NOTIFY1+4
>> OKTOGO	MCARENV1+9, MCARENV1+10, MCARENV1+12
X	NOTIFY~, NOTIFY1~
>> Y	NOTIFY+30, NOTIFY1+27

Customize PDF page

Package: Medicine

Routine: MCARENV1

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: