GMRCMU.m

GMRCMU ;SLC/DLT - Add protocols to GMRC protocol menus ;5/20/98  14:20

 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

GMRCR ;Check if protocol is already an entry in GMRCR REQUEST TYPES, add if not.

 K DIC S DA(1)=$O(^ORD(101,"B","GMRCRM REQUEST TYPES",0)) G:'DA(1) END

 I $D(^ORD(101,DA(1),10,"B",GMRCPROI)) G END

 W !!,"Filing ",GMRCPRO," as an item in GMRCR REQUEST TYPES Protocol Menu"

 W !,"    enabling use of this item when ""Procedure..."" is selected on Add menus"

 S SEQ=$P(^ORD(101,DA(1),10,0),"^",3)+1

 S DIC="^ORD(101,"_DA(1)_",10,",DIC(0)="L"

 S DLAYGO=101,X=GMRCPRO D ^DIC

 W !!?6,"< Protocol filed. >",! G END

END K DA,DLAYGO,DIC,X,SEQ,SYN Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRCMU   674     printed  Apr 09, 2024@20:50:07                                                                                                                                                                                                       Page 2

GMRCMU    ;SLC/DLT - Add protocols to GMRC protocol menus ;5/20/98  14:20

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

GMRCR     ;Check if protocol is already an entry in GMRCR REQUEST TYPES, add if not.

 +1        KILL DIC

           SET DA(1)=$ORDER(^ORD(101,"B","GMRCRM REQUEST TYPES",0))

           if 'DA(1)

               GOTO END

 +2        IF $DATA(^ORD(101,DA(1),10,"B",GMRCPROI))

               GOTO END

 +3        WRITE !!,"Filing ",GMRCPRO," as an item in GMRCR REQUEST TYPES Protocol Menu"

 +4        WRITE !,"    enabling use of this item when ""Procedure..."" is selected on Add menus"

 +5        SET SEQ=$PIECE(^ORD(101,DA(1),10,0),"^",3)+1

 +6        SET DIC="^ORD(101,"_DA(1)_",10,"

           SET DIC(0)="L"

 +7        SET DLAYGO=101

           SET X=GMRCPRO

           DO ^DIC

 +8        WRITE !!?6,"< Protocol filed. >",!

           GOTO END

END        KILL DA,DLAYGO,DIC,X,SEQ,SYN

           QUIT