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

Package: E Claims Management Engine

Routine: BPSNTR01


Information

BPSNTR01 ; AITC/MRD - NTR-Related Reports; JAN 09, 2020@08:23

Source Information

Source file <BPSNTR01.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE ;
QUIT ;
HEADER ;
TALLY ;
COUNT(BPSIEN57,BPSSUBMIT,BPSTOTALS) ; Add one transaction to the totals.
DISPLAY(BPSYRMO,BPSTOTALS) ; Write the results for one month.
TYPE(BPSIEN57) ; Determine the type of this transaction.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will display a line for each transaction"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"in the month* specified. The earliest month possible is"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"January, 2004."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !," Note: The transactions will be displayed according to"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !," the date last updated, not the date submitted."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"Please try again",*7,!
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !,"Please try again",*7,!
  • Line Location: DATE+10
Function Call: WRITE
  • Prompt: !,"Please try again",*7,!
  • Line Location: DATE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+13
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(9002313.57,BPSIEN57,1.11,"E")
  • Line Location: DATE+33
Function Call: WRITE
  • Prompt: "/",$$GET1^DIQ(9002313.57,BPSIEN57,9,"E")
  • Line Location: DATE+34
Function Call: WRITE
  • Prompt: ?11,$$FMTE^XLFDT(BPSDATE,"2D")
  • Line Location: DATE+36
Function Call: WRITE
  • Prompt: ?20,$$FMTE^XLFDT(BPSDATESUB,"2D")
  • Line Location: DATE+38
Function Call: WRITE
  • Prompt: ?29,$$GET1^DIQ(9002313.57,BPSIEN57,1201)
  • Line Location: DATE+40
Function Call: WRITE
  • Prompt: ?34,$S(BPSTOUCH:"Manual",1:"No-Touch")
  • Line Location: DATE+43
Function Call: WRITE
  • Prompt: ?43,$E(BPSTYPE,1,10)
  • Line Location: DATE+46
Function Call: WRITE
  • Prompt: ?54,$E($$GET1^DIQ(9002313.57,BPSIEN57,5,"E"),1,15)
  • Line Location: DATE+48
Function Call: WRITE
  • Prompt: ?71,BPSIEN57
  • Line Location: DATE+50
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+63
Function Call: WRITE
  • Prompt: !,"Rx#/Fill",?10,"Last Updt",?20,"SubmitDt",?29,"Actn",?34,"Touched?"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?44,"Type",?54,"Patient",?64,"Transaction IEN"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"This report will display counts of transactions for"
  • Line Location: TALLY+9
Function Call: WRITE
  • Prompt: !,"each month in fiscal year specified, with sub-totals"
  • Line Location: TALLY+10
Function Call: WRITE
  • Prompt: !,"by transaction type and by no-touch vs manual."
  • Line Location: TALLY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: TALLY+12
Function Call: WRITE
  • Prompt: !
  • Line Location: TALLY+64
Function Call: WRITE
  • Prompt: !!,$E(BPSYRMO,1,3)+1700,"/",$E(BPSYRMO,4,5)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: ?11,"Payable",?20,"Rejected",?30,"Duplicate",?41,"Captured",?51,"Reversal",?61,"Unstranded",?73,"Total"
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !," Manual"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: ?11,$J(+$G(BPSTOTALS(BPSYRMO,1,"Payable","Manual")),7)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: ?20,$J(+$G(BPSTOTALS(BPSYRMO,1,"Rejected","Manual")),8)
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: ?30,$J(+$G(BPSTOTALS(BPSYRMO,1,"Duplicate","Manual")),9)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: ?41,$J(+$G(BPSTOTALS(BPSYRMO,1,"Captured","Manual")),8)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: ?51,$J(+$G(BPSTOTALS(BPSYRMO,1,"Reversal","Manual")),8)
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: ?61,$J(+$G(BPSTOTALS(BPSYRMO,1,"Unstranded","Manual")),10)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: ?73,$J(+$G(BPSTOTALS(BPSYRMO,2,"Manual")),5)
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !,"No-Touch"
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: ?11,$J(+$G(BPSTOTALS(BPSYRMO,1,"Payable","No-Touch")),7)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: ?20,$J(+$G(BPSTOTALS(BPSYRMO,1,"Rejected","No-Touch")),8)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: ?30,$J(+$G(BPSTOTALS(BPSYRMO,1,"Duplicate","No-Touch")),9)
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: ?41,$J(+$G(BPSTOTALS(BPSYRMO,1,"Captured","No-Touch")),8)
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: ?51,$J(+$G(BPSTOTALS(BPSYRMO,1,"Reversal","No-Touch")),8)
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: ?61,$J(+$G(BPSTOTALS(BPSYRMO,1,"Unstranded","No-Touch")),10)
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: ?73,$J(+$G(BPSTOTALS(BPSYRMO,2,"No-Touch")),5)
  • Line Location: DISPLAY+21
Function Call: WRITE
  • Prompt: !," Totals"
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: ?11,$J(+$G(BPSTOTALS(BPSYRMO,1,"Payable")),7)
  • Line Location: DISPLAY+24
Function Call: WRITE
  • Prompt: ?20,$J(+$G(BPSTOTALS(BPSYRMO,1,"Rejected")),8)
  • Line Location: DISPLAY+25
Function Call: WRITE
  • Prompt: ?30,$J(+$G(BPSTOTALS(BPSYRMO,1,"Duplicate")),9)
  • Line Location: DISPLAY+26
Function Call: WRITE
  • Prompt: ?41,$J(+$G(BPSTOTALS(BPSYRMO,1,"Captured")),8)
  • Line Location: DISPLAY+27
Function Call: WRITE
  • Prompt: ?51,$J(+$G(BPSTOTALS(BPSYRMO,1,"Reversal")),8)
  • Line Location: DISPLAY+28
Function Call: WRITE
  • Prompt: ?61,$J(+$G(BPSTOTALS(BPSYRMO,1,"Unstranded")),10)
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: ?73,$J(+$G(BPSTOTALS(BPSYRMO)),5)
  • Line Location: DISPLAY+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSTL - [#9002313.57] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call