freem_fileman/USER/DIK.m - diff

Return to DIK.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

version 1.1, 2025/04/28 14:13:20	version 1.2, 2025/04/28 19:23:48
Line 29 INX I %["TRIGGER" S %=^(X),^UTILITY("DIK	Line 29 INX I %["TRIGGER" S %=^(X),^UTILITY("DIK
A F DV=0:0 S DV=$O(^DD(DH,"AUDIT",DV)) Q:DV'>0 D A1	A F DV=0:0 S DV=$O(^DD(DH,"AUDIT",DV)) Q:DV'>0 D A1
Q	Q
A1 D 0 S ^UTILITY("DIK",DIKJ,DH,DV,99)="S DIIX="_(4-X)_" D:$G(DIK(0))'[""A"" AUDIT" Q	A1 D 0 S ^UTILITY("DIK",DIKJ,DH,DV,99)="S DIIX="_(4-X)_" D:$G(DIK(0))'[""A"" AUDIT" Q
0 ;	0 S DW=$P(^DD(DH,DV,0),U,4),^UTILITY("DIK",DIKJ,DH,DV)=$P(DW,";",1),DW=$P(DW,";",2)
S DW=$P(^DD(DH,DV,0),U,4),^UTILITY("DIK",DIKJ,DH,DV)=$P(DW,";",1),DW=$P(DW,";",2)
S ^UTILITY("DIK",DIKJ,DH,DV,0)=$S(DW:"S X=$P(^(X),U,"_DW_")",1:"S X=$E(^(X),"_+$E(DW,2,9)_","_$P(DW,",",2)_")"),DW=0 Q	S ^UTILITY("DIK",DIKJ,DH,DV,0)=$S(DW:"S X=$P(^(X),U,"_DW_")",1:"S X=$E(^(X),"_+$E(DW,2,9)_","_$P(DW,",",2)_")"),DW=0 Q
;	;
IX ;	IX ;
Line 43 IX1 ;	Line 42 IX1 ;
S X=1 D DD,1^DIK1 G Q	S X=1 D DD,1^DIK1 G Q
;	;
IXALL ;	IXALL ;
N DIKJ,DIKS,DIKZ1,DIN,DH,DU,DV,DW,DIKDA	N DIKJ,DIKS,DIKZ1,DIN,DH,DU,DV,DW,DIKDA
D CHKS I $D(DIKZ1) N DIKSAT S DIKSAT=1,DA=0 G @DIKGP	D CHKS I $D(DIKZ1) N DIKSAT S DIKSAT=1,DA=0 G @DIKGP
S (DA,DCNT)=0,X=1 D DD,CNT^DIK1 G Q	S (DA,DCNT)=0,X=1 D DD,CNT^DIK1 G Q
;	;