| 1 | GMRCMU ;SLC/DLT - Add protocols to GMRC protocol menus ;5/20/98 14:20
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
|---|
| 3 | GMRCR ;Check if protocol is already an entry in GMRCR REQUEST TYPES, add if not.
|
|---|
| 4 | K DIC S DA(1)=$O(^ORD(101,"B","GMRCRM REQUEST TYPES",0)) G:'DA(1) END
|
|---|
| 5 | I $D(^ORD(101,DA(1),10,"B",GMRCPROI)) G END
|
|---|
| 6 | W !!,"Filing ",GMRCPRO," as an item in GMRCR REQUEST TYPES Protocol Menu"
|
|---|
| 7 | W !," enabling use of this item when ""Procedure..."" is selected on Add menus"
|
|---|
| 8 | S SEQ=$P(^ORD(101,DA(1),10,0),"^",3)+1
|
|---|
| 9 | S DIC="^ORD(101,"_DA(1)_",10,",DIC(0)="L"
|
|---|
| 10 | S DLAYGO=101,X=GMRCPRO D ^DIC
|
|---|
| 11 | W !!?6,"< Protocol filed. >",! G END
|
|---|
| 12 | END K DA,DLAYGO,DIC,X,SEQ,SYN Q
|
|---|
