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 Total: 4

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

Entry Points

Name Comments DBIA/ICR reference
I1 ;issue 1
EN ;Test Remedy ticket 865632
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 DI*22*170."
  • 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