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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: IBAUTL

Package: Integrated Billing

Routine: IBAUTL


Information

IBAUTL ;ALB/AAS - INTEGRATED BILLING APPLICATION UTILITIES ; 14-FEB-91

Source Information

Source file <IBAUTL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 4 $$TIEROK^IBAUTL  $$FY^IBOUTL  ($$FILE,$$RXZERO,$$ZEROSUB)^IBRXUTL  $$DRUGF^IBRXUTL1  
VA FileMan 3 NOW^%DTC  FILE^DICN  ^DIE  
Accounts Receivable 1 ^PRCASER  
National Drug File 1 ($$CPTIER,CPTIER)^PSNAPIS  

Caller Graph

Caller Graph Total: 32

Package Total Caller Graph
Integrated Billing 31 IB20P385  IBAECN1  IBAECU  IBAECU5  IBAMTC  IBAMTD  IBAMTV2  IBARX  
IBARX1  IBARXECA  IBARXEU3  IBARXMB  IBAUTL  IBAUTL2  IBAUTL3  IBAUTL4  
IBECEA21  IBECEA22  IBECEAU  IBECEAU2  IBECEAU3  IBECEAU4  IBEMTBC  IBOHIST  
IBOHTOT  IBOST  IBR  IBTOSUM2  IBTOUR3  IBTUTL  ^IBE(350.1  
Accounts Receivable 1 RCDPURED  

Entry Points

Name Comments DBIA/ICR reference
COST ; - find charges for transaction type, when only one
  • ICR #5525
    • Status: Retired
    • Usage: Private
    COSTQ
    TIEROK(IB) ; - if there is a tier present, make sure it matches
    ; if not present it's OK
    ; IB = zero node of 350.2 from COST above
    FY
    PTL ; - parent trace logic
    ; - input in x resulting from field from file 350
    ; - output in y=1 if found, -1^error message if not found
    ; - y(0) = zeroth node of top level
    ; - y(1) = zeroth node of second level
    ; - y(n) = zeroth node of nth level
    PTLQ
    PTL1 ; - find y(n) of sublevels
    ; Call in here with a FOR loop to go each level deeper. This will
    ; setup the subsripts in Y for all the data elements that go into
    ; causing this charge to be created. It looks in the original data
    ; source file as approprite to obtain the information. The naked
    ; reference should be the last data level in the data source appropriate
    ; data source file last looked up.
    CHKX ; - check input x
    ; - piece 1 = service and exists
    ; - peice 2 = patient and exists
    ; - piece 3 = action type
    ; - piece 4 = user duz
    CHKXQ
    SITE ; - calculate site from site parameters
    ; - output ibsite = station number
    ; = ibfac = pointer to institution file
    ADD ; - add new entry to ^ib
    ADDQ
    ARPARM
    BILLNO ; -get open bill number
    BILLQ
    PHAPI ;
    PHAPIQ ;
    RXTIER(DFN,IBRX,IBEFDT) ; - look up the tier of the prescription
    ; returns the tier level of the specified prescription
    ; the existence of the IBTIER variable means it is already determined elsewhere and we'll just use that value
    ; default tier is always 2
    ARCOST(DFN,DA,IBX) ; api for AR to look up the charge of a med
    ; input: DFN = patient pointer
    ; DA = 350.1 pointer
    ; IBX = Rx IEN
    ; output: returns the single 30 day supply charge amount
    ; assumption, since AR is all about today, DT is used for the date
  • ICR #5710
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    NOW^%DTC ARPARM+1
    FILE^DICN ADD+6
    ^DIE ADD+8
    $$TIEROK^IBAUTL COST+3
    $$FY^IBOUTL FY
    $$FILE^IBRXUTL PHAPI+7
    $$RXZERO^IBRXUTL PHAPI+7, RXTIER+9
    $$ZEROSUB^IBRXUTL PHAPI+9
    $$DRUGF^IBRXUTL1 RXTIER+10
    ^PRCASER BILLNO+3
    $$CPTIER^PSNAPIS RXTIER+11
    CPTIER^PSNAPIS RXTIER+8

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IB - [#350] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC - [#1] PTL+8, PTL+10
    ^DIC(4 - [#4] SITE+4
    ^DIC(49 - [#49] CHKX+7
    ^DPT - [#2] CHKX+6
    ^IB - [#350] ADD+6, ADD+9
    ^IB(0 ADD+3, ADD+4
    ^IBE(350.1 - [#350.1] CHKX+11, BILLNO+2
    ^IBE(350.2 - [#350.2] COST+3, COSTQ+1, COSTQ+3
    ^IBE(350.9 - [#350.9] SITE+3, SITE+4
    ^VA(200 - [#200] CHKX+9

    Label References

    Name Line Occurrences
    $$RXTIER ARCOST+8
    ADDQ ADD+3, ADD+4
    BILLQ BILLNO+1, BILLNO+3, BILLNO+4
    CHKXQ CHKX+6, CHKX+7, CHKX+8, CHKX+9, CHKX+10
    COST COSTQ+1, ARCOST+10
    COSTQ COST+3
    FY ARPARM+1
    PHAPI PTL+9
    PHAPIQ PHAPI+7, PHAPI+8, PHAPI+10
    PTL1 PTL+18
    PTLQ PTL+8, PTL+11
    SITE ARPARM+1

    Naked Globals

    Name Field # of Occurrence
    ^( PTL1+9
    ^(0 PTL+16, PTL1+11, ADD+4, BILLNO+2
    ^(20 COSTQ+3
    ^(99 SITE+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ARPARM+1
    %DT ADD+2~
    DA COST+3, COSTQ+1, ADD+7*, ADD+8!, ARCOST~
    DD ADD+5!, ADDQ!
    DFN CHKX+5*, CHKX+6, ADD+7, BILLNO+3, RXTIER~, RXTIER+9, ARCOST~, ARCOST+8
    DIC ADD+5!*, ADDQ!
    DIC(0 ADD+5*
    DIE ADD+7*, ADD+8!
    DINUM ADD+6*, ADDQ!
    >> DLAYGO ADD+5*
    DO ADD+5!, ADDQ!
    DR ADD+5!, ADD+7*, ADD+8!
    DT COST+2, COST+3, ARPARM, ARCOST+8
    DUZ BILLNO+3
    IB COST+1~, COST+3*, TIEROK~, TIEROK+4
    >> IBAFY FY*, BILLNO+3
    IBAGL PTL+10*, PTL+11, PTLQ!
    >> IBARTYP BILLNO+2*, BILLNO+3
    >> IBATYP CHKX+11*, ADD+7, BILLNO+2
    IBD COST+1~, COST+2*, COST+3*
    >> IBDUZ CHKX+9*, BILLNO+3
    IBEFDT COST+2, COST+3, RXTIER~, RXTIER+11, ARCOST+7~
    >> IBFAC SITE+4*
    IBII PTL+18*, PTLQ!, PTL1+8, PTL1+9
    >> IBIL BILLNO+1*, BILLNO+4*
    IBJJ PTL+18*, PTLQ!, PTL1+11
    IBMIN PTLQ!, PTL1+8*, PTL1+9
    IBN COST+1~, COST+3*, COSTQ+2, COSTQ+3, ADD+7*
    IBN1 ADD+6*, ADD+9, ADDQ!
    >> IBNOW ARPARM+1*, BILLNO+3
    IBPT PHAPI+4~, PHAPI+7*, PHAPI+9
    IBR RXTIER+5~, RXTIER+9*, RXTIER+10*, RXTIER+11*, RXTIER+12*, RXTIER+13
    IBRFL PHAPI+4~, PHAPI+9*
    IBRX PHAPI+4~, PHAPI+6*, PHAPI+7, PHAPI+9, RXTIER~, RXTIER+7, RXTIER+9
    >> IBSAVX CHKX+5, CHKX+9, CHKX+11
    >> IBSERV CHKX+5*, CHKX+7, BILLNO+3
    >> IBSITE SITE+4*, ADD+6, BILLNO+3
    >> IBTAG CHKX+8, CHKX+10
    IBTIER COSTQ+1*, TIEROK+3, TIEROK+4, RXTIER+6, ARCOST+7~, ARCOST+8*
    >> IBTOTL BILLNO+1, BILLNO+3
    >> IBTRAN BILLNO+1*, BILLNO+4*, BILLNO+5*
    IBX ARCOST~, ARCOST+8, ARCOST+9*
    IBXX PHAPI+4~, PHAPI+5*, PHAPI+6, PHAPI+8, PHAPI+9
    IBY PHAPI+4~, PHAPI+5*, PHAPI+7*, PHAPI+10*, PHAPIQ+1
    IBY(0 PHAPI+7*, PHAPIQ+2
    IBY(1 PHAPI+9*, PHAPI+10, PHAPIQ+3
    IBYCHK ADD+2~, ADD+8*, ADD+10
    X FY, PTL+8, PTL+9, PTL+10, PTL+11, PTL+18, CHKX+5, ADD+4*, ADD+6*, ARPARM~*
    , BILLNO+3*, PHAPI+5
    X1 COST+1!, COST+3*, COSTQ*, COSTQ+1, COSTQ+3*, ARCOST+7~, ARCOST+11
    Y COSTQ+2*, PTL+7!, PTL+8*, PTL+11*, PTL1+8*, PTL1+9*, CHKX+6*, CHKX+7*, CHKX+9*, CHKX+11*
    , SITE+3*, SITE+4*, ADD+3*, ADD+4*, ADD+6, ADD+7, ADD+8~, ADD+10*, BILLNO+3, BILLNO+4*
    , PHAPIQ+1*
    Y( PTL1+11*
    Y(0 PTL+16*, PHAPIQ+2*
    Y(1 PHAPIQ+3*

    Marked Items

    Name Field # of Occurrence
    $T(CPTIER^PSNAPIS RXTIER+8
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All