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

Package: Beneficiary Travel

Routine: DGBTR123


Information

DGBTR123 ;ALB/RFE - CLERK REPORT; 06/04/12

Source Information

Source file <DGBTR123.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point
SETPRT ;
MAIN(SUBS) ;
GETRECS ;
GETLINE ;
DIV() ;
CLERK() ;
GLMILE ;
GLMILEF ; Mileage full
GLMILET ; Mileage total
GLSP ;
GLSPF ; Special mode full
GLSPT ; Special mode total
PRINT ;
PRTXL ;
DLRAMT(X) ;
HDRMT ;
HDRSF ;
HDRST ;
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No records found"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: !,"REPORT HAS FINISHED"
  • Line Location: PRINT+60
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+7
Function Call: WRITE
  • Prompt: U,$P(DATALINE,U,I)
  • Line Location: PRTXL+9
Function Call: WRITE
  • Prompt: U,$$DLRAMT($P(DATALINE,U,I))
  • Line Location: PRTXL+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRMT+2
Function Call: WRITE
  • Prompt: "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRMT+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRMT+4
Function Call: WRITE
  • Prompt: !,"VERSION: TOTAL"
  • Line Location: HDRMT+5
Function Call: WRITE
  • Prompt: !,"TYPE: MILEAGE"
  • Line Location: HDRMT+6
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
  • Line Location: HDRMT+7
Function Call: WRITE
  • Prompt: !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
  • Line Location: HDRMT+8
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,117)
  • Line Location: HDRMT+9
Function Call: WRITE
  • Prompt: !,"DIVISION",?37,"ENTERED",?50,"ACCT",?55,"MILEAGE",?63,"CC FEE",?78,"MOST ECON",?90,"M&L",?103,"F&B"
  • Line Location: HDRMT+10
Function Call: WRITE
  • Prompt: !,?5,"DED",?18,"PAYABLE",?29,"CLERK"
  • Line Location: HDRMT+11
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,117)
  • Line Location: HDRMT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRSF+2
Function Call: WRITE
  • Prompt: "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRSF+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRSF+4
Function Call: WRITE
  • Prompt: !,"VERSION: FULL"
  • Line Location: HDRSF+5
Function Call: WRITE
  • Prompt: !,"TYPE: SPECIAL MODE"
  • Line Location: HDRSF+6
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
  • Line Location: HDRSF+7
Function Call: WRITE
  • Prompt: !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
  • Line Location: HDRSF+8
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,124)
  • Line Location: HDRSF+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?32,"SSN",?43,"CLERK",?78,"CL DT",?92,"ENT DT",?109,"ACCT"
  • Line Location: HDRSF+10
Function Call: WRITE
  • Prompt: !,?5,"DIVISION",?42,"MILEAGE",?50,"BASE RATE",?65,"NSNL",?79,"WAIT TIME",?90,"EX CREW",?102,"SPEC EQ",?116,"INV AMT"
  • Line Location: HDRSF+11
Function Call: WRITE
  • Prompt: !,?5,"REMARKS"
  • Line Location: HDRSF+12
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,124)
  • Line Location: HDRSF+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRST+2
Function Call: WRITE
  • Prompt: "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE
  • Line Location: HDRST+3
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT)
  • Line Location: HDRST+4
Function Call: WRITE
  • Prompt: !,"VERSION: TOTAL"
  • Line Location: HDRST+5
Function Call: WRITE
  • Prompt: !,"TYPE: SPECIAL MODE"
  • Line Location: HDRST+6
Function Call: WRITE
  • Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01))
  • Line Location: HDRST+7
Function Call: WRITE
  • Prompt: !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME)
  • Line Location: HDRST+8
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,127)
  • Line Location: HDRST+9
Function Call: WRITE
  • Prompt: !,"DIVISION",?37,"ENTERED",?50,"ACCT",?55,"MILEAGE",?63,"CLAIMS",?72,"BASE RATE",?87,"NSNL",?102,"WAIT TIME",?117,"EXTRA CREW"
  • Line Location: HDRST+10
Function Call: WRITE
  • Prompt: !,?5,"SPEC EQ",?15,"INV AMT",?25,"CLERK"
  • Line Location: HDRST+11
Function Call: WRITE
  • Prompt: !,$E(EQUAL,1,127)
  • Line Location: HDRST+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^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