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

Package: Integrated Billing

Routine: IBCSC5B


Information

IBCSC5B ;ALB/ARH - ADD/ENTER PROSTHETIC ITEMS ;12/28/93

Source Information

Source file <IBCSC5B.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; add/edit prosthetic items for a bill, IBIFN required
EN1
SELECT(ALPROS,ALBILL) ; get which item to add/edit, select from Patient Prosthetics, Bill Items, or add a new one
; returns 1 ^ PD DEL DATE ^ PI IFN - ALPROS(selected item) if item from Prosthetics selected
; 2 ^ PD DEL DATE ^ X - ALBILL(selected item) if item existing on bill selected
; 3 if add new item, "" if exit, -1 if redo
SELECTQ
ASKITM(IBDT1,IBDT2) ; Ask for new item data when adding an item not in Prosthetics
; returns: delivery date ^ prosthetic item name (from 661.1, .02)
ASKITMQ
ADD(IBIFN,IBDT,PIFN,IBPNAME) ; Add new Item to Bill (#362.5)
ADDQ
EDIT(BIFN) ;
SET(IBIFN,ARRB,ARRBL,PICNT) ; setup array of all prosthetic devices on bill (#362.5), array names should be passed by reference
; input: PICNT - the number of items found in prosthetics (PISET)
; output: ARRB(PD DELIV DATE, X) = PD IFN (362.5 ptr) ^ Cost, ARRB = BILL IFN ^ count of items on bill
; ARRBL(PICNT + count of item on bill) = PD DELIV DATE ^ X
; where X is the IFN of the Patient Item (660 ptr) or if not defined then a number_"Z"
  • ICR #3810
    • Status: Active
    • Usage: Private
    DISP(ABILL,ALBILL) ;screen display of existing prosthetic devices for a bill, arrays should be passed by reference
    ; input: ABILL (from SET) list of bill items
    ; ALBILL (from SET) list of bill items, in count order
    PISET(DFN,DT1,DT2,ARRP,ARRPL) ; get all prosthetic items (660) for a patient and date range, arrays should pass by ref.
    ; input: DFN = patient, DT1-DT2 range of dates to search for items
    ; output: ARRP(PD DEL DATE (660,10), PI IFN (660 ptr)) = PI IFN (660 ptr), ARRP = count of items
    ; ARRPL(count) = PD DEL DATE (660,10) ^ PI IFN (660 ptr)
    PIDISP(APROS,ALPROS,ABILL) ; display all prosthetic items (#660) for a patient and date range, arrays passed by reference, not changed
    ; input: APROS (from PISET) patient's prosthetic items
    ; ALPROS (from PISET) patient's prosthetics items, in count order
    ; ABILL (from SET) list of bill's prosthetics items, only to check if item on bill
    PIN(P660,P6611) ; given Prosthetic record (#660) or PSAS HCPCS (#661.1) return Item Name
    ; returns PSAS HCPSC ptr (661.1) ^ SHORT DESCRIPTION (661.1, .02) ^ HCPCS (661.1, .01)
  • ICR #3810
    • Status: Active
    • Usage: Private
    PINB(P3625) ; given the bill prosthetics item (#362.5) return Item Name (.05)
    BILL(IBIFN) ; get bill data: returns DFN ^ Statement Covers From ^ Statement Covers To
    ONBILLPI(IBIFN,PIFN) ; return Bill Item ptr (#362.5) if the Prosthetics Item (#660) is already assigned to the bill
    ; input: PIFN = Patient Prosthetics Item (ptr to 660)
    ; output: BIFN = Bill Prosthetics Item (ptr to 362.5) or null if not found
    DATE(X) ;
    EXEMPT ; exemption reasons

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: " adding ",IBX
    • Line Location: SELECT+11
    Function Call: WRITE
    • Prompt: " editing ",IBX
    • Line Location: SELECT+12
    Function Call: WRITE
    • Prompt: !!,"Enter a Prosthetics Item that does not have a Prosthetics Patient record.",!
    • Line Location: ASKITM+4
    Function Call: WRITE
    • Prompt: "... ADDED"
    • Line Location: ADD+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDIT+1
    Function Call: WRITE
    • Prompt: !!,?5,"----------------- Existing Prosthetic Items for Bill -----------------",!
    • Line Location: DISP+5
    Function Call: WRITE
    • Prompt: !,?1,$J(IBC,2),")",?6,$$DATE(DDT),?16,$E($P(BIFN0,U,5),1,60)
    • Line Location: DISP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISP+9
    Function Call: WRITE
    • Prompt: @IOF,?33,"PROSTHETICS SCREEN"
    • Line Location: PIDISP+6
    Function Call: WRITE
    • Prompt: !,"================================================================================",!
    • Line Location: PIDISP+7
    Function Call: WRITE
    • Prompt: !,$S($D(ABILL(+DDT,PIFN)):"*",1:"")
    • Line Location: PIDISP+14
    Function Call: WRITE
    • Prompt: ?1,$J(IBC,2),")",?6,$$DATE(DDT),?16,$E($P(PNAME,U,2),1,27),?45,"("_$P(PNAME,U,3),")",?53,$G(IBEX),?59,$E($$EXSET^IBEFUNC($P(IBX,U,14),660,12),1,4),?64,$$EXSET^IBEFUNC($P(IBY,U,3),660,62),?71,$J(+$P(IBX,U,16),8,2)
    • Line Location: PIDISP+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(362.3 - [#362.3] Classic Fileman Calls
    ^IBA(362.5 - [#362.5] Classic Fileman Calls
    ^RMPR(661.1 - [#661.1] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call