Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
645 bytes
|
Line | |
---|
1 | SDSCPRM ;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
|
---|
11 | EN ; 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.