SCMCTSKI.m

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 ---SCMCTSKI   1029     printed  Apr 09, 2024@21:59                                                                                                                                                                                                       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