Routine: TIU343P

TIU343P ; SPFO/AJB - AUDIT SIGNED DOCUMENTS ;02/24/23  06:56

 ;;1.0;TEXT INTEGRATION UTILITIES;**343**;Jun 20, 1997;Build 17

POST ;

 I +$$PROD^XUPROD(1) Q

 ; update security codes for test accounts only

 N SEC,X F X="AUDIT","DD","DEL","LAYGO","RD","WR" S SEC(X)="@"

 D FILESEC^DDMOD(8925,.SEC) ; ICR# 2916

AUDIT(UPDATE,VALUE) ;

 N X S X=0 F  S X=$O(^DD(8925,X)) Q:'+X  D

 . N AUDIT S AUDIT=$G(^DD(8925,X,"AUDIT"))

 . Q:AUDIT=""

 . W !,X,?10,AUDIT,?20,"Update to: ",$G(VALUE)

 . Q:'+$G(UPDATE)!(AUDIT="n")  S ^DD(8925,X,"AUDIT")=VALUE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU343P   567     printed  Nov 22, 2024@17:48:36                                                                                                                                                                                                      Page 2

TIU343P   ; SPFO/AJB - AUDIT SIGNED DOCUMENTS ;02/24/23  06:56

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**343**;Jun 20, 1997;Build 17

 +2       ;

 +3        QUIT

POST      ;

 +1        IF +$$PROD^XUPROD(1)

               QUIT

 +2       ; update security codes for test accounts only

 +3        NEW SEC,X

           FOR X="AUDIT","DD","DEL","LAYGO","RD","WR"

               SET SEC(X)="@"

 +4       ; ICR# 2916

           DO FILESEC^DDMOD(8925,.SEC)

 +5        QUIT

AUDIT(UPDATE,VALUE) ;

 +1        NEW X

           SET X=0

FOR

               SET X=$ORDER(^DD(8925,X))

               if '+X

                   QUIT

               Begin DoDot:1

 +2                NEW AUDIT

                   SET AUDIT=$GET(^DD(8925,X,"AUDIT"))

 +3                if AUDIT=""

                       QUIT

 +4                WRITE !,X,?10,AUDIT,?20,"Update to: ",$GET(VALUE)

 +5                if '+$GET(UPDATE)!(AUDIT="n")

                       QUIT

                   SET ^DD(8925,X,"AUDIT")=VALUE

               End DoDot:1

 +6       ;

 +7        QUIT

TIU343P.m