SDWLCU4.m

SDWLCU4 ;IOFO BAY PINES/JS - EWL FILE 409.3 CLEANUP ;2/4/03

 ;;5.3;scheduling;**280,1015**;AUG 13 1993;Build 21

 I '$D(^SCTM(404.46,"B","1.2.3.2")) D

         .K DO S DIC(0)="LM",DIC("DR")=".02////1;.03////"_DT,DIC="^SCTM(404.46,",X="1.2.3.2" D FILE^DICN

         I '$D(^SCTM(404.45,"B","SD*5.3*280")) D

         .S ENTRY=$O(^SCTM(404.46,"B","1.2.3.2",0))

         .S DIC("DR")=".02////"_(+ENTRY)_";.03////"_DT_";.04////1",DIC(0)="LM"

         .K DO S X="SD*5.3*280",DIC="^SCTM(404.45," D FILE^DICN

SDWLCU4   ;IOFO BAY PINES/JS - EWL FILE 409.3 CLEANUP ;2/4/03

 +1       ;;5.3;scheduling;**280,1015**;AUG 13 1993;Build 21

 +2        IF '$DATA(^SCTM(404.46,"B","1.2.3.2"))

               Begin DoDot:1

 +3                KILL DO

                   SET DIC(0)="LM"

                   SET DIC("DR")=".02////1;.03////"_DT

                   SET DIC="^SCTM(404.46,"

                   SET X="1.2.3.2"

                   DO FILE^DICN

               End DoDot:1

 +4        IF '$DATA(^SCTM(404.45,"B","SD*5.3*280"))

               Begin DoDot:1

 +5                SET ENTRY=$ORDER(^SCTM(404.46,"B","1.2.3.2",0))

 +6                SET DIC("DR")=".02////"_(+ENTRY)_";.03////"_DT_";.04////1"

                   SET DIC(0)="LM"

 +7                KILL DO

                   SET X="SD*5.3*280"

                   SET DIC="^SCTM(404.45,"

                   DO FILE^DICN

               End DoDot:1