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 Dec 13, 2024@03:01:15 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
