ACRFSS61.m

ACRFSS61 ;IHS/OIRM/DSD/THL,AEF - EDIT PAY ROLL PERIOD; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;CONTINUATION OF ACRFSS6

ADD ;EP;

 S DIR(0)="YO"

 S DIR("A")="Add a Pay Roll entry"

 S DIR("B")="NO"

 W !

 D DIR^ACRFDIC

 Q:Y'=1

 F ACRI=1,2 D ADD1

 Q

ADD1 S ACRID=ACRDOC_"-"_((ACRJ+1)/2)_"/"_ACRI

 S ACRCANDA=$O(^AUTTCAN("B",ACRFDNCA,0))

 S ACRLBOC=$S(ACRI=1:"1100",1:"1200")

 S ACROBJDA=$O(^AUTTOBJC("C",ACRLBOC,0))

 S X=ACRJ

 S DIC(0)="L"

 S DIC="^ACRSS("

 S DIC("DR")=".02////"_ACRDOCDA_";.03////"_ACRDOCDA_";.05////"_ACRCANDA_";.04////"_ACROBJDA_";.06////"_ACRLBDA_";5////"_ACRID_";13////"_$P(^ATAEMP(ACREMP,"PAY"),U,ACRI)

 D FILE^ACRFDIC

 S ACRPRDA=+Y

 D EDIT1

 Q

EDIT ;EP;

 S DIR(0)="NOA^1:"_((ACRJ-1)\2)

 S DIR("A")="Which Pay Period: "

 W !

 D DIR^ACRFDIC

 I $D(ACRQUIT)!$D(ACROUT)!'$D(ACRPR(Y)) K ACRQUIT Q

 S ACRZ=Y*2-1

 F ACRI=ACRZ+1,ACRZ D

 .S ACRPRDA=$P(ACRPR(ACRI),U)

 .D EDIT1:'$D(ACRDEL)

 .D DEL:$D(ACRDEL)

 Q

DEL S DA=ACRPRDA,DIK="^ACRSS("

 D DIK^ACRFDIC

 Q

EDIT1 N ACRDR

 S ACRLBOC=$S(ACRI#2=1:"1100",1:"1200")

 S DR="S DIE(""NO^"")=""NO"";.05T;.04T;K DIE(""NO^"");13T"

 S DA=ACRPRDA,DIE="^ACRSS("

 W !!,"PAY ROLL............: ",$S(ACRI#2=0:"BASE PAY",1:"BENEFITS")

 D DIE^ACRFDIC

 Q

ACRFSS61  ;IHS/OIRM/DSD/THL,AEF - EDIT PAY ROLL PERIOD; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;CONTINUATION OF ACRFSS6

ADD       ;EP;

 +1        SET DIR(0)="YO"

 +2        SET DIR("A")="Add a Pay Roll entry"

 +3        SET DIR("B")="NO"

 +4        WRITE !

 +5        DO DIR^ACRFDIC

 +6        IF Y'=1

               QUIT 

 +7        FOR ACRI=1,2

               DO ADD1

 +8        QUIT 

ADD1       SET ACRID=ACRDOC_"-"_((ACRJ+1)/2)_"/"_ACRI

 +1        SET ACRCANDA=$ORDER(^AUTTCAN("B",ACRFDNCA,0))

 +2        SET ACRLBOC=$SELECT(ACRI=1:"1100",1:"1200")

 +3        SET ACROBJDA=$ORDER(^AUTTOBJC("C",ACRLBOC,0))

 +4        SET X=ACRJ

 +5        SET DIC(0)="L"

 +6        SET DIC="^ACRSS("

 +7        SET DIC("DR")=".02////"_ACRDOCDA_";.03////"_ACRDOCDA_";.05////"_ACRCANDA_";.04////"_ACROBJDA_";.06////"_ACRLBDA_";5////"_ACRID_";13////"_$PIECE(^ATAEMP(ACREMP,"PAY"),U,ACRI)

 +8        DO FILE^ACRFDIC

 +9        SET ACRPRDA=+Y

 +10       DO EDIT1

 +11       QUIT 

EDIT      ;EP;

 +1        SET DIR(0)="NOA^1:"_((ACRJ-1)\2)

 +2        SET DIR("A")="Which Pay Period: "

 +3        WRITE !

 +4        DO DIR^ACRFDIC

 +5        IF $DATA(ACRQUIT)!$DATA(ACROUT)!'$DATA(ACRPR(Y))

               KILL ACRQUIT

               QUIT 

 +6        SET ACRZ=Y*2-1

 +7        FOR ACRI=ACRZ+1,ACRZ

               Begin DoDot:1

 +8                SET ACRPRDA=$PIECE(ACRPR(ACRI),U)

 +9                IF '$DATA(ACRDEL)

                       DO EDIT1

 +10               IF $DATA(ACRDEL)

                       DO DEL

               End DoDot:1

 +11       QUIT 

DEL        SET DA=ACRPRDA

           SET DIK="^ACRSS("

 +1        DO DIK^ACRFDIC

 +2        QUIT 

EDIT1      NEW ACRDR

 +1        SET ACRLBOC=$SELECT(ACRI#2=1:"1100",1:"1200")

 +2        SET DR="S DIE(""NO^"")=""NO"";.05T;.04T;K DIE(""NO^"");13T"

 +3        SET DA=ACRPRDA

           SET DIE="^ACRSS("

 +4        WRITE !!,"PAY ROLL............: ",$SELECT(ACRI#2=0:"BASE PAY",1:"BENEFITS")

 +5        DO DIE^ACRFDIC

 +6        QUIT