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

Package: Integrated Billing

Routine: IBOLK


Information

IBOLK ;ALB/AAS - INTEGRATED BILLING - DISPLAY BY BILL NUMBER ;6-MAR-91

Source Information

Source file <IBOLK.m>

Entry Points

Name Comments DBIA/ICR reference
BRIEF
DEV
EN ; -Entry to display IB Action data for an AR Bill number
; -Input IBIL = external form of bill number, ie 500-K10001
; IBFULL = 1 for full profile logic, 0 for brief description
  • ICR #6753
    • Status: Active
    • Usage: Private
    ENQ
    LINE ; -find data for one line, write line, accumulate totals
    HDR
    HDR1
    TOTAL
    PAUSE
    END1
    END
    ENF ; -entry point for AR to print full profile for IB actions for
    ; an ar transaction number.
    ; -input x = ar transaction number ($p(^ib(ibn,0),u,12)
  • ICR #126
    • Status: Active
    • Usage: Private
    ENB ; -entry point for AR to print brief profile for IB actions for
    ; an ar transaction number.
    ; -input x = ar transaction number
  • ICR #126
    • Status: Active
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Billing has no Record of this Charge ID.",!
    • Line Location: IBOLK+13
    Function Call: READ
    • Formatting: !
    • Prompt: "(B)rief or (F)ull Inquiry: B// "
    • Variable: X
    • Timeout: DTIME
    • Line Location: BRIEF+0
    Function Call: WRITE
    • Prompt: !!?5,"Enter: '<CR>' - To select the Brief Inquiry."
    • Line Location: BRIEF+2
    Function Call: WRITE
    • Prompt: !?12,"'F' - To select the Full Inquiry. This option will"
    • Line Location: BRIEF+3
    Function Call: WRITE
    • Prompt: !?23,"include the Address Inquiry, and more detailed"
    • Line Location: BRIEF+4
    Function Call: WRITE
    • Prompt: !?23,"information for Pharmacy Co-Pay bills."
    • Line Location: BRIEF+5
    Function Call: WRITE
    • Prompt: !?12,"'^' - To quit this option.",!
    • Line Location: BRIEF+6
    Function Call: WRITE
    • Prompt: $S("Bb"[X:" BRIEF",1:" FULL")
    • Line Location: BRIEF+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: LINE+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: LINE+5
    Function Call: WRITE
    • Prompt: ?15,$E($P(IBTYP,"^"),1,20)
    • Line Location: LINE+8
    Function Call: WRITE
    • Prompt: ?37,$E($P(IBND,"^",8),1,20)
    • Line Location: LINE+10
    Function Call: WRITE
    • Prompt: ?60,$J($P(IBND,"^",6),5)
    • Line Location: LINE+12
    Function Call: WRITE
    • Prompt: ?69,X
    • Line Location: LINE+14
    Function Call: WRITE
    • Prompt: !,?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,$P(IBND,"^",10),0)):$P(^(0),"^"),1:"UNKNOWN")
    • Line Location: LINE+16
    Function Call: WRITE
    • Prompt: @IOF,*13
    • Line Location: HDR1+0
    Function Call: WRITE
    • Prompt: $E($P(IBNAME,"^"),1,20)," ",$P(IBNAME,"^",2),?36,IBIL,?51,IBHDT,?72,"PAGE: ",IBPAG
    • Line Location: HDR1+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: HDR1+3
    Function Call: WRITE
    • Prompt: !,IBLINE
    • Line Location: HDR1+5
    Function Call: WRITE
    • Prompt: !?67,"------------"
    • Line Location: TOTAL+0
    Function Call: WRITE
    • Prompt: !,?67,X
    • Line Location: TOTAL+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: END+0

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCA(430 - [#430] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call