| [613] | 1 | PRC51110 ;VMP/TJH ; Post Install routine for PRC*5.1*110 ; 07/20/2007
|
|---|
| 2 | ;;5.1;IFCAP;**110**;Oct 20, 2000;Build 7
|
|---|
| 3 | ;
|
|---|
| 4 | Q ; Do Not Enter at routine label
|
|---|
| 5 | ;
|
|---|
| 6 | EN ; Entry point.
|
|---|
| 7 | TMMSG ; Send message reporting any address issues found during installation
|
|---|
| 8 | D BMES^XPDUTL("Validating VA FSC mailing address, please wait...")
|
|---|
| 9 | N PRCSTA,PRCA
|
|---|
| 10 | S PRCSTA=0,U="^"
|
|---|
| 11 | F S PRCSTA=$O(^PRC(411,PRCSTA)) Q:'PRCSTA D
|
|---|
| 12 | . S PRCSTN=$O(^DIC(4,"D",$P(^PRC(411,PRCSTA,0),U,1),"")) Q:PRCSTN=""
|
|---|
| 13 | . S PRCMAX=0,PRCFSC=0
|
|---|
| 14 | . F S PRCMAX=$O(^PRC(411,PRCSTA,4,PRCMAX)) Q:'PRCMAX D
|
|---|
| 15 | .. S PRCMAN=$P(^PRC(411,PRCSTA,4,PRCMAX,0),U,1)
|
|---|
| 16 | .. I $E(PRCMAN,1,6)="VA FSC" S PRCFSC=1
|
|---|
| 17 | .. I $E(PRCMAN,1,3)="FMS" S PRCA(PRCSTN,PRCMAX)=PRCMAN
|
|---|
| 18 | . I 'PRCFSC S PRCA(PRCSTN,0)="No VA FSC address."
|
|---|
| 19 | I '$D(PRCA) D BMES^XPDUTL("Validation complete.") Q ; if nothing found, don't send MailMan message.
|
|---|
| 20 | ;
|
|---|
| 21 | N DA,PRCC,PRCGROUP,PRCPARAM,PRCTXT,XMDUZ,XMSUB,XMTEXT,XMY
|
|---|
| 22 | N PRC1,PRC2,PRCFSC,PRCMAN,PRCMAX,PRCNP,PRCSTR1,PRCSTR2,PRCTITLE,PRCTX
|
|---|
| 23 | S XMSUB="IMPORTANT BULLETIN FROM IFCAP PATCH PRC*5.1*110"
|
|---|
| 24 | S XMDUZ=DUZ,XMTEXT="PRCTXT"
|
|---|
| 25 | S PRCPARAM("FROM")="PATCH PRC*5.1*110 ADDRESS VERIFICATION"
|
|---|
| 26 | ; find purchasing/finance staff to send report to
|
|---|
| 27 | S PRCTX=0 K PRCJB
|
|---|
| 28 | F S PRCTX=$O(^DIC(3.1,PRCTX)) Q:'PRCTX D
|
|---|
| 29 | . S PRCTITLE=$P(^DIC(3.1,PRCTX,0),U,1)
|
|---|
| 30 | . F PRCSTR1="FISCAL","PURCH","FINAN","PROCUR","IFCAP" I $F(PRCTITLE,PRCSTR1) D
|
|---|
| 31 | .. F PRCSTR2="CHIEF","ADMIN","SUPER","COORD" I $F(PRCTITLE,PRCSTR2) S PRCJB(PRCTX)=""
|
|---|
| 32 | S PRCNP=1
|
|---|
| 33 | F S PRCNP=$O(^VA(200,PRCNP)) Q:'PRCNP D
|
|---|
| 34 | . S PRCTX=$P($G(^VA(200,PRCNP,0)),U,9)
|
|---|
| 35 | . Q:PRCTX="" ; Quit if there is no job title
|
|---|
| 36 | . Q:'$D(PRCJB(PRCTX)) ; Quit if job title not one we're looking for
|
|---|
| 37 | . Q:$P(^VA(200,PRCNP,0),U,7) ; Quit if DISUSERed
|
|---|
| 38 | . S XMY(PRCNP)="" ; add this responsible party to mail list.
|
|---|
| 39 | S XMY(DUZ)="" ; add the patch installer to the mail list
|
|---|
| 40 | ;
|
|---|
| 41 | S PRCC=0
|
|---|
| 42 | S PRCC=PRCC+1,PRCTXT(PRCC)="This message has been sent by patch PRC*5.1*110 at the completion of"
|
|---|
| 43 | S PRCC=PRCC+1,PRCTXT(PRCC)="the verification of the Mailing Address change for VA FSC."
|
|---|
| 44 | S PRCC=PRCC+1,PRCTXT(PRCC)="The purpose of this message is to report any remaining addresses which"
|
|---|
| 45 | S PRCC=PRCC+1,PRCTXT(PRCC)="might need to be edited and to report any Stations/Substations which"
|
|---|
| 46 | S PRCC=PRCC+1,PRCTXT(PRCC)="might need the VA FSC address added. You can use the 'Site Parameters'"
|
|---|
| 47 | S PRCC=PRCC+1,PRCTXT(PRCC)="option to edit the MAIL INVOICE LOCATION entries if necessary."
|
|---|
| 48 | S PRCC=PRCC+1,PRCTXT(PRCC)=" "
|
|---|
| 49 | S PRCC=PRCC+1,PRCTXT(PRCC)="As reported in the patch description, the Corporate Franchise Data Center"
|
|---|
| 50 | S PRCC=PRCC+1,PRCTXT(PRCC)="in Austin has changed the preferred address name for IFCAP communications"
|
|---|
| 51 | S PRCC=PRCC+1,PRCTXT(PRCC)="from FMS to VA FSC. This report lists any stations in your system that"
|
|---|
| 52 | S PRCC=PRCC+1,PRCTXT(PRCC)="do not have a MAIL INVOICE LOCATION starting with VA FSC. The necessity"
|
|---|
| 53 | S PRCC=PRCC+1,PRCTXT(PRCC)="for the address only applies to Stations/Substations that will be using"
|
|---|
| 54 | S PRCC=PRCC+1,PRCTXT(PRCC)="requisitions. You will need to make a local determination as to which"
|
|---|
| 55 | S PRCC=PRCC+1,PRCTXT(PRCC)="stations this applies to at your facility. Additionally, the report"
|
|---|
| 56 | S PRCC=PRCC+1,PRCTXT(PRCC)="lists addresses which contain the old FMS abbreviation. These could"
|
|---|
| 57 | S PRCC=PRCC+1,PRCTXT(PRCC)="be considered for editing or deletion. Again, this should be a local"
|
|---|
| 58 | S PRCC=PRCC+1,PRCTXT(PRCC)="determination that cannot be automated by this patch."
|
|---|
| 59 | S PRCC=PRCC+1,PRCTXT(PRCC)=" "
|
|---|
| 60 | S PRCC=PRCC+1,PRCTXT(PRCC)="The following Stations/Substations do not have a VA FSC address entry"
|
|---|
| 61 | S PRCC=PRCC+1,PRCTXT(PRCC)="in the ADMIN. ACTIVITY SITE PARAMETER file."
|
|---|
| 62 | S DA=0
|
|---|
| 63 | F S DA=$O(PRCA(DA)) Q:DA="" Q:'$D(PRCA(DA,0)) D
|
|---|
| 64 | . S PRCC=PRCC+1
|
|---|
| 65 | . S PRCTXT(PRCC)=$P(^DIC(4,DA,99),U,1)
|
|---|
| 66 | . K PRCA(DA,0)
|
|---|
| 67 | S PRCC=PRCC+1,PRCTXT(PRCC)=" "
|
|---|
| 68 | S PRCC=PRCC+1,PRCTXT(PRCC)="The following Stations/Substations have an FMS address which may need"
|
|---|
| 69 | S PRCC=PRCC+1,PRCTXT(PRCC)="to be edited."
|
|---|
| 70 | S PRC1=0
|
|---|
| 71 | F S PRC1=$O(PRCA(PRC1)) Q:PRC1="" D
|
|---|
| 72 | . S PRC2=0
|
|---|
| 73 | . F S PRC2=$O(PRCA(PRC1,PRC2)) Q:PRC2="" D
|
|---|
| 74 | .. S PRCC=PRCC+1
|
|---|
| 75 | .. S PRCTXT(PRCC)=$P(^DIC(4,PRC1,99),U,1)_" "_PRCA(PRC1,PRC2)
|
|---|
| 76 | D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY,.IBPARAM,"","")
|
|---|
| 77 | D BMES^XPDUTL("Address validation complete, a MailMan message has been sent listing items")
|
|---|
| 78 | D MES^XPDUTL("which may need to be reviewed.")
|
|---|
| 79 | Q
|
|---|
