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

Package: Integrated Billing

Routine: IBCSC4D


Information

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

Source Information

Source file <IBCSC4D.m>

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.

    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

    FileMan Files Accessed Via FileMan Db Call

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