ECTPRPT.m

ECTPRPT ;B'ham ISC/PTD-VAMC Staffing Report by Pay Period ;01/29/91 08:00

V ;;1.05;INTERIM MANAGEMENT SUPPORT;**5**;

 I '$D(^ECT(731.7)) W *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'VAMC Staffing' File - #731.7 is not loaded on your system.",!! S XQUIT="" Q

 I '$O(^ECT(731.7,0)) W *7,!!,"'VAMC Staffing' File - #731.7 has not been populated on your system.",!! S XQUIT="" Q

PP R !!,"Enter Pay Period for Report: ",PP:DTIME G:'$T!("^"[PP) EXIT I (PP'?.N)!(PP<1)!(PP>27) W !!,*7,"You MUST answer with a number between 1 and 27." G PP

 S:$L(PP)=1 PP="0"_PP

YR W ! S %DT="AE",%DT("A")="Enter calendar year associated with this pay period: ",%DT(0)=2000000 D ^%DT G:$D(DTOUT)!("^"[X) EXIT S YR=$E(Y,1,3),YRPP=YR_PP

 I '$D(^ECT(731.7,YRPP)) W !!,*7,"No data exists for this pay period/year!" K PP,X,Y,DTOUT,YR,YRPP G PP

DIP S DIC="^ECT(731.7,",BY="@.01",(FR,TO)=YRPP,L=0,DHD="VAMC STAFFING - PAY PERIOD: "_PP_" "_(1700+YR),FLDS="10,.01,1;C40&,2;T;C50&,3;C60&,&(#3-#1);R5;D1;C72;""VARIANCE""" D EN1^DIP

EXIT K %DT,BY,DHD,DIC,DTOUT,FLDS,FR,L,PP,TO,X,Y,YR,YRPP

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECTPRPT   1070     printed  Mar 13, 2025@21:07:34                                                                                                                                                                                                     Page 2

ECTPRPT   ;B'ham ISC/PTD-VAMC Staffing Report by Pay Period ;01/29/91 08:00

V         ;;1.05;INTERIM MANAGEMENT SUPPORT;**5**;

 +1        IF '$DATA(^ECT(731.7))

               WRITE *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'VAMC Staffing' File - #731.7 is not loaded on your system.",!!

               SET XQUIT=""

               QUIT 

 +2        IF '$ORDER(^ECT(731.7,0))

               WRITE *7,!!,"'VAMC Staffing' File - #731.7 has not been populated on your system.",!!

               SET XQUIT=""

               QUIT 

PP         READ !!,"Enter Pay Period for Report: ",PP:DTIME

           if '$TEST!("^"[PP)

               GOTO EXIT

           IF (PP'?.N)!(PP<1)!(PP>27)

               WRITE !!,*7,"You MUST answer with a number between 1 and 27."

               GOTO PP

 +1        if $LENGTH(PP)=1

               SET PP="0"_PP

YR         WRITE !

           SET %DT="AE"

           SET %DT("A")="Enter calendar year associated with this pay period: "

           SET %DT(0)=2000000

           DO ^%DT

           if $DATA(DTOUT)!("^"[X)

               GOTO EXIT

           SET YR=$EXTRACT(Y,1,3)

           SET YRPP=YR_PP

 +1        IF '$DATA(^ECT(731.7,YRPP))

               WRITE !!,*7,"No data exists for this pay period/year!"

               KILL PP,X,Y,DTOUT,YR,YRPP

               GOTO PP

DIP        SET DIC="^ECT(731.7,"

           SET BY="@.01"

           SET (FR,TO)=YRPP

           SET L=0

           SET DHD="VAMC STAFFING - PAY PERIOD: "_PP_" "_(1700+YR)

           SET FLDS="10,.01,1;C40&,2;T;C50&,3;C60&,&(#3-#1);R5;D1;C72;""VARIANCE"""

           DO EN1^DIP

EXIT       KILL %DT,BY,DHD,DIC,DTOUT,FLDS,FR,L,PP,TO,X,Y,YR,YRPP

 +1        QUIT 

 +2       ;