SD422.m

SD422 ;BP/JML; 1/13/05 2:50pm

 ;;5.3;Scheduling;**422**;Jan 13, 2005

 ;

 ;

 N DIC,X,Y,DA,DR,DIE

 Q:$D(^SD(409.45,"B",643))

 S DIC="^SD(409.45,",DIC(0)=""

 S X=643 D FILE^DICN

 S DA(1)=$P(Y,"^")

 S DIC="^SD(409.45,"_DA(1)_",""E"","

 S X=3050101 D FILE^DICN

 S DR=".02////1",DA=1,DIE="^SD(409.45,"_DA(1)_",""E"","

 D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD422   337     printed  Apr 09, 2024@21:44:35                                                                                                                                                                                                        Page 2

SD422     ;BP/JML; 1/13/05 2:50pm

 +1       ;;5.3;Scheduling;**422**;Jan 13, 2005

 +2       ;

 +3       ;

 +4        NEW DIC,X,Y,DA,DR,DIE

 +5        if $DATA(^SD(409.45,"B",643))

               QUIT 

 +6        SET DIC="^SD(409.45,"

           SET DIC(0)=""

 +7        SET X=643

           DO FILE^DICN

 +8        SET DA(1)=$PIECE(Y,"^")

 +9        SET DIC="^SD(409.45,"_DA(1)_",""E"","

 +10       SET X=3050101

           DO FILE^DICN

 +11       SET DR=".02////1"

           SET DA=1

           SET DIE="^SD(409.45,"_DA(1)_",""E"","

 +12       DO ^DIE

 +13       QUIT