DI170ENV.m

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 ---DI170ENV   1565     printed  Feb 19, 2025@00:10:39                                                                                                                                                                                                    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