DI170ENV ;OIFO-Oakland/RD - ENVIRONMENT CHECK ROUTINE ;
;;22.0;VA FileMan;**170**;Mar 30, 1999;Build 10
;Per VHA Directive 2004-038, this routine should not be modified.
;
;this routine is used to test patch DI*22*170
Q
EN ;Test Remedy ticket 865632
D I1,I2
Q
I1 ;issue 1
N DIC,X,Y,$ESTACK,$ETRAP S $ETRAP="D ERR^DI170ENV"
W !!,"This routine will test the fixes in patch DI*22*170."
W !!,"Issue 1: undefined error when user enter '?' after a list and asked to choose."
W !!," Step 1. Enter '?' at the 'CHOOSE 1-5:' prompt."
W !," Step 2. Enter 'NO' at the 'Do you want... INSTITUTION List?' prompt."
W !," Step 3. If you don't get an error, then enter '^' at the next prompt."
W !!,"Begin Test 1:",!
S DIC="^DIC(4,",DIC(0)="QEM",X="500G"
D ^DIC
W !!,"Test Passed, no error occurred",!!
Q
I2 ;issue 2
N DIR,DIRUT,DIOUT,X,Y
W !!,"Issue 2: User can't '^' out of the reader(DIR) on a pointer field or type."
W !!," Step 1. Enter 'VISN' at the 'Select INSTITUTION:' prompt."
W !," Step 2. Enter '^' at the 'CHOOSE 1-5:' prompt."
W !," Step 3. Hit ""Enter key"" at next two prompts."
W !!,"Begin Test 2:",!
S DIR(0)="PO^4:EM"
D ^DIR
W !!!,"If you saw a long description about the INSTITUTION file and was prompted"
W !,"to view the entire INSTITUTION List, then the test FAILED."
W !!,"If you only saw the 'Select INSTITUTION:' prompt again, the test Passed.",!!!
Q
ERR ;this is where the error is trapped
S X=$$EC^%ZOSV ;Get the error code
W !!,X,!
W "**Test FAILED**",!!
D UNWIND^%ZTER
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI170ENV 1565 printed Sep 23, 2025@20:20:30 Page 2
DI170ENV ;OIFO-Oakland/RD - ENVIRONMENT CHECK ROUTINE ;
+1 ;;22.0;VA FileMan;**170**;Mar 30, 1999;Build 10
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ;this routine is used to test patch DI*22*170
+5 QUIT
EN ;Test Remedy ticket 865632
+1 DO I1
DO I2
+2 QUIT
I1 ;issue 1
+1 NEW DIC,X,Y,$ESTACK,$ETRAP
SET $ETRAP="D ERR^DI170ENV"
+2 WRITE !!,"This routine will test the fixes in patch DI*22*170."
+3 WRITE !!,"Issue 1: undefined error when user enter '?' after a list and asked to choose."
+4 WRITE !!," Step 1. Enter '?' at the 'CHOOSE 1-5:' prompt."
+5 WRITE !," Step 2. Enter 'NO' at the 'Do you want... INSTITUTION List?' prompt."
+6 WRITE !," Step 3. If you don't get an error, then enter '^' at the next prompt."
+7 WRITE !!,"Begin Test 1:",!
+8 SET DIC="^DIC(4,"
SET DIC(0)="QEM"
SET X="500G"
+9 DO ^DIC
+10 WRITE !!,"Test Passed, no error occurred",!!
+11 QUIT
I2 ;issue 2
+1 NEW DIR,DIRUT,DIOUT,X,Y
+2 WRITE !!,"Issue 2: User can't '^' out of the reader(DIR) on a pointer field or type."
+3 WRITE !!," Step 1. Enter 'VISN' at the 'Select INSTITUTION:' prompt."
+4 WRITE !," Step 2. Enter '^' at the 'CHOOSE 1-5:' prompt."
+5 WRITE !," Step 3. Hit ""Enter key"" at next two prompts."
+6 WRITE !!,"Begin Test 2:",!
+7 SET DIR(0)="PO^4:EM"
+8 DO ^DIR
+9 WRITE !!!,"If you saw a long description about the INSTITUTION file and was prompted"
+10 WRITE !,"to view the entire INSTITUTION List, then the test FAILED."
+11 WRITE !!,"If you only saw the 'Select INSTITUTION:' prompt again, the test Passed.",!!!
+12 QUIT
ERR ;this is where the error is trapped
+1 ;Get the error code
SET X=$$EC^%ZOSV
+2 WRITE !!,X,!
+3 WRITE "**Test FAILED**",!!
+4 DO UNWIND^%ZTER
+5 QUIT
