Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
645 bytes
|
Rev | Line | |
---|
[613] | 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.