source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRPT15.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1IMRPT15 ;FAI/HCIOFO - PATCH 15 PRE & POST INIT ROUTINE ; 02/20/02 06:17
2 ;;2.1;IMMUNOLOGY CASE REGISTRY;**15**;Feb 09, 1998;
3PRE ; KIDS Pre install for IMR*2.1*15
4 ;
5 N XQA,XQAMSG
6 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
7 D BMES^XPDUTL($$CJ^XLFSTR(">>Checking status of Nightly Extract<<",80))
8 D OPT
9 S ZTSK=ITSK D DQ^%ZTLOAD
10 D:ZTSK(0)=1 BMES^XPDUTL($$CJ^XLFSTR("** Unscheduling IMR REGISTRY DATA Task **",80))
11 S MSG="Disabling Extract Data for Immunology Study Registry [IMR REGISTRY DATA] option"
12 D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
13 D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
14 Q
15OPT S IMRO=""
16 F S IMRO=$O(^DIC(19,"B","IMR REGISTRY DATA",IMRO)) Q:IMRO="" D DISO,CHK
17 Q
18DISO S $P(^DIC(19,IMRO,0),"^",3)="**Out of Order for Patch 15 Install**"
19 Q
20CHK S IOPT=""
21 F S IOPT=$O(^DIC(19.2,"B",IMRO,IOPT)) Q:IOPT="" S ITSK=$P($G(^DIC(19.2,IOPT,1)),"^",1)
22 Q
23 ;
24POST ; KIDS Post install for IMR*2.1*15
25 ;
26FOP S IMRO=""
27 F S IMRO=$O(^DIC(19,"B","IMR REGISTRY DATA",IMRO)) Q:IMRO="" D ENAO
28 Q
29ENAO S $P(^DIC(19,IMRO,0),"^",3)=""
30 Q
Note: See TracBrowser for help on using the repository browser.