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

Package: Integrated Billing

Routine: IBTRHRD


Information

IBTRHRD ;ALB/JWS - CLAIMS TRACKING 278 DISPOSITION REPORT ;21-SEP-2015

Source Information

Source file <IBTRHRD.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;
2 ;
3 ;
4 ;
STAFF ; Staff ( New Person file) filter
PAT ; Patient filter
DEV ; -- select device, run option
DQ
END ; -- Clean up
PRINT ; -- print one billing report from ct
PR ;
PR1 ;
HDR ; -- Print header for billing report
SET ; -- set tmp array
FMDATES(PROMPT) ; ask for date range
FM1 ;
FM2 ;
FMDQ ;
FM1E ;
FM2E ;
ASKSTAFF(FILTERS)
ONE(DIC,IEN)
ASKPAT(FILTERS) ; Sets a list of Patients
; Input: FILTERS - Current Array of filter settings
; Output: FILTERS - Updated Array of filter settings

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"278 Deletion Disposition Report"
  • Line Location: IBTRHRD+20
Function Call: WRITE
  • Prompt: !
  • Line Location: IBTRHRD+34
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+14
Function Call: WRITE
  • Prompt: !
  • Line Location: STAFF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Compiling report data..."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"No 278 Transactions found in date range.",!
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: ?25,$E(Z2,4,5),"/",$E(Z2,6,7),"/",$E(Z2,2,3)
  • Line Location: PR+9
Function Call: WRITE
  • Prompt: !,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$S($E(Z1)=3:20,1:19),$E(Z1,2,3)
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: !,$E(Z2,1,23),?25,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$E(Z1,2,3)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: ?47,$J(+$P(DATA,"^"),3),?69,$J(+$P(DATA,"^",2),3)
  • Line Location: PR+13
Function Call: WRITE
  • Prompt: !?10,"Detail Delete Reason:",?40,"---"
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: !?10,D1,"-",$E(D2,1,25),?41,DDATA
  • Line Location: PR+19
Function Call: WRITE
  • Prompt: !?38,$TR($J(" ",42)," ","-")
  • Line Location: PR+26
Function Call: WRITE
  • Prompt: !," Total"
  • Line Location: PR+27
Function Call: WRITE
  • Prompt: ?46,$J(TOT1,4),?68,$J(TOT2,4)
  • Line Location: PR+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+29
Function Call: WRITE
  • Prompt: !,?25,$TR($J(" ",55)," ","=")
  • Line Location: PR+34
Function Call: WRITE
  • Prompt: !,"Grand Total"
  • Line Location: PR+35
Function Call: WRITE
  • Prompt: ?46,$J(GTOT1,4),?68,$J(GTOT2,4)
  • Line Location: PR+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+37
Function Call: WRITE
  • Prompt: !,?(80-$L("*** END OF REPORT ***")\2),"*** END OF REPORT ***"
  • Line Location: PR1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !," 278 Deletion Disposition Report",?40,IBHDT,?72,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Sort by: ",$S($P(FILTERS(0),"^",6)=1:$S($P(FILTERS(0),"^")=1:"Staff",1:"Patient"),1:"Date")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?30,"Report Timeframe:"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?27,$E(SDT,4,5),"/",$E(SDT,6,7),"/",$S($E(SDT)=3:20,1:19),$E(SDT,2,3)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: " - ",$E(EDT,4,5),"/",$E(EDT,6,7),"/",$S($E(EDT)=3:20,1:19),$E(EDT,2,3)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !?31,$S($P(FILTERS(0),"^",3)=1:"Selected",1:"All")," Staff"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?31,$S($P(FILTERS(0),"^",4)=1:"Selected",1:"All")," Patient(s)"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?31,"Selected Dates"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,$S($P(FILTERS(0),"^")=1:"Staff",$P(FILTERS(0),"^")=2:"Patient",1:"Date")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?27,"Date"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?43,"#278s Submitted",?64,"#Delete Reasons"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","=")
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: SET+14
Function Call: WRITE
  • Prompt: !,"A date must be entered."
  • Line Location: FM1E+1
Function Call: WRITE
  • Prompt: !,"A date must be entered."
  • Line Location: FM2E+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^IBT(356.023 - [#356.023] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call