BSDP14PS.m

BSDP14PS ;ihs/cmi/maw - PIMS Patch 1014 post init

 ;;5.3;IHS Scheduling;**1014**;Feb 15, 2012

 Q

 ;

POST ;-- post init

 N BDA

 S BDA=0 F  S BDA=$O(^DPT(BDA)) Q:'BDA  D

 . S DA(1)=BDA

 . S DIK="^DPT(DA(1),""S"",",DIK(1)=.01 D ENALL^DIK

 K DIK,DA

 Q

 ;

BSDP14PS  ;ihs/cmi/maw - PIMS Patch 1014 post init

 +1       ;;5.3;IHS Scheduling;**1014**;Feb 15, 2012

 +2        QUIT 

 +3       ;

POST      ;-- post init

 +1        NEW BDA

 +2        SET BDA=0

           FOR 

               SET BDA=$ORDER(^DPT(BDA))

               IF 'BDA

                   QUIT 

               Begin DoDot:1

 +3                SET DA(1)=BDA

 +4                SET DIK="^DPT(DA(1),""S"","

                   SET DIK(1)=.01

                   DO ENALL^DIK

               End DoDot:1

 +5        KILL DIK,DA

 +6        QUIT 

 +7       ;