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 | Label References | Local Variables | All

Print Page as PDF

Routine: DI170ENV

Package: VA FileMan

Routine: DI170ENV

Information

DI170ENV ;OIFO-Oakland/RD - ENVIRONMENT CHECK ROUTINE ;

Source Information

Source file <DI170ENV.m>

Call Graph

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	$$EC^%ZOSV UNWIND^%ZTER
VA FileMan	2	^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Test Remedy ticket 865632
I1	;issue 1
I2	;issue 2
ERR	;this is where the error is trapped

External References

Name	Field # of Occurrence
$$EC^%ZOSV	ERR+1
UNWIND^%ZTER	ERR+4
^DIC	I1+9
^DIR	I2+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will test the fixes in patch DI22170." Line Location: I1+2
Function Call: WRITE	Prompt: !!,"Issue 1: undefined error when user enter '?' after a list and asked to choose." Line Location: I1+3
Function Call: WRITE	Prompt: !!," Step 1. Enter '?' at the 'CHOOSE 1-5:' prompt." Line Location: I1+4
Function Call: WRITE	Prompt: !," Step 2. Enter 'NO' at the 'Do you want... INSTITUTION List?' prompt." Line Location: I1+5
Function Call: WRITE	Prompt: !," Step 3. If you don't get an error, then enter '^' at the next prompt." Line Location: I1+6
Function Call: WRITE	Prompt: !!,"Begin Test 1:",! Line Location: I1+7
Function Call: WRITE	Prompt: !!,"Test Passed, no error occurred",!! Line Location: I1+10
Function Call: WRITE	Prompt: !!,"Issue 2: User can't '^' out of the reader(DIR) on a pointer field or type." Line Location: I2+2
Function Call: WRITE	Prompt: !!," Step 1. Enter 'VISN' at the 'Select INSTITUTION:' prompt." Line Location: I2+3
Function Call: WRITE	Prompt: !," Step 2. Enter '^' at the 'CHOOSE 1-5:' prompt." Line Location: I2+4
Function Call: WRITE	Prompt: !," Step 3. Hit ""Enter key"" at next two prompts." Line Location: I2+5
Function Call: WRITE	Prompt: !!,"Begin Test 2:",! Line Location: I2+6
Function Call: WRITE	Prompt: !!!,"If you saw a long description about the INSTITUTION file and was prompted" Line Location: I2+9
Function Call: WRITE	Prompt: !,"to view the entire INSTITUTION List, then the test FAILED." Line Location: I2+10
Function Call: WRITE	Prompt: !!,"If you only saw the 'Select INSTITUTION:' prompt again, the test Passed.",!!! Line Location: I2+11
Function Call: WRITE	Prompt: !!,X,! Line Location: ERR+2
Function Call: WRITE	Prompt: "Test FAILED",!! Line Location: ERR+3
Routine Call	DIC Line Location: I1+9
Routine Call	DIR Line Location: I2+8

Label References

Name	Line Occurrences
I1	EN+1
I2	EN+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	I1+1~, I1+8*
DIC(0	I1+8*
DIOUT	I2+1~
DIR	I2+1~
DIR(0	I2+7*
DIRUT	I2+1~
X	I1+1~, I1+8, I2+1~, ERR+1, ERR+2
Y	I1+1~, I2+1~

Info | Source | Call Graph | Entry Points | External References | Interaction Calls | Label References | Local Variables | All