| [613] | 1 | IVM26PT ;ALB/SEK - POST-INSTALL FOR PATCH IVM*2.0*6 ; 27-AUG-96
|
|---|
| 2 | ;;Version 2.0 ; INCOME VERIFICATION MATCH ;**6**; 21-OCT-94
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;This routine will run as the post-install for patch IVM*2.0*6.
|
|---|
| 6 | ;The DHCP LOCATION LOGIC field (#10) and the DHCP OUTPUT LOGIC
|
|---|
| 7 | ;field (#20) will be modified in the IVM DEMOGRAPHIC UPLOAD FIELDS
|
|---|
| 8 | ;file (#301.92).
|
|---|
| 9 | ;Notification will be sent to the IVM Center that that the facility
|
|---|
| 10 | ;has installed the patch.
|
|---|
| 11 | ;
|
|---|
| 12 | EN ;begin processing
|
|---|
| 13 | D SETFILE
|
|---|
| 14 | D SENDNOT
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | SETFILE ;modify IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)
|
|---|
| 18 | D BMES^XPDUTL(" >> Modifying IVM DEMOGRAPHIC UPLOAD FIELDS file")
|
|---|
| 19 | S ^IVM(301.92,30,1)="S DR=.314 D LOOK^IVMPREC9 S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
|
|---|
| 20 | S ^IVM(301.92,30,2)="S DR=.314 D LOOK^IVMPREC9 S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | SENDNOT ;Send notification to the IVM Center once the facility has installed
|
|---|
| 24 | ;IVM*2*6 patch.
|
|---|
| 25 | ;
|
|---|
| 26 | N DIFROM
|
|---|
| 27 | D BMES^XPDUTL(" >> Sending a 'completed installation' notice to the IVM Center... ")
|
|---|
| 28 | S XMSUB="IVM*2*6 PATCH INSTALLATION"
|
|---|
| 29 | S XMDUZ="IVM PACKAGE"
|
|---|
| 30 | S XMY("BONNER@IVM.VA.GOV")="",XMY(DUZ)="",XMY(.5)=""
|
|---|
| 31 | S XMTEXT="IVMTEXT("
|
|---|
| 32 | S IVMX=$$SITE^VASITE
|
|---|
| 33 | S IVMTEXT(1)=" Facility: "_$P(IVMX,"^",2)
|
|---|
| 34 | S IVMTEXT(2)=" Station Number: "_$P(IVMX,"^",3)
|
|---|
| 35 | ;
|
|---|
| 36 | D NOW^%DTC S Y=% D DD^%DT
|
|---|
| 37 | S IVMTEXT(3)=" Installed IVM*2*6 patch on: "_Y
|
|---|
| 38 | D ^XMD
|
|---|
| 39 | K IVMTEXT,IVMX,XMDUZ,XMSUB,XMTEXT,XMY,%
|
|---|
| 40 | Q
|
|---|
