source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGRSPARM.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 542 bytes
RevLine 
[613]1RGRSPARM ;ALB/RJS-EDIT SEND/STOP/SUSPEND PARAMETER ;2/10/97
2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
3 ;
4 ;Reference to $$SEND^VAFHUTL supported by IA #2624
5EN ;
6 ;This routine is used to edit the STOP MPI/PD MESSAGING field (#16)
7 ;in the CIRN SITE PARAMETER file (#991.8), to STOP/SEND/SUSPEND
8 ;messages.
9 ;
10 N DA,DIE,DR,RGMAS,X
11 S DA=$O(^RGSITE(991.8,0))
12 I +DA'>0 Q
13 S DR="16",DIE="991.8"
14 D ^DIE
15 S RGMAS=$P($$SEND^VAFHUTL,"^",2)
16 I X'=RGMAS W !?5,"Does not match MAS parameter."
17 E W !?5,"In sync with MAS parameter."
18 Q
Note: See TracBrowser for help on using the repository browser.