RGRSPARM.m

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 ---RGRSPARM   560     printed  Apr 09, 2024@20:48:16                                                                                                                                                                                                     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