|
Last change
on this file since 736 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.
