Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFTV

ACRFTV.m

Go to the documentation of this file.
  1. ACRFTV ;IHS/OIRM/DSD/THL,AEF - TRAVEL REPORT; [ 11/01/2001 9:44 AM ]
  1. ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1. ;;ROUTINE TO PRINT TRAVEL REPORT
  1. EN F D SELECT Q:$D(ACRQUIT)!$D(ACROUT)
  1. EXIT ;EP
  1. K ACR,ACR1,ACR2,ACR3,ACR4,ACR5,ACR6,ACR0,ACROBJ,ACROBJ0,ACRDTAIL,ACRDOC,ACRDOC0,ACRREQ2,ACRTVT,ACRDTL1,ACRBOTH,ACRZZDA,ACRZDA,ACRY,ACRAAT,ACRAPT,ACRDAYS,ACRDFR,ACREMP,ACRENTR1,ACRENTR2,ACRENTRY,ACREXPL,ACRFR,ACRJ,ACRJI,ACRNUM,ACRQUIT
  1. K ACRRCJ,ACRRTN,ACRSOF,ACRSOFT,ACRSOFX,ACRTM,ACRTO,ACRTVDA,ACRTYPS,ACRBEGIN,ACREND,ACRTRAV,ACR7,ACR9,ACRALWDA,ACRDEPT,ACROCDA,ACRDT,ACRFY,ACRI,ACROBL,ACRREF,ACRREQ,ACRSPENT,ACRSPT,ACRSSA,ACRSSADA,ACRDOCDA,ACRX,ACR11,ACRREQT,ACROBLT,ACRSPTT
  1. K ACRPURP,ACRINCMP,ACRSIGS,ACRSIGT,ACRBEG,ACRLOC,ACRTV0,ACRTVDT,ACROUT,ACR12,ACR13,ACR14,ACRCAN,ACR21,ACRPD,ACRTVTX,ACRXREF,ACRDPTDA,ACRPAGE
  1. K ^TMP("ACRTV",$J)
  1. Q
  1. SELECT D ^XBKVAR S IOP="HOME" D ^%ZIS D HOME^ACRFMENU
  1. D EXIT
  1. W @IOF
  1. W !?10,"Travel Report"
  1. S DIR(0)="SO^1:Purchasing Office;2:Department;3:Department Account;4:Common Accounting Number;5:Sub-Allowance;6:Allowance;7:Individual Traveler;8:TDY Duty Station;9:Rental Car Used;10:Actual Expenses Claimed;11:Non-Contract Carrier Used"
  1. S DIR("A")="Which type of report"
  1. D DIR^ACRFDIC
  1. I $D(ACRQUIT)!$D(ACROUT)!("11023456789"'[+Y) Q
  1. S ACRTVT=$S(Y=1:"PO",Y=2:"TDEPT",Y=3:"F",Y=4:"CAN",Y=5:"G",Y=6:"H",Y=7:"D",Y=8:"LOC",Y=9:"RC",Y=10:"AE",Y=11:"NCC",1:"")
  1. Q:ACRTVT=""
  1. I ACRTVT="CAN" D CAN^ACRFTV1 Q:$D(ACRQUIT)!$D(ACROUT) G ZIS
  1. I ACRTVT="TDEPT"!(ACRTVT="PO") D DEPT^ACRFTV1 Q:$D(ACRQUIT)!$D(ACROUT) G ZIS
  1. I ACRTVT="LOC" D LOCATION Q:$D(ACRQUIT)!$D(ACROUT) G ZIS
  1. I "^RC^AE^NCC^"[(U_ACRTVT_U) G ZIS
  1. S ACRENTR1=$S(ACRTVT="F":"LOCBAMT",ACRTVT="G":"ALCAMT",ACRTVT="H":"ALLAMT",1:"")
  1. S ACRENTRY=$S(ACRTVT="F":"ALCAMT",ACRTVT="G":"ALLAMT",ACRTVT="H":"APPAMT",1:""),(ACRSOF,ACRSOFX,ACRSOFT)=""
  1. I ACRTVT'="D" D ENTRY^ACRFDTP I '$D(ACRZDA) K ACRQUIT Q
  1. I ACRTVT="F" D C1^ACRFTV1 Q:$D(ACRQUIT)!$D(ACROUT)
  1. I ACRTVT="D" D TRAVELER Q:$L(ACRTRAV)<2
  1. ZIS D DETAIL
  1. I $D(ACRQUIT)!$D(ACROUT) K ACRQUIT Q
  1. D INCOMP
  1. Q:$D(ACRQUIT)!$D(ACROUT)
  1. D:$D(ACRDTAIL) SIGS
  1. Q:$D(ACRQUIT)!$D(ACROUT)
  1. D INVITE:ACRTVT'="D"
  1. Q:$D(ACROUT)!$D(ACRQUIT)
  1. W !
  1. D DATES^ACRFDATE
  1. Q:$D(ACROUT)!$D(ACRQUIT)!'$G(ACRBEGIN)!'$G(ACREND)
  1. S ACRRTN="SS^ACRFTV2"
  1. S ZTDESC="TRAVEL REPORT"
  1. D ^ACRFZIS
  1. K ACRQUIT
  1. Q
  1. DETAIL ;EP;
  1. K ACRDTAIL,ACRBOTH,ACRDTL1
  1. S DIR(0)="SO^1:Summary;2:Detailed Report;3:Both"
  1. S DIR("A")="Which one"
  1. W !
  1. D DIR^ACRFDIC
  1. I $D(ACRQUIT)!$D(ACROUT) Q
  1. I Y=1 K ACRDTAIL
  1. E S ACRDTAIL=""
  1. I Y=3 S ACRBOTH=""
  1. S DIR(0)="YO"
  1. S DIR("A")="List by Object Code"
  1. S DIR("B")="NO"
  1. W !
  1. D DIR^ACRFDIC
  1. Q:$D(ACROUT)!$D(ACRQUIT)
  1. S ACRDTL1=+Y
  1. Q
  1. TRAVELER ;EP;TO SELECT AND PRINT TRAVEL REPORT FOR INDIVIDUAL TRAVELER
  1. S ACRTRAV=U
  1. F ACRJ=1:1 D TRAV1 Q:$D(ACRQUIT)
  1. K ACRQUIT
  1. Q
  1. TRAV1 S DIC="^VA(200,"
  1. S DIC(0)="AEMQZ"
  1. S DIC("A")=$S(ACRJ=1:"Traveler's Name: ",1:"Select another Traveler: ")
  1. W !
  1. D DIC^ACRFDIC
  1. I '$D(Y) S ACRQUIT="" Q
  1. I +Y<1 S ACRQUIT="" Q
  1. S ACRTRAV=ACRTRAV_+Y_U
  1. Q
  1. LOCATION ;SELECT TRAVEL LOCATION
  1. S DIC="^ACRPD("
  1. S DIC(0)="AEMQZ"
  1. S DIC("A")="Select TDY Location: "
  1. W !
  1. D DIC^ACRFDIC
  1. I '$D(Y) S ACRQUIT="" Q
  1. I +$G(Y)<1 S ACRQUIT="" Q
  1. S ACRLOC=+Y
  1. Q
  1. INCOMP ;EP;TO PRINT LIST OF TO'S FOR WHCIH TV IS NOT COMPLETE
  1. S DIR(0)="YO"
  1. S DIR("A",1)="Include ONLY Travel Orders"
  1. S DIR("A")="for which the Travel Voucher is not complete"
  1. S DIR("B")="NO"
  1. W !
  1. D DIR^ACRFDIC
  1. S:$G(ACRY)=1 ACRINCMP=""
  1. Q
  1. SIGS ;EP;TO PRINT SIGNATURE DETAILS FOR TRAVEL VOUCHER
  1. S DIR(0)="YO"
  1. S DIR("A")="Include SIGNATURE DETAILS"
  1. S DIR("B")="NO"
  1. S DIR("?",1)="If you select 'Y' for YES, the dates of Travel Voucher signatures"
  1. S DIR("?")="and days between signatures will be included."
  1. W !
  1. D DIR^ACRFDIC
  1. S:$G(ACRY)=1 ACRSIGS=""
  1. Q
  1. SIGT ;EP;TO PRINT SIGNATURE TOTAL SUMMARY
  1. W !!,"AVERAGE NUMBER OF DAYS TO PROCESS TRAVEL VOUCHERS"
  1. W !,"BY TYPE OF SIGNATRUE:"
  1. F ACRI=1:1:6 D
  1. .S ACR=$G(ACRSIGT(ACRI)),ACRD=$P(ACR,U,2),ACR=+ACR
  1. .W:ACRI=1 !?7,"TO TRAVELER..: "
  1. .W:ACRI=2 !?7,"TRAVELER SIG.: "
  1. .I ACRD]"" D
  1. ..W:ACRI=3 !?7,"RECOMMEND SIG: "
  1. ..W:ACRI=4 !?7,"APPROVER SIG.: "
  1. .W:ACRI=5 !?7,"AUDITOR SIG..: "
  1. .W:ACRI=6 !?7,"CERTIFIER SIG: "
  1. .I ACR,ACRD/ACR>0 W $J($FN(ACRD/ACR,"P",0),5)
  1. Q
  1. INVITE ;SELECT REPORT FOR TRAVELERS FROM OUTSIDE THE AREA ONLY
  1. S DIR(0)="YO"
  1. S DIR("A")="Report for OUTSIDE travelers ONLY"
  1. S DIR("B")="NO"
  1. W !
  1. D DIR^ACRFDIC
  1. K ACRINVIT
  1. Q:+Y'=1
  1. S ACRINVIT=""
  1. I '$O(^ACRSYS(1)) S ACRADA=1 Q
  1. AREA ;EP;
  1. S DIC="^ACRSYS("
  1. S DIC(0)="AEMQZ"
  1. S DIC("A")="Report for which AREA: "
  1. W !
  1. D DIC^ACRFDIC
  1. I +Y>0 S ACRADA=+Y
  1. E S ACRQUIT=""
  1. Q