| [613] | 1 | GMRC1233 ;SLC/JFR - CREATE/EDIT GMRC PROCEDURES;1/11/99 12:05
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**15**;DEC 27, 1997
|
|---|
| 3 | EN ;START HERE
|
|---|
| 4 | N DLAYGO,DIE,DIC,X,Y,GMRCNEW,GMRCTIT,DUOUT,DTOUT,DA,DR,UPDATE
|
|---|
| 5 | S DIC="^GMR(123.3,",DIC(0)="AELZMQ",DLAYGO=123.3
|
|---|
| 6 | S DIC("A")="Select Procedure:"
|
|---|
| 7 | D ^DIC I Y<1 Q
|
|---|
| 8 | S GMRCIT=+Y
|
|---|
| 9 | I $P(Y,U,3) S GMRCNEW=1
|
|---|
| 10 | S DIE=DIC,DA=GMRCIT,DR="[GMRC PROCEDURE SETUP]" D ^DIE
|
|---|
| 11 | S UPDATE=$$OI(+$G(GMRCNEW),GMRCIT)
|
|---|
| 12 | I +UPDATE W !!,"Orderable Item Updated"
|
|---|
| 13 | I '+UPDATE W !!,$C(7),"Unable to update Orderable Item"
|
|---|
| 14 | Q
|
|---|
| 15 | OI(NEW,PROC) ;get procedure info and update orderable item
|
|---|
| 16 | I '$D(PROC) Q 0
|
|---|
| 17 | I '$D(^GMR(123.3,+PROC)) Q 0
|
|---|
| 18 | N NAME,CTRLC,ACTION,GMRCSYNS,GMRCMSG
|
|---|
| 19 | S NAME=$P(^GMR(123.3,+PROC,0),U)
|
|---|
| 20 | I $G(NEW) S CTRLC="MAD",ACTION="REP"
|
|---|
| 21 | ;I +$P(^GMR(123.3,+PROC,0),U,2),'$G(NEW) S CTRLC="MDC"
|
|---|
| 22 | I +$P(^GMR(123.3,+PROC,0),U,2) S CTRLC="MDC"
|
|---|
| 23 | I '$D(CTRLC) S CTRLC="MUP"
|
|---|
| 24 | I '$D(ACTION) S ACTION="UPD"
|
|---|
| 25 | D SYNS(PROC,.GMRCSYNS)
|
|---|
| 26 | D EN^GMRC101H(CTRLC,ACTION,+PROC,NAME,.GMRCSYNS,"GMRCR ")
|
|---|
| 27 | D MSG^XQOR("GMRC ORDERABLE ITEM UPDATE",.GMRCMSG)
|
|---|
| 28 | Q 1
|
|---|
| 29 | SYNS(IEN,ARRAY) ;get synonyms and load into ARRAY
|
|---|
| 30 | Q:'IEN
|
|---|
| 31 | N I S I=0
|
|---|
| 32 | F S I=$O(^GMR(123.3,IEN,1,I)) Q:'I D
|
|---|
| 33 | . S ARRAY(I)=$P(^GMR(123.3,IEN,1,I,0),U)
|
|---|
| 34 | Q
|
|---|
