- 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 ---[H[J[2J[HGMRCMU 674 printed Jan 18, 2025@02:47:33 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