- 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 Jan 18, 2025@02:44:12 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