HLPAT62.m

HLPAT62 ;SFISC/GMB - Post-patch stuff ;11/15/2000  15:16

 ;;7.1;MailMan;**62**;Jun 02, 1994

ENTER ;

 Q:$D(^HLCS(870,"AISTAT"))

 N HLXX

 S HLXX=0

 F  S HLXX=$O(^HLCS(870,HLXX)) Q:'HLXX  D

 . Q:'$O(^HLCS(870,HLXX,1,0))

 . N DIK,DA

 . S DA(1)=HLXX,DIK="^HLCS(870,"_DA(1)_",1,",DIK(1)="1^AISTAT"

 . D ENALL^DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLPAT62   322     printed  Dec 13, 2024@01:59:39                                                                                                                                                                                                      Page 2

HLPAT62   ;SFISC/GMB - Post-patch stuff ;11/15/2000  15:16

 +1       ;;7.1;MailMan;**62**;Jun 02, 1994

ENTER     ;

 +1        if $DATA(^HLCS(870,"AISTAT"))

               QUIT 

 +2        NEW HLXX

 +3        SET HLXX=0

 +4        FOR 

               SET HLXX=$ORDER(^HLCS(870,HLXX))

               if 'HLXX

                   QUIT 

               Begin DoDot:1

 +5                if '$ORDER(^HLCS(870,HLXX,1,0))

                       QUIT 

 +6                NEW DIK,DA

 +7                SET DA(1)=HLXX

                   SET DIK="^HLCS(870,"_DA(1)_",1,"

                   SET DIK(1)="1^AISTAT"

 +8                DO ENALL^DIK

               End DoDot:1

 +9        QUIT