Routine: ACRFETD

ACRFETD ;IHS/OIRM/DSD/THL,AEF - EDIT TRAVEL DAY; [ 11/01/2001   9:44 AM ]

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

 ;;ROUTINE TO ALLOW EDIT OF TRAVEL DAYS

EN D FIELDS

 F  D EN1 Q:$D(ACRQUIT)

EXIT K ACRX,ACRTV0,ACRTV1,ACRTVDT,ACRFLDS,ACRY,ACR,ACRTVDSC,ACRTVRCJ,ACRJ

EN1 ;

 D DISP

 S DIR(0)="LO^1:22"

 S DIR("A")="      Edit which fields"

 D DIR^ACRFDIC

 I +Y<1 S ACRQUIT="" Q

 S ACRFLDS=ACRY

W !

 F J=1:1 S ACRX=$P(ACRFLDS,",",J) Q:ACRX=""  D DIE

DIE ;

 S DA=ACRTVDA

 S DIE="^ACRTV("

 S DR=ACR("DR",ACRX)

 I $E(DR)'="[",DR'["T" S DR=DR_"T"

 D DIE^ACRFDIC

DISP ;DISPLAY TRAVEL DAY INFO

 D GATHER

 W @IOF

 W !?17,@ACRON,"DAILY TRAVEL INFORMATION",@ACROF

 W !,"1. DATE........: ",$G(ACR(1))

 W ?40,"11. HOTEL.......: ",$G(ACR(11))

 W !,"2. DEPART TIME.: ",$G(ACR(2))

 W ?40,"12. CONFIRMATN #: ",$G(ACR(12))

 W !,"3. DEPART FROM.: ",$G(ACR(3))

 W ?40,"13. RENTAL CAR..: ",$G(ACR(13))

 W !,"4. ARRIVE TIME.: ",$G(ACR(4))

 W ?40,"14. CONFIRMATN #: ",$G(ACR(14))

 W !,"5. ARRIVE AT...: ",$G(ACR(5))

 W ?40,"15. CAR EXPENSE.: ",$G(ACR(15))

 W !,"6. DUTY STATION: ",$G(ACR(6))

 W ?40,"16. PERDIEM/LDG.: ",$G(ACR(16))

 W !,"7. MILES-AIRPRT: ",$G(ACR(7))

 W ?40,"17. POV MILES...: ",$G(ACR(17))

 W !,"8. MILEAGE RATE: ",$G(ACR(8))

 W ?40,"18. POV MLS RATE: ",$G(ACR(18))

 W !,"9. HOME PHONE..: ",$G(ACR(9))

 W ?40,"19. TAXI/SHUTTLE: ",$G(ACR(19))

 W !,"10.OTHER EXPENS: ",$G(ACR(10))

 W ?40,"20. AIRPORT PARK: ",$G(ACR(20))

 W !,"   EXPLAIN OTHER EXPENSES: "

 S ACRX=$P(ACRTVDT,U,17)_U_$P(ACRTV1,U,1,3)

 D D1

 W !,"21.DETAIL DESCRIPTION: "

 S ACRX=ACR(21)

 D D1

 W !,"22.RENTAL CAR JUSTIFICATION: "

 S ACRX=ACR(22)

 D D1

 W !,"--------------------------------------------------------------------------------"

D1 ;

 S ACRX=$TR(ACRX,"^"," ")

 W !?5

 F ACRJ=1:1 S X=$P(ACRX," ",ACRJ) Q:$P(ACRX," ",ACRJ,99)=""  W:$X+$L(X)>78 !?5 W X," "

GATHER ;GATHER TRAVEL DAY INFO

 N X,Y

 S ACRTV0=$G(^ACRTV(ACRTVDA,0))

 S ACRTVDT=$G(^ACRTV(ACRTVDA,"DT"))

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

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

 S ACRTVRCJ=$G(^ACRTV(ACRTVDA,"RCJ"))

 S Y=$P(ACRTVDT,U)

 X ^DD("DD")

 S ACR(1)=$P(Y,",")

 S X=$P(ACRTV0,U,4)

 S X=$P($P($P(^DD(9002193.5,.04,0),U,3),(X_":"),2),";")

 S ACR(1)=ACR(1)_"-"_$E(X,1,15)

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

 X ^DD("DD")

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

 S (ACR(3),ACR(5))=""

 S (ACRDFR,X)=$P(ACRTVDT,U,18)

 I X D

 .S X=X_":"

 .S X=$P($P($P(^DD(9002193.5,2.5,0),U,3),X,2),";")

 .S ACR(3)=$S(ACR(2)]"":X,1:"")

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

 X ^DD("DD")

 S ACR(4)=$P(Y,"@",2)

 S (ACRAAT,X)=$P(ACRTVDT,U,19)

 I X D

 .S X=X_":"

 .S X=$P($P($P(^DD(9002193.5,3.5,0),U,3),X,2),";")

 .S ACR(5)=X

 S X=$P(ACRTVDT,U,4)

 S ACR(6)=$E($P($G(^ACRPD(+X,0)),U),1,20)

 S ACR(7)=$P(ACRTVDT,U,7)

 S ACR(8)=$P(ACRTVDT,U,20)

 S ACR(9)=$P(ACRTVDT,U,9)

 S ACR(10)=$P(ACRTVDT,U,10)

 S X=$P(ACRTVDT,U,11)

 S ACR(11)=$E($P($G(^ACRHOTEL(+X,0)),U),1,20)

 S ACR(12)=$P(ACRTVDT,U,12)

 S X=$P(ACRTVDT,U,13),ACR(13)=$P($G(^ACRRCOMP(+X,0)),U)

 S ACR(14)=$P(ACRTVDT,U,14)

 S ACR(15)=$P(ACRTVDT,U,15)

 S ACR(16)=$TR($P(ACRTVDT,U,5,6),"^","/")

 S ACR(17)=$P(ACRTVDT,U,21)

 S ACR(18)=$P(ACRTVDT,U,23)

 S ACR(19)=$P(ACRTVDT,U,8)

 S ACR(20)=$P(ACRTVDT,U,22)

 S ACR(21)=ACRTVDSC

 S ACR(22)=ACRTVRCJ

FIELDS ;SET FIELDS TO BE EDITED

 S ACR("DR",1)="1T;.04T"

 S ACR("DR",2)="[ACR DEPART]"

 S ACR("DR",3)=2.5

 S ACR("DR",4)="[ACR ARRIVE]"

 S ACR("DR",5)=3.5

 S ACR("DR",6)=4

 S ACR("DR",7)="7T;7.5T;31T"

 S ACR("DR",8)=7.5

 S ACR("DR",9)=9

 S ACR("DR",10)="[ACR EXPLAIN OTHER EXPENSE]"

 S ACR("DR",11)=11

 S ACR("DR",12)=12

 S ACR("DR",13)="[ACR RENTAL CAR]"

 S ACR("DR",14)=14

 S ACR("DR",15)=15

 S ACR("DR",16)="5T;6T"

 S ACR("DR",17)=30

 S ACR("DR",18)=32

 S ACR("DR",19)="8T;29T"

 S ACR("DR",20)=31

 S ACR("DR",21)="[ACR DETAILED DESC]"

 S ACR("DR",22)="[ACR RENTAL CAR JUST]"

ACRFETD   ;IHS/OIRM/DSD/THL,AEF - EDIT TRAVEL DAY; [ 11/01/2001   9:44 AM ]

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

 +2       ;;ROUTINE TO ALLOW EDIT OF TRAVEL DAYS

EN         DO FIELDS

 +1        FOR

               DO EN1

               IF $DATA(ACRQUIT)

                   QUIT

EXIT       KILL ACRX,ACRTV0,ACRTV1,ACRTVDT,ACRFLDS,ACRY,ACR,ACRTVDSC,ACRTVRCJ,ACRJ

 +1        QUIT

EN1       ;

 +1        DO DISP

 +2        SET DIR(0)="LO^1:22"

 +3        SET DIR("A")="      Edit which fields"

 +4        DO DIR^ACRFDIC

 +5        IF +Y<1

               SET ACRQUIT=""

               QUIT

 +6        SET ACRFLDS=ACRY

 +7        WRITE !

 +8        FOR J=1:1

               SET ACRX=$PIECE(ACRFLDS,",",J)

               IF ACRX=""

                   QUIT

               DO DIE

 +9        QUIT

DIE       ;

 +1        SET DA=ACRTVDA

 +2        SET DIE="^ACRTV("

 +3        SET DR=ACR("DR",ACRX)

 +4        IF $EXTRACT(DR)'="["

               IF DR'["T"

                   SET DR=DR_"T"

 +5        DO DIE^ACRFDIC

 +6        QUIT

DISP      ;DISPLAY TRAVEL DAY INFO

 +1        DO GATHER

 +2        WRITE @IOF

 +3        WRITE !?17,@ACRON,"DAILY TRAVEL INFORMATION",@ACROF

 +4        WRITE !,"1. DATE........: ",$GET(ACR(1))

 +5        WRITE ?40,"11. HOTEL.......: ",$GET(ACR(11))

 +6        WRITE !,"2. DEPART TIME.: ",$GET(ACR(2))

 +7        WRITE ?40,"12. CONFIRMATN #: ",$GET(ACR(12))

 +8        WRITE !,"3. DEPART FROM.: ",$GET(ACR(3))

 +9        WRITE ?40,"13. RENTAL CAR..: ",$GET(ACR(13))

 +10       WRITE !,"4. ARRIVE TIME.: ",$GET(ACR(4))

 +11       WRITE ?40,"14. CONFIRMATN #: ",$GET(ACR(14))

 +12       WRITE !,"5. ARRIVE AT...: ",$GET(ACR(5))

 +13       WRITE ?40,"15. CAR EXPENSE.: ",$GET(ACR(15))

 +14       WRITE !,"6. DUTY STATION: ",$GET(ACR(6))

 +15       WRITE ?40,"16. PERDIEM/LDG.: ",$GET(ACR(16))

 +16       WRITE !,"7. MILES-AIRPRT: ",$GET(ACR(7))

 +17       WRITE ?40,"17. POV MILES...: ",$GET(ACR(17))

 +18       WRITE !,"8. MILEAGE RATE: ",$GET(ACR(8))

 +19       WRITE ?40,"18. POV MLS RATE: ",$GET(ACR(18))

 +20       WRITE !,"9. HOME PHONE..: ",$GET(ACR(9))

 +21       WRITE ?40,"19. TAXI/SHUTTLE: ",$GET(ACR(19))

 +22       WRITE !,"10.OTHER EXPENS: ",$GET(ACR(10))

 +23       WRITE ?40,"20. AIRPORT PARK: ",$GET(ACR(20))

 +24       WRITE !,"   EXPLAIN OTHER EXPENSES: "

 +25       SET ACRX=$PIECE(ACRTVDT,U,17)_U_$PIECE(ACRTV1,U,1,3)

 +26       DO D1

 +27       WRITE !,"21.DETAIL DESCRIPTION: "

 +28       SET ACRX=ACR(21)

 +29       DO D1

 +30       WRITE !,"22.RENTAL CAR JUSTIFICATION: "

 +31       SET ACRX=ACR(22)

 +32       DO D1

 +33       WRITE !,"--------------------------------------------------------------------------------"

 +34       QUIT

D1        ;

 +1        SET ACRX=$TRANSLATE(ACRX,"^"," ")

 +2        WRITE !?5

 +3        FOR ACRJ=1:1

               SET X=$PIECE(ACRX," ",ACRJ)

               IF $PIECE(ACRX," ",ACRJ,99)=""

                   QUIT

               IF $X+$LENGTH(X)>78

                   WRITE !?5

               WRITE X," "

 +4        QUIT

GATHER    ;GATHER TRAVEL DAY INFO

 +1        NEW X,Y

 +2        SET ACRTV0=$GET(^ACRTV(ACRTVDA,0))

 +3        SET ACRTVDT=$GET(^ACRTV(ACRTVDA,"DT"))

 +4        SET ACRTV1=$GET(^ACRTV(ACRTVDA,1))

 +5        SET ACRTVDSC=$GET(^ACRTV(ACRTVDA,"DESC"))

 +6        SET ACRTVRCJ=$GET(^ACRTV(ACRTVDA,"RCJ"))

 +7        SET Y=$PIECE(ACRTVDT,U)

 +8        XECUTE ^DD("DD")

 +9        SET ACR(1)=$PIECE(Y,",")

 +10       SET X=$PIECE(ACRTV0,U,4)

 +11       SET X=$PIECE($PIECE($PIECE(^DD(9002193.5,.04,0),U,3),(X_":"),2),";")

 +12       SET ACR(1)=ACR(1)_"-"_$EXTRACT(X,1,15)

 +13       SET Y=$PIECE(ACRTVDT,U,2)

 +14       XECUTE ^DD("DD")

 +15       SET ACR(2)=$PIECE(Y,"@",2)

 +16       SET (ACR(3),ACR(5))=""

 +17       SET (ACRDFR,X)=$PIECE(ACRTVDT,U,18)

 +18       IF X

               Begin DoDot:1

 +19               SET X=X_":"

 +20               SET X=$PIECE($PIECE($PIECE(^DD(9002193.5,2.5,0),U,3),X,2),";")

 +21               SET ACR(3)=$SELECT(ACR(2)]"":X,1:"")

               End DoDot:1

 +22       SET Y=$PIECE(ACRTVDT,U,3)

 +23       XECUTE ^DD("DD")

 +24       SET ACR(4)=$PIECE(Y,"@",2)

 +25       SET (ACRAAT,X)=$PIECE(ACRTVDT,U,19)

 +26       IF X

               Begin DoDot:1

 +27               SET X=X_":"

 +28               SET X=$PIECE($PIECE($PIECE(^DD(9002193.5,3.5,0),U,3),X,2),";")

 +29               SET ACR(5)=X

               End DoDot:1

 +30       SET X=$PIECE(ACRTVDT,U,4)

 +31       SET ACR(6)=$EXTRACT($PIECE($GET(^ACRPD(+X,0)),U),1,20)

 +32       SET ACR(7)=$PIECE(ACRTVDT,U,7)

 +33       SET ACR(8)=$PIECE(ACRTVDT,U,20)

 +34       SET ACR(9)=$PIECE(ACRTVDT,U,9)

 +35       SET ACR(10)=$PIECE(ACRTVDT,U,10)

 +36       SET X=$PIECE(ACRTVDT,U,11)

 +37       SET ACR(11)=$EXTRACT($PIECE($GET(^ACRHOTEL(+X,0)),U),1,20)

 +38       SET ACR(12)=$PIECE(ACRTVDT,U,12)

 +39       SET X=$PIECE(ACRTVDT,U,13)

           SET ACR(13)=$PIECE($GET(^ACRRCOMP(+X,0)),U)

 +40       SET ACR(14)=$PIECE(ACRTVDT,U,14)

 +41       SET ACR(15)=$PIECE(ACRTVDT,U,15)

 +42       SET ACR(16)=$TRANSLATE($PIECE(ACRTVDT,U,5,6),"^","/")

 +43       SET ACR(17)=$PIECE(ACRTVDT,U,21)

 +44       SET ACR(18)=$PIECE(ACRTVDT,U,23)

 +45       SET ACR(19)=$PIECE(ACRTVDT,U,8)

 +46       SET ACR(20)=$PIECE(ACRTVDT,U,22)

 +47       SET ACR(21)=ACRTVDSC

 +48       SET ACR(22)=ACRTVRCJ

 +49       QUIT

FIELDS    ;SET FIELDS TO BE EDITED

 +1        SET ACR("DR",1)="1T;.04T"

 +2        SET ACR("DR",2)="[ACR DEPART]"

 +3        SET ACR("DR",3)=2.5

 +4        SET ACR("DR",4)="[ACR ARRIVE]"

 +5        SET ACR("DR",5)=3.5

 +6        SET ACR("DR",6)=4

 +7        SET ACR("DR",7)="7T;7.5T;31T"

 +8        SET ACR("DR",8)=7.5

 +9        SET ACR("DR",9)=9

 +10       SET ACR("DR",10)="[ACR EXPLAIN OTHER EXPENSE]"

 +11       SET ACR("DR",11)=11

 +12       SET ACR("DR",12)=12

 +13       SET ACR("DR",13)="[ACR RENTAL CAR]"

 +14       SET ACR("DR",14)=14

 +15       SET ACR("DR",15)=15

 +16       SET ACR("DR",16)="5T;6T"

 +17       SET ACR("DR",17)=30

 +18       SET ACR("DR",18)=32

 +19       SET ACR("DR",19)="8T;29T"

 +20       SET ACR("DR",20)=31

 +21       SET ACR("DR",21)="[ACR DETAILED DESC]"

 +22       SET ACR("DR",22)="[ACR RENTAL CAR JUST]"

 +23       QUIT

ACRFETD.m