| 1 | IMRPT15 ;FAI/HCIOFO - PATCH 15 PRE & POST INIT ROUTINE ; 02/20/02 06:17
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**15**;Feb 09, 1998;
|
|---|
| 3 | PRE ; 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
|
|---|
| 15 | OPT S IMRO=""
|
|---|
| 16 | F S IMRO=$O(^DIC(19,"B","IMR REGISTRY DATA",IMRO)) Q:IMRO="" D DISO,CHK
|
|---|
| 17 | Q
|
|---|
| 18 | DISO S $P(^DIC(19,IMRO,0),"^",3)="**Out of Order for Patch 15 Install**"
|
|---|
| 19 | Q
|
|---|
| 20 | CHK 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 | ;
|
|---|
| 24 | POST ; KIDS Post install for IMR*2.1*15
|
|---|
| 25 | ;
|
|---|
| 26 | FOP S IMRO=""
|
|---|
| 27 | F S IMRO=$O(^DIC(19,"B","IMR REGISTRY DATA",IMRO)) Q:IMRO="" D ENAO
|
|---|
| 28 | Q
|
|---|
| 29 | ENAO S $P(^DIC(19,IMRO,0),"^",3)=""
|
|---|
| 30 | Q
|
|---|
