FSCXREFA.m

FSCXREFA ;SLC/STAFF-NOIS Xrefs Alert ;4/22/94  14:32

 ;;1.1;NOIS;;Sep 06, 1998

 ;

AUC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.3

 N CALL,USER

 I OP="SET" D  Q

 .I FIELD="CALL" D  Q

 ..I VALUE S USER=$P(^FSCD("ALERT",ENTRY,0),U) I USER S ^FSCD("ALERT","AUC",USER,VALUE)=ENTRY

 .I FIELD="USER" D  Q

 ..I VALUE S CALL=$P(^FSCD("ALERT",ENTRY,0),U,2) I CALL S ^FSCD("ALERT","AUC",VALUE,CALL)=ENTRY

 I OP="KILL" D  Q

 .I FIELD="CALL" D  Q

 ..S USER=$P(^FSCD("ALERT",ENTRY,0),U) I USER K ^FSCD("ALERT","AUC",USER,VALUE)

 .I FIELD="USER" D  Q

 ..S CALL=$P(^FSCD("ALERT",ENTRY,0),U,2) I CALL K ^FSCD("ALERT","AUC",VALUE,CALL)

 Q

ALERT(OP,VALUE,ENTRY) ; from dd 7100.3

 I OP="SET" D  Q

 .I VALUE,$L($P($G(^FSCD("ALERT",+ENTRY,0)),U,2)) S ^FSCD("ALERT","ALERT",VALUE)=ENTRY ; only setup on self notification, not send notification

 I OP="KILL" D  Q

 .K ^FSCD("ALERT","ALERT",VALUE)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCXREFA   892     printed  Apr 09, 2024@21:22:41                                                                                                                                                                                                     Page 2

FSCXREFA  ;SLC/STAFF-NOIS Xrefs Alert ;4/22/94  14:32

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

AUC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.3

 +1        NEW CALL,USER

 +2        IF OP="SET"

               Begin DoDot:1

 +3                IF FIELD="CALL"

                       Begin DoDot:2

 +4                        IF VALUE

                               SET USER=$PIECE(^FSCD("ALERT",ENTRY,0),U)

                               IF USER

                                   SET ^FSCD("ALERT","AUC",USER,VALUE)=ENTRY

                       End DoDot:2

                       QUIT 

 +5                IF FIELD="USER"

                       Begin DoDot:2

 +6                        IF VALUE

                               SET CALL=$PIECE(^FSCD("ALERT",ENTRY,0),U,2)

                               IF CALL

                                   SET ^FSCD("ALERT","AUC",VALUE,CALL)=ENTRY

                       End DoDot:2

                       QUIT 

               End DoDot:1

               QUIT 

 +7        IF OP="KILL"

               Begin DoDot:1

 +8                IF FIELD="CALL"

                       Begin DoDot:2

 +9                        SET USER=$PIECE(^FSCD("ALERT",ENTRY,0),U)

                           IF USER

                               KILL ^FSCD("ALERT","AUC",USER,VALUE)

                       End DoDot:2

                       QUIT 

 +10               IF FIELD="USER"

                       Begin DoDot:2

 +11                       SET CALL=$PIECE(^FSCD("ALERT",ENTRY,0),U,2)

                           IF CALL

                               KILL ^FSCD("ALERT","AUC",VALUE,CALL)

                       End DoDot:2

                       QUIT 

               End DoDot:1

               QUIT 

 +12       QUIT 

ALERT(OP,VALUE,ENTRY) ; from dd 7100.3

 +1        IF OP="SET"

               Begin DoDot:1

 +2       ; only setup on self notification, not send notification

                   IF VALUE

                       IF $LENGTH($PIECE($GET(^FSCD("ALERT",+ENTRY,0)),U,2))

                           SET ^FSCD("ALERT","ALERT",VALUE)=ENTRY

               End DoDot:1

               QUIT 

 +3        IF OP="KILL"

               Begin DoDot:1

 +4                KILL ^FSCD("ALERT","ALERT",VALUE)

               End DoDot:1

               QUIT 

 +5        QUIT