XTVGC2A1 ;ISC-SF..SEA/JLI - COMPARE SAVED AND CURRENT NAMESPACE DATA ;5/10/93 13.06 ;
;;7.3;TOOLKIT;;Apr 25, 1995
OPTS ;
I $P(XTVX,(","_XTNN_","),2)="0)" S $P(XTVY,U,5)="",$P(XTVY,U,12)=""
I $P(XTVG,(","_XTNN_","),2)="0)" D
.S $P(XTVGY,U,5)="",$P(XTVGY,U,12)=""
.S J=$P(XTVGY,U,7) I J>0,$P(XTVY,U,7)'="" S I=$P(^DIC(9.2,J,0),U),I(0)=$O(@(XTBAS1_"""B"",""HELP FRAMES"",0)")) I I(0)>0 S I(0)=$O(@(XTBAS1_I(0)_",1,""B"","""_I_""",0)")) I I(0)>0,$P(XTVY,U,7)=+^(I(0)) S $P(XTVY,U,7)=J
S I=$P($P(XTVX,(","_XTNN_",10,"),2),","),J=$P($P(XTVG,(","_XTNN_",10,"),2),",") D
.I I>0,J>0,I=J S J=+XTVGY I J>0 D
..S I(0)=$P(^DIC(19,J,0),U),I(0)=$O(@(XTBAS1_XTTYI_",1,""B"","""_I(0)_""",0)")) I I(0)>0,+XTVY=^(I(0)) S K=+XTVY,$P(XTVY,U)=J,K="^DIC(19,"_XTNN_",10,""B"","_K_","_I_")",^TMP($J,"OB",K)="^DIC(19,"_XTNN_",10,""B"","_J_","_I_")"
I XTVX[",10,""B"",",$D(^TMP($J,"OB",XTVX)) S XTVX=^(XTVX)
I XTVX[",99)",XTVG[",99)" S XTVY="",XTVGY=""
Q
HFS ;
I $P(XTVX,(","_XTNN_","),2)="0)" S $P(XTVY,U,4)=""
I $P(XTVG,(","_XTNN_","),2)="0)" S $P(XTVGY,U,4)=""
;.S $P(XTVGY,U,5)="",$P(XTVGY,U,12)=""
;.S J=$P(XTVGY,U,7) I J>0,$P(XTVY,U,7)'="" S I=$P(^DIC(9.2,J,0),U),I(0)=$O(@(XTBAS1_"""B"",""HELP FRAMES"",0)")) I I(0)>0 S I(0)=$O(@(XTBAS1_I(0)_",1,""B"","""_I_""",0)")) I $P(XTVY,U,7)=+^(I(0)) S $P(XTVY,U,7)=J
S I=$P($P(XTVX,(","_XTNN_",2,"),2),","),J=$P($P(XTVG,(","_XTNN_",2,"),2),",") D
.I I>0,J>0,I=J S J=+$P(XTVGY,U,2) I J>0 D
..S I(0)=$P(^DIC(9.2,J,0),U),I(0)=$O(@(XTBAS1_XTTYI_",1,""B"","""_I(0)_""",0)")) I I(0)>0,+$P(XTVY,U,2)=^(I(0)) S $P(XTVY,U,2)=J
;I XTVX[",10,""B"",",$D(^TMP($J,"OB",XTVX)) S XTVX=^(XTVX)
;I XTVX[",99)",XTVG[",99)" S XTVY="",XTVGY=""
Q
CHECK ;
S:XTVX["~IEN~" XTVX=$S($E(XTVX)'=U:U,1:"")_$P(XTVX,"~IEN~")_XTNN_$P(XTVX,"~IEN~",2)
D:XTTY="OPTIONS" OPTS D:XTTY["FRAMES" HFS
F I=$L(XTVY):-1 Q:$E(XTVY,I)'=U S XTVY=$E(XTVY,1,I-1)
F I=$L(XTVGY):-1 Q:$E(XTVGY,I)'=U S XTVGY=$E(XTVGY,1,I-1)
S:'$D(XTVTYP) XTVTYP="" I XTVG="" D:XTSEEN=0 HEDR W !,"* DEL * ",XTVX," = ",XTVY Q
I XTVX="" Q:XTTY="OPTIONS"&(XTVG[",10,""B"",") D:XTSEEN=0 HEDR W !,"* ADD * ",XTVG," = ",XTVGY Q
S XTVB=$S(XTVX=XTVG:0,1:1)
I XTVB S XTVX5=$E(XTVX,1,$L(XTVX)-1),XTVG5=$E(XTVG,1,$L(XTVG)-1) F XTVI=1:1 S XTVG6=$P(XTVG5,",",XTVI),XTVX6=$P(XTVX5,",",XTVI) I XTVG6'=XTVX6 S XTVB=$S(+XTVX6=XTVX6:$S(+XTVG6'=XTVG6:-1,XTVX6<XTVG6:-1,1:1),+XTVG6=XTVG6:1,XTVG6]XTVX6:-1,1:1) Q
I XTVB<0 D:XTSEEN=0 HEDR W !,"* DEL * ",XTVX," = ",XTVY S M=M+1,XTVX=$S('$D(@XTVF0):"",1:^(0)),XTVY=$S(XTVX="":"",1:^(1)) G CHECK
I XTVB>0 Q:XTTY="OPTIONS"&(XTVG[",10,""B"",") D:XTSEEN=0 HEDR W:(XTVTYP="")!($P(XTVG,",",2)'="""AB""") !,"* ADD * ",XTVG," = ",XTVGY S XTVG=$Q(@XTVG) D MSMQ^XTVGC2 S:XTVG'[XTVG1 XTVG="" S XTVGY=$S(XTVG="":"",1:@XTVG) G CHECK
I XTVGY'=XTVY D:XTSEEN=0 HEDR W !,"* OLD * ",XTVX," = ",XTVY,!,"* NEW * ",XTVX," = ",XTVGY
Q
HEDR S XTSEEN=1 W !!,"CHANGED ",$E(XTTY,1,$L(XTTY)-1),": ",XTVAL," IEN=",XTNN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTVGC2A1 2970 printed Dec 13, 2024@02:41:56 Page 2
XTVGC2A1 ;ISC-SF..SEA/JLI - COMPARE SAVED AND CURRENT NAMESPACE DATA ;5/10/93 13.06 ;
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
OPTS ;
+1 IF $PIECE(XTVX,(","_XTNN_","),2)="0)"
SET $PIECE(XTVY,U,5)=""
SET $PIECE(XTVY,U,12)=""
+2 IF $PIECE(XTVG,(","_XTNN_","),2)="0)"
Begin DoDot:1
+3 SET $PIECE(XTVGY,U,5)=""
SET $PIECE(XTVGY,U,12)=""
+4 SET J=$PIECE(XTVGY,U,7)
IF J>0
IF $PIECE(XTVY,U,7)'=""
SET I=$PIECE(^DIC(9.2,J,0),U)
SET I(0)=$ORDER(@(XTBAS1_"""B"",""HELP FRAMES"",0)"))
IF I(0)>0
SET I(0)=$ORDER(@(XTBAS1_I(0)_",1,""B"","""_I_""",0)"))
IF I(0)>0
IF $PIECE(XTVY,U,7)=+^(I(0))
SET $PIECE(XTVY,U,7)=J
End DoDot:1
+5 SET I=$PIECE($PIECE(XTVX,(","_XTNN_",10,"),2),",")
SET J=$PIECE($PIECE(XTVG,(","_XTNN_",10,"),2),",")
Begin DoDot:1
+6 IF I>0
IF J>0
IF I=J
SET J=+XTVGY
IF J>0
Begin DoDot:2
+7 SET I(0)=$PIECE(^DIC(19,J,0),U)
SET I(0)=$ORDER(@(XTBAS1_XTTYI_",1,""B"","""_I(0)_""",0)"))
IF I(0)>0
IF +XTVY=^(I(0))
SET K=+XTVY
SET $PIECE(XTVY,U)=J
SET K="^DIC(19,"_XTNN_",10,""B"","_K_","_I_")"
SET ^TMP($JOB,"OB",K)="^DIC(19,"_XTNN_",10,""B"","_J_","_I_")"
End DoDot:2
End DoDot:1
+8 IF XTVX[",10,""B"","
IF $DATA(^TMP($JOB,"OB",XTVX))
SET XTVX=^(XTVX)
+9 IF XTVX[",99)"
IF XTVG[",99)"
SET XTVY=""
SET XTVGY=""
+10 QUIT
HFS ;
+1 IF $PIECE(XTVX,(","_XTNN_","),2)="0)"
SET $PIECE(XTVY,U,4)=""
+2 IF $PIECE(XTVG,(","_XTNN_","),2)="0)"
SET $PIECE(XTVGY,U,4)=""
+3 ;.S $P(XTVGY,U,5)="",$P(XTVGY,U,12)=""
+4 ;.S J=$P(XTVGY,U,7) I J>0,$P(XTVY,U,7)'="" S I=$P(^DIC(9.2,J,0),U),I(0)=$O(@(XTBAS1_"""B"",""HELP FRAMES"",0)")) I I(0)>0 S I(0)=$O(@(XTBAS1_I(0)_",1,""B"","""_I_""",0)")) I $P(XTVY,U,7)=+^(I(0)) S $P(XTVY,U,7)=J
+5 SET I=$PIECE($PIECE(XTVX,(","_XTNN_",2,"),2),",")
SET J=$PIECE($PIECE(XTVG,(","_XTNN_",2,"),2),",")
Begin DoDot:1
+6 IF I>0
IF J>0
IF I=J
SET J=+$PIECE(XTVGY,U,2)
IF J>0
Begin DoDot:2
+7 SET I(0)=$PIECE(^DIC(9.2,J,0),U)
SET I(0)=$ORDER(@(XTBAS1_XTTYI_",1,""B"","""_I(0)_""",0)"))
IF I(0)>0
IF +$PIECE(XTVY,U,2)=^(I(0))
SET $PIECE(XTVY,U,2)=J
End DoDot:2
End DoDot:1
+8 ;I XTVX[",10,""B"",",$D(^TMP($J,"OB",XTVX)) S XTVX=^(XTVX)
+9 ;I XTVX[",99)",XTVG[",99)" S XTVY="",XTVGY=""
+10 QUIT
CHECK ;
+1 if XTVX["~IEN~"
SET XTVX=$SELECT($EXTRACT(XTVX)'=U:U,1:"")_$PIECE(XTVX,"~IEN~")_XTNN_$PIECE(XTVX,"~IEN~",2)
+2 if XTTY="OPTIONS"
DO OPTS
if XTTY["FRAMES"
DO HFS
+3 FOR I=$LENGTH(XTVY):-1
if $EXTRACT(XTVY,I)'=U
QUIT
SET XTVY=$EXTRACT(XTVY,1,I-1)
+4 FOR I=$LENGTH(XTVGY):-1
if $EXTRACT(XTVGY,I)'=U
QUIT
SET XTVGY=$EXTRACT(XTVGY,1,I-1)
+5 if '$DATA(XTVTYP)
SET XTVTYP=""
IF XTVG=""
if XTSEEN=0
DO HEDR
WRITE !,"* DEL * ",XTVX," = ",XTVY
QUIT
+6 IF XTVX=""
if XTTY="OPTIONS"&(XTVG[",10,""B"",")
QUIT
if XTSEEN=0
DO HEDR
WRITE !,"* ADD * ",XTVG," = ",XTVGY
QUIT
+7 SET XTVB=$SELECT(XTVX=XTVG:0,1:1)
+8 IF XTVB
SET XTVX5=$EXTRACT(XTVX,1,$LENGTH(XTVX)-1)
SET XTVG5=$EXTRACT(XTVG,1,$LENGTH(XTVG)-1)
FOR XTVI=1:1
SET XTVG6=$PIECE(XTVG5,",",XTVI)
SET XTVX6=$PIECE(XTVX5,",",XTVI)
IF XTVG6'=XTVX6
SET XTVB=$SELECT(+XTVX6=XTVX6:$SELECT(+XTVG6'=XTVG6:-1,XTVX6<XTVG6:-1,1:1),+XTVG6=XTVG6:1,XTVG6]XTVX6:-1,1:1)
QUIT
+9 IF XTVB<0
if XTSEEN=0
DO HEDR
WRITE !,"* DEL * ",XTVX," = ",XTVY
SET M=M+1
SET XTVX=$SELECT('$DATA(@XTVF0):"",1:^(0))
SET XTVY=$SELECT(XTVX="":"",1:^(1))
GOTO CHECK
+10 IF XTVB>0
if XTTY="OPTIONS"&(XTVG[",10,""B"",")
QUIT
if XTSEEN=0
DO HEDR
if (XTVTYP="")!($PIECE(XTVG,",",2)'="""AB""")
WRITE !,"* ADD * ",XTVG," = ",XTVGY
SET XTVG=$QUERY(@XTVG)
DO MSMQ^XTVGC2
if XTVG'[XTVG1
SET XTVG=""
SET XTVGY=$SELECT(XTVG="":"",1:@XTVG)
GOTO CHECK
+11 IF XTVGY'=XTVY
if XTSEEN=0
DO HEDR
WRITE !,"* OLD * ",XTVX," = ",XTVY,!,"* NEW * ",XTVX," = ",XTVGY
+12 QUIT
HEDR SET XTSEEN=1
WRITE !!,"CHANGED ",$EXTRACT(XTTY,1,$LENGTH(XTTY)-1),": ",XTVAL," IEN=",XTNN
+1 QUIT
