31 lines
1.1 KiB
Mathematica
31 lines
1.1 KiB
Mathematica
|
IMRPT15 ;FAI/HCIOFO - PATCH 15 PRE & POST INIT ROUTINE ; 02/20/02 06:17
|
||
|
;;2.1;IMMUNOLOGY CASE REGISTRY;**15**;Feb 09, 1998;
|
||
|
PRE ; KIDS Pre install for IMR*2.1*15
|
||
|
;
|
||
|
N XQA,XQAMSG
|
||
|
D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install started ***",80))
|
||
|
D BMES^XPDUTL($$CJ^XLFSTR(">>Checking status of Nightly Extract<<",80))
|
||
|
D OPT
|
||
|
S ZTSK=ITSK D DQ^%ZTLOAD
|
||
|
D:ZTSK(0)=1 BMES^XPDUTL($$CJ^XLFSTR("** Unscheduling IMR REGISTRY DATA Task **",80))
|
||
|
S MSG="Disabling Extract Data for Immunology Study Registry [IMR REGISTRY DATA] option"
|
||
|
D BMES^XPDUTL($$CJ^XLFSTR(MSG,80)) K MSG
|
||
|
D BMES^XPDUTL($$CJ^XLFSTR("*** Pre install completed ***",80))
|
||
|
Q
|
||
|
OPT S IMRO=""
|
||
|
F S IMRO=$O(^DIC(19,"B","IMR REGISTRY DATA",IMRO)) Q:IMRO="" D DISO,CHK
|
||
|
Q
|
||
|
DISO S $P(^DIC(19,IMRO,0),"^",3)="**Out of Order for Patch 15 Install**"
|
||
|
Q
|
||
|
CHK S IOPT=""
|
||
|
F S IOPT=$O(^DIC(19.2,"B",IMRO,IOPT)) Q:IOPT="" S ITSK=$P($G(^DIC(19.2,IOPT,1)),"^",1)
|
||
|
Q
|
||
|
;
|
||
|
POST ; KIDS Post install for IMR*2.1*15
|
||
|
;
|
||
|
FOP S IMRO=""
|
||
|
F S IMRO=$O(^DIC(19,"B","IMR REGISTRY DATA",IMRO)) Q:IMRO="" D ENAO
|
||
|
Q
|
||
|
ENAO S $P(^DIC(19,IMRO,0),"^",3)=""
|
||
|
Q
|