AZOZU.m

AZOZU ;FOR MSM-NT and MSM-UNIX v4.3 or greater [ 04/20/1999  7:38 AM ]

EN S DIR("A")="PRESS RETURN TO CONTINUE"

 S DIR(0)="E",DTIME=10 D ^DIR

 K DIR,X,DTIME,DIRUT,DUOUT

 W ! 

 I Y=0 D SUB Q ;IHS/OKCAO/POC

 ;W !,"PLEASE DO NOT ACCESS NOW-SYSTEM BEING UPDATED" H 5 Q

 E  G ^ZU

 ;

SUB ;

 X ^%ZOSF("EOFF") R X:10

 X ^%ZOSF("EON")

 X ^%ZOSF("UPPERCASE") S X=Y K Y

 ;I $G(X)="JACK" K X V 0:$J:$ZB($V(0,$J,2),1,7):2

 I $G(X)="JACK" K X V 0:$J:$ZB($V(0,$J,2),1,7):2 Q

 I $G(X)="GARFIELD" K X V 0:$J:$ZB($V(0,$J,2),1,7):2 Q

 ;I $G(X)="JACK" Q $V(0,$J,2)#2 Q

 ;I $G(X)="JACK" S $EC=",U<<PROG>>,",ZT=""

 ;I X="JACK" D PRGMODE^%PATZU

 ;W !,"PLEASE DO NOT ACCESS NOW-SYSTEM BEING UPDATED" H 5 Q

 E  K X G ^ZU

AZOZU     ;FOR MSM-NT and MSM-UNIX v4.3 or greater [ 04/20/1999  7:38 AM ]

EN         SET DIR("A")="PRESS RETURN TO CONTINUE"

 +1        SET DIR(0)="E"

           SET DTIME=10

           DO ^DIR

 +2        KILL DIR,X,DTIME,DIRUT,DUOUT

 +3        WRITE !

 +4       ;IHS/OKCAO/POC

           IF Y=0

               DO SUB

               QUIT 

 +5       ;W !,"PLEASE DO NOT ACCESS NOW-SYSTEM BEING UPDATED" H 5 Q

 +6       IF '$TEST

               GOTO ^ZU

 +7       ;

SUB       ;

 +1        XECUTE ^%ZOSF("EOFF")

           READ X:10

 +2        XECUTE ^%ZOSF("EON")

 +3        XECUTE ^%ZOSF("UPPERCASE")

           SET X=Y

           KILL Y

 +4       ;I $G(X)="JACK" K X V 0:$J:$ZB($V(0,$J,2),1,7):2

 +5        IF $GET(X)="JACK"

               KILL X

               VIEW 0:$JOB:$ZB($VIEW(0,$JOB,2),1,7):2

               QUIT 

 +6        IF $GET(X)="GARFIELD"

               KILL X

               VIEW 0:$JOB:$ZB($VIEW(0,$JOB,2),1,7):2

               QUIT 

 +7       ;I $G(X)="JACK" Q $V(0,$J,2)#2 Q

 +8       ;I $G(X)="JACK" S $EC=",U<<PROG>>,",ZT=""

 +9       ;I X="JACK" D PRGMODE^%PATZU

 +10      ;W !,"PLEASE DO NOT ACCESS NOW-SYSTEM BEING UPDATED" H 5 Q

 +11      IF '$TEST

               KILL X

               GOTO ^ZU