SD53P359.m

SD53P359 ;;IOFO BAY PINES/TEH - PATCH TO REPAIR ERROR CODES IN 409.75;04/19/2004 ; 20 Aug 2002 2:10 PM

 ;;5.3;scheduling;**359**;AUG 13 1993

 ;

 ;FIX ERRORS IN 409.76

 N SDCOD,SDN,DIE,SDSER,DR,DA,X

 S SDCOD="704;903;706;005"

A0 F I=1:1:4 S SDN=0 S SDN=$O(^SD(409.76,"B",$P(SDCOD,";",I),SDN)) Q:SDN=""  D

 .S SDERR=0,DIE="^SD(409.76,",SDSER="N",DA=SDN,DR=".02////^S X=SDSER" D ^DIE W !,"Repaired ERROR CODE ",$P(SDCOD,";",I)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P359   436     printed  Apr 09, 2024@21:53:24                                                                                                                                                                                                     Page 2

SD53P359  ;;IOFO BAY PINES/TEH - PATCH TO REPAIR ERROR CODES IN 409.75;04/19/2004 ; 20 Aug 2002 2:10 PM

 +1       ;;5.3;scheduling;**359**;AUG 13 1993

 +2       ;

 +3       ;FIX ERRORS IN 409.76

 +4        NEW SDCOD,SDN,DIE,SDSER,DR,DA,X

 +5        SET SDCOD="704;903;706;005"

A0         FOR I=1:1:4

               SET SDN=0

               SET SDN=$ORDER(^SD(409.76,"B",$PIECE(SDCOD,";",I),SDN))

               if SDN=""

                   QUIT 

               Begin DoDot:1

 +1                SET SDERR=0

                   SET DIE="^SD(409.76,"

                   SET SDSER="N"

                   SET DA=SDN

                   SET DR=".02////^S X=SDSER"

                   DO ^DIE

                   WRITE !,"Repaired ERROR CODE ",$PIECE(SDCOD,";",I)

               End DoDot:1

 +2        QUIT