| 1 | XUGET ; SF/XAK - PACKAGE INTEGRITY CHECKER ;12/14/92 11:47 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | 1 W ! S DIR("A",1)="This answer is case sensitive.",DIR("A")="Select PACKAGE PREFIX",DIR(0)="FO^2:4"
|
|---|
| 4 | S DIR("?")="Prefix must be 2 to 4 characters in length.",DIR("??")="^D H^XUGET"
|
|---|
| 5 | D ^DIR G END:$D(DIRUT) S X=X_"NTEG"
|
|---|
| 6 | X ^%ZOSF("TEST") I '$T W !!?5,"Integrity program does not exist." G 1
|
|---|
| 7 | W ! S XD="^"_X S %ZIS="Q" D ^%ZIS G END:POP
|
|---|
| 8 | I $D(IO("Q")) K IO("Q") S ZTRTN="GO^XUGET",ZTSAVE("XD")="",ZTDESC="ROUTINE INTEGRITY CHECKER",ZTIO=ION D ^%ZTLOAD G 1
|
|---|
| 9 | GO W !,"Running "_XD_"..." D @XD G END:$D(ZTSK)
|
|---|
| 10 | G 1
|
|---|
| 11 | H ;
|
|---|
| 12 | S DZ="?",DIC="^DIC(9.4,",DIC(0)="QE",D="C",DIC("S")="N X S X=$P(^(0),U,2)_""NTEG"" X ^%ZOSF(""TEST"")"
|
|---|
| 13 | S DIC("W")="W ?15,$P(^(0),U)" D DQ^DICQ
|
|---|
| 14 | K %,%Y,DD,DIX,DIY,DO,DISYS,D,DIC,DZ
|
|---|
| 15 | Q
|
|---|
| 16 | END K %I,ZTSK,XD,IO("Q"),POP,LN,I,L,X,DIR,DIRUT S U="^" Q
|
|---|
