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 ---[H[J[2J[HANRVIPST 351 printed Sep 02, 2024@19:30:42 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