| 1 | LRARIPOS ;DALISC/CKA - LRAR POST INIT UPDATE MENU OPTIONS
|
|---|
| 2 | ;;5.2;LAB SERVICE;**59**;July 31, 1995
|
|---|
| 3 | EN ;
|
|---|
| 4 | W !!,">>> Deleting OLD 'LAB' ARCHIVING options in OPTION file.",!
|
|---|
| 5 | 19 F LRARI=1:1 S LROPT=$P($T(OPTIONS+LRARI),";;",2) Q:LROPT="" I LROPT'="" D DO1
|
|---|
| 6 | DIPT ;
|
|---|
| 7 | W !! K DA,DIK S LRI="",DIK="^DIPT(" S LRI="LR ARCHIVE EXTRACT " F LRARI=65,67.9,64.1 S LRIN=LRI_LRARI D
|
|---|
| 8 | .S DA=$$FIND1^DIC(.4,"","",LRIN,"B") I DA W !?15,"Removing Print template ",?35,LRIN D ^DIK
|
|---|
| 9 | LR W !!,"Linking LRAR ARCHIVE MAIN MENU option to LRLIAISON ..."
|
|---|
| 10 | S LRAROPT="LRAR ARCHIVE MAIN MENU",LROPTION="LRLIAISON"
|
|---|
| 11 | S LROPTN=$O(^DIC(19,"B",LROPTION,0))
|
|---|
| 12 | I 'LROPTN D QUIT
|
|---|
| 13 | . W !!?5,"Option ",LROPTION," is missing from your option file."
|
|---|
| 14 | . W !?5,"Couldn't attach option called ",LRAROPT,"."
|
|---|
| 15 | S LRAROPTN=$O(^DIC(19,"B",LRAROPT,0))
|
|---|
| 16 | I 'LRAROPTN D QUIT
|
|---|
| 17 | . W !!?5,"Option ",LRAROPT," is missing from your option file."
|
|---|
| 18 | . W !?5,"Couldn't attach to option ",LROPTION,"."
|
|---|
| 19 | I $D(^DIC(19,LROPTN,10,"B",LRAROPTN)) D QUIT
|
|---|
| 20 | . W !!?5,"Option ",LRAROPT," is already attached to ",LROPTION,"."
|
|---|
| 21 | K DIC,DA
|
|---|
| 22 | S DA(1)=LROPTN
|
|---|
| 23 | S DIC="^DIC(19,"_DA(1)_",10,"
|
|---|
| 24 | S DIC(0)="L"
|
|---|
| 25 | S X=LRAROPTN
|
|---|
| 26 | D FILE^DICN
|
|---|
| 27 | K D0,D1,DIC
|
|---|
| 28 | I +Y<1 D G QUIT
|
|---|
| 29 | . W !!?5,"Couldn't add option ",LRAROPT," to ",LROPTION,"."
|
|---|
| 30 | W !!?5,"Added option ",LRAROPT," to ",LROPTION,"."
|
|---|
| 31 | W !!!,"Installation of patch LR*5.2*59 completed."
|
|---|
| 32 | QUIT K D0,D1,DA,DIC,DIK,I,LRARI,LRAROPT,LRAROPTN,LRI,LRIN,LRM,LRNOPT,LROPT,LROPTION,LROPTN,LRS,X,Y Q
|
|---|
| 33 | DO1 W !!?5,LROPT,!?5 F I=1:1:$L(LROPT) W "-"
|
|---|
| 34 | S LRNOPT=$O(^DIC(19,"B",LROPT,0))
|
|---|
| 35 | I 'LRNOPT W !?5,"DOES NOT EXIST IN THE 'OPTION' FILE...NOTHING DELETED!" Q
|
|---|
| 36 | DO2 I $O(^DIC(19,"AD",LRNOPT,0))'>0 W !?5,"NOT ATTACHED TO ANY MENUS AS AN ITEM...NOTHING TO REPOINT OR DELETE!" G DO3
|
|---|
| 37 | S LRM=0 F S LRM=$O(^DIC(19,"AD",LRNOPT,LRM)) Q:LRM'>0 S LRS=0 F S LRS=$O(^DIC(19,"AD",LRNOPT,LRM,LRS)) Q:LRS'>0 D DO4
|
|---|
| 38 | DO3 S DA(1)=19,DA=LRNOPT,DIK="^DIC(19," D ^DIK W !?5,"'",LROPT,"' REMOVED from OPTION file..." Q
|
|---|
| 39 | DO4 Q:'$D(^DIC(19,+LRM,0))#2 W !?5,"REMOVED from '",$P(^DIC(19,+LRM,0),"^",1),"' menu..." S DIK="^DIC(19,"_LRM_",10,",DA(2)=19,DA(1)=LRM,DA=LRS D ^DIK K DIK,DA
|
|---|
| 40 | Q
|
|---|
| 41 | OPTIONS ;
|
|---|
| 42 | ;;LR ARCHIVE CLEAR
|
|---|
| 43 | ;;LR ARCHIVE DATA
|
|---|
| 44 | ;;LR ARCHIVE MENU
|
|---|
| 45 | ;;LR ARCHIVE NP CONVERSION
|
|---|
| 46 | ;;LR ARCHIVE PURGE
|
|---|
| 47 | ;;LR ARCHIVE READ MEDIA
|
|---|
| 48 | ;;LR ARCHIVE RESTORE
|
|---|
| 49 | ;;LR ARCHIVE SEARCH
|
|---|
| 50 | ;;LR ARCHIVE WRITE MEDIA
|
|---|
