ACRFTOT.m

ACRFTOT ;IHS/OIRM/DSD/THL,AEF - CALCULATE TO/TV TOTAL; [ 11/01/2001   9:44 AM ]

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

 ;;CALCULATE TRAVEL ORDER/TRAVEL VOUCHER TOTALS

DISPLAY ;EP;

 N ACRMRR,ACRJ,ACRTVDA,ACRTOT,ACRPD,ACRLDG,ACRMR,ACRTAX,ACRPHN,ACROTH,ACROTHT,ACRRC,ACRTVRC,ACRAIRPT,ACRAIRT,ACR4P,ACRALTOT,ACRADV,ACRTV1,ACRTVDAY,ACRDESC,ACRTVEP,ACRTVLV,ACRTVDAT,ACRTVAR,ACRTVCIT,ACRTVPD,ACRPMRR,ACRTVLDG,ACRTVMLS

 N ACRTVPML,ACRTVMR,ACRTVTAX,ACRTVPHN,ACRTVOTH,ACRTVEXP,ACRTVRC,ACRTVRCC,ACRPHN,ACRPHNX,ACRATM,ACRATMX,ACRATM1,ACRATM2

 D CHK^ACRFSSA1

 K ACRQUIT

 S ACRMRR=$P(^ACRDOC(ACRDOCDA,"TOSA"),U,10)

 S (ACRREIM,ACRJ,ACRTVDA,ACRTOT,ACRPD,ACRLDG,ACRMR,ACRTAX,ACRPHN,ACROTH,ACROTHT,ACRRC,ACRTVRC,ACRAIRPT,ACRAIRT)=0

 S ACR4P=$P(^ACRDOC(ACRDOCDA,"TO"),U,26)

 S ACRDUZ=$P(^ACRDOC(ACRDOCDA,"TO"),U,9)

 S:'$D(ACRADV) ACRADV=0

 S ACRALTOT=$G(ACRALTOT)

 F  S ACRTVDA=$O(^ACRTV("D",ACRDOCDA,ACRTVDA)) Q:'ACRTVDA  D SETS

 I $P(^ACRDOC(ACRDOCDA,"TOAU"),U,6),$P(^("TOAU"),U,6)<ACRMR S ACRMR=$P(^("TOAU"),U,6)

 S ACRDAYS=ACRJ

 S ACRPHNX=ACRJ-1*$P(^ACRSYS(1,"DT"),U,17)

 S ACRPHN=$S(ACRPHN>ACRPHNX:ACRPHNX,1:ACRPHN)

 D TAXI

 K ACRPHNX

 K ACRQUIT

 S ACRTOT=ACRTOT+ACRPD+ACRLDG+ACRMR+ACRTAX+ACRPHN+ACROTH+ACRRC+ACR4P+ACRAIRPT

 S ACROTHT=ACROTHT+ACRMR+ACRTAX+ACRPHN+ACROTH+ACRAIRPT

 D ALTOT^ACRFSSA1

 D ADVANCE^ACRFSSA1

 S ACRTOT=ACRTOT+$G(ACRALTOT)

 I $P($G(^ACRDOC(ACRDOCDA,"TRNG4")),U,16) S ACRTOT=$P(^("TRNG4"),U,16)

 S ACRREIM=ACRREIM+ACRRC+ACRPD+ACRLDG+ACROTHT+ACR4P+$S($P(^ACRDOC(ACRDOCDA,"TOAU"),U,5)=1:$G(ACRALTOT),1:0)

 D TOTAL,UP^ACRFSS3

 S D0=ACRDOCDA

 K ACRHOT

 Q

TAXI ;TO CALCULATE IF AIRPORT PARKING PLUS TRIP TO AIRPORT IS GREATER

 ;THAN TAXI TO AIRPORT

 S ACRAIRPT(1)=ACRAIRPT+ACRAIRT

 I ACRAIRPT(1),$P($G(^ACRAU(ACRDUZ,1)),U,9),ACRAIRPT(1)>($P(^(1),U,9)) S ACRAIRPT=$P(^(1),U,9)

 E  S ACRAIRPT=ACRAIRPT(1)

 Q

TOTAL Q:$P(^ACRDOC(ACRDOCDA,"TO"),U,22)'=1

 S ACRATM=ACRREIM-ACRLDG-ACRRC-ACRPHN-ACR4P-$S($P(^ACRDOC(ACRDOCDA,"TOAU"),U,5)=1:$G(ACRALTOT),1:0)

 S ACRATM=$P(ACRATM,".")

 S ACRATMX=$E(ACRATM,$L(ACRATM))

 S:ACRATMX#10 ACRATM=ACRATM+(10-ACRATMX)

 S:$E(ACRATM,$L(ACRATM)-1)#2 ACRATM=ACRATM+10

 S ACRATM1=$S(ACRREFX=600:$P(^ACRDOC(ACRDOCDA,"TO"),U,23),1:ACRATM)

 S ACRATM2=$P(^ACRDOC(ACRDOCDA,"TOAU"),U,8)

 K ^TMP("ACRTV",$J,"D")

 Q

SETS ;SETS TRAVEL INFO

 I $G(ACRREFX)'=600,$P($G(^ACRTV(ACRTVDA,0)),U,5)=1 Q

 S ^TMP("ACRTV",$J,"D",+$P(^ACRTV(ACRTVDA,"DT"),U),ACRDOCDA,ACRTVDA)=""

 S ACRJ=ACRJ+1

 S ACRTV=ACRTVDA_"^"_^ACRTV(ACRTVDA,0)

 S ACRTV1=^ACRTV(ACRTVDA,"DT")

 S ACRTVDAY=$P(^ACRTV(ACRTVDA,0),U)

 S ACRDESC=$G(^ACRTV(ACRTVDA,"DESC"))

 S ACRTVEP=$G(^ACRTV(ACRTVDA,1))

 I ACRTVDAY'=ACRJ D

 .S DIE="^ACRTV("

 .S DA=ACRTVDA

 .S DR=".01///"_ACRJ

 .D DIE^ACRFDIC

 S ^TMP("ACRTV",$J,ACRJ)=ACRTV

 S ACRTVDAT=$E($P($P(ACRTV1,U),","),4,7)

 S Y=$P(ACRTV1,U,2)

 X ^DD("DD")

 S ACRTVLV=$P(Y,"@",2)

 S ACRTVLV=$P(ACRTVLV,":")_$P(ACRTVLV,":",2)

 S Y=$P(ACRTV1,U,3)

 X ^DD("DD")

 S ACRTVAR=$P(Y,"@",2)

 S ACRTVAR=$P(ACRTVAR,":")_$P(ACRTVAR,":",2)

 S ACRTVCIT=$S('$P(ACRTV1,U,4):"NOT SPECIFIED",'$D(^ACRPD($P(ACRTV1,U,4),0)):"NOT SPECIFIED",1:$E($P(^ACRPD($P(ACRTV1,U,4),0),U),1,7))

 S ACRTVPD=$P(ACRTV1,U,5)

 S:$P(ACRTV1,U,20)>0 ACRMRR=$P(ACRTV1,U,20)

 S ACRPMRR=$P(ACRTV1,U,23)

 S ACRAIRP=$P(ACRTV1,U,22)

 S ACRAIRPT=ACRAIRPT+ACRAIRP

 S ACRTVLDG=$P(ACRTV1,U,6)

 S ACRTVMLS=$P(ACRTV1,U,7)

 S ACRTVPML=$P(ACRTV1,U,21)

 S ACRTVMR=ACRTVPML*ACRPMRR

 S ACRTVTAX=$P(ACRTV1,U,8)

 S ACRAIRT=ACRAIRT+(ACRTVMLS*ACRMRR)

 S ACRTVPHN=$P(ACRTV1,U,9)

 S ACRTVOTH=$P(ACRTV1,U,10)

 S ACRTVEXP=$P(ACRTV1,U,17)

 S ACRTVRC=$P(ACRTV1,U,15)

 S:ACRTVEP]"" ACRTVEXP=ACRTVEXP_U_ACRTVEP

 S ACRTVRCC=$P(ACRTV1,U,13)

 I ACRTVRCC,$D(^ACRRCOMP(ACRTVRCC,0)) S ACRTVRCC=$P(^(0),U)

 S ACROTH=ACROTH+ACRTVOTH

 S ACRPD=ACRPD+ACRTVPD

 S ACRLDG=ACRLDG+ACRTVLDG

 S ACRMR=ACRMR+ACRTVMR

 S ACRTAX=ACRTAX+ACRTVTAX

 S ACRPHN=ACRPHN+ACRTVPHN

 S ACRRC=ACRRC+ACRTVRC

 Q

ACRFTOT   ;IHS/OIRM/DSD/THL,AEF - CALCULATE TO/TV TOTAL; [ 11/01/2001   9:44 AM ]

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

 +2       ;;CALCULATE TRAVEL ORDER/TRAVEL VOUCHER TOTALS

DISPLAY   ;EP;

 +1        NEW ACRMRR,ACRJ,ACRTVDA,ACRTOT,ACRPD,ACRLDG,ACRMR,ACRTAX,ACRPHN,ACROTH,ACROTHT,ACRRC,ACRTVRC,ACRAIRPT,ACRAIRT,ACR4P,ACRALTOT,ACRADV,ACRTV1,ACRTVDAY,ACRDESC,ACRTVEP,ACRTVLV,ACRTVDAT,ACRTVAR,ACRTVCIT,ACRTVPD,ACRPMRR,ACRTVLDG,ACRTVMLS

 +2        NEW ACRTVPML,ACRTVMR,ACRTVTAX,ACRTVPHN,ACRTVOTH,ACRTVEXP,ACRTVRC,ACRTVRCC,ACRPHN,ACRPHNX,ACRATM,ACRATMX,ACRATM1,ACRATM2

 +3        DO CHK^ACRFSSA1

 +4        KILL ACRQUIT

 +5        SET ACRMRR=$PIECE(^ACRDOC(ACRDOCDA,"TOSA"),U,10)

 +6        SET (ACRREIM,ACRJ,ACRTVDA,ACRTOT,ACRPD,ACRLDG,ACRMR,ACRTAX,ACRPHN,ACROTH,ACROTHT,ACRRC,ACRTVRC,ACRAIRPT,ACRAIRT)=0

 +7        SET ACR4P=$PIECE(^ACRDOC(ACRDOCDA,"TO"),U,26)

 +8        SET ACRDUZ=$PIECE(^ACRDOC(ACRDOCDA,"TO"),U,9)

 +9        IF '$DATA(ACRADV)

               SET ACRADV=0

 +10       SET ACRALTOT=$GET(ACRALTOT)

 +11       FOR 

               SET ACRTVDA=$ORDER(^ACRTV("D",ACRDOCDA,ACRTVDA))

               IF 'ACRTVDA

                   QUIT 

               DO SETS

 +12       IF $PIECE(^ACRDOC(ACRDOCDA,"TOAU"),U,6)

               IF $PIECE(^("TOAU"),U,6)<ACRMR

                   SET ACRMR=$PIECE(^("TOAU"),U,6)

 +13       SET ACRDAYS=ACRJ

 +14       SET ACRPHNX=ACRJ-1*$PIECE(^ACRSYS(1,"DT"),U,17)

 +15       SET ACRPHN=$SELECT(ACRPHN>ACRPHNX:ACRPHNX,1:ACRPHN)

 +16       DO TAXI

 +17       KILL ACRPHNX

 +18       KILL ACRQUIT

 +19       SET ACRTOT=ACRTOT+ACRPD+ACRLDG+ACRMR+ACRTAX+ACRPHN+ACROTH+ACRRC+ACR4P+ACRAIRPT

 +20       SET ACROTHT=ACROTHT+ACRMR+ACRTAX+ACRPHN+ACROTH+ACRAIRPT

 +21       DO ALTOT^ACRFSSA1

 +22       DO ADVANCE^ACRFSSA1

 +23       SET ACRTOT=ACRTOT+$GET(ACRALTOT)

 +24       IF $PIECE($GET(^ACRDOC(ACRDOCDA,"TRNG4")),U,16)

               SET ACRTOT=$PIECE(^("TRNG4"),U,16)

 +25       SET ACRREIM=ACRREIM+ACRRC+ACRPD+ACRLDG+ACROTHT+ACR4P+$SELECT($PIECE(^ACRDOC(ACRDOCDA,"TOAU"),U,5)=1:$GET(ACRALTOT),1:0)

 +26       DO TOTAL

           DO UP^ACRFSS3

 +27       SET D0=ACRDOCDA

 +28       KILL ACRHOT

 +29       QUIT 

TAXI      ;TO CALCULATE IF AIRPORT PARKING PLUS TRIP TO AIRPORT IS GREATER

 +1       ;THAN TAXI TO AIRPORT

 +2        SET ACRAIRPT(1)=ACRAIRPT+ACRAIRT

 +3        IF ACRAIRPT(1)

               IF $PIECE($GET(^ACRAU(ACRDUZ,1)),U,9)

                   IF ACRAIRPT(1)>($PIECE(^(1),U,9))

                       SET ACRAIRPT=$PIECE(^(1),U,9)

 +4       IF '$TEST

               SET ACRAIRPT=ACRAIRPT(1)

 +5        QUIT 

TOTAL      IF $PIECE(^ACRDOC(ACRDOCDA,"TO"),U,22)'=1

               QUIT 

 +1        SET ACRATM=ACRREIM-ACRLDG-ACRRC-ACRPHN-ACR4P-$SELECT($PIECE(^ACRDOC(ACRDOCDA,"TOAU"),U,5)=1:$GET(ACRALTOT),1:0)

 +2        SET ACRATM=$PIECE(ACRATM,".")

 +3        SET ACRATMX=$EXTRACT(ACRATM,$LENGTH(ACRATM))

 +4        IF ACRATMX#10

               SET ACRATM=ACRATM+(10-ACRATMX)

 +5        IF $EXTRACT(ACRATM,$LENGTH(ACRATM)-1)#2

               SET ACRATM=ACRATM+10

 +6        SET ACRATM1=$SELECT(ACRREFX=600:$PIECE(^ACRDOC(ACRDOCDA,"TO"),U,23),1:ACRATM)

 +7        SET ACRATM2=$PIECE(^ACRDOC(ACRDOCDA,"TOAU"),U,8)

 +8        KILL ^TMP("ACRTV",$JOB,"D")

 +9        QUIT 

SETS      ;SETS TRAVEL INFO

 +1        IF $GET(ACRREFX)'=600

               IF $PIECE($GET(^ACRTV(ACRTVDA,0)),U,5)=1

                   QUIT 

 +2        SET ^TMP("ACRTV",$JOB,"D",+$PIECE(^ACRTV(ACRTVDA,"DT"),U),ACRDOCDA,ACRTVDA)=""

 +3        SET ACRJ=ACRJ+1

 +4        SET ACRTV=ACRTVDA_"^"_^ACRTV(ACRTVDA,0)

 +5        SET ACRTV1=^ACRTV(ACRTVDA,"DT")

 +6        SET ACRTVDAY=$PIECE(^ACRTV(ACRTVDA,0),U)

 +7        SET ACRDESC=$GET(^ACRTV(ACRTVDA,"DESC"))

 +8        SET ACRTVEP=$GET(^ACRTV(ACRTVDA,1))

 +9        IF ACRTVDAY'=ACRJ

               Begin DoDot:1

 +10               SET DIE="^ACRTV("

 +11               SET DA=ACRTVDA

 +12               SET DR=".01///"_ACRJ

 +13               DO DIE^ACRFDIC

               End DoDot:1

 +14       SET ^TMP("ACRTV",$JOB,ACRJ)=ACRTV

 +15       SET ACRTVDAT=$EXTRACT($PIECE($PIECE(ACRTV1,U),","),4,7)

 +16       SET Y=$PIECE(ACRTV1,U,2)

 +17       XECUTE ^DD("DD")

 +18       SET ACRTVLV=$PIECE(Y,"@",2)

 +19       SET ACRTVLV=$PIECE(ACRTVLV,":")_$PIECE(ACRTVLV,":",2)

 +20       SET Y=$PIECE(ACRTV1,U,3)

 +21       XECUTE ^DD("DD")

 +22       SET ACRTVAR=$PIECE(Y,"@",2)

 +23       SET ACRTVAR=$PIECE(ACRTVAR,":")_$PIECE(ACRTVAR,":",2)

 +24       SET ACRTVCIT=$SELECT('$PIECE(ACRTV1,U,4):"NOT SPECIFIED",'$DATA(^ACRPD($PIECE(ACRTV1,U,4),0)):"NOT SPECIFIED",1:$EXTRACT($PIECE(^ACRPD($PIECE(ACRTV1,U,4),0),U),1,7))

 +25       SET ACRTVPD=$PIECE(ACRTV1,U,5)

 +26       IF $PIECE(ACRTV1,U,20)>0

               SET ACRMRR=$PIECE(ACRTV1,U,20)

 +27       SET ACRPMRR=$PIECE(ACRTV1,U,23)

 +28       SET ACRAIRP=$PIECE(ACRTV1,U,22)

 +29       SET ACRAIRPT=ACRAIRPT+ACRAIRP

 +30       SET ACRTVLDG=$PIECE(ACRTV1,U,6)

 +31       SET ACRTVMLS=$PIECE(ACRTV1,U,7)

 +32       SET ACRTVPML=$PIECE(ACRTV1,U,21)

 +33       SET ACRTVMR=ACRTVPML*ACRPMRR

 +34       SET ACRTVTAX=$PIECE(ACRTV1,U,8)

 +35       SET ACRAIRT=ACRAIRT+(ACRTVMLS*ACRMRR)

 +36       SET ACRTVPHN=$PIECE(ACRTV1,U,9)

 +37       SET ACRTVOTH=$PIECE(ACRTV1,U,10)

 +38       SET ACRTVEXP=$PIECE(ACRTV1,U,17)

 +39       SET ACRTVRC=$PIECE(ACRTV1,U,15)

 +40       IF ACRTVEP]""

               SET ACRTVEXP=ACRTVEXP_U_ACRTVEP

 +41       SET ACRTVRCC=$PIECE(ACRTV1,U,13)

 +42       IF ACRTVRCC

               IF $DATA(^ACRRCOMP(ACRTVRCC,0))

                   SET ACRTVRCC=$PIECE(^(0),U)

 +43       SET ACROTH=ACROTH+ACRTVOTH

 +44       SET ACRPD=ACRPD+ACRTVPD

 +45       SET ACRLDG=ACRLDG+ACRTVLDG

 +46       SET ACRMR=ACRMR+ACRTVMR

 +47       SET ACRTAX=ACRTAX+ACRTVTAX

 +48       SET ACRPHN=ACRPHN+ACRTVPHN

 +49       SET ACRRC=ACRRC+ACRTVRC

 +50       QUIT