source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY245.m@ 1520

Last change on this file since 1520 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ORY245 ;SLC/JM -- post-install for OR*3*245 ; 1/19/2006
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**245**;Dec 17, 1997;Build 2
3 Q
4POST ; Used to insert new ORCM QUICK ORDERS BY USER option into ORCM MGMT menu
5 N OROPTION,ORMENU
6 N DO,DA,DD,DI,DIC,DIE,DLAYGO,DQ,DR,X,Y,DINUM
7 D BLDXREF
8 ; find option
9 S OROPTION=$O(^DIC(19,"B","ORCM QUICK ORDERS BY USER",0)) I '+OROPTION D Q
10 . D BMES^XPDUTL("An error occurred during the installation.")
11 . D MES^XPDUTL("The new option ORCM QUICK ORDERS BY USER was not found.")
12 ; find menu
13 S ORMENU=$O(^DIC(19,"B","ORCM MGMT",0)) I '+ORMENU D Q
14 . D BMES^XPDUTL("Unable to attach the new ORCM QUICK ORDERS BY USER option.")
15 . D MES^XPDUTL("Menu ORCM MGMT was not found.")
16 ; If option already attached to menu then install has been run before
17 I +$O(^DIC(19,ORMENU,10,"B",OROPTION,0)) D Q
18 . D BMES^XPDUTL("Option ORCM QUICK ORDERS BY USER is already attached to ORCM MGMT menu.")
19 ; Attach option to menu
20 I '$D(^DIC(19,ORMENU,10,0)) S ^(0)="^19.01PI^^"
21 S DIC="^DIC(19,"_ORMENU_",10,",DIC(0)="L",DLAYGO=19,DA(1)=ORMENU,X=OROPTION,DIC("DR")="2///QU;3///4.5"
22 D FILE^DICN
23 I +$O(^DIC(19,ORMENU,10,"B",OROPTION,0)) D I 1
24 . D BMES^XPDUTL("New option ORCM QUICK ORDERS BY USER successfully attached to ORCM MGMT menu.")
25 E D BMES^XPDUTL("Error trying to attach ORCM QUICK ORDERS BY USER to ORCM MGMT menu.")
26 Q
27BLDXREF ; index new cross reference
28 N DIK,DA,MSG1,MSG2,IEN
29 I $D(^ORD(101.44,"C"))=0 S MSG1="Populating",MSG2="populated"
30 E S MSG1="Reindexing",MSG2="reindexed"
31 D BMES^XPDUTL(MSG1_" the new C cross reference of the ORDER QUICK VIEW file.")
32 K ^ORD(101.44,"C")
33 S IEN=0
34 F S IEN=$O(^ORD(101.44,IEN)) Q:'IEN D
35 . S DIK="^ORD(101.44,"_IEN_",10,",DIK(1)=".01^C",DA(1)=IEN D ENALL^DIK
36 D BMES^XPDUTL("The C cross reference of the ORDER QUICK VIEW file has been "_MSG2_".")
37 Q
Note: See TracBrowser for help on using the repository browser.