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

Package: Integrated Billing

Routine: IBTRHRC


Information

IBTRHRC ;ALB/JWS - CLAIMS TRACKING 278 CERTIFICATION REPORT ;24-AUG-2015

Source Information

Source file <IBTRHRC.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;
2 ;
3 ;
4 ;
PAY ; Payer filter
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 ;
ASKPAY(FILTERS)
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 Certification Report"
  • Line Location: IBTRHRC+24
Function Call: WRITE
  • Prompt: !
  • Line Location: IBTRHRC+40
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: STAFF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+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: ?30,$E(Z2,4,5),"/",$E(Z2,6,7),"/",$S($E(Z2)=3:20,1:19),$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: !,Z2,?30,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$S($E(Z1)=3:20,1:19),$E(Z1,2,3)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: ?49,$J($P(DATA,"^"),3),?57,$J($P(DATA,"^",2),3)
  • Line Location: PR+13
Function Call: WRITE
  • Prompt: ?67,$J($P(DATA,"^",3),3),?77,$J($P(DATA,"^",4),3),?87,$J($P(DATA,"^",5),3),?97,$J($P(DATA,"^",6),3)
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: ?107,$J($P(DATA,"^",7),3),?117,$J($P(DATA,"^",8),3),?126,$J($P(DATA,"^",9),4)
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: !?48,"Detail Autho/Review Decision Code:",?93,"----"
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: !?48,D1,"-",D2,?95,DDATA
  • Line Location: PR+21
Function Call: WRITE
  • Prompt: !?48,Z3,?95,DDATA
  • Line Location: PR+23
Function Call: WRITE
  • Prompt: !?48,$TR($J(" ",84)," ","-")
  • Line Location: PR+34
Function Call: WRITE
  • Prompt: !," Total"
  • Line Location: PR+35
Function Call: WRITE
  • Prompt: ?48,$J(TOT1,4)
  • Line Location: PR+36
Function Call: WRITE
  • Prompt: @TAB,$J(@TOT,4)
  • Line Location: PR+37
Function Call: WRITE
  • Prompt: ?126,$J(TOT9,4)
  • Line Location: PR+38
Function Call: WRITE
  • Prompt: !?29,$TR($J(" ",103)," ","-")
  • Line Location: PR+39
Function Call: WRITE
  • Prompt: !?29,$TR($J(" ",103)," ","-")
  • Line Location: PR+47
Function Call: WRITE
  • Prompt: !,"Grand Total"
  • Line Location: PR+48
Function Call: WRITE
  • Prompt: ?48,$J(GTOT1,4)
  • Line Location: PR+49
Function Call: WRITE
  • Prompt: @TAB,$J(@TOT,4)
  • Line Location: PR+50
Function Call: WRITE
  • Prompt: !?29,$TR($J(" ",103)," ","=")
  • Line Location: PR+51
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+52
Function Call: WRITE
  • Prompt: !?(132-$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 Certification Report",?55,IBHDT,?125,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Sort by: ",$S($P(FILTERS(0),"^",6)=1:$S($P(FILTERS(0),"^")=1:"Payer",$P(FILTERS(0),"^")=2:"Staff",1:"Patient"),1:"Date"),?116,"Detail: ",$S($P(FILTERS(0),"^",7)=1:"Included",1:"Excluded")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?55,"Report Timeframe:"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?52,$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: !?55,$S($P(FILTERS(0),"^",2)=1:"Selected",1:"All")," Payer(s)"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?55,$S($P(FILTERS(0),"^",3)=1:"Selected",1:"All")," Staff"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?55,$S($P(FILTERS(0),"^",4)=1:"Selected",1:"All")," Patient(s)"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !?55,"Selected Dates"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,$S($P(FILTERS(0),"^")=1:"Payer",$P(FILTERS(0),"^")=2:"Staff",$P(FILTERS(0),"^")=3:"Patient",1:"Date")
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?30
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: "Date"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?48,"#278s",?58,"#A1",?68,"#A2",?78,"#A6",?88,"#A4",?98,"#A3",?108,"#C",?118,"CT",?128,"NA"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,$TR($J(" ",132)," ","=")
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: SET+17
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.02 - [#356.02] GET1^DIQ
^IBT(356.021 - [#356.021] GET1^DIQ
^DIC(36 - [#36] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call