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 ---[H[J[2J[HSD422 337 printed Dec 13, 2024@02:44:40 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
