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

Package: Integrated Billing

Routine: IBJDI5


Information

IBJDI5 ;ALB/CPM - INSURANCE POLICIES NOT VERIFIED ;18-DEC-96

Source Information

Source file <IBJDI5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
DQ ; - Tasked entry point.
ENQ
ENQ1
ENC(IBOED) ; - Encounter extract for outpatient loop.
; Input: IBOED = Outpatient encounter in file #409.68
PROC(DFN,IBIPC,IBDTE) ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2
; IBIPC = Inpatient treatment marker
; ("*"=Had inpat. treatment, null=No inpat. treatment)
; IBDTE = Patient's checkout or discharge date
PRCQ
ENCHK(IBOED) ; - Check outpatient's encounter record.
; Input: IBOED = Outpatient encounter in file #409.68
; Output: 1 = OK for processing
; 0 = Not OK for processing
ENCKQ
DET ; - Print the detailed report.
HDET ; - Write the detail report header.
EXCHDR ; Excel format
SUM ; - Print the summary report.
EXCSUM ;excell format
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.
OUT() ; Prompt to allow users to select output format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a number of the insurance policies which were"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"entered into the system within a given timeframe, but were never verified.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!"
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+17
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+19
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+20
Function Call: WRITE
  • Prompt: !,"All policies within the selected date range have been verified."
  • Line Location: DET+1
Function Call: WRITE
  • Prompt: $P(IBX1,"@@"),?33,$$SSN($P(IBX1,"@@",2)),?47,$P(IBX1,"@@",3)
  • Line Location: DET+7
Function Call: WRITE
  • Prompt: ?94,$E($P($G(^VA(200,+$P(IBX3,U,4),0)),U),1,24),?120,$$DAT2^IBOUTL($P(IBX3,U,5)),!
  • Line Location: DET+13
Function Call: WRITE
  • Prompt: "^^^^"_$E($P($G(^VA(200,+$P(IBX3,U,4),0)),U),1,24)_U_$$DAT2^IBOUTL($P(IBX3,U,5)),!
  • Line Location: DET+17
Function Call: WRITE
  • Prompt: !,"All policies within the selected date range have been verified less than a year ago."
  • Line Location: DET+21
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Insurance Policies ",$S(IBX:"Verified Over a Year Ago",1:"Not Verified"),?80,"Run Date: ",IBRUN,?123,"Page: ",IBPAG
  • Line Location: HDET+3
Function Call: WRITE
  • Prompt: !,"For Patients treated for the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)_" ('*' = Had inpatient care)"
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !?94,"Policy Entered By Date Entered"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,"Patient",?33,"SSN",?47,"Date of Death"
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: ?62,"Insurance Company",?94,"Policy ",$S(IBX:"Verified",1:"Entered")," By",?120,"Date ",$S(IBX:"Verif'd",1:"Entered")
  • Line Location: HDET+7
Function Call: WRITE
  • Prompt: !,$$DASH(132),!!
  • Line Location: HDET+8
Function Call: WRITE
  • Prompt: !,"Insurance Policies ",$S(IBX:"Verified Over a Year Ago",1:"Not Verified")
  • Line Location: EXCHDR+1
Function Call: WRITE
  • Prompt: !,"For Patients treated for the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)_" ('*' = Had inpatient care)"
  • Line Location: EXCHDR+3
Function Call: WRITE
  • Prompt: !,"Patient"_U_"SSN"_U_"Date of Death"_U_"Insurance Company"_U_"Policy ",$S(IBX:"Verified",1:"Entered")," By"_U_"Date ",$S(IBX:"Verif'd",1:"Entered"),!
  • Line Location: EXCHDR+4
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?$S(IBVER:14,1:24),"INSURANCE POLICIES NOT VERIFIED",$S(IBVER:"/VERIFIED OVER 1 YEAR",1:"")
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?32,"SUMMARY REPORT",!!?17,"For Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?24,$$DASH(31),!!
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: ?24,"Number of Patients Treated:",?53,$J(IB("TOT"),5)
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !?23,"Number of Policies Verified:",?53,$J(IB("VER"),5),?62,"(",IBPER,"%)"
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !!,"INSURANCE POLICIES NOT VERIFIED",$S(IBVER:"/VERIFIED OVER 1 YEAR",1:"")
  • Line Location: EXCSUM+1
Function Call: WRITE
  • Prompt: !,"SUMMARY REPORT"
  • Line Location: EXCSUM+2
Function Call: WRITE
  • Prompt: !,"For Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: EXCSUM+3
Function Call: WRITE
  • Prompt: !,"Run Date: ",IBRUN
  • Line Location: EXCSUM+4
Function Call: WRITE
  • Prompt: !,"Number of Patients Treated:"_U_IB("TOT")
  • Line Location: EXCSUM+7
Function Call: WRITE
  • Prompt: !,"Number of Policies Verified:"_U_IB("VER")_U_"(",IBPER,"%)"
  • Line Location: EXCSUM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Info |  Source |  Entry Points |  Interaction Calls