Changeset 558 for ccr/trunk/p/C0CENV.m

Timestamp:

Sep 14, 2009, 9:46:28 PM (15 years ago)

Author:

George Lilly

Message:

update to RPMS labs install

File:

• ccr/trunk/p/C0CENV.m (modified) (4 diffs)

ccr/trunk/p/C0CENV.m

@@ -1 @@
-C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine; July 21, 2009
+C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
  ;;1.0;C0C;;May 19, 2009;
  ;
@@ -157 +157 @@
         ; Load and rename C0CQRY1 to LA7QRY1 if LA*5.2*68 not installed.
         I '$$PATCH^XPDUTL("LA*5.2*68") D
+        . S MSG="This system missing LAB patch LA*5.2*68"
+        . D BMES(MSG)
         . S MSG="Renaming routine C0CQRY1 to LA7QRY1"
         . D BMES(MSG)
         . D LOAD("C0CQRY1")
-        . D SAVE("C0CQYR1","LA7QRY1")
+        . D SAVE("C0CQRY1","LA7QRY1")
         ;
         Q
@@ -166 +168 @@
         ;
 POST7   ; Checkpoint call back entry point.
-        ; Task setting the data in the indexes.
         ;
-        N MSG,ZTDESC,ZTDTH,ZTIO,ZTSK,ZTRTN,ZTSAVE
-        ;
-        ; If TaskMan not running then peform post-intall directly (interactively)
-        I '$$TM^%ZTLOAD D  Q
-        . S MSG="TaskMan is not running"
-        . D BMES(MSG)
-        . S MSG="Will run indexing interactively"
-        . D BMES(MSG)
-        . D REINDEX^C0CLA7DD
-        ;
-        ; If KIDS install has been tasked then run post-install during this task.
-        I $D(ZTQUEUED) D REINDEX^C0CLA7DD Q
-        ;
-        S MSG="Tasking setting data into new V LAB indexes"
-        D BMES(MSG)
-        ;
-        S ZTRTN="REINDEX^C0CLA7DD",ZTDESC="C0C post-install - V LAB x-refs indexing"
-        S ZTIO="",ZTDTH=$H,ZTSAVE("XP*")=""
-        D ^%ZTLOAD
-        ;
-        I ZTSK>0 D
-        . S MSG="Task "_ZTSK_" tasked to set data into ALR* cross-references to V LAB file."
-        . D BMES(MSG)
-        E  D
-        . S MSG="Tasking of indexing of V LAB file failed"
-        . D BMES(MSG)
-        ;
+        D REINDEX^C0CLA7DD
         ;
         Q
@@ -216 +191 @@
 SAVE(OLD,NEW)   ; restore routine X
         N %,DIE,X,XCM,XCN,XCS
-        S DIE="^TMP($J,"_OLD_",",XCN=0,X=NEW
+        S DIE="^TMP($J,"""_OLD_""",",XCN=0,X=NEW
         X ^%ZOSF("SAVE")
         Q