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

Package: Integrated Billing

Routine: IBJDI41


Information

IBJDI41 ;ALB/CPM - PATIENTS WITH UNIDENTIFIED INSURANCE (CONT'D) ;17-DEC-96

Source Information

Source file <IBJDI41.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Entry point from IBJDI4.
PRT ; - Print the reports.
ENQ
EOR ; IB*771/DTG end of report
ENC(IBOED) ; - Encounter extract for all patients loop.
; Input: IBOED = Outpatient encounter in file #409.68
; Pre-set variables IB array, IBSORT also required.
PROC(DFN,IBINDT,IBIPC) ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2
; IBINDT = Encounter or discharge date
; IBIPC = Inpatient treatment marker
; ("*"=Had inpat. treatment, null=No inpat. treatment)
PRCQ
DIV(X) ; - Return division name.
DET ; - Print the detailed report.
DETQ
EXCOUT ; OUTPUT EXCEL FORMAT
HDET ; - Write the detail report header.
EXCHDR ; Write the excel header.
SUM ; - Print the summary report.
EXCSUM ; - Print the summary report in excel format.
DASH(X) ; - Return a dashed line.
ELIG(X) ; - Return eligibility code name.
INSC(X) ; - Return insurance company.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Identify Patients "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"Gathering schedule info"
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,"Compiling Detail "
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EOR+1
Function Call: WRITE
  • Prompt: ?30
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: EOR+1
Function Call: WRITE
  • Prompt: "*** END OF REPORT ***",!
  • Line Location: EOR+1
Function Call: WRITE
  • Prompt: !!,"There were no ",$$TITLE^IBJDI4(0)," during this period."
  • Line Location: DET+1
Function Call: WRITE
  • Prompt: !!,"There were no ",$$TITLE^IBJDI4(0)," during this period."
  • Line Location: DET+2
Function Call: WRITE
  • Prompt: !!,"There were no ",$$TITLE^IBJDI4(IBX)," during this period."
  • Line Location: DET+4
Function Call: WRITE
  • Prompt: ?80,$$ELIG(+IBELIG)
  • Line Location: DET+13
Function Call: WRITE
  • Prompt: ?102,$$INSC(+IBINSC),?124,$P(IBX2,U,6),!
  • Line Location: DET+14
Function Call: WRITE
  • Prompt: ?2,"Remarks: ",$P(IBX2,U,7)
  • Line Location: DET+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DET+16
Function Call: WRITE
  • Prompt: !,$P(IBX1,"@@")_U_$$SSN($P(IBX2,U))_U_$E($P(IBX2,U,2),1,15)_U_$P(IBX2,U,3)_U
  • Line Location: EXCOUT+1
Function Call: WRITE
  • Prompt: $$ELIG(+IBELIG)_U
  • Line Location: EXCOUT+2
Function Call: WRITE
  • Prompt: $$INSC(+IBINSC)_U_$P(IBX2,U,6)_U
  • Line Location: EXCOUT+3
Function Call: WRITE
  • Prompt: $P(IBX2,U,7)_U
  • Line Location: EXCOUT+4
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+2
Function Call: WRITE
  • Prompt: !,"Patients treated in the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)," NOTE: *=Had inpatient care, +=Billable insurance"
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !!?45,"Home",?62,"Work",?124,"Date of"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,"Patient",?27,"SSN",?41,"Phone Number",?58,"Phone Number",?80,"Eligibility",?102,"Insurance",?125,"Death"
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: !,$$DASH(132),!!
  • Line Location: HDET+7
Function Call: WRITE
  • Prompt: !,"Run Date: ",IBRUN
  • Line Location: EXCHDR+2
Function Call: WRITE
  • Prompt: !,"Patients treated in the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)," NOTE: *=Had inpatient care, +=Billable insurance"
  • Line Location: EXCHDR+3
Function Call: WRITE
  • Prompt: !,"Patient"_U_"SSN"_U_"Home Phone Number"_U_"Work Phone Number"_U_"Eligibility"_U_"Insurance"_U_"Date of Death"
  • Line Location: EXCHDR+4
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?26,"PATIENT INSURANCE STATISTICS",!
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: ?(61-$L(IBDIV))\2,"SUMMARY REPORT for ",IBDIV
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: ?33,"SUMMARY REPORT"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!?19,"Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?20,$$DASH(40),!!
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: ?22,"Number of Patients Treated:",?50,$J(IB(IBDIV,"TOT"),5)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !?9,"Number of Patients Covered by Insurance:",?50,$J(IB(IBDIV,"YES"),5)," (",IBPER(1),"%)"
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !?3,"No. of Patients Covered by Billable Insurance:",?50,$J(IB(IBDIV,"BILL"),5)," (",IBPER(2),"%-",IBPER(3),"%)*"
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: !?12,"Number of Patients Covered by an HMO:",?50,$J(IB(IBDIV,"HMO"),5)," (",IBPER(4),"%-",IBPER(5),"%-",IBPER(6),"%)**"
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !?10,"Number of Patients Covered by Medicare:",?50,$J(IB(IBDIV,"MEDC"),5)," (",IBPER(7),"%-",IBPER(8),"%)*"
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !?11,"Number of Patients Covered by Medigap:",?50,$J(IB(IBDIV,"MEDG"),5)," (",IBPER(9),"%-",IBPER(10),"%-",IBPER(11),"%)**"
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: !?2,"No. of Patients Covered by an Indemnity Policy:",?50,$J(IB(IBDIV,"IND"),5)," (",IBPER(12),"%)"
  • Line Location: SUM+30
Function Call: WRITE
  • Prompt: !?5,"Number of Patients Not Covered by Insurance:",?50,$J(IB(IBDIV,"NO"),5)," (",IBPER(13),"%)"
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: !?7,"Number of Patients with Unknown Insurance:",?50,$J(IB(IBDIV,"UNK"),5)," (",IBPER(14),"%)"
  • Line Location: SUM+32
Function Call: WRITE
  • Prompt: !," No. of Patients w/Insurance Question Unanswered:",?50,$J(IB(IBDIV,"NULL"),5)," (",IBPER(15),"%)"
  • Line Location: SUM+33
Function Call: WRITE
  • Prompt: !?21,"Number of Deceased Patients:",?50,$J(IB(IBDIV,"DEC"),5)," (",IBPER(16),"%)"
  • Line Location: SUM+34
Function Call: WRITE
  • Prompt: !!," *(% from patients treated-% from patients with insurance)"
  • Line Location: SUM+35
Function Call: WRITE
  • Prompt: !,"**(% from patients treated-% from patients w/ins-% from patients w/billable ins)"
  • Line Location: SUM+36
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: EXCSUM+1
Function Call: WRITE
  • Prompt: !!,"PATIENT INSURANCE STATISTICS",!
  • Line Location: EXCSUM+2
Function Call: WRITE
  • Prompt: ?(61-$L(IBDIV))\2,"SUMMARY REPORT for ",IBDIV
  • Line Location: EXCSUM+3
Function Call: WRITE
  • Prompt: ?33,"SUMMARY REPORT"
  • Line Location: EXCSUM+4
Function Call: WRITE
  • Prompt: !,"Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: EXCSUM+5
Function Call: WRITE
  • Prompt: !,"Run Date: ",IBRUN,!
  • Line Location: EXCSUM+6
Function Call: WRITE
  • Prompt: "Number of Patients Treated:"_U_$J(IB(IBDIV,"TOT"),5)
  • Line Location: EXCSUM+24
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by Insurance:"_U_$J(IB(IBDIV,"YES"),5)," (",IBPER(1),"%)"
  • Line Location: EXCSUM+25
Function Call: WRITE
  • Prompt: !,"No. of Patients Covered by Billable Insurance:"_U_$J(IB(IBDIV,"BILL"),5)," (",IBPER(2),"%-",IBPER(3),"%)*"
  • Line Location: EXCSUM+26
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by an HMO:"_U_$J(IB(IBDIV,"HMO"),5)," (",IBPER(4),"%-",IBPER(5),"%-",IBPER(6),"%)**"
  • Line Location: EXCSUM+27
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by Medicare:"_U_$J(IB(IBDIV,"MEDC"),5)," (",IBPER(7),"%-",IBPER(8),"%)*"
  • Line Location: EXCSUM+28
Function Call: WRITE
  • Prompt: !,"Number of Patients Covered by Medigap:"_U_$J(IB(IBDIV,"MEDG"),5)," (",IBPER(9),"%-",IBPER(10),"%-",IBPER(11),"%)**"
  • Line Location: EXCSUM+29
Function Call: WRITE
  • Prompt: !,"No. of Patients Covered by an Indemnity Policy:"_U_$J(IB(IBDIV,"IND"),5)," (",IBPER(12),"%)"
  • Line Location: EXCSUM+30
Function Call: WRITE
  • Prompt: !,"Number of Patients Not Covered by Insurance:"_U_$J(IB(IBDIV,"NO"),5)," (",IBPER(13),"%)"
  • Line Location: EXCSUM+31
Function Call: WRITE
  • Prompt: !,"Number of Patients with Unknown Insurance:"_U_$J(IB(IBDIV,"UNK"),5)," (",IBPER(14),"%)"
  • Line Location: EXCSUM+32
Function Call: WRITE
  • Prompt: !,"No. of Patients w/Insurance Question Unanswered:"_U_$J(IB(IBDIV,"NULL"),5)," (",IBPER(15),"%)"
  • Line Location: EXCSUM+33
Function Call: WRITE
  • Prompt: !,"Number of Deceased Patients:"_U_$J(IB(IBDIV,"DEC"),5)," (",IBPER(16),"%)"
  • Line Location: EXCSUM+34
Function Call: WRITE
  • Prompt: !!," *(% from patients treated-% from patients with insurance)"
  • Line Location: EXCSUM+35
Function Call: WRITE
  • Prompt: !,"**(% from patients treated-% from patients w/ins-% from patients w/billable ins)"
  • Line Location: EXCSUM+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Info |  Source |  Entry Points |  Interaction Calls