GMRC1235 ;BP/SBR - Input Transform for SERVICE USAGE field ; 11/5/2009
;;3.0;CONSULT/REQUEST TRACKING;**71**;DEC 27, 1997;Build 14
USAGE ;
N CNT,PC,GMRCPROC,PROC
S CNT=0
I X=9!(X=1) D
. S PC="" F S PC=$O(^GMR(123.3,PC)) Q:PC="" D
. . I $D(^GMR(123.3,PC,2,"B",GMRCSRVC)) S GMRCPROC($P($G(^GMR(123.3,PC,0)),"^",1))=""
I $D(GMRCPROC) D
. D EN^DDIOL(,,"!")
. D EN^DDIOL("WARNING: By changing the service usage of this service,")
. D EN^DDIOL("you are making it unselectable by the users. The following")
. D EN^DDIOL("procedure(s) contain this Service in the RELATED SERVICES")
. D EN^DDIOL("field and should be edited to remove/replace this service")
. D EN^DDIOL("as necessary:")
. S PROC="" F S PROC=$O(GMRCPROC(PROC)) Q:PROC="" D EN^DDIOL(" "_PROC)
. D EN^DDIOL(,,"!")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRC1235 830 printed Nov 22, 2024@16:54:54 Page 2
GMRC1235 ;BP/SBR - Input Transform for SERVICE USAGE field ; 11/5/2009
+1 ;;3.0;CONSULT/REQUEST TRACKING;**71**;DEC 27, 1997;Build 14
USAGE ;
+1 NEW CNT,PC,GMRCPROC,PROC
+2 SET CNT=0
+3 IF X=9!(X=1)
Begin DoDot:1
+4 SET PC=""
FOR
SET PC=$ORDER(^GMR(123.3,PC))
if PC=""
QUIT
Begin DoDot:2
+5 IF $DATA(^GMR(123.3,PC,2,"B",GMRCSRVC))
SET GMRCPROC($PIECE($GET(^GMR(123.3,PC,0)),"^",1))=""
End DoDot:2
End DoDot:1
+6 IF $DATA(GMRCPROC)
Begin DoDot:1
+7 DO EN^DDIOL(,,"!")
+8 DO EN^DDIOL("WARNING: By changing the service usage of this service,")
+9 DO EN^DDIOL("you are making it unselectable by the users. The following")
+10 DO EN^DDIOL("procedure(s) contain this Service in the RELATED SERVICES")
+11 DO EN^DDIOL("field and should be edited to remove/replace this service")
+12 DO EN^DDIOL("as necessary:")
+13 SET PROC=""
FOR
SET PROC=$ORDER(GMRCPROC(PROC))
if PROC=""
QUIT
DO EN^DDIOL(" "_PROC)
+14 DO EN^DDIOL(,,"!")
End DoDot:1
+15 QUIT
