91 lines
6.7 KiB
Mathematica
91 lines
6.7 KiB
Mathematica
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.VA.GOV^OGCBOSRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BOSTON.GC.VA.GOV^OGCRegion1DeathNotification@mail.va.gov
|
|
;;RC-NEWYORK.GC.VA.GOV^OGCNYNRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-NEWYORK.GC.VA.GOV^OGCRegion2DeathNotification@mail.va.gov
|
|
;;RC-BALTIMORE.GC.VA.GOV^OGCBALRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BALTIMORE.GC.VA.GOV^OGCRegion3DeathNotification@mail.va.gov
|
|
;;RC-PHILADELP.GC.VA.GOV^OGCPHIRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-PHILADELP.GC.VA.GOV^OGCRegion4DeathNotification@mail.va.gov
|
|
;;RC-ATLANTA.GC.VA.GOV^OGCATLRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-ATLANTA.GC.VA.GOV^OGCRegion5DeathNotification@mail.va.gov
|
|
;;RC-BAY-PINES.GC.VA.GOV^OGCBAYRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BAY-PINES.GC.VA.GOV^OGCRegion6DeathNotification@mail.va.gov
|
|
;;RC-CLEVELAND.GC.VA.GOV^OGCCLERI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-CLEVELAND.GC.VA.GOV^OGCRegion7DeathNotification@mail.va.gov
|
|
;;RC-NASHVILLE.GC.VA.GOV^OGCNASRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-NASHVILLE.GC.VA.GOV^OGCRegion8DeathNotification@mail.va.gov
|
|
;;RC-JACKSON.GC.VA.GOV^OGCJACRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-JACKSON.GC.VA.GOV^OGCRegion9DeathNotification@mail.va.gov
|
|
;;RC-CHICAGO.GC.VA.GOV^OGCCHIRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-CHICAGO.GC.VA.GOV^OGCRegion10DeathNotification@mail.va.gov
|
|
;;RC-DETROIT.GC.VA.GOV^OGCDETRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-DETROIT.GC.VA.GOV^OGCRegion11DeathNotification@mail.va.gov
|
|
;;RC-STLOUIS.GC.VA.GOV^OGCSTLRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-STLOUIS.GC.VA.GOV^OGCRegion12DeathNotification@mail.va.gov
|
|
;;RC-WACO.GC.VA.GOV^OGCWACRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-WACO.GC.VA.GOV^OGCRegion13DeathNotification@mail.va.gov
|
|
;;RC-HOUSTON.GC.VA.GOV^OGCHOURI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-HOUSTON.GC.VA.GOV^OGCRegion14DeathNotification@mail.va.gov
|
|
;;RC-MINNEAPO.GC.VA.GOV^OGCMINRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-MINNEAPO.GC.VA.GOV^OGCRegion15DeathNotification@mail.va.gov
|
|
;;RC-DENVER.GC.VA.GOV^OGCDENRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-DENVER.GC.VA.GOV^OGCRegion16DeathNotification@mail.va.gov
|
|
;;RC-LOSANG.GC.VA.GOV^OGCLOSRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-LOSANG.GC.VA.GOV^OGCRegion17DeathNotification@mail.va.gov
|
|
;;RC-SANFRAN.GC.VA.GOV^OGCSFCRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-SANFRAN.GC.VA.GOV^OGCRegion18DeathNotification@mail.va.gov
|
|
;;RC-PHOENIX.GC.VA.GOV^OGCPHORI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-PHOENIX.GC.VA.GOV^OGCRegion19DeathNotification@mail.va.gov
|
|
;;RC-PORTLAND.GC.VA.GOV^OGCPORRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-PORTLAND.GC.VA.GOV^OGCRegion20DeathNotification@mail.va.gov
|
|
;;RC-BUFFALO.GC.VA.GOV^OGCBUFRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BUFFALO.GC.VA.GOV^OGCRegion21DeathNotification@mail.va.gov
|
|
;;RC-INDIANAPO.GC.VA.GOV^OGCINDRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-INDIANAPO.GC.VA.GOV^OGCRegion22DeathNotification@mail.va.gov
|
|
;;RC-WINSTON.GC.VA.GOV^OGCWINRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-WINSTON.GC.VA.GOV^OGCRegion23DeathNotification@mail.va.gov
|
|
;;END
|