- 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 Feb 19, 2025@00:08:08 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