19 lines
542 B
Mathematica
19 lines
542 B
Mathematica
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
|