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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 2 KVAR^VADPT  PID^VADPT6  
VA FileMan 2 DD^%DT  ^DIR  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 $$NOW^VALM1  

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 DGBTOA5  

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() ;

External References

Name Field # of Occurrence
DD^%DT EXDATE+1
^DIR HEADR+2
KVAR^VADPT ACCTS+6
PID^VADPT6 GETACT+10
$$NOW^VALM1 HEADR+6
$$FMTE^XLFDT HEADR+7

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
Routine Call
  • DIR
  • Line Location:
    • HEADR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVSN+2
^DGBT(392 - [#392] GETACT+2, GETACT+4, GETACT+5, GETACT+6, GETACT+7
^DPT - [#2] GETACT+11
^TMP("BT" ACCTS+3!, ACCTS+8!, GETACT+11*, REPORT+2, REPORT+4, REPORT+6, REPORT+8, REPORT+9, REPORT+10, REPORT+11
, PRTOUT+2

Label References

Name Line Occurrences
$$DIVSN REPORT+7, REPORT+8
$$EXDATE PRTOUT+4
$$GETACT ACCTS+5
$$HEADR REPORT+5, REPORT+7, PRTOUT+3, NOREP+2
$$PRTOUT REPORT+11
$$SETVAR REPORT+3
HEADRQ HEADR+2
NOREP REPORT+2
NOREPQ NOREP+2
PRTOUTQ PRTOUT+3
REPORT ACCTS+7
SUBS REPORT+7, TOTL+1
TOTL REPORT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTCDE ACCTS+4*, ACCTS+5, ACCTS+8!
ACTNUM GETACT~, GETACT+2, GETACT+11
BTCLAIM GETACT+3~, GETACT+5*, GETACT+8, GETACT+9, GETACT+11, PRTOUT+2*, PRTOUT+4, PRTOUT+5
BTCLAIM("M" GETACT+6*, GETACT+11
BTCLAIM("R" GETACT+7*, GETACT+11
BTFIN REPORT+1~, REPORT+6, REPORT+7*, REPORT+8, REPORT+9, REPORT+10, REPORT+11*, SETVAR+2*
CDATE ACCTS+8!, GETACT+2*, GETACT+4, GETACT+5, GETACT+6, GETACT+7, GETACT+11, REPORT+11*, PRTOUT+2, PRTOUT+4
CDOUT EXDATE~, EXDATE+1
>> COUNT PRTOUT+5*, SUBS+4, SUBS+5, SUBS+6*, SETVAR+2*
CURACT ACCTS+8!, REPORT+4*, REPORT+6*, REPORT+7, REPORT+8, REPORT+9, REPORT+10, REPORT+11, PRTOUT+2, NOREP+1*
, HEADR+8
>> CURID REPORT+10*, REPORT+11, PRTOUT+2, PRTOUT+4
>> CURNAME REPORT+9*, REPORT+10, REPORT+11, PRTOUT+2, PRTOUT+4
>> DEDCT PRTOUT+5*, SUBS+3, SUBS+5, SUBS+6*, SETVAR+2*
>> DFN GETACT+9*, GETACT+11
DGBTBEG ACCTS+8!, HEADR+7
DGBTBG ACCTS+8!, GETACT+2
DGBTEND ACCTS+8!, GETACT+2, HEADR+7
DIR HEADR+2!
DIR(0 HEADR+2*
DIV ACCTS+8!, GETACT+8*, GETACT+11
ERR ACCTS+8!, REPORT+3*, REPORT+7*
IO ACCTS+1
IOF HEADR+2, HEADR+4
IOM HEADR+6
IOSL PRTOUT+3
IOST HEADR+2, HEADR+4
>> MILES PRTOUT+5*, SUBS+3, SUBS+5, SUBS+6*, SETVAR+2*
NDIV REPORT+1~, REPORT+7, REPORT+8*, REPORT+9, REPORT+10, REPORT+11, PRTOUT+2, DIVSN~, DIVSN+1, DIVSN+2
, DIVSN+4
>> PAGE NOREP+1*, HEADR+3*, HEADR+6, SETVAR+2*
>> PAY PRTOUT+5*, SUBS+3, SUBS+5, SUBS+6*, SETVAR+2*
PDIV REPORT+1~, REPORT+7, REPORT+8*, SETVAR+3*
>> PRVACT REPORT+4*, REPORT+7*
QFLAG HEADR+1~*, HEADR+2*, HEADRQ
>> TCOUNT TOTL+4, SUBS+5*, SETVAR+2*
>> TDEDCT TOTL+3, SUBS+5*, SETVAR+2*
>> TMILES TOTL+3, SUBS+5*, SETVAR+2*
>> TPAY TOTL+3, SUBS+5*, SETVAR+2*
U GETACT+8, GETACT+9, GETACT+11, PRTOUT+4, PRTOUT+5
>> VA("PID" GETACT+11
>> VAERR GETACT+10
Y ACCTS+2~, ACCTS+5*, GETACT+1~*, GETACT+12, PRTOUT+1~, PRTOUT+3*, PRTOUTQ, EXDATE+1*, EXDATE+2, HEADR+2
SUBS+1~, SETVAR+1~*, SETVAR+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All