Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCMCTSKI

SCMCTSKI.m

Go to the documentation of this file.
  1. SCMCTSKI ;OIBP/TEH - PCMM Inactivation Nightly Job; 18 Apr 2003 9:36 AM
  1. ;;5.3;Scheduling;**532**;AUG 13, 1993;Build 21
  1. ;
  1. ;
  1. ;=====================================================================
  1. ;Provider Inactivation Scheduled Date
  1. ;======================================================================
  1. Q
  1. ;
  1. EN(SCMCFLG,SCALL) ;ENTRY POINT
  1. ;SCMCFLG := 1 when called from SCMCTSK2
  1. ; parameter not passed when used with FM
  1. ;SCALL := 1 for ALPHA testing
  1. ; 0 for Real Time
  1. ;
  1. ; When called from FM printout no parameters are passed
  1. I $G(SCMCFLG) S I(0,0)=+ENTRY
  1. I '$G(I(0,0)) Q "Error"
  1. S SCMCD0=I(0,0)
  1. S ALPHA=$S($G(SCALL):SCALL,1:+$P($G(^SCTM(404.44,1,1)),U,8))
  1. S Y=$P($G(^SCTM(404.52,+SCMCD0,0)),U,10)
  1. I 'ALPHA D
  1. .S X1=Y,X2=30 D C^%DTC
  1. .S $E(X,6,7)=$S(+$E(X,4,5)=2:28,+$E(X,4,5)=4:30,+$E(X,4,5)=6:30,+$E(X,4,5)=9:30,+$E(X,4,5)=11:30,1:31)
  1. I ALPHA D
  1. .S X=DT
  1. S EXP=X I '$G(SCMCFLG) D
  1. .S EXP=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
  1. Q EXP