- SDSCPRM ;ALB/JAM/RBS - ASCD Site Parameter Edit ; 1/19/07 12:43pm
- ;;5.3;Scheduling;**495**;Aug 13, 1993;Build 50
- ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
- ;;known as Service Connected Automated Monitoring (SCAM).
- ;
- ;**Program Description**
- ; This program allows the supervisor to modify the number of days
- ; to check for 'checked out' encounters that need to evaluate the
- ; Service Connected flag.
- Q
- EN ; Entry point
- N SITE,SDTYPE,DIC,PARAM
- S SITE=+$$SITE^VASITE() Q:'SITE
- S PARAM=$O(^XTV(8989.51,"B","SDSC SITE PARAMETER",0)) Q:'PARAM
- D EDIT^XPAREDIT(SITE_";DIC(4,",PARAM_"^SDSC SITE PARAMETER")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDSCPRM 661 printed Apr 23, 2025@19:15:53 Page 2
- SDSCPRM ;ALB/JAM/RBS - ASCD Site Parameter Edit ; 1/19/07 12:43pm
- +1 ;;5.3;Scheduling;**495**;Aug 13, 1993;Build 50
- +2 ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
- +3 ;;known as Service Connected Automated Monitoring (SCAM).
- +4 ;
- +5 ;**Program Description**
- +6 ; This program allows the supervisor to modify the number of days
- +7 ; to check for 'checked out' encounters that need to evaluate the
- +8 ; Service Connected flag.
- +9 QUIT
- EN ; Entry point
- +1 NEW SITE,SDTYPE,DIC,PARAM
- +2 SET SITE=+$$SITE^VASITE()
- if 'SITE
- QUIT
- +3 SET PARAM=$ORDER(^XTV(8989.51,"B","SDSC SITE PARAMETER",0))
- if 'PARAM
- QUIT
- +4 DO EDIT^XPAREDIT(SITE_";DIC(4,",PARAM_"^SDSC SITE PARAMETER")
- +5 QUIT
