FBXIP121.m

FBXIP121 ;DSS/LJF - PATCH INSTALL ROUTINE;APR 04, 2011

 ;;3.5;FEE BASIS;**121**;APR 04, 2011;Build 4

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

REMKEY ; Remove Key from FB FPPS TRANSMIT option.

 N FB5010,KEYNM,OPID

 S OPID=$O(^DIC(19,"B","FB FPPS TRANSMIT",0)) I 'OPID Q

 S KEYNM=$$GET1^DIQ(19,+OPID_",",3,"I") I KEYNM'="FBAASUPERVISOR" Q

 S FB5010(19,+OPID_",",3)="" D UPDATE^DIE("","FB5010")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP121   436     printed  Dec 13, 2024@02:01:12                                                                                                                                                                                                     Page 2

FBXIP121  ;DSS/LJF - PATCH INSTALL ROUTINE;APR 04, 2011

 +1       ;;3.5;FEE BASIS;**121**;APR 04, 2011;Build 4

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

REMKEY    ; Remove Key from FB FPPS TRANSMIT option.

 +1        NEW FB5010,KEYNM,OPID

 +2        SET OPID=$ORDER(^DIC(19,"B","FB FPPS TRANSMIT",0))

           IF 'OPID

               QUIT 

 +3        SET KEYNM=$$GET1^DIQ(19,+OPID_",",3,"I")

           IF KEYNM'="FBAASUPERVISOR"

               QUIT 

 +4        SET FB5010(19,+OPID_",",3)=""

           DO UPDATE^DIE("","FB5010")

 +5        QUIT