source: WorldVistAEHR/trunk/r/CAPACITY_MANAGEMENT_RUM-KMPR/KMPRPOST.m@ 1297

Last change on this file since 1297 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 779 bytes
RevLine 
[613]1KMPRPOST ;OAK/RAK - RUM Post Install Routine ;11/19/04 09:02
2 ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
3 ;
4EN ;-- entry point for post-install
5 ;
6 D BMES^XPDUTL(" Begin Post-Install...")
7 D KILL
8 D FIELD
9 D MES^XPDUTL(" Post-Install complete!")
10 ;
11 Q
12 ;
13FIELD ;-- update field #2.11 - RUM WEEKS TO KEEP DATA
14 ;
15 N ERROR,FDA,IEN
16 S IEN=$O(^KMPD(8973,0)) Q:'IEN
17 ; quit if field #2.11 RUM WEEKS TO KEEP DATA contains data
18 Q:$P($G(^KMPD(8973,IEN,2)),U,11)
19 ; update field
20 D MES^XPDUTL(" Updating field #2.11 - RUM WEEKS TO KEEP DATA...")
21 S FDA($J,8973,IEN_",",2.11)=2
22 D FILE^DIE("","FDA($J)","ERROR")
23 ;
24 Q
25 ;
26KILL ;-- kill off no longer used subscript
27 ;
28 D MES^XPDUTL(" Removing data from ^KMPTMP(""KMPR"",""BACKGROUND"")...")
29 K ^KMPTMP("KMPR","BACKGROUND")
30 ;
31 Q
Note: See TracBrowser for help on using the repository browser.