source: FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LR105PO.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1LR105PO ;DALISC/FHS - LR*5.2*105 POST INSTALL ROUTINE KIDS INSTALL"
2 ;;5.2;LAB SERVICE;**105**;Feb 14, 1996
3EN ;
4 S X=$$ADD^XPDMENU("LR LIM/WKLD MENU","LR WKLD CODE EDIT PRINT")
5 W !!,"Option [LR WKLD CODE EDIT PRINT] was ",$S(X:"added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU",!!
6 S DA=$O(^LAB(64.2,"B","DSS ACC",0)) G:DA DIS
7 L +^LAB(64.2):1 I '$T W !,"^LAB(64.2) GLOBAL IS LOCKED BY ANOTHER USER",!,"DSS ACC suffix not added.",!! H 5 G BB
8 K DIE,DIC,DA,DR S DLAYGO=64,DIC="^LAB(64.2,",DIC(0)="L",X="DSS ACC" D ^DIC
9 I Y<1 W !?5,"Not able to install new workload code.",! L -^LAB(64.2) G BB
10 K DIE,DIC,DA,DR,DLAYGO,X S DIE="^LAB(64.2,",DA=+Y,DLAYGO=64.2
11 S DR="1///^S X=.9999;6////38;11////1;12////10"
12 D ^DIE L -^LAB(64.2)
13DIS K DIC,DIE,DR,DLAYGO G:'$G(DA) BB
14 S S=0,DIC="^LAB(64.2," D EN^DIQ
15 W !!?5,"This new Workload Code Suffix has been added to ^LAB(64.2 ",!!
16BB ;G END ;Blood bank's multi-divisional test sites should uncomment this line.
17 K DA,DIK S DA(1)=65,DA=.16,DIK="^DD(65," D ^DIK K DA,DIK
18 W !!," The DIVISION #.16 field has been deleted from the BLOOD INVENTORY #65",!!
19END ;
20 I '$D(^LRO(64.03,0))#2 W !!,"Database Error",!?5,"Your system is missing the ^LRO(64.03) Global" G STOP
21 W !,$$CJ^XLFSTR("Preparing to purge data from WKLD LOG FILE (#64.03)",80)
22 L +^LRO(64.03):5 I $T W !!,$$CJ^XLFSTR("Purging data <Please wait> ",80),! D G STOP
23 . S X=$P(^LRO(64.03,0),U,1,2) K ^LRO(64.03) S ^LRO(64.03,0)=X
24 . W !,"Turning [OFF] COLLECT WKLD LOG FILE (#616) field in LABORATORY SITE (#69.9) file",!!
25 . S $P(^LAB(69.9,1,"NITE"),U,6)="" W !?5,"Laboratory DSS Site Preparation completed",!!
26 W !!!,$$CJ^XLFSTR("Unable to Lock the ^LRO(64.03) Global - Contact the CS Clin2",80)
27 W !,$$CJ^XLFSTR("for assistance. The Patch install is complete but data in file #64.03",80)
28 W !!,$$CJ^XLFSTR("was NOT PURGED.",80),!
29STOP L -^LRO(64.03)
30 S:$D(^LAM(0))#2 $P(^(0),U,3)=99999
31 W !!,$$CJ^XLFSTR("Post install completed",80),!!
32 K DIE,DIC,DA,DR,DLAYGO,X,Y,S Q
Note: See TracBrowser for help on using the repository browser.