RGRSPARM ;ALB/RJS-EDIT SEND/STOP/SUSPEND PARAMETER ;2/10/97
;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
;
;Reference to $$SEND^VAFHUTL supported by IA #2624
EN ;
;This routine is used to edit the STOP MPI/PD MESSAGING field (#16)
;in the CIRN SITE PARAMETER file (#991.8), to STOP/SEND/SUSPEND
;messages.
;
N DA,DIE,DR,RGMAS,X
S DA=$O(^RGSITE(991.8,0))
I +DA'>0 Q
S DR="16",DIE="991.8"
D ^DIE
S RGMAS=$P($$SEND^VAFHUTL,"^",2)
I X'=RGMAS W !?5,"Does not match MAS parameter."
E W !?5,"In sync with MAS parameter."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGRSPARM 560 printed Dec 13, 2024@01:42:58 Page 2
RGRSPARM ;ALB/RJS-EDIT SEND/STOP/SUSPEND PARAMETER ;2/10/97
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
+2 ;
+3 ;Reference to $$SEND^VAFHUTL supported by IA #2624
EN ;
+1 ;This routine is used to edit the STOP MPI/PD MESSAGING field (#16)
+2 ;in the CIRN SITE PARAMETER file (#991.8), to STOP/SEND/SUSPEND
+3 ;messages.
+4 ;
+5 NEW DA,DIE,DR,RGMAS,X
+6 SET DA=$ORDER(^RGSITE(991.8,0))
+7 IF +DA'>0
QUIT
+8 SET DR="16"
SET DIE="991.8"
+9 DO ^DIE
+10 SET RGMAS=$PIECE($$SEND^VAFHUTL,"^",2)
+11 IF X'=RGMAS
WRITE !?5,"Does not match MAS parameter."
+12 IF '$TEST
WRITE !?5,"In sync with MAS parameter."
+13 QUIT
