Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 DD^%DT  (COMMA,NOW)^%DTC  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZISC  $$FMTE^XLFDT  
Beneficiary Travel 1 ($$PAUSE,$$SELEXCEL,$$YESNO,DEVICE,PRINTMSG)^DGBTUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBT SUMMARY REPORT  

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 ;

External References

Name Field # of Occurrence
DD^%DT PRINT+6
COMMA^%DTC DLRAMT+1
NOW^%DTC PRINT+6
^%ZISC SETPRT+8, SETPRT+10
$$PAUSE^DGBTUTL PRINT+30
$$SELEXCEL^DGBTUTL SETPRT+1
$$YESNO^DGBTUTL EN+19
DEVICE^DGBTUTL SETPRT+4
PRINTMSG^DGBTUTL SETPRT+3
CLEAN^DILF EN+3, EN+7, EN+10, EN+14, EN+16, EN+26, QUIT+2
$$GET1^DIQ EN+18, GETLINE+2, GLMILES+1, GLMILES+3, GLMILES+9, GLSP+1, PRINT+19, PRINT+23, PRTXL+1
^DIR EN+6, EN+9, EN+13, EN+22
$$FMTE^XLFDT PRINT+19, PRINT+23, PRTXL+1, HDRMIL+4, HDRSP+4

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
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • EN+9
    • EN+13
    • EN+22

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] EN+16, EN+25
^DGBT(392 - [#392] GETRECS+3, GETRECS+4, GETRECS+6, GETLINE+1, GLMILES+2, GLSP+2
^TMP("DGBTRPS" MAIN+1!, MAIN+3, GETLINE+5, GLMILES+20*, GLSP+20*, PRINT+9, PRINT+10, QUIT+1!

Label References

Name Line Occurrences
$$DIV GETLINE+3
$$DLRAMT PRINT+20, PRINT+21, PRINT+24, PRINT+25, PRTXL+3, GRANDMIL+5, GRANDMIL+6, GRANDSP+3, GRANDSP+4, GRANDSP+5
GETLINE GETRECS+6
GETRECS MAIN+2
GLMILES GETLINE+7
GLSP GETLINE+8
GRANDMIL PRINT+28
GRANDSP PRINT+29
HDRMIL PRINT+7, PRINT+14, GRANDMIL+1
HDRSP PRINT+8, PRINT+17, GRANDSP+1
MAIN SETPRT+9
PRINT MAIN+4
PRTXL PRINT+11
QUIT EN+27, MAIN+3
SETPRT EN+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, PRINT+6
%Y EN+1~
CCFEE EN+1~, GLMILES+3*, GLMILES+8
COLWID SETPRT+3~*
DATALINE EN+1~, GETLINE+5*, GETLINE+6*, GLMILES+6*, GLMILES+8*, GLMILES+10*, GLMILES+12*, GLMILES+14*, GLMILES+16*, GLMILES+18*
, GLMILES+20, GLSP+4*, GLSP+6*, GLSP+8*, GLSP+10*, GLSP+12*, GLSP+14*, GLSP+16*, GLSP+18*, GLSP+20
, PRINT+10*, PRINT+19, PRINT+20, PRINT+21, PRINT+23, PRINT+24, PRINT+25, PRTXL+2, PRTXL+3
DGBTDIV EN+1~, EN+20*, EN+24*, EN+25*, SETPRT+9, MAIN~, PRINT+19, PRINT+23, PRTXL+1, HDRMIL+6
, HDRSP+6
DGBTDIVN EN+1~, EN+19*, EN+20*, EN+24*, EN+25*, SETPRT+9, MAIN~, DIV+1, DIV+2, HDRMIL+6
, HDRSP+6
DGBTEXCEL EN+1~, EN+4*, SETPRT+1*, SETPRT+2, SETPRT+3, PRINT+2, PRINT+7, PRINT+8, PRINT+11, PRINT+26
, PRINT+30, DLRAMT+1
DGBTQ EN+1~, SETPRT+6, PRINT+30*
DIR EN+5!, EN+6!, EN+9!, EN+12!, EN+13!, EN+22!
DIR("A" EN+6*, EN+9*, EN+13*
DIR(0 EN+6*, EN+9*, EN+13*, EN+22*
>> DIROUT EN+7, EN+10
>> DIRUT EN+7, EN+10, EN+14, EN+21, EN+23, EN+26
DTIME PRINT+13, PRINT+16
>> DTOUT EN+14, EN+21, EN+23, EN+26
>> DUOUT EN+14, EN+21, EN+23, EN+26
ENDDT EN+1~, EN+11*, SETPRT+9, MAIN~, GETRECS+4, HDRMIL+4, HDRSP+4
ENTRY EN+1~, GETRECS+3*, GETRECS+4*, GETRECS+6
EQUAL EN+1~, PRINT+5*, HDRMIL+7, HDRMIL+10, HDRSP+7, HDRSP+10, GRANDMIL+2, GRANDMIL+7, GRANDSP+2, GRANDSP+6
GRAND EN+1~
GRAND( GETRECS+1*, GETRECS+2*
GRAND("BASE R ATE" , GLSP+7*, GRANDSP+3
GRAND("CC FEE " , GLMILES+9*, GRANDMIL+5
GRAND("CLAIMS" GLMILES+5*, GLSP+3*, GRANDMIL+5, GRANDSP+3
GRAND("DED" GLMILES+17*, GRANDMIL+6
GRAND("ECON" GLMILES+11*, GRANDMIL+5
GRAND("EXTRA CREW" , GLSP+15*, GRANDSP+4
GRAND("F&B" GLMILES+15*, GRANDMIL+6
GRAND("INVOIC E AMOUNT" , GLSP+19*, GRANDSP+5
GRAND("M&L" GLMILES+13*, GRANDMIL+5
GRAND("MILEAG E FEE" , GLSP+9*, GRANDSP+3
GRAND("MILEAGE" GLMILES+7*, GLSP+5*, GRANDMIL+5, GRANDSP+3
GRAND("NSNL" GLSP+11*, GRANDSP+4
GRAND("PAY" GLMILES+19*, GRANDMIL+6
GRAND("SPECIA L EQUIPMENT" , GLSP+17*, GRANDSP+4
GRAND("WAIT T IME" , GLSP+13*, GRANDSP+4
I EN+1~, GETRECS+1*, GETRECS+2*, GETRECS+5*, GETRECS+6*, GETLINE+1, GETLINE+2, GLMILES+1, GLMILES+2, GLMILES+3
, GLMILES+9, GLSP+1, GLSP+2, PRTXL+2*, PRTXL+3*
IO SETPRT+11, PRINT+1
IO("Q" SETPRT+8
IOF HDRMIL+2, HDRSP+2
IOSL PRINT+12, PRINT+13, PRINT+15, PRINT+16, PRINT+27, GRANDMIL+1, GRANDSP+1
IOST PRINT+13, PRINT+16, PRINT+30, PRINT+31
LINEM EN+1~, GLMILES+2*, GLMILES+6, GLMILES+7, GLMILES+12, GLMILES+13, GLMILES+14, GLMILES+15
LINESP EN+1~, GLSP+2*, GLSP+4, GLSP+5, GLSP+6, GLSP+7, GLSP+8, GLSP+9, GLSP+10, GLSP+11
, GLSP+12, GLSP+13, GLSP+14, GLSP+15, GLSP+16, GLSP+17, GLSP+18, GLSP+19
LINEZERO EN+1~, GETLINE+1*, GETLINE+4, DIV+2, GLMILES+10, GLMILES+11, GLMILES+16, GLMILES+17, GLMILES+18, GLMILES+19
PAGE EN+1~, PRINT+5*, HDRMIL+1*, HDRMIL+3, HDRSP+1*, HDRSP+3
PDT EN+1~, PRINT+6*, HDRMIL+3, HDRSP+3
POP EN+1~
PROMPT EN+1~, PRINT+5*, PRINT+9, PRINT+12, PRINT+13*, PRINT+15, PRINT+16*
SQ EN+1~, GETLINE+4*, GETLINE+5, GLMILES+20, GLSP+20, PRINT+5*, PRINT+9*, PRINT+10, PRINT+19, PRINT+23
, PRTXL+1
STARTDT EN+1~, EN+8*, EN+9, SETPRT+9, MAIN~, GETRECS+3, HDRMIL+4, HDRSP+4
TYPE EN+1~, EN+15*, GETRECS+1, GETRECS+2, GETLINE+7, GETLINE+8, PRINT+3, PRINT+7, PRINT+8, PRINT+12
, PRINT+15, PRINT+18, PRINT+22, PRINT+28, PRINT+29
U EN+24, EN+25, GETLINE+4, GETLINE+6, DIV+2, GLMILES+6, GLMILES+7, GLMILES+8, GLMILES+10, GLMILES+11
, GLMILES+12, GLMILES+13, GLMILES+14, GLMILES+15, GLMILES+16, GLMILES+17, GLMILES+18, GLMILES+19, GLSP+4, GLSP+5
, GLSP+6, GLSP+7, GLSP+8, GLSP+9, GLSP+10, GLSP+11, GLSP+12, GLSP+13, GLSP+14, GLSP+15
, GLSP+16, GLSP+17, GLSP+18, GLSP+19, PRINT+19, PRINT+20, PRINT+21, PRINT+23, PRINT+24, PRINT+25
, PRTXL+1, PRTXL+2, PRTXL+3
X EN+1~, EN+16*, DLRAMT~, DLRAMT+1, DLRAMT+2
X2 EN+1~, EN+4*
Y EN+1~, EN+8, EN+11, EN+15, EN+24, PRINT+6*, PRINT+30*
ZTQUEUED EN+2~, SETPRT+8, SETPRT+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All