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

Package: Integrated Billing

Routine: IBCONS1


Information

IBCONS1 ;ALB/AAS - NSC PATIENTS W/ INS BACKGROUND PRINTS ;7 JUN 90

Source Information

Source file <IBCONS1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Inpatient Discharge entry to que background once weekly
EN1 ; Inpatient Admission entry to que background once weekly
EN2 ; Outpatient entry to que background once weekly
QUEUE ; Set up the background job to run for the previous week
; o For All Divisions
; o For Insured veterans with unbilled episodes of care
; o With the output sorted by Terminal Digit
LOOP25 ; Print all NSC w/Insurance reports.
Q
LOOP3 ; Loop through billed, unbilled, or both types of episodes of care.
LOOP31 ; Loop through each name or terminal digit (and associated DFN).
LOOP4 ; Loop through each episode of care for a patient.
PRINT ; Print each detail line.
PRINT1 ; If an episode of care has been billed, display billing information.
HEAD ; Print header; don't pause on first pass through.
INSP(DFN,IBDAT) ; -- print ins. company on report logic
INSPQ
PAUSE
PRNSUM ; print 1 line of the summary
DATE(X) ;
SUMTOT ; total cnt of visits ^ cnt unbilled ^ cnt unbilled w/RNB ^ cnt billed/not auth ^ cnt billed/auth ^ cnt of pats
PTPRNT ; print patient specific data is requested: Rate Disabilities and expanded insurance Info
DDSET(FILE,FLD,X) ; returns external value for a set
PHDL ; Print header for Excel format
XLCOLS(PLACE,INS) ; Print spacers for Excel columns

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No matches found.",!
  • Line Location: LOOP31+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP4+1
Function Call: WRITE
  • Prompt: ?60
  • Condition for execution: IBOUT="R"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: U
  • Condition for execution: IBOUT="E"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?82
  • Condition for execution: IBOUT="R"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: U
  • Condition for execution: IBOUT="E"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: X
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: U
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: IBOUT="R"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: $P(X,"^")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " with "
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " with "
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: U_$P(^DGCR(399,IBIFN,0),"^")_U_$P($G(^DGCR(399.3,+IBAT,0)),"^",4),"-",$S(IBCL<3:"INPT",IBCL>2:"OUTP",1:"")
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: U_$S(IBST=1:"Entered",IBST=2:"Request MRA",IBST=3:"Authorized",IBST=4:"Prnt/Trans",IBST=7:"Cancelled",IBST=0:"Closed",1:"")
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: U_$E(IBFDT,4,5)_"/"_$E(IBFDT,6,7)_"/"_$E(IBFDT,2,3)_U_$E(IBTDT,4,5)_"/"_$E(IBTDT,6,7)_"/"_$E(IBTDT,2,3)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: U_$S($P(IBND0,U,21)="S":"s",$P(IBND0,U,21)="T":"t",1:"")_U
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: !?10,$P(^DGCR(399,IBIFN,0),"^"),?20,$P($G(^DGCR(399.3,+IBAT,0)),"^",4),"-",$S(IBCL<3:"INPT",IBCL>2:"OUTP",1:"")
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: ?37,$S(IBST=1:"Entered",IBST=2:"Request MRA",IBST=3:"Authorized",IBST=4:"Prnt/Trans",IBST=7:"Cancelled",IBST=0:"Closed",1:"")
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: ?50,"From: ",$E(IBFDT,4,5)_"/"_$E(IBFDT,6,7)_"/"_$E(IBFDT,2,3)
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: ?68,"To: ",$E(IBTDT,4,5)_"/"_$E(IBTDT,6,7)_"/"_$E(IBTDT,2,3)
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: ?88,$S($P(IBND0,U,21)="S":"s",$P(IBND0,U,21)="T":"t",1:"")
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: ?91,"Debtor: "
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),"^")
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: IBHD,!,IBI
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(IBI)>78
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?80,"Printed: ",IBDATE,?118,"Page: ",IBPAGE
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?40,"Unbilled",?53,"Unbilled w/RNB",?70,"Billed/Not Auth",?88,"Billed/Auth",?103,"# Visits",?117,"# Patients",!,IBL
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PT ID PATIENT",?28,"SSN",?42,"ELIGIBILITY",?60,"DATE OF ",$S(IBINPT=2:"DISCHARGE",1:"CARE"),?82,"INSURANCE COMPANIES"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,IBL
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: $S(IBDV="TOTAL":IBDV,1:$P($G(^DG(40.8,+IBDV,0)),U,1))
  • Line Location: PRNSUM+4
Function Call: WRITE
  • Prompt: U_$P(IBSUM,U,2,5)_U_$P(IBSUM,U,1)_U_$P(IBSUM,U,6)
  • Line Location: PRNSUM+5
Function Call: WRITE
  • Prompt: ?40,$P(IBSUM,U,2),?58,$P(IBSUM,U,3),?75,$P(IBSUM,U,4),?91,$P(IBSUM,U,5),?105,$P(IBSUM,U,1),?120,$P(IBSUM,U,6)
  • Line Location: PRNSUM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+3
Function Call: WRITE
  • Prompt: !,IBPTINFO
  • Line Location: PTPRNT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+19
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,"Group #: ",$P($G(^IBA(355.3,+IBPLAN,0)),U,4),?65,"Effective: ",$$DATE(+$P(IBY,U,8))," - ",$$DATE(+$P(IBY,U,4)),?100,"Last Ver: ",$$DATE($P(IBY1,U,3))
  • Line Location: PTPRNT+24
Function Call: WRITE
  • Prompt: U_IBLN1_U_$P(IBY,U,3)_U_$$DATE(+$P(IBY,U,8))_U_$$DATE(+$P(IBY,U,4))_U_$$DATE($P(IBY1,U,3))
  • Line Location: PTPRNT+26
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,"Group #: ",$P(IBY,U,3)
  • Line Location: PTPRNT+27
Function Call: WRITE
  • Prompt: !,?33,"Effective: ",$$DATE(+$P(IBY,U,8))," - ",$$DATE(+$P(IBY,U,4)),?68,"Last Ver: ",$$DATE($P(IBY1,U,3))
  • Line Location: PTPRNT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+30
Function Call: WRITE
  • Prompt: U_$P(IBY1,U,8)
  • Line Location: PTPRNT+31
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,$P(IBY1,U,8)
  • Line Location: PTPRNT+32
Function Call: WRITE
  • Prompt: U
  • Line Location: PTPRNT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+35
Function Call: WRITE
  • Prompt: U_IBY3
  • Line Location: PTPRNT+37
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBY3
  • Line Location: PTPRNT+38
Function Call: WRITE
  • Prompt: "^^"
  • Line Location: PTPRNT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+45
Function Call: WRITE
  • Prompt: U_IBLN3_U_$G(^IBA(355.32,IBCVG,2,IBJ,0))
  • Line Location: PTPRNT+46
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBLN3,?104,$G(^IBA(355.32,IBCVG,2,IBJ,0))
  • Line Location: PTPRNT+47
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,IBLN3
  • Line Location: PTPRNT+48
Function Call: WRITE
  • Prompt: U_IBLN3_U
  • Line Location: PTPRNT+49
Function Call: WRITE
  • Prompt: U
  • Line Location: PTPRNT+51
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+52
Function Call: WRITE
  • Prompt: U_$P($G(^IBE(355.6,+IBRIDE,0)),U,1)
  • Line Location: PTPRNT+53
Function Call: WRITE
  • Prompt: !,?5,IBLN1,?33,IBLN2,?51,$P($G(^IBE(355.6,+IBRIDE,0)),U,1)
  • Line Location: PTPRNT+54
Function Call: WRITE
  • Prompt: !
  • Line Location: PTPRNT+56
Function Call: WRITE
  • Prompt: "DIV^PT ID^PATIENT^SSN^ELIGIBILITY"
  • Line Location: PHDL+1
Function Call: WRITE
  • Prompt: "^Rated Disabilities"
  • Line Location: PHDL+2
Function Call: WRITE
  • Prompt: "^Insurance^Group #^Effective Begin Date^Effective End Date^Last Ver"
  • Line Location: PHDL+3
Function Call: WRITE
  • Prompt: "^Policy Comment"
  • Line Location: PHDL+4
Function Call: WRITE
  • Prompt: "^Group Comments"
  • Line Location: PHDL+5
Function Call: WRITE
  • Prompt: "^Coverage Limits^Limitation Comments^Riders"
  • Line Location: PHDL+6
Function Call: WRITE
  • Prompt: "^DATE OF "_$S(IBINPT=2:"DISCHARGE",1:"CARE")_"^INSURANCE COMPANIES"
  • Line Location: PHDL+8
Function Call: WRITE
  • Prompt: "^NOT BILLABLE"
  • Line Location: PHDL+9
Function Call: WRITE
  • Prompt: "^Encounter Add/Edits"
  • Line Location: PHDL+10
Function Call: WRITE
  • Prompt: "^BILL NUMBER^LOCATION OF CARE^STATUS^From^To^Current Bill Payer Sequence^Debtor"
  • Line Location: PHDL+12
Function Call: WRITE
  • Prompt: "^DIV TOTALS^Unbilled^Unbilled w/RNB^Billed/Not Auth^Billed/Auth^# Visits^# Patients"
  • Line Location: PHDL+13
Function Call: WRITE
  • Prompt: !,IBPTINFO
  • Line Location: XLCOLS+1
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+2
Function Call: WRITE
  • Prompt: U_INS_"^^^^"
  • Line Location: XLCOLS+3
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+4
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+5
Function Call: WRITE
  • Prompt: "^^"
  • Line Location: XLCOLS+6
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+7
Function Call: WRITE
  • Prompt: "^^"
  • Line Location: XLCOLS+10
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+11
Function Call: WRITE
  • Prompt: U
  • Line Location: XLCOLS+12
Function Call: WRITE
  • Prompt: "^^^^^^^^"
  • Line Location: XLCOLS+13
Info |  Source |  Entry Points |  Interaction Calls