SDWLCU4 ;IOFO BAY PINES/JS - EWL FILE 409.3 CLEANUP ;2/4/03
;;5.3;scheduling;**280**;AUG 13 1993
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLCU4 493 printed Nov 22, 2024@18:12:09 Page 2
SDWLCU4 ;IOFO BAY PINES/JS - EWL FILE 409.3 CLEANUP ;2/4/03
+1 ;;5.3;scheduling;**280**;AUG 13 1993
+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
