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

Package: Beneficiary Travel

Routine: DGBTR125


Information

DGBTR125 ;ALB/RFE - SPECIAL MODE REPORT; 06/22/12

Source Information

Source file <DGBTR125.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point
SETPRT ;
MAIN(DGBTEXC,STARTDT,ENDDT,DGBTDIVN,SNAME,ENAME,REPTYPE) ;
GETRECS ;
GETLINE ;
DIV() ;
GLFULL ; Special mode full
GLTOTAL ; Special mode total
PRINT ;
PRTXL ;
PRTFUL ;
PRTTOT ;
HDRFUL ;
HDRTOT ;
GRANDFUL ;
GRANDTOT ;
DLRAMT(X) ;
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"START NAME CANNOT FOLLOW END NAME"
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !,"No records found"
  • Line Location: MAIN+3
Function Call: READ
  • Formatting: !
  • Prompt: "Please press ENTER to continue or '^' to stop "
  • Variable: PROMPT
  • Timeout: DTIME
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,"REPORT HAS FINISHED"
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($P(SQ1,U)),U,DATALINE
  • Line Location: PRTXL+2
Function Call: WRITE
  • Prompt: $P(DATALINE,U,I),U
  • Line Location: PRTXL+4
Function Call: WRITE
  • Prompt: !,$P(DATALINE,U),?32,$P(DATALINE,U,2),?52,$P(DATALINE,U,3),?84,$P(DATALINE,U,4),?116,$P(DATALINE,U,5)
  • Line Location: PRTFUL+1
Function Call: WRITE
  • Prompt: !,?5,$P(DATALINE,U,6),?17,$P(DATALINE,U,7),?27,$P(DATALINE,U,8),?42,$P(DATALINE,U,9),?52,$P(DATALINE,U,10),?63,$P(DATALINE,U,11)
  • Line Location: PRTFUL+2
Function Call: WRITE
  • Prompt: ?73,$P(DATALINE,U,12),?83,$P(DATALINE,U,13),?94,$P(DATALINE,U,14),?105,$$FMTE^XLFDT(SQ1)
  • Line Location: PRTFUL+3
Function Call: WRITE
  • Prompt: !,?5,$P(DATALINE,U,15),?37,$P(DATALINE,U,16),?75,$P(DATALINE,U,17)
  • Line Location: PRTFUL+4
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(40.8,$P(SQ1,U),.01),?37,$P(DATALINE,U),?43,$P(DATALINE,U,2),?51,$P(DATALINE,U,3),?59,$$DLRAMT($P(DATALINE,U,4))
  • Line Location: PRTTOT+1
Function Call: WRITE
  • Prompt: ?74,$$DLRAMT($P(DATALINE,U,5)),?90,$P(SQ1,U,2)
  • Line Location: PRTTOT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRFUL+2
Function Call: WRITE
  • Prompt: "BT SPECIAL MODE FULL REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRFUL+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRFUL+4
Function Call: WRITE
  • Prompt: !,"FIRST VETERAN NAME: ",SNAME
  • Line Location: HDRFUL+5
Function Call: WRITE
  • Prompt: !,"LAST VETERAN NAME: ",ENAME
  • Line Location: HDRFUL+6
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
  • Line Location: HDRFUL+7
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,128)
  • Line Location: HDRFUL+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?32,"CLAIM DATE",?52,"MODE",?84,"INV #",?116,"INVOICE DATE"
  • Line Location: HDRFUL+9
Function Call: WRITE
  • Prompt: !?5,"DIVISION",?37,"VENDOR",?75,"STATUS"
  • Line Location: HDRFUL+11
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,128)
  • Line Location: HDRFUL+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRTOT+2
Function Call: WRITE
  • Prompt: "BT SPECIAL MODE TOTAL REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRTOT+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRTOT+4
Function Call: WRITE
  • Prompt: !,"FIRST VETERAN NAME: ",SNAME
  • Line Location: HDRTOT+5
Function Call: WRITE
  • Prompt: !,"LAST VETERAN NAME: ",ENAME
  • Line Location: HDRTOT+6
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
  • Line Location: HDRTOT+7
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,126)
  • Line Location: HDRTOT+8
Function Call: WRITE
  • Prompt: !,"DIVISION",?37,"PAID",?43,"DENIED",?51,"CLAIMS",?59,"NSNL",?74,"INV PAID",?90,"MODE"
  • Line Location: HDRTOT+9
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,126)
  • Line Location: HDRTOT+10
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,128)
  • Line Location: GRANDFUL+9
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS:",?17,"MILES",?27,"BASE RATE",?42,"MILEAGE",?52,"NSNL",?63,"WAIT FEE",?73,"EXT CREW",?83,"SPEC EQ",?94,"INV AMT",?105,"CLAIMS"
  • Line Location: GRANDFUL+10
Function Call: WRITE
  • Prompt: !,?17,GRAND("MILE"),?27,$$DLRAMT(GRAND("BASE RATE")),?42,$$DLRAMT(GRAND("MILEAGE FEE")),?52,$$DLRAMT(GRAND("NSNL"))
  • Line Location: GRANDFUL+11
Function Call: WRITE
  • Prompt: ?63,$$DLRAMT(GRAND("WAIT TIME")),?73,$$DLRAMT(GRAND("EXTRA CREW")),?83,$$DLRAMT(GRAND("SPECIAL EQUIPMENT"))
  • Line Location: GRANDFUL+12
Function Call: WRITE
  • Prompt: ?94,$$DLRAMT(GRAND("INVOICE AMT")),?105,GRAND("CLAIMS")
  • Line Location: GRANDFUL+13
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,128)
  • Line Location: GRANDFUL+14
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,126)
  • Line Location: GRANDTOT+9
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS:",?37,"PAID",?43,"DENIED",?51,"CLAIMS",?59,"NSNL",?74,"INV PAID"
  • Line Location: GRANDTOT+10
Function Call: WRITE
  • Prompt: !,?37,GRAND("PAID"),?43,GRAND("DENIED"),?51,GRAND("CLAIMS"),?59,$$DLRAMT(GRAND("NSNL")),?74,$$DLRAMT(GRAND("PAID AMT"))
  • Line Location: GRANDTOT+11
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,126)
  • Line Location: GRANDTOT+12

FileMan Files Accessed Via FileMan Db Call

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