- %AUFIXPT ; FIX ALL "PT" NODES [ 07/29/87 9:19 AM ]
- ;
- ; This routine fixes all "PT" nodes for files 1 through the
- ; highest file number in the current UCI.
- ;
- W !!,"This routine insures the ""PT"" node of each FileMan file is correct.",!
- W !!,"Now checking false positives.",!
- S U="^"
- S AUFFILE=.99999999 F AUFL=0:0 S AUFFILE=$O(^DD(AUFFILE)) Q:AUFFILE'=+AUFFILE I $D(^DD(AUFFILE,0,"PT")) W !,AUFFILE D FPOS
- W !!,"Now checking false negatives.",!
- D FNEG
- K AUFFILE,AUFL
- W !!,"DONE",!
- Q
- ;
- FPOS ; CHECK FOR FALSE POSITIVES
- S AUFPFILE="" F AUFL=0:0 S AUFPFILE=$O(^DD(AUFFILE,0,"PT",AUFPFILE)) Q:AUFPFILE="" S AUFPFLD="" F AUFL=0:0 S AUFPFLD=$O(^DD(AUFFILE,0,"PT",AUFPFILE,AUFPFLD)) Q:AUFPFLD="" D CHKIT
- K AUFPFILE,AUFPFLD,AUFX
- Q
- ;
- CHKIT ;
- W "."
- I '$D(^DD(AUFPFILE)) W "|" K ^DD(AUFFILE,0,"PT",AUFPFILE) Q
- I '$D(^DD(AUFPFILE,AUFPFLD)) W "|" K ^DD(AUFFILE,0,"PT",AUFPFILE,AUFPFLD) Q
- S AUFX=$P(^DD(AUFPFILE,AUFPFLD,0),U,2)
- I AUFX["P",AUFX[AUFFILE Q
- I AUFX["V",$D(^DD(AUFPFILE,AUFPFLD,"V","B",AUFFILE)) Q
- W "|" K ^DD(AUFFILE,0,"PT",AUFPFILE,AUFPFLD)
- Q
- ;
- FNEG ; CHECK FOR FALSE NEGATIVES
- S AUFFILE=.99999999 F AUFL=0:0 S AUFFILE=$O(^DD(AUFFILE)) Q:AUFFILE'=+AUFFILE W !,AUFFILE S AUFFLD=0 F AUFL=0:0 S AUFFLD=$O(^DD(AUFFILE,AUFFLD)) Q:AUFFLD'=+AUFFLD D:$D(^(AUFFLD,0))#2 PTRCHK
- K AUFFILE,AUFFLD,AUFX,AUFI
- Q
- ;
- PTRCHK ;
- S AUFX=$P(^(0),U,2)
- I AUFX["V" D PTRCHK2 Q
- Q:AUFX'["P"
- F AUFI=1:1:$L(AUFX)+1 Q:$E(AUFX,AUFI)?1N
- Q:AUFI>$L(AUFX)
- S AUFX=$E(AUFX,AUFI,999),AUFX=+AUFX
- Q:'AUFX
- Q:AUFX<1 ;*** DOES NOT MESS WITH FILE NUMBERS < 1 ***
- W "."
- Q:'$D(^DIC(AUFX))
- Q:'$D(^DD(AUFX,0))
- I '$D(^DD(AUFX,0,"PT",AUFFILE,AUFFLD)) W "|" S ^(AUFFLD)=""
- Q
- ;
- PTRCHK2 ; VARIABLE POINTER CHECK
- S AUFX="" F AUFL=0:0 S AUFX=$O(^DD(AUFFILE,AUFFLD,"V","B",AUFX)) Q:AUFX="" I '$D(^DD(AUFX,0,"PT",AUFFILE,AUFFLD)) W "|" S ^(AUFFLD)=""
- Q
- %AUFIXPT ; FIX ALL "PT" NODES [ 07/29/87 9:19 AM ]
- +1 ;
- +2 ; This routine fixes all "PT" nodes for files 1 through the
- +3 ; highest file number in the current UCI.
- +4 ;
- +5 WRITE !!,"This routine insures the ""PT"" node of each FileMan file is correct.",!
- +6 WRITE !!,"Now checking false positives.",!
- +7 SET U="^"
- +8 SET AUFFILE=.99999999
- FOR AUFL=0:0
- SET AUFFILE=$ORDER(^DD(AUFFILE))
- IF AUFFILE'=+AUFFILE
- QUIT
- IF $DATA(^DD(AUFFILE,0,"PT"))
- WRITE !,AUFFILE
- DO FPOS
- +9 WRITE !!,"Now checking false negatives.",!
- +10 DO FNEG
- +11 KILL AUFFILE,AUFL
- +12 WRITE !!,"DONE",!
- +13 QUIT
- +14 ;
- FPOS ; CHECK FOR FALSE POSITIVES
- +1 SET AUFPFILE=""
- FOR AUFL=0:0
- SET AUFPFILE=$ORDER(^DD(AUFFILE,0,"PT",AUFPFILE))
- IF AUFPFILE=""
- QUIT
- SET AUFPFLD=""
- FOR AUFL=0:0
- SET AUFPFLD=$ORDER(^DD(AUFFILE,0,"PT",AUFPFILE,AUFPFLD))
- IF AUFPFLD=""
- QUIT
- DO CHKIT
- +2 KILL AUFPFILE,AUFPFLD,AUFX
- +3 QUIT
- +4 ;
- CHKIT ;
- +1 WRITE "."
- +2 IF '$DATA(^DD(AUFPFILE))
- WRITE "|"
- KILL ^DD(AUFFILE,0,"PT",AUFPFILE)
- QUIT
- +3 IF '$DATA(^DD(AUFPFILE,AUFPFLD))
- WRITE "|"
- KILL ^DD(AUFFILE,0,"PT",AUFPFILE,AUFPFLD)
- QUIT
- +4 SET AUFX=$PIECE(^DD(AUFPFILE,AUFPFLD,0),U,2)
- +5 IF AUFX["P"
- IF AUFX[AUFFILE
- QUIT
- +6 IF AUFX["V"
- IF $DATA(^DD(AUFPFILE,AUFPFLD,"V","B",AUFFILE))
- QUIT
- +7 WRITE "|"
- KILL ^DD(AUFFILE,0,"PT",AUFPFILE,AUFPFLD)
- +8 QUIT
- +9 ;
- FNEG ; CHECK FOR FALSE NEGATIVES
- +1 SET AUFFILE=.99999999
- FOR AUFL=0:0
- SET AUFFILE=$ORDER(^DD(AUFFILE))
- IF AUFFILE'=+AUFFILE
- QUIT
- WRITE !,AUFFILE
- SET AUFFLD=0
- FOR AUFL=0:0
- SET AUFFLD=$ORDER(^DD(AUFFILE,AUFFLD))
- IF AUFFLD'=+AUFFLD
- QUIT
- IF $DATA(^(AUFFLD,0))#2
- DO PTRCHK
- +2 KILL AUFFILE,AUFFLD,AUFX,AUFI
- +3 QUIT
- +4 ;
- PTRCHK ;
- +1 SET AUFX=$PIECE(^(0),U,2)
- +2 IF AUFX["V"
- DO PTRCHK2
- QUIT
- +3 IF AUFX'["P"
- QUIT
- +4 FOR AUFI=1:1:$LENGTH(AUFX)+1
- IF $EXTRACT(AUFX,AUFI)?1N
- QUIT
- +5 IF AUFI>$LENGTH(AUFX)
- QUIT
- +6 SET AUFX=$EXTRACT(AUFX,AUFI,999)
- SET AUFX=+AUFX
- +7 IF 'AUFX
- QUIT
- +8 ;*** DOES NOT MESS WITH FILE NUMBERS < 1 ***
- IF AUFX<1
- QUIT
- +9 WRITE "."
- +10 IF '$DATA(^DIC(AUFX))
- QUIT
- +11 IF '$DATA(^DD(AUFX,0))
- QUIT
- +12 IF '$DATA(^DD(AUFX,0,"PT",AUFFILE,AUFFLD))
- WRITE "|"
- SET ^(AUFFLD)=""
- +13 QUIT
- +14 ;
- PTRCHK2 ; VARIABLE POINTER CHECK
- +1 SET AUFX=""
- FOR AUFL=0:0
- SET AUFX=$ORDER(^DD(AUFFILE,AUFFLD,"V","B",AUFX))
- IF AUFX=""
- QUIT
- IF '$DATA(^DD(AUFX,0,"PT",AUFFILE,AUFFLD))
- WRITE "|"
- SET ^(AUFFLD)=""
- +2 QUIT
