- 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 ---[H[J[2J[HFBXIP121 436 printed Feb 18, 2025@23:27:38 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