Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGBTR17

Package: Beneficiary Travel

Routine: DGBTR17


Information

DGBTR17 ;ALB/RFE - VOUCHER REPORT; 03/14/12

Source Information

Source file <DGBTR17.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
DIVISN ; if MED CTR DIV file set up (first record) and record does not exist, write warning and exit
MAIN ;
MAIN1(DGBTEXCEL,STARTDT,ENDDT,DGBTDIVI,DGBTDIVN,DGBTDIV) ;
PRINT ;
GETRECS ;
QUIT ;
REC ;
FAC(J) ;
MASLIN() ;
TOTMONTH ;
INSTIT ; check for pointer to institution file and for address information on institution
PRT ;
HDR ;
GTOT ;
DLRAMT(X) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!,"USE THE ADT PARAMETER OPTION FILE TO SET UP DIVISION"
  • Line Location: DIVISN+1
Function Call: WRITE
  • Prompt: !,"NO VOUCHERS FOUND"
  • Line Location: MAIN1+4
Function Call: WRITE
  • Prompt: !,"REPORT HAS FINISHED"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,$P(WRTLIN,U),?32,$P(WRTLIN,U,8),?45,$P(WRTLIN,U,37),?67,$P(WRTLIN,U,40),?81,$P(WRTLIN,U,38),?118,$P(WRTLIN,U,42)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,2)," ",$P(WRTLIN,U,3)," ",$P(WRTLIN,U,4)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,5),?22,$P(WRTLIN,U,6),?26,$P(WRTLIN,U,7),?38,$P(WRTLIN,U,9)," ",$P(WRTLIN,U,10)
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,11)," ",$P(WRTLIN,U,12)," ",$P(WRTLIN,U,13)," ",$P(WRTLIN,U,14)," ",$P(WRTLIN,U,15)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,12)," ",$P(WRTLIN,U,13)," ",$P(WRTLIN,U,14)," ",$P(WRTLIN,U,15)
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,16)," ",$P(WRTLIN,U,17)," ",$P(WRTLIN,U,18)
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,19)," ",$P(WRTLIN,U,20)," ",$P(WRTLIN,U,21)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,22)," ",$P(WRTLIN,U,23)," ",$P(WRTLIN,U,24)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,25)," ",$P(WRTLIN,U,26)," ",$P(WRTLIN,U,27)
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,28),?11,$P(WRTLIN,U,29),?18,$P(WRTLIN,U,30),?30,$P(WRTLIN,U,31),?42,$P(WRTLIN,U,32),?54,$P(WRTLIN,U,33),?67,$P(WRTLIN,U,34)
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?79,$P(WRTLIN,U,35),?90,$P(WRTLIN,U,36),?102,$P(WRTLIN,U,44),?106,$P(WRTLIN,U,45),?110,$P(WRTLIN,U,46),?121,$P(WRTLIN,U,43)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: !,?5,$P(WRTLIN,U,41),?87,$P(WRTLIN,U,15)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "BT ELECTRONIC VOUCHER REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:DGBTDIVI)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,127)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"NAME",?32,"SSN",?45,"CLAIM DATE",?67,"ENTRY DATE",?81,"CLERK",?118,"ACCT"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?5,"ADDRESS"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?5,"CITY",?22,"ST",?26,"ZIP",?38,"FACILITY"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?5,"FACILITY ADDRESS"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?5,"DEPARTURE"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,?5,"DEPARTURE"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,?5,"DESTINATION"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,?5,"DESTINATION"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,?5,"MILES",?11,"RATE",?18,"ALLOW",?30,"M&L",?42,"F&B",?54,"TOTAL",?67,"ECON",?79,"TOTAL",?90,"PAYABLE",?102,"1W",?106,"RT",?110,"DED",?121,"CC FEE"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,?5,"REMARKS",?87,"FISCAL SYMBOLS"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,127)
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,127)
  • Line Location: GTOT+1
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS"
  • Line Location: GTOT+2
Function Call: WRITE
  • Prompt: !,"MILES",?7,"CLMS",?14,"ALLOW",?26,"M&L",?38,"F&B",?50,"TOTAL",?63,"ECON",?75,"TOTAL",?86,"PAYABLE",?98,"1W",?102,"RT",?106,"DED",?117,"CC FEE"
  • Line Location: GTOT+3
Function Call: WRITE
  • Prompt: !,GRAND("MILES"),?7,GRAND("CLAIMS"),?14,$$DLRAMT(GRAND("ALLOW")),?26,$$DLRAMT(GRAND("M&L")),?38,$$DLRAMT(GRAND("F&B")),?50,$$DLRAMT(GRAND("ALLOW TOT"))
  • Line Location: GTOT+4
Function Call: WRITE
  • Prompt: ?63,$$DLRAMT(GRAND("ECON")),?75,$$DLRAMT(GRAND("ECON TOT")),?86,$$DLRAMT(GRAND("PAYABLE")),?98,GRAND("1W"),?102,GRAND("RT")
  • Line Location: GTOT+5
Function Call: WRITE
  • Prompt: ?106,$$DLRAMT(GRAND("DED")),?117,$$DLRAMT(GRAND("CC FEE"))
  • Line Location: GTOT+6
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,127)
  • Line Location: GTOT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGBT(392 - [#392] GET1^DIQ
^DGBT(392.3 - [#392.3] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call