RCY159PO ;MAF/ALB - POST-INIT FOR PATCH PRCA*159 AR/RCI ;FEB 19,2004
;;4.5;Accounts Receivable;**159**;Mar 20, 1995
D BMES^XPDUTL("This Post-Installation populates new fields (34) RC MAIL ADDRESS and ")
D MES^XPDUTL("(35) RC DEATH NOTIFICATION ADDRESS in file 349.1 AR TRANSMISSIONS TYPE")
D MES^XPDUTL("with the new Regional Counsel Mail Address and Death Notification addresses.")
I $D(^RCT(349.1,"B","RC")) S RCIFN=$O(^RCT(349.1,"B","RC",0)) I RCIFN]"",$D(^RCT(349.1,RCIFN,6,0)),$O(^RCT(349.1,RCIFN,6,0)) D
.D BMES^XPDUTL("If sites are currently testing the software for patch IB*2.0*159 and have")
.D MES^XPDUTL("information in the new DIVISION OF CARE field (61), this information will be")
.D MES^XPDUTL("updated with the new RC mail address and death notification address that")
.D MES^XPDUTL("corresponds with the division.")
.D BMES^XPDUTL("New fields (.03) RC MAIL ADDRESS and (.04) RC DEATH NOTIFICATION ADDRESS")
.D MES^XPDUTL("are updated in the DIVISION OF CARE multiple in file 349.1")
;
ARRAY ;This will update two new fields in file 349.1:
;field RC MAIL ADDRESS #34
;field RC DEATH NOTIFICATION ADDRESS #35
;with the new Regional Counsel addresses
;D BMES^XPDUTL("...Updating field (34) RC MAIL ADDRESS ")
;D MES^XPDUTL("...Updating field (35) RC DEATH NOTIFICATIONS ADDRESS for file 349.1 ")
K ADDR
N ADDR,RCCT,RCSITE,RCRC,RCDOM,RCDETH,RCNEW,RCIFN,RCNODE,X
;
; find the primary RC mail address from file 349.1 field 33
I $D(^RCT(349.1,"B","RC")) S RCIFN=$O(^RCT(349.1,"B","RC",0)) I RCIFN]"" D
.S RCDOM=$P($G(^RCT(349.1,RCIFN,3)),"^",3)
.Q
I $G(RCDOM)="" D G EXIT
.D BMES^XPDUTL("...There is no primary REMOTE DOMAIN.") D BMES^XPDUTL("...Please update field (32) REMOTE DOMAIN in AR TRANSMISSION TYPE file (349.1)") D MES^XPDUTL(" for the Regional Counsel (RC) type of transmission.")
.D BMES^XPDUTL("...After file update, run 'Restart Install of Package(s) under the Installation")
.D MES^XPDUTL(" option of the Kernel Installation and Distributions System.") S XPDABORT=1
.Q
D BMES^XPDUTL("...Updating field (34) RC MAIL ADDRESS ")
D MES^XPDUTL("...Updating field (35) RC DEATH NOTIFICATIONS ADDRESS for file 349.1 ")
D SETARR
I $D(ADDR(RCDOM)) D
.S RCNODE=ADDR(RCDOM),RCNEW=$P(RCNODE,"^",2),RCDETH=$P(RCNODE,"^",4)
.S DIE="^RCT(349.1,",DA=RCIFN,DR="34////^S X="""_RCNEW_""""_";35////^S X="""_RCDETH_""""
.D ^DIE K DIE,DA,DR
D BMES^XPDUTL("...Fields 34 and 35 have been updated for the primary site.")
;I $D(^RCT(349.1,RCIFN,6,0)) D
I $D(^RCT(349.1,RCIFN,6,0)),$O(^RCT(349.1,RCIFN,6,0)) D
.D BMES^XPDUTL("...Updating DIVISION OF CARE MULTIPLE fields:") D MES^XPDUTL(" (.03) RC MAIL ADDRESS and (.04) RC DEATH NOTIFICATION ADDRESS")
.N RCNEW,RCNODE,RCDETH,RCDIVC,RCDVADD,RCDVIFN,X,RCDVSION
.S RCDVIFN=0
.F RCDIVC=0:0 S RCDVIFN=$O(^RCT(349.1,RCIFN,6,RCDVIFN)) Q:'RCDVIFN S RCDVADD=$P($G(^RCT(349.1,RCIFN,6,RCDVIFN,0)),"^",2) I RCDVADD]"" D
..S RCDOM=$P($G(^DIC(4.2,RCDVADD,0)),"^",1)
..S RCDVSION=$P($G(^RCT(349.1,RCIFN,6,RCDVIFN,0)),"^",1)
..I RCDOM]""&($D(ADDR(RCDOM))) S RCNODE=ADDR(RCDOM),RCNEW=$P(ADDR(RCDOM),"^",2),RCDETH=$P(ADDR(RCDOM),"^",4)
..S DIE="^RCT(349.1,"_RCIFN_",6,",DA(1)=RCIFN,DA=RCDVIFN,DR=".03////^S X="""_RCNEW_""""_";.04////^S X="""_RCDETH_""""
..;S DIE="^RCT(349.1,",DA=RCDVIFN,DR="61",DR(2,349.161)=".03////^S X="""_RCNEW_""""_";.04////^S X="""_RCDETH_""""
..D ^DIE K DIE,DA,DA(1),DR
..D BMES^XPDUTL("...Fields (.03) and (.04) have been updated for "_$P($G(^DG(40.8,RCDVSION,0)),U,1))
D BMES^XPDUTL("Post-Installation Updates Complete.")
Q
SETARR ;Set up the ADDR array with all of the addresses and information
F RCCT=1:1 S RCSITE=$P($T(ADDR+RCCT),";;",2) Q:RCSITE="END" S ADDR($P(RCSITE,"^",1))=RCSITE
Q
EXIT ;EXIT
Q
Q
;Regional Counsel Addresses old and new
;piece 1 old address to RC
;piece 2 new RC address
;piece 3 old RC death notification address
;piece 4 new RC death notification address
ADDR ;
;;RC-BOSTON.GC.DOMAIN.EXT^OGCBOSRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BOSTON.GC.DOMAIN.EXT^OGCRegion1DeathNotification@mail.domain.ext
;;RC-NEWYORK.GC.DOMAIN.EXT^OGCNYNRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-NEWYORK.GC.DOMAIN.EXT^OGCRegion2DeathNotification@mail.domain.ext
;;RC-BALTIMORE.GC.DOMAIN.EXT^OGCBALRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BALTIMORE.GC.DOMAIN.EXT^OGCRegion3DeathNotification@mail.domain.ext
;;RC-PHILADELP.GC.DOMAIN.EXT^OGCPHIRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-PHILADELP.GC.DOMAIN.EXT^OGCRegion4DeathNotification@mail.domain.ext
;;RC-ATLANTA.GC.DOMAIN.EXT^OGCATLRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-ATLANTA.GC.DOMAIN.EXT^OGCRegion5DeathNotification@mail.domain.ext
;;RC-BAY-PINES.GC.DOMAIN.EXT^OGCBAYRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BAY-PINES.GC.DOMAIN.EXT^OGCRegion6DeathNotification@mail.domain.ext
;;RC-CLEVELAND.GC.DOMAIN.EXT^OGCCLERI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-CLEVELAND.GC.DOMAIN.EXT^OGCRegion7DeathNotification@mail.domain.ext
;;RC-NASHVILLE.GC.DOMAIN.EXT^OGCNASRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-NASHVILLE.GC.DOMAIN.EXT^OGCRegion8DeathNotification@mail.domain.ext
;;RC-JACKSON.GC.DOMAIN.EXT^OGCJACRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-JACKSON.GC.DOMAIN.EXT^OGCRegion9DeathNotification@mail.domain.ext
;;RC-CHICAGO.GC.DOMAIN.EXT^OGCCHIRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-CHICAGO.GC.DOMAIN.EXT^OGCRegion10DeathNotification@mail.domain.ext
;;RC-DETROIT.GC.DOMAIN.EXT^OGCDETRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-DETROIT.GC.DOMAIN.EXT^OGCRegion11DeathNotification@mail.domain.ext
;;RC-STLOUIS.GC.DOMAIN.EXT^OGCSTLRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-STLOUIS.GC.DOMAIN.EXT^OGCRegion12DeathNotification@mail.domain.ext
;;RC-WACO.GC.DOMAIN.EXT^OGCWACRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-WACO.GC.DOMAIN.EXT^OGCRegion13DeathNotification@mail.domain.ext
;;RC-HOUSTON.GC.DOMAIN.EXT^OGCHOURI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-HOUSTON.GC.DOMAIN.EXT^OGCRegion14DeathNotification@mail.domain.ext
;;RC-MINNEAPO.GC.DOMAIN.EXT^OGCMINRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-MINNEAPO.GC.DOMAIN.EXT^OGCRegion15DeathNotification@mail.domain.ext
;;RC-DENVER.GC.DOMAIN.EXT^OGCDENRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-DENVER.GC.DOMAIN.EXT^OGCRegion16DeathNotification@mail.domain.ext
;;RC-LOSANG.GC.DOMAIN.EXT^OGCLOSRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-LOSANG.GC.DOMAIN.EXT^OGCRegion17DeathNotification@mail.domain.ext
;;RC-SANFRAN.GC.DOMAIN.EXT^OGCSFCRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-SANFRAN.GC.DOMAIN.EXT^OGCRegion18DeathNotification@mail.domain.ext
;;RC-PHOENIX.GC.DOMAIN.EXT^OGCPHORI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-PHOENIX.GC.DOMAIN.EXT^OGCRegion19DeathNotification@mail.domain.ext
;;RC-PORTLAND.GC.DOMAIN.EXT^OGCPORRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-PORTLAND.GC.DOMAIN.EXT^OGCRegion20DeathNotification@mail.domain.ext
;;RC-BUFFALO.GC.DOMAIN.EXT^OGCBUFRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BUFFALO.GC.DOMAIN.EXT^OGCRegion21DeathNotification@mail.domain.ext
;;RC-INDIANAPO.GC.DOMAIN.EXT^OGCINDRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-INDIANAPO.GC.DOMAIN.EXT^OGCRegion22DeathNotification@mail.domain.ext
;;RC-WINSTON.GC.DOMAIN.EXT^OGCWINRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-WINSTON.GC.DOMAIN.EXT^OGCRegion23DeathNotification@mail.domain.ext
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCY159PO 7271 printed Apr 09, 2024@20:53:35 Page 2
RCY159PO ;MAF/ALB - POST-INIT FOR PATCH PRCA*159 AR/RCI ;FEB 19,2004
+1 ;;4.5;Accounts Receivable;**159**;Mar 20, 1995
+2 DO BMES^XPDUTL("This Post-Installation populates new fields (34) RC MAIL ADDRESS and ")
+3 DO MES^XPDUTL("(35) RC DEATH NOTIFICATION ADDRESS in file 349.1 AR TRANSMISSIONS TYPE")
+4 DO MES^XPDUTL("with the new Regional Counsel Mail Address and Death Notification addresses.")
+5 IF $DATA(^RCT(349.1,"B","RC"))
SET RCIFN=$ORDER(^RCT(349.1,"B","RC",0))
IF RCIFN]""
IF $DATA(^RCT(349.1,RCIFN,6,0))
IF $ORDER(^RCT(349.1,RCIFN,6,0))
Begin DoDot:1
+6 DO BMES^XPDUTL("If sites are currently testing the software for patch IB*2.0*159 and have")
+7 DO MES^XPDUTL("information in the new DIVISION OF CARE field (61), this information will be")
+8 DO MES^XPDUTL("updated with the new RC mail address and death notification address that")
+9 DO MES^XPDUTL("corresponds with the division.")
+10 DO BMES^XPDUTL("New fields (.03) RC MAIL ADDRESS and (.04) RC DEATH NOTIFICATION ADDRESS")
+11 DO MES^XPDUTL("are updated in the DIVISION OF CARE multiple in file 349.1")
End DoDot:1
+12 ;
ARRAY ;This will update two new fields in file 349.1:
+1 ;field RC MAIL ADDRESS #34
+2 ;field RC DEATH NOTIFICATION ADDRESS #35
+3 ;with the new Regional Counsel addresses
+4 ;D BMES^XPDUTL("...Updating field (34) RC MAIL ADDRESS ")
+5 ;D MES^XPDUTL("...Updating field (35) RC DEATH NOTIFICATIONS ADDRESS for file 349.1 ")
+6 KILL ADDR
+7 NEW ADDR,RCCT,RCSITE,RCRC,RCDOM,RCDETH,RCNEW,RCIFN,RCNODE,X
+8 ;
+9 ; find the primary RC mail address from file 349.1 field 33
+10 IF $DATA(^RCT(349.1,"B","RC"))
SET RCIFN=$ORDER(^RCT(349.1,"B","RC",0))
IF RCIFN]""
Begin DoDot:1
+11 SET RCDOM=$PIECE($GET(^RCT(349.1,RCIFN,3)),"^",3)
+12 QUIT
End DoDot:1
+13 IF $GET(RCDOM)=""
Begin DoDot:1
+14 DO BMES^XPDUTL("...There is no primary REMOTE DOMAIN.")
DO BMES^XPDUTL("...Please update field (32) REMOTE DOMAIN in AR TRANSMISSION TYPE file (349.1)")
DO MES^XPDUTL(" for the Regional Counsel (RC) type of transmission.")
+15 DO BMES^XPDUTL("...After file update, run 'Restart Install of Package(s) under the Installation")
+16 DO MES^XPDUTL(" option of the Kernel Installation and Distributions System.")
SET XPDABORT=1
+17 QUIT
End DoDot:1
GOTO EXIT
+18 DO BMES^XPDUTL("...Updating field (34) RC MAIL ADDRESS ")
+19 DO MES^XPDUTL("...Updating field (35) RC DEATH NOTIFICATIONS ADDRESS for file 349.1 ")
+20 DO SETARR
+21 IF $DATA(ADDR(RCDOM))
Begin DoDot:1
+22 SET RCNODE=ADDR(RCDOM)
SET RCNEW=$PIECE(RCNODE,"^",2)
SET RCDETH=$PIECE(RCNODE,"^",4)
+23 SET DIE="^RCT(349.1,"
SET DA=RCIFN
SET DR="34////^S X="""_RCNEW_""""_";35////^S X="""_RCDETH_""""
+24 DO ^DIE
KILL DIE,DA,DR
End DoDot:1
+25 DO BMES^XPDUTL("...Fields 34 and 35 have been updated for the primary site.")
+26 ;I $D(^RCT(349.1,RCIFN,6,0)) D
+27 IF $DATA(^RCT(349.1,RCIFN,6,0))
IF $ORDER(^RCT(349.1,RCIFN,6,0))
Begin DoDot:1
+28 DO BMES^XPDUTL("...Updating DIVISION OF CARE MULTIPLE fields:")
DO MES^XPDUTL(" (.03) RC MAIL ADDRESS and (.04) RC DEATH NOTIFICATION ADDRESS")
+29 NEW RCNEW,RCNODE,RCDETH,RCDIVC,RCDVADD,RCDVIFN,X,RCDVSION
+30 SET RCDVIFN=0
+31 FOR RCDIVC=0:0
SET RCDVIFN=$ORDER(^RCT(349.1,RCIFN,6,RCDVIFN))
if 'RCDVIFN
QUIT
SET RCDVADD=$PIECE($GET(^RCT(349.1,RCIFN,6,RCDVIFN,0)),"^",2)
IF RCDVADD]""
Begin DoDot:2
+32 SET RCDOM=$PIECE($GET(^DIC(4.2,RCDVADD,0)),"^",1)
+33 SET RCDVSION=$PIECE($GET(^RCT(349.1,RCIFN,6,RCDVIFN,0)),"^",1)
+34 IF RCDOM]""&($DATA(ADDR(RCDOM)))
SET RCNODE=ADDR(RCDOM)
SET RCNEW=$PIECE(ADDR(RCDOM),"^",2)
SET RCDETH=$PIECE(ADDR(RCDOM),"^",4)
+35 SET DIE="^RCT(349.1,"_RCIFN_",6,"
SET DA(1)=RCIFN
SET DA=RCDVIFN
SET DR=".03////^S X="""_RCNEW_""""_";.04////^S X="""_RCDETH_""""
+36 ;S DIE="^RCT(349.1,",DA=RCDVIFN,DR="61",DR(2,349.161)=".03////^S X="""_RCNEW_""""_";.04////^S X="""_RCDETH_""""
+37 DO ^DIE
KILL DIE,DA,DA(1),DR
+38 DO BMES^XPDUTL("...Fields (.03) and (.04) have been updated for "_$PIECE($GET(^DG(40.8,RCDVSION,0)),U,1))
End DoDot:2
End DoDot:1
+39 DO BMES^XPDUTL("Post-Installation Updates Complete.")
+40 QUIT
SETARR ;Set up the ADDR array with all of the addresses and information
+1 FOR RCCT=1:1
SET RCSITE=$PIECE($TEXT(ADDR+RCCT),";;",2)
if RCSITE="END"
QUIT
SET ADDR($PIECE(RCSITE,"^",1))=RCSITE
+2 QUIT
EXIT ;EXIT
+1 QUIT
+2 QUIT
+3 ;Regional Counsel Addresses old and new
+4 ;piece 1 old address to RC
+5 ;piece 2 new RC address
+6 ;piece 3 old RC death notification address
+7 ;piece 4 new RC death notification address
ADDR ;
+1 ;;RC-BOSTON.GC.DOMAIN.EXT^OGCBOSRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BOSTON.GC.DOMAIN.EXT^OGCRegion1DeathNotification@mail.domain.ext
+2 ;;RC-NEWYORK.GC.DOMAIN.EXT^OGCNYNRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-NEWYORK.GC.DOMAIN.EXT^OGCRegion2DeathNotification@mail.domain.ext
+3 ;;RC-BALTIMORE.GC.DOMAIN.EXT^OGCBALRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BALTIMORE.GC.DOMAIN.EXT^OGCRegion3DeathNotification@mail.domain.ext
+4 ;;RC-PHILADELP.GC.DOMAIN.EXT^OGCPHIRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-PHILADELP.GC.DOMAIN.EXT^OGCRegion4DeathNotification@mail.domain.ext
+5 ;;RC-ATLANTA.GC.DOMAIN.EXT^OGCATLRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-ATLANTA.GC.DOMAIN.EXT^OGCRegion5DeathNotification@mail.domain.ext
+6 ;;RC-BAY-PINES.GC.DOMAIN.EXT^OGCBAYRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BAY-PINES.GC.DOMAIN.EXT^OGCRegion6DeathNotification@mail.domain.ext
+7 ;;RC-CLEVELAND.GC.DOMAIN.EXT^OGCCLERI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-CLEVELAND.GC.DOMAIN.EXT^OGCRegion7DeathNotification@mail.domain.ext
+8 ;;RC-NASHVILLE.GC.DOMAIN.EXT^OGCNASRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-NASHVILLE.GC.DOMAIN.EXT^OGCRegion8DeathNotification@mail.domain.ext
+9 ;;RC-JACKSON.GC.DOMAIN.EXT^OGCJACRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-JACKSON.GC.DOMAIN.EXT^OGCRegion9DeathNotification@mail.domain.ext
+10 ;;RC-CHICAGO.GC.DOMAIN.EXT^OGCCHIRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-CHICAGO.GC.DOMAIN.EXT^OGCRegion10DeathNotification@mail.domain.ext
+11 ;;RC-DETROIT.GC.DOMAIN.EXT^OGCDETRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-DETROIT.GC.DOMAIN.EXT^OGCRegion11DeathNotification@mail.domain.ext
+12 ;;RC-STLOUIS.GC.DOMAIN.EXT^OGCSTLRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-STLOUIS.GC.DOMAIN.EXT^OGCRegion12DeathNotification@mail.domain.ext
+13 ;;RC-WACO.GC.DOMAIN.EXT^OGCWACRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-WACO.GC.DOMAIN.EXT^OGCRegion13DeathNotification@mail.domain.ext
+14 ;;RC-HOUSTON.GC.DOMAIN.EXT^OGCHOURI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-HOUSTON.GC.DOMAIN.EXT^OGCRegion14DeathNotification@mail.domain.ext
+15 ;;RC-MINNEAPO.GC.DOMAIN.EXT^OGCMINRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-MINNEAPO.GC.DOMAIN.EXT^OGCRegion15DeathNotification@mail.domain.ext
+16 ;;RC-DENVER.GC.DOMAIN.EXT^OGCDENRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-DENVER.GC.DOMAIN.EXT^OGCRegion16DeathNotification@mail.domain.ext
+17 ;;RC-LOSANG.GC.DOMAIN.EXT^OGCLOSRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-LOSANG.GC.DOMAIN.EXT^OGCRegion17DeathNotification@mail.domain.ext
+18 ;;RC-SANFRAN.GC.DOMAIN.EXT^OGCSFCRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-SANFRAN.GC.DOMAIN.EXT^OGCRegion18DeathNotification@mail.domain.ext
+19 ;;RC-PHOENIX.GC.DOMAIN.EXT^OGCPHORI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-PHOENIX.GC.DOMAIN.EXT^OGCRegion19DeathNotification@mail.domain.ext
+20 ;;RC-PORTLAND.GC.DOMAIN.EXT^OGCPORRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-PORTLAND.GC.DOMAIN.EXT^OGCRegion20DeathNotification@mail.domain.ext
+21 ;;RC-BUFFALO.GC.DOMAIN.EXT^OGCBUFRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-BUFFALO.GC.DOMAIN.EXT^OGCRegion21DeathNotification@mail.domain.ext
+22 ;;RC-INDIANAPO.GC.DOMAIN.EXT^OGCINDRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-INDIANAPO.GC.DOMAIN.EXT^OGCRegion22DeathNotification@mail.domain.ext
+23 ;;RC-WINSTON.GC.DOMAIN.EXT^OGCWINRI@MAIL.DOMAIN.EXT^G.RC RC REFERRALS@RC-WINSTON.GC.DOMAIN.EXT^OGCRegion23DeathNotification@mail.domain.ext
+24 ;;END
