HLPAT62.m

HLPAT62 ;SFISC/GMB - Post-patch stuff ;11/15/2000  15:16 [ 04/02/2003   8:38 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 ;;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

HLPAT62   ;SFISC/GMB - Post-patch stuff ;11/15/2000  15:16 [ 04/02/2003   8:38 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;;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