XU8P125.m

XU8P125 ;SF-CIOFO/JDS  Post Init for XU*8*125 ;10/01/99  10:28 [ 03/13/2003  1:26 PM ]

 ;;KID's Post Init

 ;

EN ;

 N DA,DIK

 K ^XTV(8992,"AXQA")

 K ^XTV(8992,"AXQAN")

 S DA(1)=0

 F  S DA(1)=$O(^XTV(8992,DA(1))) Q:DA(1)'>0  D

 . S DIK="^XTV(8992,"_DA(1)_",""XQA"","

 . S DIK(1)=".02^AXQA^AXQAN"

 . D ENALL^DIK

 Q

XU8P125   ;SF-CIOFO/JDS  Post Init for XU*8*125 ;10/01/99  10:28 [ 03/13/2003  1:26 PM ]

 +1       ;;KID's Post Init

 +2       ;

EN        ;

 +1        NEW DA,DIK

 +2        KILL ^XTV(8992,"AXQA")

 +3        KILL ^XTV(8992,"AXQAN")

 +4        SET DA(1)=0

 +5        FOR 

               SET DA(1)=$ORDER(^XTV(8992,DA(1)))

               IF DA(1)'>0

                   QUIT 

               Begin DoDot:1

 +6                SET DIK="^XTV(8992,"_DA(1)_",""XQA"","

 +7                SET DIK(1)=".02^AXQA^AXQAN"

 +8                DO ENALL^DIK

               End DoDot:1

 +9        QUIT