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

Package: Integrated Billing

Routine: IBCOIVM1


Information

IBCOIVM1 ;ALB/NLR - IB BILLING ACTIVITY (COMPILE/PRINT) ;02-MAY-94

Source Information

Source file <IBCOIVM1.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP ; get patient from File 354 AIVM X-ref. If still has IVM-identified
; insurance, and bills against IVM-identified policies, put in report.
SEND
ENQ
ENQ1
GETIVM(DFN) ; does patient still have IVM-identified insurance?
; input = dfn
; output = 0 if no ivm-identified insurance
; 1 if ivm-identified insurance
BTYP(BN,X) ; Determine bill type
; Input: BN -- Pointer to the bill in file #399
; X -- Zeroth node of pointed-to bill entry
; Output: Bill Type --> R: Pharmacy Refill
; P: Prosthetics
; I: Inpatient
; O: Outpatient
  • ICR #3343
    • Status: Active
    • Usage: Private
    BTYPQ
    PAUSE ; Pause for screen output.
    HDR ; Display report header.
    DASH() ; Write dashed line.

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?25,"<< NO PATIENTS WITH POLICIES IDENTIFIED BY IVM >>",!
    • Line Location: LOOP+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: LOOP+13
    Function Call: WRITE
    • Prompt: ?51,"<< BILLS NOT YET GENERATED AGAINST IVM POLICIES >>"
    • Line Location: LOOP+15
    Function Call: WRITE
    • Prompt: !!?1,$E($P(IBNA,"^"),1,25),?27,$E($P(IBNA,"^",2),1,14)
    • Line Location: LOOP+17
    Function Call: WRITE
    • Prompt: !,?102,"___________",?118,"___________"
    • Line Location: LOOP+36
    Function Call: WRITE
    • Prompt: !!,?63,"Total Amounts Billed and Collected:"
    • Line Location: LOOP+37
    Function Call: WRITE
    • Prompt: ?95,X
    • Line Location: LOOP+37
    Function Call: WRITE
    • Prompt: ?95,X
    • Line Location: LOOP+37
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HDR+4
    Function Call: WRITE
    • Prompt: $J("",56),"IVM BILLING ACTIVITY",!
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: !,"Facility: ",$P(Y,"^",2)," (",$P(Y,"^",3),")",?101,"Run Date: ",$$DAT1^IBOUTL(DT)," ","Page: ",IBPAG
    • Line Location: HDR+7
    Function Call: WRITE
    • Prompt: !,"Types ==> I:Inpatient, O:Outpatient, P:Prosthetics, R:Pharmacy Refill",?80,"Note: '*' after the Bill # denotes a closed bill"
    • Line Location: HDR+8
    Function Call: WRITE
    • Prompt: !!,$$DASH,!,?55,"Bill",?89,"Date",?107,"Amt",?125,"Amt"
    • Line Location: HDR+9
    Function Call: WRITE
    • Prompt: !,?5,"Patient Name",?32,"SSN",?40,"Bill #",?55,"Type",?62,"Bill From",?75,"-",?79,"To",?86,"Generated",?105,"Billed",?122,"Collected",!,$$DASH
    • Line Location: HDR+10
    Info |  Source |  Entry Points |  Interaction Calls