source: FOIAVistA/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRC1233.m@ 711

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1GMRC1233 ;SLC/JFR - CREATE/EDIT GMRC PROCEDURES;1/11/99 12:05
2 ;;3.0;CONSULT/REQUEST TRACKING;**15**;DEC 27, 1997
3EN ;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
15OI(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
29SYNS(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
Note: See TracBrowser for help on using the repository browser.