source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDSCPRM.m@ 1700

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

initial load of FOIAVistA 6/30/08 version

File size: 645 bytes
Line 
1SDSCPRM ;ALB/JAM/RBS - ASCD Site Parameter Edit ; 1/19/07 12:43pm
2 ;;5.3;Scheduling;**495**;Aug 13, 1993;Build 50
3 ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
4 ;;known as Service Connected Automated Monitoring (SCAM).
5 ;
6 ;**Program Description**
7 ; This program allows the supervisor to modify the number of days
8 ; to check for 'checked out' encounters that need to evaluate the
9 ; Service Connected flag.
10 Q
11EN ; Entry point
12 N SITE,SDTYPE,DIC,PARAM
13 S SITE=+$$SITE^VASITE() Q:'SITE
14 S PARAM=$O(^XTV(8989.51,"B","SDSC SITE PARAMETER",0)) Q:'PARAM
15 D EDIT^XPAREDIT(SITE_";DIC(4,",PARAM_"^SDSC SITE PARAMETER")
16 Q
Note: See TracBrowser for help on using the repository browser.