SCMCTSKI ;OIBP/TEH - PCMM Inactivation Nightly Job; 18 Apr 2003 9:36 AM
;;5.3;Scheduling;**532**;AUG 13, 1993;Build 21
;
;
;=====================================================================
;Provider Inactivation Scheduled Date
;======================================================================
Q
;
EN(SCMCFLG,SCALL) ;ENTRY POINT
;SCMCFLG := 1 when called from SCMCTSK2
; parameter not passed when used with FM
;SCALL := 1 for ALPHA testing
; 0 for Real Time
;
; When called from FM printout no parameters are passed
I $G(SCMCFLG) S I(0,0)=+ENTRY
I '$G(I(0,0)) Q "Error"
S SCMCD0=I(0,0)
S ALPHA=$S($G(SCALL):SCALL,1:+$P($G(^SCTM(404.44,1,1)),U,8))
S Y=$P($G(^SCTM(404.52,+SCMCD0,0)),U,10)
I 'ALPHA D
.S X1=Y,X2=30 D C^%DTC
.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)
I ALPHA D
.S X=DT
S EXP=X I '$G(SCMCFLG) D
.S EXP=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
Q EXP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCTSKI 1029 printed Dec 13, 2024@02:41:41 Page 2
SCMCTSKI ;OIBP/TEH - PCMM Inactivation Nightly Job; 18 Apr 2003 9:36 AM
+1 ;;5.3;Scheduling;**532**;AUG 13, 1993;Build 21
+2 ;
+3 ;
+4 ;=====================================================================
+5 ;Provider Inactivation Scheduled Date
+6 ;======================================================================
+7 QUIT
+8 ;
EN(SCMCFLG,SCALL) ;ENTRY POINT
+1 ;SCMCFLG := 1 when called from SCMCTSK2
+2 ; parameter not passed when used with FM
+3 ;SCALL := 1 for ALPHA testing
+4 ; 0 for Real Time
+5 ;
+6 ; When called from FM printout no parameters are passed
+7 IF $GET(SCMCFLG)
SET I(0,0)=+ENTRY
+8 IF '$GET(I(0,0))
QUIT "Error"
+9 SET SCMCD0=I(0,0)
+10 SET ALPHA=$SELECT($GET(SCALL):SCALL,1:+$PIECE($GET(^SCTM(404.44,1,1)),U,8))
+11 SET Y=$PIECE($GET(^SCTM(404.52,+SCMCD0,0)),U,10)
+12 IF 'ALPHA
Begin DoDot:1
+13 SET X1=Y
SET X2=30
DO C^%DTC
+14 SET $EXTRACT(X,6,7)=$SELECT(+$EXTRACT(X,4,5)=2:28,+$EXTRACT(X,4,5)=4:30,+$EXTRACT(X,4,5)=6:30,+$EXTRACT(X,4,5)=9:30,+$EXTRACT(X,4,5)=11:30,1:31)
End DoDot:1
+15 IF ALPHA
Begin DoDot:1
+16 SET X=DT
End DoDot:1
+17 SET EXP=X
IF '$GET(SCMCFLG)
Begin DoDot:1
+18 SET EXP=$EXTRACT(X,4,5)_"/"_$EXTRACT(X,6,7)_"/"_$EXTRACT(X,2,3)
End DoDot:1
+19 QUIT EXP
