TIUZZ65.m

TIUZZ65 ; SLC/MAM - Cleanup routine for AFTER TIU*1*65 ;9/10/98  11:13

 ;;1.0;TEXT INTEGRATION UTILITIES;**65**;Jun 20, 1997

 ;

CLXREF ; Reset 8925 cross-reference ACLPT05

 S %ZIS="Q" D ^%ZIS I POP G CLXRX

 I '$D(IO("Q")) G CLXREF1

 S ZTRTN="CLXREF1^TIUZZ65",ZTDESC="TIU Reset XREF ACLPT05"

 D ^%ZTLOAD G CLXRX

 ;

CLXREF1 N DIK

 S DIK="^TIU(8925,"

 S DIK(1)=".05^ACLPT05" D ENALL^DIK

 U IO

 W !!,"  ... Done Resetting TIU XREF ACLPT05",!!

 ;

CLXRX D ^%ZISC,HOME^%ZIS

 I $D(ZTQUEUED) S ZTREQ="@"

 Q

 ;

TIUZZ65   ; SLC/MAM - Cleanup routine for AFTER TIU*1*65 ;9/10/98  11:13

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**65**;Jun 20, 1997

 +2       ;

CLXREF    ; Reset 8925 cross-reference ACLPT05

 +1        SET %ZIS="Q"

           DO ^%ZIS

           IF POP

               GOTO CLXRX

 +2        IF '$DATA(IO("Q"))

               GOTO CLXREF1

 +3        SET ZTRTN="CLXREF1^TIUZZ65"

           SET ZTDESC="TIU Reset XREF ACLPT05"

 +4        DO ^%ZTLOAD

           GOTO CLXRX

 +5       ;

CLXREF1    NEW DIK

 +1        SET DIK="^TIU(8925,"

 +2        SET DIK(1)=".05^ACLPT05"

           DO ENALL^DIK

 +3        USE IO

 +4        WRITE !!,"  ... Done Resetting TIU XREF ACLPT05",!!

 +5       ;

CLXRX      DO ^%ZISC

           DO HOME^%ZIS

 +1        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +2        QUIT 

 +3       ;