- LR105PO ; IHS/DIR/FJE - LR*5.2*105 POST INSTALL ROUTINE KIDS INSTALL" ;
- ;;5.2;LR;;NOV 01, 1997
- ;
- ;;5.2;LAB SERVICE;**105**;Feb 14, 1996
- EN ;
- S X=$$ADD^XPDMENU("LR LIM/WKLD MENU","LR WKLD CODE EDIT PRINT")
- W !!,"Option [LR WKLD CODE EDIT PRINT] was ",$S(X:"added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU",!!
- S DA=$O(^LAB(64.2,"B","DSS ACC",0)) G:DA DIS
- 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
- K DIE,DIC,DA,DR S DLAYGO=64,DIC="^LAB(64.2,",DIC(0)="L",X="DSS ACC" D ^DIC
- I Y<1 W !?5,"Not able to install new workload code.",! L -^LAB(64.2) G BB
- K DIE,DIC,DA,DR,DLAYGO,X S DIE="^LAB(64.2,",DA=+Y,DLAYGO=64.2
- S DR="1///^S X=.9999;6////38;11////1;12////10"
- D ^DIE L -^LAB(64.2)
- DIS K DIC,DIE,DR,DLAYGO G:'$G(DA) BB
- S S=0,DIC="^LAB(64.2," D EN^DIQ
- W !!?5,"This new Workload Code Suffix has been added to ^LAB(64.2 ",!!
- BB ;G END ;Blood bank's multi-divisional test sites should uncomment this line.
- K DA,DIK S DA(1)=65,DA=.16,DIK="^DD(65," D ^DIK K DA,DIK
- W !!," The DIVISION #.16 field has been deleted from the BLOOD INVENTORY #65",!!
- END ;
- I '$D(^LRO(64.03,0))#2 W !!,"Database Error",!?5,"Your system is missing the ^LRO(64.03) Global" G STOP
- W !,$$CJ^XLFSTR("Preparing to purge data from WKLD LOG FILE (#64.03)",80)
- L +^LRO(64.03):5 I $T W !!,$$CJ^XLFSTR("Purging data <Please wait> ",80),! D G STOP
- . S X=$P(^LRO(64.03,0),U,1,2) K ^LRO(64.03) S ^LRO(64.03,0)=X
- . W !,"Turning [OFF] COLLECT WKLD LOG FILE (#616) field in LABORATORY SITE (#69.9) file",!!
- . S $P(^LAB(69.9,1,"NITE"),U,6)="" W !?5,"Laboratory DSS Site Preparation completed",!!
- W !!!,$$CJ^XLFSTR("Unable to Lock the ^LRO(64.03) Global - Contact the CS Clin2",80)
- W !,$$CJ^XLFSTR("for assistance. The Patch install is complete but data in file #64.03",80)
- W !!,$$CJ^XLFSTR("was NOT PURGED.",80),!
- STOP L -^LRO(64.03)
- S:$D(^LAM(0))#2 $P(^(0),U,3)=99999
- W !!,$$CJ^XLFSTR("Post install completed",80),!!
- K DIE,DIC,DA,DR,DLAYGO,X,Y,S Q
- LR105PO ; IHS/DIR/FJE - LR*5.2*105 POST INSTALL ROUTINE KIDS INSTALL" ;
- +1 ;;5.2;LR;;NOV 01, 1997
- +2 ;
- +3 ;;5.2;LAB SERVICE;**105**;Feb 14, 1996
- EN ;
- +1 SET X=$$ADD^XPDMENU("LR LIM/WKLD MENU","LR WKLD CODE EDIT PRINT")
- +2 WRITE !!,"Option [LR WKLD CODE EDIT PRINT] was ",$SELECT(X:"added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU",!!
- +3 SET DA=$ORDER(^LAB(64.2,"B","DSS ACC",0))
- IF DA
- GOTO DIS
- +4 LOCK +^LAB(64.2):1
- IF '$TEST
- WRITE !,"^LAB(64.2) GLOBAL IS LOCKED BY ANOTHER USER",!,"DSS ACC suffix not added.",!!
- HANG 5
- GOTO BB
- +5 KILL DIE,DIC,DA,DR
- SET DLAYGO=64
- SET DIC="^LAB(64.2,"
- SET DIC(0)="L"
- SET X="DSS ACC"
- DO ^DIC
- +6 IF Y<1
- WRITE !?5,"Not able to install new workload code.",!
- LOCK -^LAB(64.2)
- GOTO BB
- +7 KILL DIE,DIC,DA,DR,DLAYGO,X
- SET DIE="^LAB(64.2,"
- SET DA=+Y
- SET DLAYGO=64.2
- +8 SET DR="1///^S X=.9999;6////38;11////1;12////10"
- +9 DO ^DIE
- LOCK -^LAB(64.2)
- DIS KILL DIC,DIE,DR,DLAYGO
- IF '$GET(DA)
- GOTO BB
- +1 SET S=0
- SET DIC="^LAB(64.2,"
- DO EN^DIQ
- +2 WRITE !!?5,"This new Workload Code Suffix has been added to ^LAB(64.2 ",!!
- BB ;G END ;Blood bank's multi-divisional test sites should uncomment this line.
- +1 KILL DA,DIK
- SET DA(1)=65
- SET DA=.16
- SET DIK="^DD(65,"
- DO ^DIK
- KILL DA,DIK
- +2 WRITE !!," The DIVISION #.16 field has been deleted from the BLOOD INVENTORY #65",!!
- END ;
- +1 IF '$DATA(^LRO(64.03,0))#2
- WRITE !!,"Database Error",!?5,"Your system is missing the ^LRO(64.03) Global"
- GOTO STOP
- +2 WRITE !,$$CJ^XLFSTR("Preparing to purge data from WKLD LOG FILE (#64.03)",80)
- +3 LOCK +^LRO(64.03):5
- IF $TEST
- WRITE !!,$$CJ^XLFSTR("Purging data <Please wait> ",80),!
- Begin DoDot:1
- +4 SET X=$PIECE(^LRO(64.03,0),U,1,2)
- KILL ^LRO(64.03)
- SET ^LRO(64.03,0)=X
- +5 WRITE !,"Turning [OFF] COLLECT WKLD LOG FILE (#616) field in LABORATORY SITE (#69.9) file",!!
- +6 SET $PIECE(^LAB(69.9,1,"NITE"),U,6)=""
- WRITE !?5,"Laboratory DSS Site Preparation completed",!!
- End DoDot:1
- GOTO STOP
- +7 WRITE !!!,$$CJ^XLFSTR("Unable to Lock the ^LRO(64.03) Global - Contact the CS Clin2",80)
- +8 WRITE !,$$CJ^XLFSTR("for assistance. The Patch install is complete but data in file #64.03",80)
- +9 WRITE !!,$$CJ^XLFSTR("was NOT PURGED.",80),!
- STOP LOCK -^LRO(64.03)
- +1 IF $DATA(^LAM(0))#2
- SET $PIECE(^(0),U,3)=99999
- +2 WRITE !!,$$CJ^XLFSTR("Post install completed",80),!!
- +3 KILL DIE,DIC,DA,DR,DLAYGO,X,Y,S
- QUIT
