Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACRTV

Package: Commitment Register

Global: ^ACRTV


Information

FileMan FileNo FileMan Filename Package
9002193.5 FMS TRAVEL DAY Commitment Register

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
Commitment Register 17 ACRCTV1    ACRCTV2    ACRFETD    ACRFFF3    ACRFSS4    ACRFSS41    ACRFSS42    ACRFSS43
ACRFSS44    ACRFSSA    ACRFSSRC    ACRFSSU    ACRFTOT    ACRFTV3    ACRPSTI    ACRPTD
ACRPTI    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Commitment Register 7 ACRFAUT1    ACRFETD    ACRFSS41    ACRFSS42    ACRFSS43    ACRFSS44    ACRFTOT    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Commitment Register 5 FMS DOCUMENT(#9002196)[.03]    ARMS HOTEL(#9002193.1)[11]    FMS REQUEST(#9002189)[.02, .07]    ARMS PER DIEM CITY(#9002193.9)[4]    ARMS AUTO RENTAL COMPANY(#9002193.8)[13]    

Fields, Total: 42

Field # Name Loc Type Details
.01 DAY 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a sequence number for each day of a trip.  This number is set by the system and should not be edited directly.
  • CROSS-REFERENCE:  9002193.5^B
    1)= S ^ACRTV("B",$E(X,1,30),DA)=""
    2)= K ^ACRTV("B",$E(X,1,30),DA)
.02 REQUEST 0;2 POINTER TO FMS REQUEST FILE (#9002189) FMS REQUEST(#9002189)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the REQUEST file and is used to relate this travel day to the REQUEST on which it is ordered.  This is set internally by the system and should not be edited directly.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRTV(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002193.5,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9002193.5,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INTERNAL(#.02)
    DELETE VALUE)= NO EFFECT
    FIELD)= TRAVEL VOUCHER
.03 DOCUMENT 0;3 POINTER TO FMS DOCUMENT FILE (#9002196) FMS DOCUMENT(#9002196)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the DOCUMENT file and is used to relate this travel day to the DOCUMENT on which it is ordered.  This is set internally by the system and should not edited directly.
  • CROSS-REFERENCE:  9002193.5^D
    1)= S ^ACRTV("D",$E(X,1,30),DA)=""
    2)= K ^ACRTV("D",$E(X,1,30),DA)
.04 OFFICIAL TRAVEL DAY 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR TDY TRAVEL;
  • '2' FOR AUTHORIZED LEAVE;
  • '3' FOR LOCAL/OTHER;

  • LAST EDITED:  FEB 25, 1997
  • HELP-PROMPT:  Enter a code from the list to indicate if this is an official travel day or a non-official travel day taken in conjunction with official travel.
  • DESCRIPTION:  
    Select a code from the list to indicate if this is an official travel day.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X>1 I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9002193.5,.04,1,1,1.4)
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002193.5,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= INTERNAL(OFFICIAL TRAVEL DAY)>1
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= LODGING
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X>1 I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9002193.5,.04,1,2,1.4)
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.5,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= INTERNAL(OFFICIAL TRAVEL DAY)>1
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PER DIEM
.05 ADDED TO TRAVEL VOUCHER 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the appropriate code to indicate if the travel day was added at the travel voucher stage.
.07 TRAVEL VOUCHER 0;7 POINTER TO FMS REQUEST FILE (#9002189) FMS REQUEST(#9002189)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a pointer to the REQUEST file and is used to relate this travel day to the TRAVEL VOUCHER.  This is set internally by the system and should not be edited directly.
  • NOTES:  TRIGGERED by the REQUEST field of the FMS TRAVEL DAY File
  • CROSS-REFERENCE:  9002193.5^C
    1)= S ^ACRTV("C",$E(X,1,30),DA)=""
    2)= K ^ACRTV("C",$E(X,1,30),DA)
1 DATE DT;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$G(X)!'$G(ACRAPP)!'$G(ACRLBDA) S ACRNEW=X D FYCHECK^ACRFSS41
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the DATE of this travel day.
  • DESCRIPTION:  
    Enter the DATE of this travel day.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002193.5^E
    1)= S ^ACRTV("E",$E(X,1,30),DA)=""
    2)= K ^ACRTV("E",$E(X,1,30),DA)
2 DEPARTURE DATE & TIME DT;2 DATE

  • INPUT TRANSFORM:  S %DT="TEXR" D ^%DT S X=Y K:Y<1 X S:$D(X)&$D(DA) X=$P(^ACRTV(DA,"DT"),U)_"."_$P(X,".",2)
  • OUTPUT TRANSFORM:  I $G(Y)>1 X ^DD("DD") S Y=$P(Y,"@",2) S:+Y<12 Y=+Y_":"_$P(Y,":",2)_" AM" S:Y'["AM" Y=+Y-$S(+Y'=12:12,1:0)_":"_$P(Y,":",2)_" PM"
  • LAST EDITED:  JUN 11, 1999
  • HELP-PROMPT:  Enter the time you left your home or office if you departed on your trip this day.
  • DESCRIPTION:  
    Enter the time of day on which you left your duty station.  This should only be entered on the day you leave your duty station and should not be entered for days you are actually on travel status.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^5
    1)= X ^DD(9002193.5,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193.5,2,1,1,1.1) X ^DD(9002193.5,2,1,1,1.4)
    1.1)= S X=DIV X ^DD(9002193.5,2,1,1,49.2) S X=$P(Y(101),U,4) S:'X X=$P($G(^ACRSYS(1,"DT")),U,22) S D0=I(0,0)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRPD(+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))]""
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.5,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(9002193.5,2,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193.5,2,1,1,2.1) X ^DD(9002193.5,2,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002193.5,2,1,1,59.2) S X=$P(Y(101),U,4) S:'X X=$P($G(^ACRSYS(1,"DT")),U,22) S D0=I(0,0)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRPD(+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))]""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.5,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"")
    CREATE CONDITION)= DUTY STATION]""
    CREATE VALUE)= DUTY STATION:#.04
    DELETE CONDITION)= DUTY STATION]""
    DELETE VALUE)= DUTY STATION:#.04
    FIELD)= #5
2.5 DEPART FROM DT;18 SET
  • '1' FOR HOME;
  • '2' FOR OFFICE;
  • '3' FOR OTHER;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list
  • DESCRIPTION:  Enter the code which correctly describes the location from which you departed. This should only by completed for the first official travel day, the day on which you began your official government travel for this trip. Do
    not enter this information for vacation or other days prior to the first official travel day.
3 ARRIVE DT;3 DATE

  • INPUT TRANSFORM:  S %DT="TEXR" D ^%DT S X=Y K:Y<1 X S:$D(X)&$D(DA) X=$P(^ACRTV(DA,"DT"),U)_"."_$P(X,".",2)
  • OUTPUT TRANSFORM:  I $G(Y)>1 X ^DD("DD") S Y=$P(Y,"@",2) S:+Y<12 Y=+Y_":"_$P(Y,":",2)_" AM" S:Y'["AM" Y=+Y-$S(+Y'=12:12,1:0)_":"_$P(Y,":",2)_" PM"
  • LAST EDITED:  JUN 11, 1999
  • HELP-PROMPT:  Enter time you arrive at your home or office if you returned from your trip this day.
  • DESCRIPTION:  
    Enter the time when you return to you home duty station.  This should only be entered for the day you actually return home.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9002193.5,3,1,1,1.4)
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002193.5,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(9002193.5,3,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002193.5,3,1,1,2.1) X ^DD(9002193.5,3,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002193.5,3,1,1,59.2) S X=$P(Y(101),U,3) S:'X X=$P($G(^ACRSYS(1,"DT")),U,21) S D0=I(0,0)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRPD(+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))]""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002193.5,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"")
    CREATE VALUE)= @
    DELETE CONDITION)= DUTY STATION]""
    DELETE VALUE)= DUTY STATION:#.03
    FIELD)= #6
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^5
    1)= X ^DD(9002193.5,3,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193.5,3,1,2,1.1) X ^DD(9002193.5,3,1,2,1.4)
    1.1)= S X=DIV X ^DD(9002193.5,3,1,2,49.2) S X=$P(Y(101),U,4) S:'X X=$P($G(^ACRSYS(1,"DT")),U,22) S D0=I(0,0)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRPD(+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))]""
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.5,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(9002193.5,3,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193.5,3,1,2,2.1) X ^DD(9002193.5,3,1,2,2.4)
    2.1)= S X=DIV X ^DD(9002193.5,3,1,2,59.2) S X=$P(Y(101),U,4) S:'X X=$P($G(^ACRSYS(1,"DT")),U,22) S D0=I(0,0)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRPD(+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))]""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.5,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,4) S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"")
    CREATE CONDITION)= DUTY STATION]""
    CREATE VALUE)= DUTY STATION:#.04
    DELETE CONDITION)= DUTY STATION]""
    DELETE VALUE)= DUTY STATION:#.04
    FIELD)= #5
3.5 ARRIVE AT DT;19 SET
  • '1' FOR HOME;
  • '2' FOR OFFICE;
  • '3' FOR OTHER;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  Enter the code from the list which correctly describes the location at which you arrived the day you returned from travel. This should only be completed for the last day of your official government travel. Do not enter
    this information for vacation or other days after the termination of your official government travel.
4 DUTY STATION DT;4 POINTER TO ARMS PER DIEM CITY FILE (#9002193.9)
************************REQUIRED FIELD************************
ARMS PER DIEM CITY(#9002193.9)

  • INPUT TRANSFORM:  S DIC("S")="Q:'$D(ACRDOCDA) I $D(^ACRDOC(ACRDOCDA,9,""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the duty station city.
  • DESCRIPTION:  
    Enter your TDY DUTY STATION.
  • SCREEN:  S DIC("S")="Q:'$D(ACRDOCDA) I $D(^ACRDOC(ACRDOCDA,9,""B"",+Y))"
  • EXPLANATION:  Only cities to which travel has been authorized can be selected.
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^6
    1)= X ^DD(9002193.5,4,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002193.5,4,1,1,1.1) X ^DD(9002193.5,4,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S:'X X=$P($G(^ACRSYS(1,"DT")),U,21) S D0=I(0,0)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9002193.5,4,1,1,69.2) S Y(2)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,4)_":",2),$C(59),1)<2,Y=X,X=Y(2),X=X&Y
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002193.5,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    69.2)= S Y(4)=$C(59)_$S($D(^DD(9002193.5,.04,0)):$P(^(0),U,3),1:""),Y(3)=$S($D(^ACRTV(D0,0)):^(0),1:""),Y(1)=$S($D(^("DT")):^("DT"),1:"") S X=$P(Y(1),U,3)=""
    CREATE CONDITION)= ARRIVE=""&(OFFICIAL TRAVEL DAY<2)
    CREATE VALUE)= DUTY STATION:#.03
    DELETE VALUE)= NO EFFECT
    FIELD)= LODGING
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^5
    1)= X ^DD(9002193.5,4,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002193.5,4,1,2,1.1) X ^DD(9002193.5,4,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRPD(+D0,0)) D0=-1 S Y(101)=$S($D(^ACRPD(D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S:'X X=$P($G(^ACRSYS(1,"DT")),U,22) S D0=I(0,0)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(9002193.5,.04,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^ACRTV(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_":",2),$C(59),1)<2
    1.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002193.5,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= OFFICIAL TRAVEL DAY<2
    CREATE VALUE)= DUTY STATION:#.04
    DELETE VALUE)= NO EFFECT
    FIELD)= PER DIEM
5 PER DIEM DT;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>200)!(X<-200) X Q:'$D(X)!'$P(^ACRTV(DA,"DT"),U,4) S:X>$P(^ACRPD($P(^("DT"),U,4),0),U,4) X=$P(^(0),U,4) D FACTOR^ACRFSSA
  • LAST EDITED:  FEB 22, 2005
  • HELP-PROMPT:  Type a Dollar Amount between -200 and 200, 2 Decimal Digits. This amount cannot be greater than the maximum for the duty station.
  • DESCRIPTION:  
    Enter the PER DIEM if different than what is already calculated.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the OFFICIAL TRAVEL DAY field of the FMS TRAVEL DAY File
    TRIGGERED by the DEPARTURE DATE & TIME field of the FMS TRAVEL DAY File
    TRIGGERED by the ARRIVE field of the FMS TRAVEL DAY File
    TRIGGERED by the DUTY STATION field of the FMS TRAVEL DAY File
  • CROSS-REFERENCE:  9002193.5^AC^MUMPS
    1)= D FACTOR^ACRFSSA
    2)= Q
    3)= DO NOT DELETE
    Calculates the per diem based on quarter day increments.
6 LODGING DT;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>500)!(X<0) X Q:$D(ACRPDCO)!'$D(X)!'$P(^ACRTV(DA,"DT"),U,4) S:X>$P(^ACRPD($P(^("DT"),U,4),0),U,3) X=$P(^(0),U,3)
  • LAST EDITED:  FEB 22, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 500, 2 Decimal Digits. This cannot exceed the total amount allowed for Lodging for this location.
  • DESCRIPTION:  
    Enter the actual LODGING cost or the maximum amount if estimating the cost of the trip.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the OFFICIAL TRAVEL DAY field of the FMS TRAVEL DAY File
    TRIGGERED by the ARRIVE field of the FMS TRAVEL DAY File
    TRIGGERED by the DUTY STATION field of the FMS TRAVEL DAY File
7 MILES TO AIRPORT DT;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number of miles you claim for transportation from your home or office to the airport.
7.5 MILEAGE RATE DT;20 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 1, 3 Decimal Digits
  • DESCRIPTION:  
    Enter the MILEAGE RATE at which the miles travel should be reimbursed.
8 TAXI/SHUTTLE DT;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99.99)!(X<0) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the dollar amount you claim for TAXI OR SHUTTLE.
9 HOME PHONE CALL DT;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99)!(X<0) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the amount you claim for your personal call to your home.
10 OTHER DT;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999.99)!(X<-9999.99) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the total amount of OTHER additional expenses you claim for the trip.
10.5 EXPLAIN LINE 1 DT;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    Enter a brief explanation of the OTHER expenses.
11 HOTEL DT;11 POINTER TO ARMS HOTEL FILE (#9002193.1) ARMS HOTEL(#9002193.1)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the name of a HOTEL from the list.
  • DESCRIPTION:  
    Enter the name of the HOTEL where you will be staying on this travel day.
12 HOTEL CONFIRMATION NO. DT;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Enter the confirmation number for your hotel reservation.
13 RENTAL CAR COMPANY DT;13 POINTER TO ARMS AUTO RENTAL COMPANY FILE (#9002193.8) ARMS AUTO RENTAL COMPANY(#9002193.8)

  • INPUT TRANSFORM:  Q:'$P(^ACRTV(DA,0),U,3) Q:'$D(^ACRDOC($P(^(0),U,3),"TOSA")) Q:$P(^("TOSA"),U,3)="Y" W !!,*7,*7,"Auto Rental not authorized.",! H 3 K X Q
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the name of the rental car company.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^21
    1)= Q
    2)= X ^DD(9002193.5,13,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"RCJ")):^("RCJ"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"RCJ")):^("RCJ"),1:""),DIV=X S $P(^("RCJ"),U,1)=DIV,DIH=9002193.5,DIG=21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #21
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^22
    1)= Q
    2)= X ^DD(9002193.5,13,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"RCJ")):^("RCJ"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,2,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"RCJ")):^("RCJ"),1:""),DIV=X S $P(^("RCJ"),U,2)=DIV,DIH=9002193.5,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #22
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^23
    1)= Q
    2)= X ^DD(9002193.5,13,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"RCJ")):^("RCJ"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,3,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"RCJ")):^("RCJ"),1:""),DIV=X S $P(^("RCJ"),U,3)=DIV,DIH=9002193.5,DIG=23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #23
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^24
    1)= Q
    2)= X ^DD(9002193.5,13,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"RCJ")):^("RCJ"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,4,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"RCJ")):^("RCJ"),1:""),DIV=X S $P(^("RCJ"),U,4)=DIV,DIH=9002193.5,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #24
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^25
    1)= Q
    2)= X ^DD(9002193.5,13,1,5,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"RCJ")):^("RCJ"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,5,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"RCJ")):^("RCJ"),1:""),DIV=X S $P(^("RCJ"),U,5)=DIV,DIH=9002193.5,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #25
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^15
    1)= Q
    2)= X ^DD(9002193.5,13,1,6,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,6,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,15)=DIV,DIH=9002193.5,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #15
  • CROSS-REFERENCE:  ^^TRIGGER^9002193.5^14
    1)= Q
    2)= X ^DD(9002193.5,13,1,7,2.3) I X S X=DIV S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(9002193.5,13,1,7,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ACRTV(D0,"DT")):^("DT"),1:"") S X=$S('$D(^ACRRCOMP(+$P(Y(1),U,13),0)):"",1:$P(^(0),U,1))=""
    2.4)= S DIH=$S($D(^ACRTV(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,14)=DIV,DIH=9002193.5,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= RENTAL CAR COMPANY=""
    DELETE VALUE)= @
    FIELD)= #14
14 RENTAL CAR CONFIRMATION NO DT;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Enter the rental car confirmation number.
  • NOTES:  TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
15 RENTAL CARE EXPENSE DT;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999.99)!(X<0) X Q:$P(^ACRTV(DA,"DT"),U,13)!$D(ACRSCREN) W !!,"No Rental Car Company Specified.",! H 3 K X
  • LAST EDITED:  APR 24, 1997
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the amount of the RENTAL CAR EXPENSE.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
16 HOTEL GUARANTEED DT;16 SET
  • 'Y' FOR HOTEL GUARANTEED;
  • 'N' FOR NOT GUARANTEED;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter 'Y' if your hotel reservation is guaranteed.
17 DESCRIPTION L1 DESC;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-55 characters in length.
  • DESCRIPTION:  
    Enter a brief detailed description of this travel day.
18 DESCRIPTION L2 DESC;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-55 characters in length.
  • DESCRIPTION:  
    Enter information for the second line of the detailed description of the travel day.
19 DESCRIPTION L3 DESC;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-55 characters in length.
  • DESCRIPTION:  
    Enter information for the third line of the detailed description of the travel day.
20 DESCRIPTION L4 DESC;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-55 characters in length.
  • DESCRIPTION:  
    Enter information for the fourth line of the detailed description of the travel day.
21 RJ L1 RCJ;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the first line of the rental car justification.
  • NOTES:  TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
22 RJ L2 RCJ;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the second line of the rental car justification.
  • NOTES:  TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
23 RJ L3 RCJ;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the third line of the rental car justification.
  • NOTES:  TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
24 RJ L4 RCJ;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of the rental car justification.
  • NOTES:  TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
25 RJ L5 RCJ;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of the rental car justification.
  • NOTES:  TRIGGERED by the RENTAL CAR COMPANY field of the FMS TRAVEL DAY File
26 EXPLAIN LINE 2 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    Enter any additional information to explain additional expenses.
27 EXPLAIN LINE 3 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    Enter any additional information to explain additional expenses.
28 EXPLAIN LINE 4 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    Enter any additional information to explain additional expenses.
29 TAXI SHUTTLE EXPLANATION 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    Enter the reason for using the taxi or shuttle.
30 POV OR OTHER MILES DT;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number of miles driven via POV or other reimbursable mode.  This should NOT include miles driven from your home to the airport when traveling by common carrier.
31 AIRPORT PARKING DT;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the cost of airport parking.  This can be entered as a daily amount or the entire amount can be entered for the total airport parking bill on one day.
32 POV MILEAGE RATE DT;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 1, 3 Decimal Digits
  • DESCRIPTION:  
    Enter the mileage rate for POV or OTHER reimbursable miles.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All