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
Print Page as PDF
Routine: DGBTOA6

Package: Beneficiary Travel

Routine: DGBTOA6


Information

DGBTOA6 ;ALB/SCK - DGBT BENE TRAVEL PAYABLE CLAIMS REPORT ; 6/29/93 7/16/93

Source Information

Source file <DGBTOA6.m>

Entry Points

Name Comments DBIA/ICR reference
ACCTS ;
ACCTSQ
GETACT(ACTNUM) ;
REPORT ;
PRTOUT() ;
PRTOUTQ
EXDATE(CDOUT) ;
DIVSN(NDIV) ;
NOREP ;
NOREPQ
HEADR() ;
HEADRQ
TOTL ;
SUBS ;
SETVAR() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(CURNAME,1,21),?23,CURID,?37,$$EXDATE(CDATE),?61,$FN($P(BTCLAIM,U,1),"",2),?70,$FN($P(BTCLAIM,U,2),"",2),?78,$FN($P(BTCLAIM,U,3),"",2),?86,$E($P(BTCLAIM,U,4),1,50)
  • Line Location: PRTOUT+4
Function Call: WRITE
  • Prompt: !!,"Division: ",$P($G(^DG(40.8,NDIV,0)),"^")
  • Line Location: DIVSN+2
Function Call: WRITE
  • Prompt: !,"========="
  • Line Location: DIVSN+3
Function Call: WRITE
  • Prompt: !!,"No data found for accounts 'ALL OTHER' or 'C&P'"
  • Line Location: NOREP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADR+4
Function Call: WRITE
  • Prompt: !,"Payable Claims Report"
  • Line Location: HEADR+5
Function Call: WRITE
  • Prompt: ?(IOM-40),"Report Date: ",$P($$NOW^VALM1,"@"),?(IOM-10),"Page: ",PAGE
  • Line Location: HEADR+6
Function Call: WRITE
  • Prompt: !,"Inclusion Dates: ",$P($$FMTE^XLFDT(DGBTBEG,1),"@")," to ",$P($$FMTE^XLFDT(DGBTEND,1),"@")
  • Line Location: HEADR+7
Function Call: WRITE
  • Prompt: !,"For ACCOUNT TYPE: ",$S(CURACT=4:"ALL OTHER",CURACT=5:"C&P EXAMINATIONS")
  • Line Location: HEADR+8
Function Call: WRITE
  • Prompt: !!?61,"Mileage",?70,"Amount",?78,"Amount"
  • Line Location: HEADR+9
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Patient ID",?37,"Claim DATE/TME",?61,"Amount",?70,"Deduct",?78,"Payable",?86,"Remarks"
  • Line Location: HEADR+10
Function Call: WRITE
  • Prompt: !,"----------------",?23,"------------",?37,"------------------",?61,"------",?70,"------",?78,"-------",?86,"-----------------"
  • Line Location: HEADR+11
Function Call: WRITE
  • Prompt: !!?61,"------",?70,"------",?78,"-------"
  • Line Location: TOTL+2
Function Call: WRITE
  • Prompt: !,"TOTALS",?61,$FN(TMILES,"",2),?70,$FN(TDEDCT,"",2),?78,$FN(TPAY,"",2)
  • Line Location: TOTL+3
Function Call: WRITE
  • Prompt: !,"TOTAL CLAIMS: ",TCOUNT
  • Line Location: TOTL+4
Function Call: WRITE
  • Prompt: !!?61,"------",?70,"------",?78,"-------"
  • Line Location: SUBS+2
Function Call: WRITE
  • Prompt: !,"Subtotals",?61,$FN(MILES,"",2),?70,$FN(DEDCT,"",2),?78,$FN(PAY,"",2)
  • Line Location: SUBS+3
Function Call: WRITE
  • Prompt: !,"Subtotal Count of Claims: ",COUNT
  • Line Location: SUBS+4
Info |  Source |  Entry Points |  Interaction Calls