DVBA213P.m

DVBA213P ;ALB/MF - REMOVE 'DVBA CAPRI GETVBADOCS' FROM SECURITY KEY FILE (#19.1) ;5/1/2019 12:00PM

 ;;2.7;AMIE;**213**;May 1, 1995;Build 4

 ;LKUP^XPDKEY IA#1367

 ;DEL^XPDKEY  IA#1367

 Q

REMOVE ;Find and remove all instances of 'DVBA CAPRI GETVBADOCS' key

 N DVBAKEY,DVBAIEN

 S DVBAKEY="DVBA CAPRI GETVBADOCS"

 S DVBAIEN=$$LKUP^XPDKEY(DVBAKEY)

 I 'DVBAIEN D BMES^XPDUTL("DVBA CAPRI GETVBADOCS does not exist in SECURITY KEY File (#19.1).") Q

 D DEL^XPDKEY(DVBAIEN)

 S DVBAIEN=$$LKUP^XPDKEY(DVBAKEY)

 I 'DVBAIEN D BMES^XPDUTL("DVBA CAPRI GETVBADOCS was successfully removed from SECURITY KEY File (#19.1).") Q

 D BMES^XPDUTL("DVBA CAPRI GETVBADOCS was NOT removed from SECURITY KEY File (#19.1)") Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBA213P   715     printed  Dec 13, 2024@01:39:30                                                                                                                                                                                                     Page 2

DVBA213P  ;ALB/MF - REMOVE 'DVBA CAPRI GETVBADOCS' FROM SECURITY KEY FILE (#19.1) ;5/1/2019 12:00PM

 +1       ;;2.7;AMIE;**213**;May 1, 1995;Build 4

 +2       ;LKUP^XPDKEY IA#1367

 +3       ;DEL^XPDKEY  IA#1367

 +4        QUIT 

REMOVE    ;Find and remove all instances of 'DVBA CAPRI GETVBADOCS' key

 +1        NEW DVBAKEY,DVBAIEN

 +2        SET DVBAKEY="DVBA CAPRI GETVBADOCS"

 +3        SET DVBAIEN=$$LKUP^XPDKEY(DVBAKEY)

 +4        IF 'DVBAIEN

               DO BMES^XPDUTL("DVBA CAPRI GETVBADOCS does not exist in SECURITY KEY File (#19.1).")

               QUIT 

 +5        DO DEL^XPDKEY(DVBAIEN)

 +6        SET DVBAIEN=$$LKUP^XPDKEY(DVBAKEY)

 +7        IF 'DVBAIEN

               DO BMES^XPDUTL("DVBA CAPRI GETVBADOCS was successfully removed from SECURITY KEY File (#19.1).")

               QUIT 

 +8        DO BMES^XPDUTL("DVBA CAPRI GETVBADOCS was NOT removed from SECURITY KEY File (#19.1)")

           QUIT 

 +9        QUIT