Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 5 ALL^IBCNS1  ^IBCOIVM2  $$PT^IBEFUNC  $$DAT1^IBOUTL  $$HOWID^IBRFN2  
VA FileMan 2 COMMA^%DTC  ^DIR  
Accounts Receivable 1 ($$CLO,$$ORI,$$TPR)^PRCAFN  
Kernel 1 ^%ZISC  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 4 IBAMTV4  IBCOIVM  IBCOIVM2  IBRFN  
Accounts Receivable 1 RCDMBWLA  

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.

    External References

    Name Field # of Occurrence
    COMMA^%DTC LOOP+37
    ^%ZISC ENQ+2
    ^DIR PAUSE+4
    ALL^IBCNS1 GETIVM+6
    ^IBCOIVM2 SEND+3
    $$PT^IBEFUNC LOOP+5
    $$DAT1^IBOUTL LOOP+23, LOOP+24, HDR+7
    $$HOWID^IBRFN2 LOOP+6
    $$CLO^PRCAFN LOOP+21
    $$ORI^PRCAFN LOOP+25
    $$TPR^PRCAFN LOOP+27
    $$SITE^VASITE HDR+3

    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
    Routine Call
    • DIR
    • Line Location:
      • PAUSE+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] LOOP+6, LOOP+18
    ^IBA(354 - [#354] LOOP+4
    ^IBA(362.4 - [#362.4] BTYP+9
    ^IBA(362.5 - [#362.5] BTYP+10
    ^TMP("IBOIVM" LOOP+3!, LOOP+6*, LOOP+7*, LOOP+11, LOOP+12, LOOP+15, LOOP+16, ENQ!

    Label References

    Name Line Occurrences
    $$BTYP LOOP+22
    $$DASH HDR+9, HDR+10
    $$GETIVM LOOP+4
    BTYPQ BTYP+8, BTYP+9, BTYP+10
    ENQ LOOP+31, LOOP+34
    HDR LOOP+10, LOOP+13, LOOP+17, LOOP+34
    PAUSE LOOP+13, LOOP+17, LOOP+34, SEND
    SEND LOOP+11, LOOP+35

    Naked Globals

    Name Field # of Occurrence
    ^("S" LOOP+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BN BTYP~, BTYP+8, BTYP+9, BTYP+10
    DFN LOOP+4*, LOOP+5, LOOP+6, ENQ+3!, GETIVM~, GETIVM+6
    DIR ENQ+4!, PAUSE+2~
    DIR(0 PAUSE+4*
    DIROUT ENQ+4!, PAUSE+2~
    DIRUT ENQ+4!, PAUSE+2~, PAUSE+4
    DT HDR+7
    DTOUT ENQ+4!, PAUSE+2~
    DUOUT ENQ+4!, PAUSE+2~, PAUSE+4
    IBAB LOOP+10*, LOOP+25*, LOOP+35, LOOP+37, ENQ+3!
    IBAC LOOP+10*, LOOP+27*, LOOP+35, LOOP+37, ENQ+3!
    IBF LOOP+6*, LOOP+7, LOOP+16*, LOOP+17*, LOOP+19, LOOP+29*, ENQ+3!
    IBFID ENQ+3!, GETIVM+5~, GETIVM+7*, GETIVM+8
    >> IBFLG SEND+3
    IBI LOOP+18*, PAUSE+2~, PAUSE+3*
    IBIFN LOOP+6*, LOOP+16*, LOOP+18, LOOP+21, LOOP+22, LOOP+25, LOOP+27, ENQ+3!
    IBINS ENQ+5!, GETIVM+5~
    IBINS( GETIVM+7
    IBINS(0 GETIVM+7
    IBNA LOOP+5*, LOOP+6, LOOP+7, LOOP+12*, LOOP+14, LOOP+15, LOOP+16, LOOP+17, ENQ+3!
    IBND ENQ+5!
    IBND( LOOP+18*
    IBND("S" LOOP+24
    IBND("U" LOOP+23
    IBND(0 LOOP+20, LOOP+22
    IBPAG LOOP+10*, ENQ+5!, HDR+4, HDR+5*, HDR+7
    IBQ LOOP+10*, LOOP+12, LOOP+13, LOOP+16, LOOP+17, LOOP+31, LOOP+34, ENQ+5!, PAUSE+4*
    IBX LOOP+25*, LOOP+26, LOOP+27*, LOOP+28, ENQ+3!
    IOF HDR+4
    IOSL LOOP+13, LOOP+17, LOOP+34, PAUSE+3
    IOST SEND+3, PAUSE+1, HDR+4
    X LOOP+37*, ENQ+5!, GETIVM+5~, GETIVM+7*, BTYP~, BTYP+8, BTYP+11, HDR+1~, HDR+2*
    X2 LOOP+37*, ENQ+5!
    X3 LOOP+37*, ENQ+5!
    Y ENQ+5!, BTYP+7~, BTYP+8*, BTYP+9*, BTYP+10*, BTYP+11*, BTYPQ, HDR+1~, HDR+3*, HDR+7
    Z BTYP+7~, BTYP+11*
    >> ZTQUEUED ENQ+1
    >> ZTREQ ENQ+1*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All