ACRFPAYP.m

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

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

 ;;ROUTINE TO EDIT PAYROLL PAY PERIOD

EN ;EP;

 S ACRPP=$P(^ATAEMP($P(^ACRDOC(ACRDOCDA,"PR"),U),0),U,9)

 S DIR(0)="N^1:"_$S(ACRPP'="CO":53,1:12)

 S DIR("A")="PAY PERIOD "

 S DIR("B")=$P(^ACRDOC(ACRDOCDA,"PR"),U,2)

 D DIR^ACRFDIC

 Q:'Y

 S DA=ACRDOCDA

 S DIE="^ACRDOC("

 S DR="999020////"_Y

 D DIE^ACRFDIC

EXIT K ACRPP

 Q

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

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

 +2       ;;ROUTINE TO EDIT PAYROLL PAY PERIOD

EN        ;EP;

 +1        SET ACRPP=$PIECE(^ATAEMP($PIECE(^ACRDOC(ACRDOCDA,"PR"),U),0),U,9)

 +2        SET DIR(0)="N^1:"_$SELECT(ACRPP'="CO":53,1:12)

 +3        SET DIR("A")="PAY PERIOD "

 +4        SET DIR("B")=$PIECE(^ACRDOC(ACRDOCDA,"PR"),U,2)

 +5        DO DIR^ACRFDIC

 +6        IF 'Y

               QUIT 

 +7        SET DA=ACRDOCDA

 +8        SET DIE="^ACRDOC("

 +9        SET DR="999020////"_Y

 +10       DO DIE^ACRFDIC

EXIT       KILL ACRPP

 +1        QUIT