SDSCPRM.m

SDSCPRM ;ALB/JAM/RBS - ASCD Site Parameter Edit ; 1/19/07 12:43pm

 ;;5.3;Scheduling;**495,1015**;Aug 13, 1993;Build 21

 ;;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

SDSCPRM   ;ALB/JAM/RBS - ASCD Site Parameter Edit ; 1/19/07 12:43pm

 +1       ;;5.3;Scheduling;**495,1015**;Aug 13, 1993;Build 21

 +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