ANRVIPST.m

ANRVIPST ;HCIOFO/NDH - Post Initialization routine March 18, 1998

 ;;4.0; Visual Impairment Service Team ;**2**;12 JUN 98

START ; Populate 2041.05 with correct email distribution list

 S ANRVI=0,ANRVADR="VHACO117AMIS@DOMAIN.EXT"

 F  S ANRVI=$O(^ANRV(2041,ANRVI)) Q:+ANRVI=0  D

 .S ANRVX(2041,ANRVI_",",.05)=ANRVADR

 D FILE^DIE("E","ANRVX")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ANRVIPST   351     printed  Dec 13, 2024@02:45:39                                                                                                                                                                                                     Page 2

ANRVIPST  ;HCIOFO/NDH - Post Initialization routine March 18, 1998

 +1       ;;4.0; Visual Impairment Service Team ;**2**;12 JUN 98

START     ; Populate 2041.05 with correct email distribution list

 +1        SET ANRVI=0

           SET ANRVADR="VHACO117AMIS@DOMAIN.EXT"

 +2        FOR 

               SET ANRVI=$ORDER(^ANRV(2041,ANRVI))

               if +ANRVI=0

                   QUIT 

               Begin DoDot:1

 +3                SET ANRVX(2041,ANRVI_",",.05)=ANRVADR

               End DoDot:1

 +4        DO FILE^DIE("E","ANRVX")

 +5        QUIT