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: DGBTR121

Package: Beneficiary Travel

Routine: DGBTR121


Information

DGBTR121 ;ALB/RFE - SUMMARY REPORT; 05/02/12

Source Information

Source file <DGBTR121.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point
SETPRT ;
MAIN(STARTDT,ENDDT,DGBTDIVN,DGBTDIV) ;
GETRECS ;
GETLINE ;
DIV() ;
GLMILES ;
GLSP ;
PRINT ;
PRTXL ;
HDRMIL ;
HDRSP ;
GRANDMIL ;
GRANDSP ;
DLRAMT(X) ;
QUIT ;

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: EN+16
Function Call: WRITE
  • Prompt: !,"No records found"
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: "DATE ENTERED^DIVISION^ACCT^# CLAIMS^MILEAGE^CC FEE^MOST ECONOMIC^M & L^FERRIES AND BRIDGES^DEDUCTIBLE^AMOUNT PAYABLE"
  • Line Location: PRINT+3
Function Call: READ
  • Formatting: !
  • Prompt: "Please press return to continue or '^' to stop "
  • Variable: PROMPT
  • Timeout: DTIME
  • Line Location: PRINT+13
Function Call: READ
  • Formatting: !
  • Prompt: "Please press return to continue or '^' to stop "
  • Variable: PROMPT
  • Timeout: DTIME
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,"REPORT HAS FINISHED"
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: U,$P(DATALINE,U,I)
  • Line Location: PRTXL+2
Function Call: WRITE
  • Prompt: U,$$DLRAMT($P(DATALINE,U,I))
  • Line Location: PRTXL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRMIL+2
Function Call: WRITE
  • Prompt: "BT SUMMARY REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRMIL+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRMIL+4
Function Call: WRITE
  • Prompt: !,"CLAIM TYPE: MILEAGE"
  • Line Location: HDRMIL+5
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:DGBTDIV)
  • Line Location: HDRMIL+6
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: HDRMIL+7
Function Call: WRITE
  • Prompt: !,"DIVISION",?37,"ENTERED",?50,"ACCT",?55,"CLAIMS",?64,"MILEAGE",?72,"CC FEE",?87,"MOST ECON",?99,"M&L",?112,"F&B"
  • Line Location: HDRMIL+8
Function Call: WRITE
  • Prompt: !,?5,"DED",?18,"PAYABLE"
  • Line Location: HDRMIL+9
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: HDRMIL+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRSP+2
Function Call: WRITE
  • Prompt: "BT SUMMARY REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRSP+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRSP+4
Function Call: WRITE
  • Prompt: !,"CLAIM TYPE: SPECIAL MODE"
  • Line Location: HDRSP+5
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:DGBTDIV)
  • Line Location: HDRSP+6
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: HDRSP+7
Function Call: WRITE
  • Prompt: !,"DIVISION",?37,"ENTERED",?50,"ACCT",?55,"CLAIMS",?64,"MILEAGE",?72,"BASE RATE",?87,"MILEAGE FEE",?99,"NSNL",?111,"WAIT TIME"
  • Line Location: HDRSP+8
Function Call: WRITE
  • Prompt: !,?5,"EXTRA CREW",?17,"SPEC EQ",?29,"INV AMT"
  • Line Location: HDRSP+9
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: HDRSP+10
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: GRANDMIL+2
Function Call: WRITE
  • Prompt: !,?55,"CLAIMS",?64,"MILEAGE",?72,"CC FEE",?87,"MOST ECON",?99,"M&L",?112,"F&B"
  • Line Location: GRANDMIL+3
Function Call: WRITE
  • Prompt: !,?5,"DED",?18,"PAYABLE"
  • Line Location: GRANDMIL+4
Function Call: WRITE
  • Prompt: !,?55,GRAND("CLAIMS"),?64,GRAND("MILEAGE"),?72,$$DLRAMT(GRAND("CC FEE")),?87,$$DLRAMT(GRAND("ECON")),?99,$$DLRAMT(GRAND("M&L"))
  • Line Location: GRANDMIL+5
Function Call: WRITE
  • Prompt: ?112,$$DLRAMT(GRAND("F&B")),!,?5,$$DLRAMT(GRAND("DED")),?18,$$DLRAMT(GRAND("PAY"))
  • Line Location: GRANDMIL+6
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: GRANDMIL+7
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: GRANDSP+2
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS:",?55,GRAND("CLAIMS"),?64,GRAND("MILEAGE"),?72,$$DLRAMT(GRAND("BASE RATE")),?87,$$DLRAMT(GRAND("MILEAGE FEE"))
  • Line Location: GRANDSP+3
Function Call: WRITE
  • Prompt: ?99,$$DLRAMT(GRAND("NSNL")),?111,$$DLRAMT(GRAND("WAIT TIME")),!,?5,$$DLRAMT(GRAND("EXTRA CREW")),?17,$$DLRAMT(GRAND("SPECIAL EQUIPMENT"))
  • Line Location: GRANDSP+4
Function Call: WRITE
  • Prompt: ?29,$$DLRAMT(GRAND("INVOICE AMOUNT"))
  • Line Location: GRANDSP+5
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,122)
  • Line Location: GRANDSP+6

FileMan Files Accessed Via FileMan Db Call

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