| 1 | RCY159PO ;MAF/ALB - POST-INIT FOR PATCH PRCA*159 AR/RCI ;FEB 19,2004
|
|---|
| 2 | ;;4.5;Accounts Receivable;**159**;Mar 20, 1995
|
|---|
| 3 | D BMES^XPDUTL("This Post-Installation populates new fields (34) RC MAIL ADDRESS and ")
|
|---|
| 4 | D MES^XPDUTL("(35) RC DEATH NOTIFICATION ADDRESS in file 349.1 AR TRANSMISSIONS TYPE")
|
|---|
| 5 | D MES^XPDUTL("with the new Regional Counsel Mail Address and Death Notification addresses.")
|
|---|
| 6 | 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
|
|---|
| 7 | .D BMES^XPDUTL("If sites are currently testing the software for patch IB*2.0*159 and have")
|
|---|
| 8 | .D MES^XPDUTL("information in the new DIVISION OF CARE field (61), this information will be")
|
|---|
| 9 | .D MES^XPDUTL("updated with the new RC mail address and death notification address that")
|
|---|
| 10 | .D MES^XPDUTL("corresponds with the division.")
|
|---|
| 11 | .D BMES^XPDUTL("New fields (.03) RC MAIL ADDRESS and (.04) RC DEATH NOTIFICATION ADDRESS")
|
|---|
| 12 | .D MES^XPDUTL("are updated in the DIVISION OF CARE multiple in file 349.1")
|
|---|
| 13 | ;
|
|---|
| 14 | ARRAY ;This will update two new fields in file 349.1:
|
|---|
| 15 | ;field RC MAIL ADDRESS #34
|
|---|
| 16 | ;field RC DEATH NOTIFICATION ADDRESS #35
|
|---|
| 17 | ;with the new Regional Counsel addresses
|
|---|
| 18 | ;D BMES^XPDUTL("...Updating field (34) RC MAIL ADDRESS ")
|
|---|
| 19 | ;D MES^XPDUTL("...Updating field (35) RC DEATH NOTIFICATIONS ADDRESS for file 349.1 ")
|
|---|
| 20 | K ADDR
|
|---|
| 21 | N ADDR,RCCT,RCSITE,RCRC,RCDOM,RCDETH,RCNEW,RCIFN,RCNODE,X
|
|---|
| 22 | ;
|
|---|
| 23 | ; find the primary RC mail address from file 349.1 field 33
|
|---|
| 24 | I $D(^RCT(349.1,"B","RC")) S RCIFN=$O(^RCT(349.1,"B","RC",0)) I RCIFN]"" D
|
|---|
| 25 | .S RCDOM=$P($G(^RCT(349.1,RCIFN,3)),"^",3)
|
|---|
| 26 | .Q
|
|---|
| 27 | I $G(RCDOM)="" D G EXIT
|
|---|
| 28 | .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.")
|
|---|
| 29 | .D BMES^XPDUTL("...After file update, run 'Restart Install of Package(s) under the Installation")
|
|---|
| 30 | .D MES^XPDUTL(" option of the Kernel Installation and Distributions System.") S XPDABORT=1
|
|---|
| 31 | .Q
|
|---|
| 32 | D BMES^XPDUTL("...Updating field (34) RC MAIL ADDRESS ")
|
|---|
| 33 | D MES^XPDUTL("...Updating field (35) RC DEATH NOTIFICATIONS ADDRESS for file 349.1 ")
|
|---|
| 34 | D SETARR
|
|---|
| 35 | I $D(ADDR(RCDOM)) D
|
|---|
| 36 | .S RCNODE=ADDR(RCDOM),RCNEW=$P(RCNODE,"^",2),RCDETH=$P(RCNODE,"^",4)
|
|---|
| 37 | .S DIE="^RCT(349.1,",DA=RCIFN,DR="34////^S X="""_RCNEW_""""_";35////^S X="""_RCDETH_""""
|
|---|
| 38 | .D ^DIE K DIE,DA,DR
|
|---|
| 39 | D BMES^XPDUTL("...Fields 34 and 35 have been updated for the primary site.")
|
|---|
| 40 | ;I $D(^RCT(349.1,RCIFN,6,0)) D
|
|---|
| 41 | I $D(^RCT(349.1,RCIFN,6,0)),$O(^RCT(349.1,RCIFN,6,0)) D
|
|---|
| 42 | .D BMES^XPDUTL("...Updating DIVISION OF CARE MULTIPLE fields:") D MES^XPDUTL(" (.03) RC MAIL ADDRESS and (.04) RC DEATH NOTIFICATION ADDRESS")
|
|---|
| 43 | .N RCNEW,RCNODE,RCDETH,RCDIVC,RCDVADD,RCDVIFN,X,RCDVSION
|
|---|
| 44 | .S RCDVIFN=0
|
|---|
| 45 | .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
|
|---|
| 46 | ..S RCDOM=$P($G(^DIC(4.2,RCDVADD,0)),"^",1)
|
|---|
| 47 | ..S RCDVSION=$P($G(^RCT(349.1,RCIFN,6,RCDVIFN,0)),"^",1)
|
|---|
| 48 | ..I RCDOM]""&($D(ADDR(RCDOM))) S RCNODE=ADDR(RCDOM),RCNEW=$P(ADDR(RCDOM),"^",2),RCDETH=$P(ADDR(RCDOM),"^",4)
|
|---|
| 49 | ..S DIE="^RCT(349.1,"_RCIFN_",6,",DA(1)=RCIFN,DA=RCDVIFN,DR=".03////^S X="""_RCNEW_""""_";.04////^S X="""_RCDETH_""""
|
|---|
| 50 | ..;S DIE="^RCT(349.1,",DA=RCDVIFN,DR="61",DR(2,349.161)=".03////^S X="""_RCNEW_""""_";.04////^S X="""_RCDETH_""""
|
|---|
| 51 | ..D ^DIE K DIE,DA,DA(1),DR
|
|---|
| 52 | ..D BMES^XPDUTL("...Fields (.03) and (.04) have been updated for "_$P($G(^DG(40.8,RCDVSION,0)),U,1))
|
|---|
| 53 | D BMES^XPDUTL("Post-Installation Updates Complete.")
|
|---|
| 54 | Q
|
|---|
| 55 | SETARR ;Set up the ADDR array with all of the addresses and information
|
|---|
| 56 | F RCCT=1:1 S RCSITE=$P($T(ADDR+RCCT),";;",2) Q:RCSITE="END" S ADDR($P(RCSITE,"^",1))=RCSITE
|
|---|
| 57 | Q
|
|---|
| 58 | EXIT ;EXIT
|
|---|
| 59 | Q
|
|---|
| 60 | Q
|
|---|
| 61 | ;Regional Counsel Addresses old and new
|
|---|
| 62 | ;piece 1 old address to RC
|
|---|
| 63 | ;piece 2 new RC address
|
|---|
| 64 | ;piece 3 old RC death notification address
|
|---|
| 65 | ;piece 4 new RC death notification address
|
|---|
| 66 | ADDR ;
|
|---|
| 67 | ;;RC-BOSTON.GC.VA.GOV^OGCBOSRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BOSTON.GC.VA.GOV^OGCRegion1DeathNotification@mail.va.gov
|
|---|
| 68 | ;;RC-NEWYORK.GC.VA.GOV^OGCNYNRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-NEWYORK.GC.VA.GOV^OGCRegion2DeathNotification@mail.va.gov
|
|---|
| 69 | ;;RC-BALTIMORE.GC.VA.GOV^OGCBALRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BALTIMORE.GC.VA.GOV^OGCRegion3DeathNotification@mail.va.gov
|
|---|
| 70 | ;;RC-PHILADELP.GC.VA.GOV^OGCPHIRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-PHILADELP.GC.VA.GOV^OGCRegion4DeathNotification@mail.va.gov
|
|---|
| 71 | ;;RC-ATLANTA.GC.VA.GOV^OGCATLRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-ATLANTA.GC.VA.GOV^OGCRegion5DeathNotification@mail.va.gov
|
|---|
| 72 | ;;RC-BAY-PINES.GC.VA.GOV^OGCBAYRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BAY-PINES.GC.VA.GOV^OGCRegion6DeathNotification@mail.va.gov
|
|---|
| 73 | ;;RC-CLEVELAND.GC.VA.GOV^OGCCLERI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-CLEVELAND.GC.VA.GOV^OGCRegion7DeathNotification@mail.va.gov
|
|---|
| 74 | ;;RC-NASHVILLE.GC.VA.GOV^OGCNASRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-NASHVILLE.GC.VA.GOV^OGCRegion8DeathNotification@mail.va.gov
|
|---|
| 75 | ;;RC-JACKSON.GC.VA.GOV^OGCJACRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-JACKSON.GC.VA.GOV^OGCRegion9DeathNotification@mail.va.gov
|
|---|
| 76 | ;;RC-CHICAGO.GC.VA.GOV^OGCCHIRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-CHICAGO.GC.VA.GOV^OGCRegion10DeathNotification@mail.va.gov
|
|---|
| 77 | ;;RC-DETROIT.GC.VA.GOV^OGCDETRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-DETROIT.GC.VA.GOV^OGCRegion11DeathNotification@mail.va.gov
|
|---|
| 78 | ;;RC-STLOUIS.GC.VA.GOV^OGCSTLRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-STLOUIS.GC.VA.GOV^OGCRegion12DeathNotification@mail.va.gov
|
|---|
| 79 | ;;RC-WACO.GC.VA.GOV^OGCWACRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-WACO.GC.VA.GOV^OGCRegion13DeathNotification@mail.va.gov
|
|---|
| 80 | ;;RC-HOUSTON.GC.VA.GOV^OGCHOURI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-HOUSTON.GC.VA.GOV^OGCRegion14DeathNotification@mail.va.gov
|
|---|
| 81 | ;;RC-MINNEAPO.GC.VA.GOV^OGCMINRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-MINNEAPO.GC.VA.GOV^OGCRegion15DeathNotification@mail.va.gov
|
|---|
| 82 | ;;RC-DENVER.GC.VA.GOV^OGCDENRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-DENVER.GC.VA.GOV^OGCRegion16DeathNotification@mail.va.gov
|
|---|
| 83 | ;;RC-LOSANG.GC.VA.GOV^OGCLOSRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-LOSANG.GC.VA.GOV^OGCRegion17DeathNotification@mail.va.gov
|
|---|
| 84 | ;;RC-SANFRAN.GC.VA.GOV^OGCSFCRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-SANFRAN.GC.VA.GOV^OGCRegion18DeathNotification@mail.va.gov
|
|---|
| 85 | ;;RC-PHOENIX.GC.VA.GOV^OGCPHORI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-PHOENIX.GC.VA.GOV^OGCRegion19DeathNotification@mail.va.gov
|
|---|
| 86 | ;;RC-PORTLAND.GC.VA.GOV^OGCPORRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-PORTLAND.GC.VA.GOV^OGCRegion20DeathNotification@mail.va.gov
|
|---|
| 87 | ;;RC-BUFFALO.GC.VA.GOV^OGCBUFRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-BUFFALO.GC.VA.GOV^OGCRegion21DeathNotification@mail.va.gov
|
|---|
| 88 | ;;RC-INDIANAPO.GC.VA.GOV^OGCINDRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-INDIANAPO.GC.VA.GOV^OGCRegion22DeathNotification@mail.va.gov
|
|---|
| 89 | ;;RC-WINSTON.GC.VA.GOV^OGCWINRI@MAIL.VA.GOV^G.RC RC REFERRALS@RC-WINSTON.GC.VA.GOV^OGCRegion23DeathNotification@mail.va.gov
|
|---|
| 90 | ;;END
|
|---|
