PXICLN14.m

PXICLN14 ;ISL/dee - PCE PRE INIT Clean up routine ;11/19/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**14**;Aug 12, 1996

 ;

PROTOCOL ;

 K DIK,DA,NAME,MENU

 S NAME="PXCE ADD/EDIT STOP CODE"

 S MENU="PXCE ADD/EDIT MENU"

 S NAMEDA=$O(^ORD(101,"B",NAME,0))

 S DA(1)=$O(^ORD(101,"B",MENU,0))

 I NAMEDA>0,DA(1)>0 D

 . S DA=$O(^ORD(101,DA(1),10,"B",NAMEDA,0))

 . I DA>0 D

 .. D BMES^XPDUTL("Deleting add Stop Code action.")

 .. S DIK="^ORD(101,"_DA(1)_",10,"

 .. D ^DIK

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXICLN14   483     printed  Apr 09, 2024@21:30:16                                                                                                                                                                                                     Page 2

PXICLN14  ;ISL/dee - PCE PRE INIT Clean up routine ;11/19/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**14**;Aug 12, 1996

 +2       ;

PROTOCOL  ;

 +1        KILL DIK,DA,NAME,MENU

 +2        SET NAME="PXCE ADD/EDIT STOP CODE"

 +3        SET MENU="PXCE ADD/EDIT MENU"

 +4        SET NAMEDA=$ORDER(^ORD(101,"B",NAME,0))

 +5        SET DA(1)=$ORDER(^ORD(101,"B",MENU,0))

 +6        IF NAMEDA>0

               IF DA(1)>0

                   Begin DoDot:1

 +7                    SET DA=$ORDER(^ORD(101,DA(1),10,"B",NAMEDA,0))

 +8                    IF DA>0

                           Begin DoDot:2

 +9                            DO BMES^XPDUTL("Deleting add Stop Code action.")

 +10                           SET DIK="^ORD(101,"_DA(1)_",10,"

 +11                           DO ^DIK

                           End DoDot:2

                   End DoDot:1

 +12      ;

 +13       QUIT 

 +14      ;