ECX314PT ;ALB/JAP - PATCH ECX*3*14 Post-Install ; October 26, 1998
;;3.0;DSS EXTRACTS;**14**;Dec 22, 1997
;
POST ;Entry point
N FILE,SPACE,BLANK,LAST
;get rid of index junk on file #727.826
K ^ECX(727.826,"B"),^DD(727.826,.01,1,1),^DD(727.826,0,"IX","B",727.826,.01)
K ^ECX(727.826,"AINV"),^DD(727.826,.01,1,2),^DD(727.826,0,"IX","AINV",727.826,.01)
K ^DD(727.826,0,"IX","AG1",727.826,8),^DD(727.826,0,"IX","AG2",727.826,14),^DD(727.826,0,"IX","AG3",727.826,32)
K ^DD(727.826,8,1,1),^DD(727.826,14,1,1),^DD(727.826,32,1,1)
;remove the ainv index on extract files #727.802-#727.825
F I=.802,.803,.804,.805,.806,.808,.809,.81,.811,.813,.814,.815,.817,.819,.823,.824,.825 D
.S FILE=727+I
.W !!,"Deleting ""AINV"" index on file #"_FILE_"."
.K ^DD(FILE,0,"IX","AINV",FILE,.01)
.K ^DD(FILE,.01,1,1)
.K ^ECX(FILE,"AINV")
;update each file description on all extract files
F I=.802,.803,.804,.805,.806,.808,.809,.81,.811,.813,.814,.815,.817,.819,.823,.824,.825,.826 D
.S FILE=727+I
.W !!,"Updating Description for File #"_FILE_"."
.S BLANK=0,LAST=$O(^DIC(FILE,"%D",""),-1)
.F N=1:1:LAST I $D(^DIC(FILE,"%D",N)) D Q:BLANK>0
..S X=^DIC(FILE,"%D",N,0),XX=$L(X),SPACE=0
..F J=1:1:XX S CHAR=$E(X,J) S:$A(CHAR)'=32 SPACE=SPACE+1
..I SPACE=0 S BLANK=N
.F N=BLANK+1:1:LAST K ^DIC(FILE,"%D",N,0)
.S N=BLANK
.F ECX=1:1 S ECXX=$P($T(ALL+ECX),";;",2) Q:ECXX="QUIT" D
..S N=N+1,^DIC(FILE,"%D",N,0)=ECXX
.S $P(^DIC(FILE,"%D",0),U,3)=N,$P(^DIC(FILE,"%D",0),U,4)=N,$P(^DIC(FILE,"%D",0),U,5)=DT
Q
;
ALL ;update file description for all files
;;Since validation techniques will be determined by the local site, it is
;;intended that the site add whatever cross references deemed necessary.
;;However, this file contains one nationally determined cross reference,
;;the "AC" cross reference on the EXTRACT NUMBER field (#2). This cross
;;reference is used by the DSS Extracts software package as an essential
;;feature for managing and purging data in this file and should not be
;;modified.
;;
;;This file should NOT be modified directly using VA FileMan.
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX314PT 2131 printed Apr 09, 2024@20:58:21 Page 2
ECX314PT ;ALB/JAP - PATCH ECX*3*14 Post-Install ; October 26, 1998
+1 ;;3.0;DSS EXTRACTS;**14**;Dec 22, 1997
+2 ;
POST ;Entry point
+1 NEW FILE,SPACE,BLANK,LAST
+2 ;get rid of index junk on file #727.826
+3 KILL ^ECX(727.826,"B"),^DD(727.826,.01,1,1),^DD(727.826,0,"IX","B",727.826,.01)
+4 KILL ^ECX(727.826,"AINV"),^DD(727.826,.01,1,2),^DD(727.826,0,"IX","AINV",727.826,.01)
+5 KILL ^DD(727.826,0,"IX","AG1",727.826,8),^DD(727.826,0,"IX","AG2",727.826,14),^DD(727.826,0,"IX","AG3",727.826,32)
+6 KILL ^DD(727.826,8,1,1),^DD(727.826,14,1,1),^DD(727.826,32,1,1)
+7 ;remove the ainv index on extract files #727.802-#727.825
+8 FOR I=.802,.803,.804,.805,.806,.808,.809,.81,.811,.813,.814,.815,.817,.819,.823,.824,.825
Begin DoDot:1
+9 SET FILE=727+I
+10 WRITE !!,"Deleting ""AINV"" index on file #"_FILE_"."
+11 KILL ^DD(FILE,0,"IX","AINV",FILE,.01)
+12 KILL ^DD(FILE,.01,1,1)
+13 KILL ^ECX(FILE,"AINV")
End DoDot:1
+14 ;update each file description on all extract files
+15 FOR I=.802,.803,.804,.805,.806,.808,.809,.81,.811,.813,.814,.815,.817,.819,.823,.824,.825,.826
Begin DoDot:1
+16 SET FILE=727+I
+17 WRITE !!,"Updating Description for File #"_FILE_"."
+18 SET BLANK=0
SET LAST=$ORDER(^DIC(FILE,"%D",""),-1)
+19 FOR N=1:1:LAST
IF $DATA(^DIC(FILE,"%D",N))
Begin DoDot:2
+20 SET X=^DIC(FILE,"%D",N,0)
SET XX=$LENGTH(X)
SET SPACE=0
+21 FOR J=1:1:XX
SET CHAR=$EXTRACT(X,J)
if $ASCII(CHAR)'=32
SET SPACE=SPACE+1
+22 IF SPACE=0
SET BLANK=N
End DoDot:2
if BLANK>0
QUIT
+23 FOR N=BLANK+1:1:LAST
KILL ^DIC(FILE,"%D",N,0)
+24 SET N=BLANK
+25 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(ALL+ECX),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:2
+26 SET N=N+1
SET ^DIC(FILE,"%D",N,0)=ECXX
End DoDot:2
+27 SET $PIECE(^DIC(FILE,"%D",0),U,3)=N
SET $PIECE(^DIC(FILE,"%D",0),U,4)=N
SET $PIECE(^DIC(FILE,"%D",0),U,5)=DT
End DoDot:1
+28 QUIT
+29 ;
ALL ;update file description for all files
+1 ;;Since validation techniques will be determined by the local site, it is
+2 ;;intended that the site add whatever cross references deemed necessary.
+3 ;;However, this file contains one nationally determined cross reference,
+4 ;;the "AC" cross reference on the EXTRACT NUMBER field (#2). This cross
+5 ;;reference is used by the DSS Extracts software package as an essential
+6 ;;feature for managing and purging data in this file and should not be
+7 ;;modified.
+8 ;;
+9 ;;This file should NOT be modified directly using VA FileMan.
+10 ;;QUIT
