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

Package: Integrated Billing

Routine: IBNCPNB


Information

IBNCPNB ;OAK/ELZ - UTILITIES FOR NCPCP ;5/22/08 15:23

Source Information

Source file <IBNCPNB.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 8 $$RXEXMT^IBARXEU0  STATAR^IBCNRU1  ALL^IBCNS1  $$PLCOV^IBCNSU3  ($$FILL,$$REASON,CT)^IBNCPDPU  RELBUL^IBNCPEB  ^IBR  $$EABD^IBTUTL  
VA FileMan 3 MSG^DIALOG  (,FILE)^DIE  $$GET1^DIQ  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$HADD)^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: 5

Package Total Caller Graph
Integrated Billing 5 IBNCPDP1  IBNCPDP3  IBNCPDP4  IBNCPDPU  IBNCPUT1  

Entry Points

Name Comments DBIA/ICR reference
NONBR(DFN,IBRX,IBFIL,IBADT,IBCR,IBPAP,IBRC,IBCC,IBUSER) ; Set non-billable reason to CT
; input:
; DFN - Patient
; IBRX - Rx IEN
; IBFIL - fill#
; IBADT - Date of Service
; IBCR - Close Claim Reason (#356.8)
; IBPAP - Autobillable flag (billable (1) / non-billable (0) flag)
; IBRC - Release Copay (entered by OPECC)
; IBCC - Close Reason Comment (entered by OPECC)
; IBUSER - DUZ of user triggering the billing event
NONBRQ ;
RELCOPAY(DFN,IBRX,IBFIL,IBRETRY,IBADT,IBIFN) ; Release copay charges on hold
; Input:
; DFN - Patient IEN
; IBRX - Rx IEN
; IBFIL - fill/refill #
; IBRETRY - retry flag
; IBADT - Date of Service
; IBIFN - 3rd party bill IEN
; output:
; -2 == there is no any copay
; -1^error code if unsuccessful == if ^IBR error
; 0 == charge was not found (and depends on IBRETRY another attempt can be scheduled)
; >0 == charge was released from HOLD
; this procedure will be called if the Payer agreed to pay 0.00
; or the claim was closed as non-billable by the OPECC.
; if patient exempt from RX copay then there is nothing to release from HOLD - quit
RELCRG ;
RCTASK(DFN,IBRX,IBFIL,IBRETRY,IBADT,IBIFN) ;
MOREINS(DFN,IBADT) ;
; DFN - ptr to the patient
; IBADT - the effective date
NDC(X) ; Massage the NDC as it is stored in Pharmacy
; Input: X -- The NDC as it is stored in Pharmacy
; Output: X -- The NDC in the format 5N 1"-" 4N 1"-" 2N
NDCQ
ERMSG(IBSTL) ; Inactive status reason
PAPERBIL(IBTRKRN) ; 'paper' bill in CT?

External References

Name Field # of Occurrence
^%ZTLOAD RCTASK+11
MSG^DIALOG NONBRQ+12
^DIE NONBR+32, NONBR+45, NONBR+50, NONBR+57
FILE^DIE NONBRQ+12
$$GET1^DIQ NONBR+29
$$RXEXMT^IBARXEU0 RELCOPAY+16
STATAR^IBCNRU1 ERMSG+2
ALL^IBCNS1 MOREINS+7
$$PLCOV^IBCNSU3 MOREINS+12
$$FILL^IBNCPDPU NDC+12
$$REASON^IBNCPDPU NONBR+47, NONBR+53
CT^IBNCPDPU NONBR+20
RELBUL^IBNCPEB NONBRQ+8, RELCRG+5, RCTASK+5
^IBR RELCOPAY+32
$$EABD^IBTUTL NONBR+30, NONBR+43
$$FMADD^XLFDT NONBR+31
$$HADD^XLFDT RCTASK+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PAPERBIL+4, PAPERBIL+5
^IB - [#350] RELCOPAY+22, RELCOPAY+30
^IB("AH" RELCOPAY+21
^IBE(350.9 - [#350.9] NONBR+16
^IBE(355.31 - [#355.31] MOREINS+5
^IBE(356.6 - [#356.6] NONBR+30, NONBR+43
^IBT(356 - [#356] NONBR+13, NONBR+21, NONBR+23, NONBRQ+13, PAPERBIL+2

Label References

Name Line Occurrences
$$RELCOPAY NONBRQ+2, RELCRG+2
NDCQ NDC+4
NONBRQ NONBR+28, NONBR+42
RCTASK RELCOPAY+19, RELCOPAY+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA NONBR+11~, NONBR+24*
DFN NONBR~, NONBR+20, NONBRQ+2, NONBRQ+8, RELCOPAY~, RELCOPAY+16, RELCOPAY+19, RELCOPAY+21, RELCOPAY+28, RELCRG+2
, RELCRG+5, RCTASK~, RCTASK+5, MOREINS~, MOREINS+7
DIE NONBR+11~, NONBR+24*
DR NONBR+11~, NONBR+32*, NONBR+45*, NONBR+46*, NONBR+49*, NONBR+55*, NONBR+56*
DT NONBR+44, NONBRQ+10
I RCTASK+1~, RCTASK+7*
IBACT NONBR+11~, NONBRQ+2*, NONBRQ+8, RELCOPAY+17~, RELCOPAY+21*, RELCOPAY+22, RELCOPAY+27, RELCRG+1~, RELCRG+2*, RELCRG+5
IBADT NONBR~, NONBR+18, NONBR+20, NONBR+30, NONBR+43, NONBRQ+2, NONBRQ+8, RELCOPAY~, RELCOPAY+16, RELCOPAY+19
, RELCOPAY+28, RELCRG+2, RELCRG+5, RCTASK~, RCTASK+5, MOREINS~, MOREINS+7, MOREINS+12
IBANY MOREINS+3~
IBARR ERMSG+1~, ERMSG+2
IBARR( ERMSG+4
IBCAT MOREINS+3~, MOREINS+5*, MOREINS+12
IBCC NONBR~, NONBR+48, NONBR+49, NONBR+54*, NONBR+56, NONBRQ+8
IBCR NONBR~, NONBR+20, NONBR+28, NONBR+47, NONBR+53, NONBR+54, NONBRQ+8
IBDUZ RELCOPAY+17~, RELCOPAY+30*, RELCOPAY+31
IBEABD NONBR+11~, NONBR+30*, NONBR+31*, NONBR+43*, NONBR+44*
IBFDA NONBR+11~
IBFDA(356 NONBRQ+10*, NONBRQ+11*
IBFIL NONBR~, NONBR+13, NONBR+20, NONBR+21, NONBRQ+2, NONBRQ+8, RELCOPAY~, RELCOPAY+19, RELCOPAY+26, RELCOPAY+28
, RELCRG+2, RELCRG+5, RCTASK~, RCTASK+5
IBFOUND RELCOPAY+17~, RELCOPAY+20*, RELCOPAY+21, RELCOPAY+27*, RELCOPAY+28, RELCOPAY+29, RELCOPAY+30, RELCOPAY+33
IBI ERMSG+1~, ERMSG+3*
IBIFN RELCOPAY~, RELCOPAY+19, RELCOPAY+28, RELCRG+2, RELCRG+5, RCTASK~, RCTASK+5, PAPERBIL+1~, PAPERBIL+3*, PAPERBIL+4
, PAPERBIL+5
IBINS MOREINS+3~
IBINS( MOREINS+11
IBINS("S" MOREINS+8, MOREINS+9
IBLOCK NONBR+11~, NONBR+23*, NONBRQ+13
IBNOS RELCOPAY+17~, RELCOPAY+29*
IBPAP NONBR~, NONBR+42
IBPL MOREINS+10~, MOREINS+11*, MOREINS+12
IBRC NONBR~, NONBRQ+1
IBRES MOREINS+3~, MOREINS+4*, MOREINS+8, MOREINS+9, MOREINS+13*, MOREINS+15
IBRESN NONBR+11~
IBRETRY RELCOPAY~, RELCOPAY+19, RELCOPAY+28, RELCRG+2, RELCRG+5, RCTASK~, RCTASK+2*, RCTASK+3, RCTASK+10
IBRMARK NONBR+11~, NONBR+47*, NONBR+48*, NONBR+53*, NONBR+54*, NONBR+55
IBRX NONBR~, NONBR+13, NONBR+20, NONBR+21, NONBRQ+2, NONBRQ+8, RELCOPAY~, RELCOPAY+19, RELCOPAY+25, RELCOPAY+28
, RELCRG+2, RELCRG+5, RCTASK~, RCTASK+5, RCTASK+8
IBSEQNO RELCOPAY+17~, RELCOPAY+29*
IBSTA ERMSG+1~, ERMSG+3*, ERMSG+4
IBSTL ERMSG~, ERMSG+3
IBT MOREINS+3~, MOREINS+9*, MOREINS+11
IBTRKR NONBR+15~, NONBR+16*, NONBR+18*, NONBR+19
IBTRKRN NONBR+11~, NONBR+13*, NONBR+14, NONBR+21*, NONBR+22, NONBR+23, NONBR+24, NONBR+29, NONBRQ+10, NONBRQ+11
, NONBRQ+13, PAPERBIL~, PAPERBIL+2
IBTXT ERMSG+1~, ERMSG+4*, ERMSG+5
IBUSER NONBR~, NONBRQ+11
IBX RELCOPAY+17~, RELCOPAY+23*, RELCOPAY+24, RELCOPAY+25, RELCOPAY+26, MOREINS+3~, MOREINS+8*, MOREINS+9
IBZ RELCOPAY+17~, RELCOPAY+22*, RELCOPAY+23, PAPERBIL+1~, PAPERBIL+2*, PAPERBIL+3
LEN NDC+6~, NDC+9*, NDC+11, NDC+12
PCE NDC+6~, NDC+9*, NDC+10, NDC+13
RCDUZ RELCOPAY+17~, RELCOPAY+31*
U NONBR+18, RELCOPAY+23, RELCOPAY+30, MOREINS+11, ERMSG+3, PAPERBIL+3, PAPERBIL+4, PAPERBIL+5
X NDC~, NDC+4*, NDC+10, NDC+13*, NDCQ
Y RELCOPAY+17~, RELCOPAY+32, NDC+6~, NDC+10*, NDC+11*, NDC+12*, NDC+13
Z NDC+6~
Z( NDC+9
Z(1 NDC+8*
Z(2 NDC+8*
Z(3 NDC+8*
ZTDESC RCTASK+1~, RCTASK+8*
ZTDTH RCTASK+1~, RCTASK+10*
ZTIO RCTASK+1~, RCTASK+9*
ZTRTN RCTASK+1~, RCTASK+6*
ZTSAVE RCTASK+1~
ZTSAVE( RCTASK+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All