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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCSC4D

Package: Integrated Billing

Routine: IBCSC4D


Information

IBCSC4D ;ALB/ARH - ADD/ENTER DIAGNOSIS ;11/9/93

Source Information

Source file <IBCSC4D.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 9 ($$BDATE,$$ICD9,$$ICD9ACT,$$ICD9SYS,$$ICD9VER)^IBACSV  ($$FT,$$INPAT)^IBCEF  (DELALL,DXINPT,POAASK)^IBCSC4E  $$MAXECODE^IBCSC4F  $$PRCNM^IBCSCH1  UPD^IBCU72  $$DAT1^IBOUTL  SCAN^IBSDU  
$$EXPAND^IBTRE  
VA FileMan 3 FILE^DICN  ^DIE  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 20 IBCBB0  IBCBB2  IBCBB3  IBCD3  IBCF10  IBCF2  IBCF22  IBCF32  
IBCF331  IBCSC4  IBCSC4E  IBCSC5  IBCSCE  IBCU72  IBFBWL3  IBJTBB  
IBRFN3  ^IBA(362.3  ^IBA(364.5  PROCEDURES  

Entry Points

Name Comments DBIA/ICR reference
EN ;add/edit diagnosis for a bill, IBIFN required
E1
EXIT
ASKDX() ;
AD
ADD(DX,IFN,DXPOA) ;
EDIT(IBDXIFN) ;
EDITQ
SET(IFN,DXARR,POARR) ;setup arrays of all dx's for bill, array names should be passed by reference
  • ICR #3808
    • Status: Active
    • Usage: Private
    DISP(POARR) ;screen display of existing dx's for a bill,
    DISP1(IFN) ;
    HELP ;called for help from dx enter to display existing dx's
    ADD1(IFN) ;does not work, but it should replace ask add, and edit
    DXOPT(IBIFN) ; display and ask user to select PCE diagnosis
    OPTDX(DFN,DT1,DT2,ARRAY,IBDXE) ; get diagnosis from PCE for encounters within date range
    ; ARRAY(X)= DX ^ ORDER ^ OUTPATIENT ENCOUNTER (409.68) ^ DATE/TIME ^ TRUE IF NON-BILL ^ NON-BILL MESS ^ CLINIC
    NEWDX(IBX) ; user select PCE diagnosis to add to bill
    NEWDX1
    NEWDXE
    ADDNEW(IBIFN,LIST,IBOEA) ; add selected PCE diagnosis to bill
    DISPOE(OEARR,EXARR) ; display outpatient PCE diagnosis
    DISPID ; Display the Associated Dx and Rx # for a procedure in the identifier.
    ; Input: Naked reference to the 0th node of an entry in the
    ; Procedures (#304) sub-file of the Bill/Claims (#399) file.
    FIRSTDX(DA) ; Called by trigger cross reference #2 on file 362.3,.03
    ; DA is the ien of the entry in file 362.3
    ; Check if the corresponding bill is for an inpatient episode, the
    ; admitting dx for the corresponding bill is null and the dx being
    ; entered is the first for the bill. If this is all true, admitting
    ; dx should be set to the dx.

    External References

    Name Field # of Occurrence
    FILE^DICN ADD+3
    ^DIE EN+15, EDIT+6, EDIT+11
    ^DIR AD+5, NEWDX1+3, NEWDX1+7
    $$BDATE^IBACSV EN+14, ASKDX+3, ADD+1, DISP+3, DISPOE+3, DISPID+8
    $$ICD9^IBACSV ADD+1, DISP+5, DISPOE+5, DISPID+8
    $$ICD9ACT^IBACSV AD+6
    $$ICD9SYS^IBACSV AD+3
    $$ICD9VER^IBACSV ADD+1
    $$FT^IBCEF EN+9, EN+12, EDIT+4, DISP+6
    $$INPAT^IBCEF EN+4, ASKDX+5, DISP+6, FIRSTDX+9
    DELALL^IBCSC4E EN+5
    DXINPT^IBCSC4E EN+6
    POAASK^IBCSC4E EN+9
    $$MAXECODE^IBCSC4F ADD+1
    $$PRCNM^IBCSCH1 DISPID+5
    UPD^IBCU72 EDIT+20, EDIT+34, EDIT+35
    $$DAT1^IBOUTL ASKDX+4
    SCAN^IBSDU OPTDX+8
    $$EXPAND^IBTRE ASKDX+6, DISPOE+9
    $$FMTE^XLFDT DISPOE+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+16
    Function Call: WRITE
    • Prompt: !,$S(Z'="":"",1:"NO ")_"Admitting Diagnosis"_$S(Z'="":": "_Z,1:" found"),!
    • Line Location: ASKDX+7
    Function Call: WRITE
    • Prompt: !!,*7,"The Diagnosis code is inactive for the date of service ("_IBDTTX_").",!
    • Line Location: AD+7
    Function Call: WRITE
    • Prompt: !!,*7,"Only 3 External Cause of Injury diagnoses are allowed per claim.",!
    • Line Location: ADD+1
    Function Call: WRITE
    • Prompt: *7,!,"This diagnosis was removed as a procedure diagnosis."
    • Line Location: EDIT+27
    Function Call: WRITE
    • Prompt: !!,?5,"----------------- Existing Diagnoses for Bill -----------------",!
    • Line Location: DISP+4
    Function Call: WRITE
    • Prompt: !,$P(IBY,U),?9,POA,?13,$P(IBY,U,3),?75,$S($P(IBZ,U,2)<1000:"("_$P(IBZ,U,2)_")",1:"")
    • Line Location: DISP+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: NEWDX+1
    Function Call: WRITE
    • Prompt: "."
    • Line Location: ADDNEW+4
    Function Call: WRITE
    • Prompt: @IOF,!,"============================= DIAGNOSIS SCREEN ==============================",!
    • Line Location: DISPOE+2
    Function Call: WRITE
    • Prompt: !,$J(IBCNT,2),")",?4,IBX,?5,$P(IBDX,U),?14,$E($P(IBDX,U,3),1,19)
    • Line Location: DISPOE+7
    Function Call: WRITE
    • Prompt: ?35,$E($P($G(^SC(+$P(IBY,U,7),0)),U,1),1,15)
    • Line Location: DISPOE+8
    Function Call: WRITE
    • Prompt: ?52,$E($$EXPAND^IBTRE(9000010.07,.12,$P(IBY,U,2)),1,3)
    • Line Location: DISPOE+9
    Function Call: WRITE
    • Prompt: ?57,$$FMTE^XLFDT($E($P(IBY,U,4),1,12),2)
    • Line Location: DISPOE+10
    Function Call: WRITE
    • Prompt: ?72,$E($P(IBY,U,6),1,7)
    • Line Location: DISPOE+11
    Function Call: WRITE
    • Prompt: " ",$E($P(I,U,2)_$J("",27),1,27)
    • Line Location: DISPID+5
    Function Call: WRITE
    • Prompt: $E(" Rx: "_$S(Z:$P($G(^IBA(362.4,+Z,0)),U),1:"Missing")_$J("",14),1,14)
    • Line Location: DISPID+7
    Function Call: WRITE
    • Prompt: " Dx 1: ",$P($$ICD9^IBACSV(+I,$$BDATE^IBACSV(DA(1))),U)
    • Line Location: DISPID+8
    Routine Call
    • DIE
    • Line Location:
      • EN+15
      • EDIT+6
      • EDIT+11
    Routine Call
    • DIR
    • Line Location:
      • AD+5
      • NEWDX1+3
      • NEWDX1+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(362.3 - [#362.3] Classic Fileman Calls
    ^DGCR(399 - [#399] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] EN+3, E1+1, ASKDX+6, EDIT+19, EDIT+30, EDIT+36, HELP+2, HELP+3, DXOPT+3, DISPID+6
    , DISPID+7, FIRSTDX+9
    ^IBA(362.3 - [#362.3] EN+9, EDIT+8, EDIT+10, EDIT+16, SET+4, SET+5, ADDNEW+3, DISPID+8, FIRSTDX+8, FIRSTDX+9
    ^IBA(362.4 - [#362.4] DISPID+7
    ^SC - [#44] DISPOE+8
    ^TMP("DIERR" OPTDX+8!

    Label References

    Name Line Occurrences
    $$ADD E1, ADDNEW+4
    $$ASKDX E1
    $$FIRSTDX EDIT+8
    AD AD+6
    ADDNEW DXOPT+5
    DISP EN+8, DISP1+1, HELP+4
    DISPOE HELP+3, DXOPT+4
    DXOPT EN+7
    E1 E1
    EDIT E1
    EDITQ EDIT+8
    EXIT EN+12
    NEWDX DXOPT+5
    NEWDX1 NEWDX1+8
    NEWDXE NEWDX1+3, NEWDX1+7
    OPTDX HELP+3, DXOPT+4
    SET EN+8, E1, DISP1+1, HELP+2, HELP+4, DXOPT+2

    Naked Globals

    Name Field # of Occurrence
    ^( EDIT+19, EDIT+30
    ^(0 DISPID+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARR SET+3~, OPTDX+2~, OPTDX+17!
    ARR( SET+7*, SET+8, OPTDX+14, OPTDX+16*
    ARRAY OPTDX~, OPTDX+3!, OPTDX+17*
    ARRAY( OPTDX+16*
    CNT SET+3~, SET+4*, SET+6*, SET+9
    DA EN+13~, EN+15*, ADD+3!, EDIT+2*, EDIT+6!, EDIT+9~, EDIT+11*, FIRSTDX~, FIRSTDX+8
    DA(1 DISPID+6, DISPID+7, DISPID+8
    DFN HELP+3*, DXOPT+1~, DXOPT+3*, DXOPT+4, OPTDX~, OPTDX+6
    >> DGRVRCAL E1+1*
    DIC ADD+3*!, EDIT+6!
    DIC("DR" ADD+2*
    DIC(0 ADD+3*
    DIDEL EDIT+2*, EDIT+6!
    DIE EN+13~, EN+15*, EDIT+2*, EDIT+6!, EDIT+9~, EDIT+11*
    DIFN SET+3~, SET+5*, SET+7
    DIR AD+5!, NEWDX+1~, NEWDX1+3!, NEWDX1+7!
    DIR("?" AD+1*, AD+2*, NEWDX1*, NEWDX1+1*
    DIR("??" AD*
    DIR("A" NEWDX1+2*, NEWDX1+6*
    DIR("B" NEWDX1+6*
    DIR("S" AD+3*
    DIR(0 AD+4*, NEWDX1+3*, NEWDX1+7*
    DIRUT NEWDX+1~, NEWDX1+3, NEWDX1+7
    DO ADD+3!
    DR EN+13~, EN+15*, EDIT+5*, EDIT+6!, EDIT+9~, EDIT+11*
    DT1 OPTDX~, OPTDX+4*, OPTDX+6
    DT2 OPTDX~, OPTDX+4*, OPTDX+6
    DX ADD~, ADD+1, ADD+3
    DXARR SET~, SET+3!, SET+9*
    DXARR( SET+7*
    DXPOA ADD~, ADD+2
    EXARR DISPOE~
    EXARR( DISPOE+6
    I DISPID+3~, DISPID+5*, DISPID+8*
    IB0 EDIT+9~, EDIT+10*, EDIT+11
    IBC SET+3~*, SET+4, SET+5
    IBCBK OPTDX+2~, OPTDX+7*, OPTDX+8
    IBCNT OPTDX+2~, OPTDX+4*, OPTDX+10*, OPTDX+15*, OPTDX+16, OPTDX+17, DISPOE+1~, DISPOE+4*, DISPOE+5, DISPOE+6
    , DISPOE+7
    IBCNT1 OPTDX+2~, OPTDX+4*, OPTDX+10*, OPTDX+15*, OPTDX+17
    IBDATE ASKDX+1~, ASKDX+3*, ASKDX+4, AD+3, AD+6, DISP+2~, DISP+3*, DISP+5, DISPOE+1~, DISPOE+3*
    , DISPOE+5
    IBDIFN EN+8*, E1*, EXIT!
    IBDT OPTDX+2~, ADDNEW+1~
    IBDTTX ASKDX+1~, ASKDX+4*, AD+2, AD+7
    IBDX E1*, EXIT!, OPTDX+2~, OPTDX+14*, OPTDX+15, OPTDX+16, ADDNEW+1~, ADDNEW+3*, ADDNEW+4, DISPOE+1~
    , DISPOE+5*, DISPOE+7
    IBDXA EN+8, E1, EXIT!, HELP+2, HELP+3, HELP+4, DXOPT+1~, DXOPT+2, DXOPT+4, OPTDX+2~
    , OPTDX+17!
    IBDXA( E1, AD+6, OPTDX+10, OPTDX+11, OPTDX+12, OPTDX+13, OPTDX+14
    IBDXB OPTDX+2~, OPTDX+17!
    IBDXB( OPTDX+14
    IBDXE OPTDX~
    IBDXE( OPTDX+15
    IBDXIFN EDIT~, EDIT+2, EDIT+8, EDIT+10, EDIT+16, EDIT+20
    IBDXN OPTDX+2~, OPTDX+13*, OPTDX+14
    IBHIT EDIT+17~, EDIT+18*, EDIT+20*, EDIT+26
    IBI OPTDX+2~, OPTDX+10*, OPTDX+11, OPTDX+12, OPTDX+13, OPTDX+14, ADDNEW+1~, ADDNEW+2*
    IBIFN EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+12, EN+14, EN+15
    , E1, E1+1, ASKDX+3, ASKDX+5, ASKDX+6, EDIT+4, EDIT+19, EDIT+30, EDIT+36, DISP+3
    , DISP+6, HELP+1, HELP+2, HELP+3, HELP+4, DXOPT~, DXOPT+2, DXOPT+3, DXOPT+5, ADDNEW~
    , ADDNEW+3, ADDNEW+4, DISPOE+3
    IBINP EN+1~, EN+4*, EN+6, EN+7, EN+9, EN+12, EDIT+4
    IBJ OPTDX+2~, OPTDX+11*, OPTDX+12, OPTDX+13, OPTDX+14
    IBK OPTDX+2~, OPTDX+12*, OPTDX+13, OPTDX+14
    IBLIST DXOPT+1~, DXOPT+5, NEWDX+1!, NEWDX1+4*, NEWDX1+6, NEWDX1+7!
    IBOE OPTDX+2~
    IBOEA ADDNEW~
    IBOEA( ADDNEW+2, ADDNEW+3
    IBOEDX HELP+3, DXOPT+1~, DXOPT+4, DXOPT+5
    IBPIECE EDIT+17~, EDIT+20*, EDIT+31*, EDIT+33, EDIT+34, EDIT+35
    IBPIFN ADDNEW+1~
    IBPOA EN+8, E1, EXIT!, HELP+4
    IBPROC EDIT+17~, EDIT+18*, EDIT+19*, EDIT+29*, EDIT+30*, EDIT+36
    IBPROCD EDIT+17~, EDIT+19*, EDIT+20, EDIT+30*, EDIT+33, EDIT+35, EDIT+36*
    IBQ ADDNEW+1~
    IBVAL OPTDX+2~, OPTDX+8
    IBVAL("BDT" OPTDX+6*
    IBVAL("DFN" OPTDX+6*
    IBVAL("EDT" OPTDX+6*
    IBX EN+3*, E1+1*, EXIT!, SET+3~, SET+4*, SET+5, SET+8*, DISP+2~, DISP+5*, HELP+1~
    , HELP+2*, HELP+3*, DXOPT+1~, DXOPT+3*, DXOPT+4, NEWDX~, NEWDX+1, NEWDX1+3, ADDNEW+1~, ADDNEW+2*
    , ADDNEW+3, DISPOE+1~, DISPOE+6*, DISPOE+7
    IBY SET+3~, SET+5*, SET+6, SET+7, SET+8*, DISP+2~, DISP+5*, DISP+7, ADDNEW+1~, DISPOE+1~
    , DISPOE+5*, DISPOE+8, DISPOE+9, DISPOE+10, DISPOE+11, DISPID+3~, DISPID+4*, DISPID+6
    IBZ SET+3~, SET+6*, SET+7, DISP+2~, DISP+5*, DISP+6, DISP+7, ADDNEW+1~
    ICDVDT EN+13~, EN+14*, ASKDX+1~, ASKDX+3*
    IFN ADD~, ADD+1, ADD+2, SET~, SET+3, SET+9, DISP1~, DISP1+1, ADD1~
    IOF DISPOE+2
    LIST ADDNEW~, ADDNEW+1, ADDNEW+2
    NEEDPOA EDIT+1~, EDIT+4*, EDIT+5
    OEARR DISPOE~
    OEARR( DISPOE+4, DISPOE+5, DISPOE+6
    OK FIRSTDX+7~, FIRSTDX+8*, FIRSTDX+9*, FIRSTDX+10
    POA DISP+2~, DISP+6*, DISP+7
    POAEDIT EN+1~, EN+2*, EN+9
    POARR SET~, SET+3!, SET+9*, DISP~, DISP1+1~
    POARR( SET+8*, DISP+5
    U E1+1, EDIT+11, SET+6, SET+7, DISP+6, DISP+7, HELP+3, DXOPT+3, DXOPT+4, DXOPT+5
    , OPTDX+14, DISPOE+7, DISPOE+8, DISPOE+9, DISPOE+10, DISPOE+11, DISPID+5, DISPID+7, DISPID+8, FIRSTDX+9
    X ASKDX+1~, ADD+3*!, EDIT+9~, NEWDX+1~, DISPID+3~, DISPID+4*, DISPID+5, DISPID+8
    Y EN+12, ASKDX+1~, AD+6, AD+8, ADD+4, EDIT+9~, NEWDX+1~, NEWDX1+3, NEWDX1+4, NEWDX1+8
    , DISPID+4
    Z ASKDX+6~*, ASKDX+7, DISPID+3~, DISPID+6*, DISPID+7*, FIRSTDX+7~, FIRSTDX+8*, FIRSTDX+9
    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 |  Naked Globals |  Local Variables  | All