ACGSCLEN.m

ACGSCLEN ;IHS/OIRM/DSD/THL,AEF - UTILITY TO CHECK XREF'S; [ 03/27/2000   2:22 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;;UTILITY USED TO RE-INDEX SELECTED XREF'S TO ENSURE DATA INTEGRITY

 Q

CLEAN ;EP;RE-INDEX SELECTED XREF'S

 N ACG,ACG1,ACG2,X

 F ACG=1,2,4,5,10,11,15,16,19,23,24,30,103,121,1099 D

 .S ACGXREF=$S(ACG=1:"S",ACG=2:"B",ACG=4:"N",ACG=5:"O",ACG=10:"P",ACG=11:"M",ACG=15:"G",ACG=16:"F",ACG=19:"K",ACG=23:"R",ACG=24:"T",ACG=30:"E",ACG=103:"D",ACG=121:"L",ACG=1099:"Q")

 .W !,"Re-indexing field: ",ACG,", X-ref: ",ACGXREF

 .K ^ACGS(ACGXREF)

 .S DIK="^ACGS(",DIK(1)=ACG_"^1"

 .S:ACG=19 DIK(1)="19^2"

 .D ENALL^DIK

 Q

 ;

ACGSCLEN  ;IHS/OIRM/DSD/THL,AEF - UTILITY TO CHECK XREF'S; [ 03/27/2000   2:22 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;;UTILITY USED TO RE-INDEX SELECTED XREF'S TO ENSURE DATA INTEGRITY

 +3        QUIT 

CLEAN     ;EP;RE-INDEX SELECTED XREF'S

 +1        NEW ACG,ACG1,ACG2,X

 +2        FOR ACG=1,2,4,5,10,11,15,16,19,23,24,30,103,121,1099

               Begin DoDot:1

 +3                SET ACGXREF=$SELECT(ACG=1:"S",ACG=2:"B",ACG=4:"N",ACG=5:"O",ACG=10:"P",ACG=11:"M",ACG=15:"G",ACG=16:"F",ACG=19:"K",ACG=23:"R",ACG=24:"T",ACG=30:"E",ACG=103:"D",ACG=121:"L",ACG=1099:"Q")

 +4                WRITE !,"Re-indexing field: ",ACG,", X-ref: ",ACGXREF

 +5                KILL ^ACGS(ACGXREF)

 +6                SET DIK="^ACGS("

                   SET DIK(1)=ACG_"^1"

 +7                IF ACG=19

                       SET DIK(1)="19^2"

 +8                DO ENALL^DIK

               End DoDot:1

 +9        QUIT 

 +10      ;