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 |  Naked Globals |  Local Variables |  All
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>

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

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBT FISCAL REPORT  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT PRINT+7
COMMA^%DTC DLRAMT+1
NOW^%DTC PRINT+7
^%ZISC MAIN+16
$$PAUSE^DGBTUTL PRINT+16
$$SELEXCEL^DGBTUTL MAIN+8
$$YESNO^DGBTUTL DIVISN+4
DEVICE^DGBTUTL MAIN+11
PRINTMSG^DGBTUTL MAIN+10
CLEAN^DILF EN+5, DIVISN+11, QUIT+2
$$GET1^DIQ GETRECS+3, GETRECS+8, GETRECS+9, GETRECS+10, GETRECS+14, REC+2, REC+3, REC+14, REC+17, REC+23
, REC+24, REC+25, REC+31, REC+32, REC+33, REC+37, REC+38, REC+39, REC+64, REC+65
, REC+67, REC+68, FAC+2, TOTMONTH+9, TOTMONTH+10, TOTMONTH+12, TOTMONTH+13, INSTIT+1
^DIR DIVISN+7, MAIN+2, MAIN+5, PRT+9
$$FMTE^XLFDT REC+61, HDR+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: 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
Routine Call
  • DIR
  • Line Location:
    • DIVISN+7
    • MAIN+2
    • MAIN+5
    • PRT+9

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVISN+1, DIVISN+13
^DG(43 - [#43] DIVISN+3
^DG(43.1 - [#43.1] MASLIN+2, MASLIN+3, MASLIN+5
^DGBT(392 - [#392] GETRECS+11, GETRECS+12, GETRECS+14, REC+8, REC+28, REC+34, REC+40, REC+66, TOTMONTH+4, TOTMONTH+5
, TOTMONTH+7
^DIC(4 - [#4] GETRECS+4, REC+4
^DPT - [#2] REC+10, REC+18
^TMP("DGBTVRPT" EN+4!, MAIN1+1!, MAIN1+4, PRINT+11, PRINT+12, PRINT+13!, QUIT+1!, REC+12, REC+88*, PRT+1

Label References

Name Line Occurrences
$$DLRAMT REC+45, REC+48, REC+51, REC+53, REC+56, REC+58, REC+60, REC+69, REC+71, REC+75
, GTOT+4, GTOT+5, GTOT+6
$$FAC GETRECS+14, TOTMONTH+6
$$MASLIN REC+19
GETRECS MAIN1+2
GTOT PRINT+15
HDR PRINT+9, PRT+10
INSTIT DIVISN+10, DIVISN+13
MAIN DIVISN+3, DIVISN+15
MAIN1 MAIN+15
PRINT MAIN1+5
PRT PRINT+12
QUIT DIVISN+3, DIVISN+16
REC GETRECS+14
TOTMONTH REC+72

Naked Globals

Name Field # of Occurrence
^("GL" DIVISN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, PRINT+7
%Y EN+1~
ACCOUNT EN+1~, REC+67*, REC+68
ADDRLIN EN+1~, REC+18*, REC+20, REC+21, REC+22
ALLOW EN+1~, REC+44*, REC+45, REC+46, REC+53, REC+54
CCFEE EN+1~, REC+14*, REC+69, REC+70
COLWID MAIN+10~*
DED EN+1~, REC+75, REC+78, TOTMONTH+3*, TOTMONTH+12*
DEPARTLIN EN+1~, REC+28*, REC+29, REC+30
DESTLIN EN+1~, REC+34*, REC+35, REC+36
DFN EN+1~, REC+9*, REC+10, REC+17, REC+18, REC+23, REC+25, TOTMONTH+4, TOTMONTH+5
DGBTDIV EN+1~, DIVISN+5*, MAIN+15, MAIN1~, GETRECS+3, GETRECS+4, GETRECS+8, GETRECS+10, REC+2*, REC+3
, REC+4, INSTIT+1*
DGBTDIVI EN+1~, DIVISN+5*, DIVISN+9*, DIVISN+13*, MAIN+15, MAIN1~, REC+2*, HDR+5
DGBTDIVN EN+1~, DIVISN+4*, DIVISN+5*, DIVISN+9*, DIVISN+13*, MAIN+15, MAIN1~, GETRECS+2, REC+1, FAC+1
, FAC+2, INSTIT+1, HDR+5
DGBTEXCEL EN+1~, MAIN+8*, MAIN+9, MAIN+10, MAIN+11, MAIN+15, MAIN1~, PRINT+2, PRINT+9, PRINT+14
, PRINT+15, PRINT+16, REC+62, PRT+2, PRT+6, DLRAMT+1
DGBTQ EN+1~, MAIN+12
DIR DIVISN+7!, MAIN+1!, MAIN+2!, MAIN+5!, PRT+8!, PRT+9!
DIR("A" MAIN+2*, MAIN+5*, PRT+9*
DIR(0 DIVISN+7*, MAIN+2*, MAIN+5*, PRT+9*
>> DIROUT MAIN+3, MAIN+6, MAIN1+3
>> DIRUT DIVISN+6, DIVISN+8, DIVISN+11, MAIN+3, MAIN+6, MAIN1+3
>> DTOUT DIVISN+6, DIVISN+8, DIVISN+11
DTRAY TOTMONTH+1~
DTRAY( TOTMONTH+8, TOTMONTH+11*
>> DUOUT DIVISN+6, DIVISN+8, DIVISN+11
ECON EN+1~, REC+55*, REC+56, REC+57, REC+58, REC+59
ENDDT EN+1~, MAIN+7*, MAIN+15, MAIN1~, GETRECS+12, HDR+4
ENTRY EN+1~, GETRECS+11*, GETRECS+12*, GETRECS+14
EQUAL EN+1~, PRINT+6*, HDR+6, HDR+17, GTOT+1, GTOT+7
ERR EN+1~, DIVISN+3, DIVISN+14, MAIN1+3, REC+72
FACLIN EN+1~, GETRECS+4*, GETRECS+5, GETRECS+6, GETRECS+7, REC+4*, REC+5, REC+6, REC+7
FERRIES EN+1~, REC+50*, REC+51, REC+52, REC+53, REC+54
FIRSTPAGE EN+2~, PRINT+8*, PRT+6, PRT+11*
GRAND EN+2~
GRAND( GETRECS+1*
GRAND("1W" REC+76*, GTOT+5
GRAND("ALLOW TOT" , REC+54*, GTOT+4
GRAND("ALLOW" REC+46*, GTOT+4
GRAND("CC FEE " , REC+70*, GTOT+6
GRAND("CLAIMS" REC+13*, GTOT+4
GRAND("DED" REC+78*, GTOT+6
GRAND("ECON T OT" , REC+59*, GTOT+5
GRAND("ECON" REC+57*, GTOT+5
GRAND("F&B" REC+52*, GTOT+4
GRAND("M&L" REC+49*, GTOT+4
GRAND("MILES" REC+42*, GTOT+4
GRAND("PAYABLE" REC+61*, GTOT+5
GRAND("RT" REC+77*, GTOT+5
I EN+2~, GETRECS+1*, GETRECS+13*, GETRECS+14*, REC+2, REC+8, REC+11, REC+14, REC+28, REC+31
, REC+33, REC+34, REC+37, REC+39, REC+40, REC+61, REC+64, REC+65, REC+66, REC+67
, MASLIN+2, MASLIN+3, TOTMONTH+4, TOTMONTH+5
II EN+2~, REC+20*, REC+21*, REC+29*, REC+35*, TOTMONTH+2*, TOTMONTH+4*, TOTMONTH+5*, TOTMONTH+6, TOTMONTH+7
, TOTMONTH+8, TOTMONTH+9, TOTMONTH+10, TOTMONTH+11, TOTMONTH+12, TOTMONTH+13
IO MAIN+17, PRINT+1
IOF HDR+2
IOSL PRT+6, PRT+7
IOST PRINT+16, PRINT+17, PRT+7
J FAC~, FAC+2
LINEZERO EN+2~, REC+8*, REC+9, REC+55, REC+60, REC+61, REC+71
MASDATE EN+2~, MASLIN+3*
MASLIN EN+2~, REC+19*, REC+27, REC+43
MASRATE EN+2~, MASLIN+1*, MASLIN+2*, MASLIN+3*, MASLIN+4, MASLIN+5
MEALS EN+2~, REC+47*, REC+48, REC+49, REC+53, REC+54, REC+58, REC+59
MILES EN+2~, REC+40*, REC+41, REC+47, REC+50
MILESRATE EN+2~, REC+43*, REC+44
MILESTRAV EN+2~, REC+41*, REC+42, REC+44
PAGE EN+2~, PRINT+6*, HDR+1*, HDR+3
PATSTATE EN+2~, GETRECS+8*, GETRECS+9, REC+23*, REC+24, REC+31*, REC+32, REC+37*, REC+38
PATZERO EN+2~, REC+10*, REC+11, REC+15, REC+16, REC+26
PDT EN+2~, PRINT+7*, HDR+3
POP EN+2~
PROMPT PRINT+5~, PRINT+6*, PRINT+11, PRINT+12, PRINT+14, PRT+6, PRT+7, PRT+9*
RAY EN+2~
RAY("ACC DED" , REC+71*, REC+87
RAY("ACCOUNT" REC+68*, REC+86
RAY("CERT OFF ICIAL" , REC+65*, REC+85
RAY("CLAIM DA TE" , REC+61*, REC+62*, REC+85
RAY("COMMON C ARRIER FEE" , REC+69*, REC+86
RAY("DEDUCTIBLE" REC+75*, REC+87
RAY("DEPARTUR E " , REC+29*, E 1" , REC+81, E 2" , REC+81, E 3" , REC+82, E CITY" , REC+30*
, REC+82, E STATE" , REC+32*, REC+82, E ZIP" , REC+33*, REC+82
RAY("DESTINAT ION " , REC+35*, ION 1" , REC+82, ION 2" , REC+83, ION 3" , REC+83, ION CITY" , REC+36*
, REC+83, ION STATE" , REC+38*, REC+83, ION ZIP" , REC+39*, REC+83
RAY("ECONOMICAL" REC+56*, REC+85
RAY("FACILITY ADDR 1" , GETRECS+5*, REC+5*, REC+80,  ADDR 2" , GETRECS+6*, REC+6*, REC+80,  CITY" , GETRECS+7*
, REC+7*, REC+80,  NAME" , GETRECS+3*, REC+3*, REC+11, REC+80,  STATE" , GETRECS+9*, REC+81
,  ZIP" , GETRECS+10*, REC+81
RAY("FERRIES" REC+51*, REC+84
RAY("FISCAL S YMBOL" , REC+27*, REC+81
RAY("MEALS LO DGING" , REC+48*, REC+84
RAY("MILEAGE ALLOWANCE" , REC+45*, REC+84, TOTAL" , REC+53*, REC+85
RAY("MILES RA TE" , REC+43*, REC+84
RAY("MILES TR AVELED" , REC+41*, REC+84
RAY("NAME" REC+15*, REC+79
RAY("ONE WAY" , REC+73*, REC+86
RAY("PAT ADDR " , REC+21*,  1" , REC+79,  2" , REC+79,  3" , REC+79
RAY("PAT CITY " , REC+22*, REC+79
RAY("PAT STAT E" , REC+24*, REC+79
RAY("PAT ZIP" , REC+25*, REC+79
RAY("PAYABLE" REC+60*, REC+85
RAY("PAYEE SI GNATURE" , REC+63*
RAY("REMARKS" REC+66*, REC+86
RAY("ROUND TR IP" , REC+74*, REC+86
RAY("SOCIAL S ECURITY" , REC+26*, REC+80
RAY("TRANS TO TAL" , REC+58*, REC+85
RAY("VOUCHER DATE" , REC+64*, REC+86
SQ1 EN+2~, PRINT+10*, PRINT+11*, PRINT+12, REC+11*, REC+12, REC+88, PRT+1
SQ2 EN+2~, PRINT+11*, PRINT+12*, REC+12*, REC+88, PRT+1
STARTDT EN+2~, MAIN+4*, MAIN+5, MAIN+15, MAIN1~, GETRECS+11, HDR+4
TMPADD EN+2~, REC+17*, REC+18, REC+23, REC+25
TRIPS EN+2~
TRIPS( TOTMONTH+2*, TOTMONTH+14*
TRIPS(1 REC+73, REC+76
TRIPS(2 REC+74, REC+77
TRIPTYP EN+3~, TOTMONTH+13*, TOTMONTH+14
U DIVISN+3, DIVISN+9, DIVISN+13, REC+60, REC+61, REC+71, REC+87, PRT+3, PRT+4, PRT+5
, PRT+6, PRT+7, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+18, PRT+19
, PRT+20, PRT+21, PRT+22, PRT+23
WRTLIN EN+3~, REC+16*, REC+20*, REC+79*, REC+80*, REC+81*, REC+82*, REC+83*, REC+84*, REC+85*
, REC+86*, REC+87*, REC+88, PRT+1*, PRT+3, PRT+4, PRT+5, PRT+12, PRT+13, PRT+14
, PRT+15, PRT+16, PRT+17, PRT+18, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23
X EN+3~, DIVISN+1*, DLRAMT~, DLRAMT+1, DLRAMT+2
X2 EN+3~, EN+6*
X3 EN+3~
Y EN+3~, DIVISN+3, DIVISN+9, MAIN+4, MAIN+7, PRINT+7*, PRINT+16*, PRT+9
ZTQUEUED EN+3~, MAIN+16
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 |  Naked Globals |  Local Variables |  All