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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Integrated Billing 3 $$CHG^IBCF4  RCITEM^IBCSC5A  $$EXSET^IBEFUNC  

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

Package Total Caller Graph
Integrated Billing 12 IBCEF21  IBCEF22  IBCEF3  IBCF331  IBCRBC1  IBCSCE  IBJTBA  IBJTRA1  
IBRFN3  IBRFN4  IBTOBI4  IBTRED01  

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

    External References

    Name Field # of Occurrence
    ^DIC ASKITM+7
    FILE^DICN ADD+6, ADD+11
    ^DIE ADD+7, EDIT+1
    ^DIR SELECT+9, SELECT+14, ASKITM+5
    $$CHG^IBCF4 SET+10
    RCITEM^IBCSC5A SET+6
    $$EXSET^IBEFUNC PIDISP+15

    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
    Routine Call
    • DIC
    • Line Location:
      • ASKITM+7
    Routine Call
    • DIE
    • Line Location:
      • ADD+7
      • EDIT+1
    Routine Call
    • DIR
    • Line Location:
      • SELECT+9
      • SELECT+14
      • ASKITM+5

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] BILL+1, BILL+2
    ^IBA(362.3 - [#362.3] ADD+10
    ^IBA(362.5 - [#362.5] SET+8, SET+9, DISP+7, PINB+1, ONBILLPI+4, ONBILLPI+5
    ^RMPR(660 - [#660] ADD+10, PISET+6, PISET+7, PIDISP+10, PIDISP+12, PIN+3
    ^RMPR(661.1 - [#661.1] PIN+4

    Label References

    Name Line Occurrences
    $$ADD EN1+4, EN1+6
    $$ASKITM EN1+6
    $$BILL EN+2
    $$DATE DISP+8, PIDISP+15
    $$ONBILLPI ADD+3
    $$PIN ADD+4, PIDISP+10
    $$SELECT EN1+3
    ADDQ ADD+1, ADD+3, ADD+4
    ASKITMQ ASKITM+2, ASKITM+5
    DISP EN1+1
    EDIT EN1+7
    EN1 EN1+4, EN1+9
    PIDISP EN1+1
    PISET EN1
    SELECTQ SELECT+9, SELECT+11, SELECT+12
    SET EN1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ABILL EN+1~, EN1, EN1+1, DISP~, PIDISP~
    ABILL( EN1+5, DISP+7, PIDISP+14
    ALBILL EN+1~, EN1, EN1+1, EN1+3, SELECT~, DISP~
    ALBILL( SELECT+12, DISP+6, DISP+7
    ALPROS EN+1~, EN1, EN1+1, EN1+3, SELECT~, PIDISP~
    ALPROS( SELECT+11, PIDISP+8, PIDISP+9
    APROS EN+1~, EN1, EN1+1, PIDISP~
    ARRB SET~, SET+5!*, SET+10*, SET+11*
    ARRB( SET+10*, SET+13
    ARRBL SET~, SET+5!
    ARRBL( SET+13*
    ARRP PISET~, PISET+5!, PISET+8*
    ARRP( PISET+8*, PISET+10
    ARRPL PISET~, PISET+5!
    ARRPL( PISET+10*
    BIFN EN+1~, EN1+1*, EN1+4*, EN1+5*, EN1+6*, EN1+7, EDIT~, EDIT+1, SET+5~, SET+8*
    , SET+9, SET+10, DISP+3~, DISP+7*, ONBILLPI+3~, ONBILLPI+4*, ONBILLPI+5
    BIFN0 DISP+3~, DISP+7*, DISP+8
    CNT SET+5~, SET+6*, SET+9*, SET+13*, PISET+5~, PISET+10*
    DA ADD+1~, ADD+6!, ADD+7*!, EDIT+1~*
    DD ADD+11!
    DDT DISP+3~, DISP+7*, DISP+8, PISET+5~, PISET+7*, PISET+8, PIDISP+4~, PIDISP+9*, PIDISP+14, PIDISP+15
    DFN EN+1~, EN+2*, EN1, PISET~, PISET+5, PISET+6
    DIC ASKITM+2~, ASKITM+7*, ADD+1~, ADD+6*, ADD+7, ADD+11*, EDIT+1~
    DIC("A" ASKITM+7*
    DIC("DR" ADD+11*
    DIC("S" ASKITM+7*
    DIC(0 ASKITM+7*, ADD+6*, ADD+11*
    DIDEL EDIT+1~*
    DIE ASKITM+2~, ADD+1~, ADD+7*!, EDIT+1~*
    DIR SELECT+4~, SELECT+14!, ASKITM+2~
    DIR("?" SELECT+5*, SELECT+6*, SELECT+7*
    DIR("A" SELECT+9*, SELECT+14*, ASKITM+5*
    DIR("B" SELECT+14*
    DIR(0 SELECT+9*, SELECT+14*, ASKITM+5*
    DIRUT SELECT+4~, SELECT+9, SELECT+14, ASKITM+2~
    DLAYGO ADD+1~, ADD+6*, ADD+11*
    DO ADD+6!, ADD+11!
    DR ADD+1~, ADD+7*!, EDIT+1~*
    DT1 PISET~, PISET+5*, PISET+7
    DT2 PISET~, PISET+5*, PISET+7
    DTOUT SELECT+4~, ASKITM+2~
    DUOUT SELECT+4~, ASKITM+2~
    IBACTION EN+1~, EN1+3*, EN1+4, EN1+5, EN1+6
    IBC SET+5~*, SET+8, DISP+3~, DISP+6*, DISP+7, DISP+8, PIDISP+4~, PIDISP+8*, PIDISP+9, PIDISP+15
    , ONBILLPI+3~*, ONBILLPI+4
    IBDT ADD~, ADD+1, ADD+6
    IBDT1 EN+1~, EN+2*, EN1, EN1+6, ASKITM~, ASKITM+2, ASKITM+5
    IBDT2 EN+1~, EN+2*, EN1, EN1+6, ASKITM~, ASKITM+2, ASKITM+5
    IBDX ADD+1~, ADD+10*, ADD+11
    IBDX( ADD+11*
    IBEX PIDISP+4~, PIDISP+10!, PIDISP+12*, PIDISP+15
    IBHCPCS ADD+1~
    IBI DISP+3~, DISP+7*
    IBICD PIDISP+4~, PIDISP+12*
    IBIFN EN+2, EN1, EN1+4, EN1+6, ADD~, ADD+1, ADD+3, ADD+7, ADD+10, ADD+11
    , SET~, SET+5, SET+6, SET+11, BILL~, BILL+1*, BILL+2, ONBILLPI~, ONBILLPI+3
    IBP PIDISP+4~, PIDISP+12*
    IBPNAME ADD~, ADD+4*
    IBRC SET+5~, SET+10
    IBX EN+1~, EN+2*, EN1+6*, SELECT+4~, SELECT+9*, SELECT+11, SELECT+12, ASKITM+2~*, ASKITM+5*, ASKITM+9
    , ADD+1~, ADD+10*, SET+5~, SET+8*, SET+13*, PISET+5~, PISET+7*, PISET+10*, PIDISP+4~, PIDISP+10*
    , PIDISP+15, PIN+2~, PIN+4*, BILL+1~*, BILL+2*, ONBILLPI+3~, ONBILLPI+4*
    IBY SELECT+4~*, SELECT+11*, SELECT+12*, SELECT+14*, SELECTQ, ASKITM+2~*, ASKITM+9*, ASKITMQ, ADD+1~*, ADD+7*
    , ADD+10, ADDQ, SET+5~, SET+9*, SET+10, SET+13*, PISET+5~, PISET+10*, PIDISP+4~, PIDISP+10*
    , PIDISP+15, PIN+2~*, PIN+4*, PIN+5, PINB+1~*, PINB+2, BILL+1~*, BILL+2*, BILL+3, ONBILLPI+3~*
    , ONBILLPI+5*, ONBILLPI+6
    IBZ SELECT+4~, SELECT+11*, SELECT+12*
    IOF PIDISP+6
    P3625 PINB~, PINB+1
    P660 PIN~, PIN+3
    P6611 PIN~, PIN+3*, PIN+4
    PICNT SET~, SET+13
    PIFN ADD~, ADD+1*, ADD+3, ADD+4, ADD+7, ADD+10, PISET+5~, PISET+6*, PISET+7, PISET+8
    , PIDISP+4~, PIDISP+9*, PIDISP+10, PIDISP+12, PIDISP+14, ONBILLPI~, ONBILLPI+5
    PNAME PIDISP+4~, PIDISP+10*, PIDISP+15
    RIFN SET+5~, SET+9*, SET+10
    U EN+2, EN1+4, EN1+5, EN1+6, ASKITM+9, ADD+4, SET+9, SET+10, SET+11, SET+13
    , DISP+7, DISP+8, PISET+7, PISET+10, PIDISP+9, PIDISP+15, PIN+3, PIN+4, PINB+1, BILL+1
    , BILL+2, ONBILLPI+5
    X SELECT+4~, ASKITM+2~, ADD+1~, ADD+6*!, ADD+11*, EDIT+1~, DATE~, DATE+1
    Y SELECT+4~, SELECT+9, SELECT+14, ASKITM+2~, ASKITM+5, ASKITM+9, ADD+1~, ADD+7, ADD+11, EDIT+1~
    Y(0 ASKITM+9

    Marked Items

    Name Field # of Occurrence
    $T(EXEMPT+(3) PIDISP+12
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All