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 |  Marked Items |  All
Print Page as PDF
Routine: IBCU1

Package: Integrated Billing

Routine: IBCU1


Information

IBCU1 ;ALB/MRL - BILLING UTILITY ROUTINE (CONTINUED) ;01 JUN 88 12:00

Source Information

Source file <IBCU1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 COMMA^%DTC  EN^DDIOL  ^DIC  FILE^DIE  ^DIK  
Integrated Billing 4 $$BDATE^IBACSV  $$FT^IBCEF  $$CPTNM^IBCRBH1  ($$FILE,$$RFLNUM,$$RXSEC,$$ZEROSUB,ZERO)^IBRXUTL  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Integrated Billing 36 IB REVCODE EDIT  IBCB2  IBCCCB0  IBCCPT  IBCSC5A  IBCSC5C  IBCSCH2  IBXS3  
IBXS6  IBXS63  IBXS7  IBXS73  IBXSA21  IBXSAH1  IBXSC3  IBXSC61  
IBXSC67  IBXSC68  IBXSC712  IBXSC74  IBXSC79  IBXSC824  IBXSC825  IBXSC826  
IBXSC827  IBXSC828  IBXSC829  IBXX1  IBXX19  IBXX2  IBXX21  IBXX6  
REVENUE CODE  ^DGCR(399  ^IBA(362.3  PROVIDER  

Entry Points

Name Comments DBIA/ICR reference
DXBSTAT(DIFN,IFN) ;returns a diagnosis' bill status (either DIFN or IFN can be passed, both are not needed)
DELPR(IB,IBX) ; Deletes the corresponding RX proc when the RX pointer is
; deleted
; IB = the ien of the bill in file 399
; IBX = the ien of the entry in the procedure multiple to be deleted
ATTREND(IBIFN,IBIFN1,FIELD) ; This function is called from Mumps Cross References in the claim file 399 and
; also the PROVIDER subfile 399.0222.
DXDUP(DX,DIFN,IFN) ;returns true if DX is already defined for a bill (not same entry)
QMED(IBRTN,IBIFN) ; DSS QuadraMed Interface: DSS/QuadraMed Available
; return 1 if QuadraMed Interface is On and available for the type of bill
; - routine must exist on the system (interface is 'On')
; Input: IBRTN = tag^routine, if it exists then Interface is 'On'
; IBIFN = Bill IFN, bill to check if appropriate for sending to QuadraMed
ORDNXT(IFN) ;CALLED BY TRIGGER ON (362.3,.02) THAT SETS DX PRINT ORDER (362.3,.03),
PRVLIC(NPIFN,IBDT,ARR,STIFN) ; returns the Provider License data from the New Person file active on a date
; Input: NPIFN = pointer to file 200, IBDT = date to check (if none passed then all returned)
; ARR = array pass by reference (optional), STIFN = state to return as value of function (optional)
; Output: ARR(X) = license state (ifn) ^ license ^ expiration date (200,541)
; return value = license data of state requested or if no state passed in then count found
DISRC
RXSTAT(DRUG,PIFN,FILLDT) ; returns status/definition of rx
; returns: ORIGINAL ^ RELEASED/RETURNED TO STOCK ^ DRUG DEA
RCD ;Revenue Code Display
MODHLP(DA) ; Executable modifier help 399.042 .14
; DA = iens of the current entry DA(1) = file 399 ien
; DA = file 399.042 ien
ORDDUP(ORD,DIFN) ;returns true if print order ORD is already defined for a bill (not same entry)
RVCPRC(IBIFN,IBD0) ; returns 1 if CHAMPVA rate type + 2 if CMS-1500, 0 otherwise
; IBD0 - zero node of bill if available, not required

External References

Name Field # of Occurrence
COMMA^%DTC DISRC+2, DISRC+3
EN^DDIOL MODHLP+12
^DIC MODHLP+17
FILE^DIE ATTREND+57
^DIK DELPR+7
$$BDATE^IBACSV MODHLP+4
$$FT^IBCEF RCD+2, DISRC+3, ATTREND+32
$$CPTNM^IBCRBH1 DISRC+6
$$FILE^IBRXUTL RXSTAT+4, RXSTAT+10
$$RFLNUM^IBRXUTL RXSTAT+10
$$RXSEC^IBRXUTL RXSTAT+4
$$ZEROSUB^IBRXUTL RXSTAT+10
ZERO^IBRXUTL RXSTAT+15
$$CPT^ICPTCOD DISRC+1
$$MOD^ICPTMOD MODHLP+9, MODHLP+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IBCU1+9
Function Call: WRITE
  • Prompt: "CHOOSE FROM",!!?4,"1 - ",$P(IB01,"^",6)
  • Line Location: IBCU1+10
Function Call: WRITE
  • Prompt: !?4,IB00," - ",$P(IB01,"^",$S(IB00=2:14,1:15))
  • Line Location: IBCU1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: IBCU1+11
Function Call: WRITE
  • Prompt: !,"OR "
  • Condition for execution: IB01]""
  • Line Location: IBCU1+11
Function Call: WRITE
  • Prompt: "ENTER BLUE CROSS/SHIELD PROVIDER # (BETWEEN 3-13 CHARACTERS)",!
  • Line Location: IBCU1+11
Function Call: WRITE
  • Prompt: @IOF,!,"Revenue Code Listing",?34,"Units",?45,"Charge"
  • Line Location: RCD+2
Function Call: WRITE
  • Prompt: ?56,"Non-Cov"
  • Condition for execution: $$FT^IBCEF(IBIFN)=3
  • Line Location: RCD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RCD+4
Function Call: WRITE
  • Prompt: !?1,DGIFN,?4,$P(^DGCR(399.2,+Z,0),"^"),"-",$E($P(^DGCR(399.2,+Z,0),"^",2),1,19)
  • Line Location: DISRC+0
Function Call: WRITE
  • Prompt: ?28,$P($$CPT^ICPTCOD(+$P(Z,U,6)),U,2)
  • Line Location: DISRC+1
Function Call: WRITE
  • Prompt: ?36,$P(Z,"^",3),?40
  • Line Location: DISRC+2
Function Call: WRITE
  • Prompt: X
  • Line Location: DISRC+2
Function Call: WRITE
  • Prompt: ?51,X
  • Line Location: DISRC+3
Function Call: WRITE
  • Prompt: ?64,$E($P(^(0),"^"),1,15)
  • Line Location: DISRC+4
Function Call: WRITE
  • Prompt: !,?5,"(Rx: ",$S($P(Z,U,11):$P($G(^IBA(362.4,$P(Z,U,11),0)),U),1:"Link Missing")," Procedure "_$S($P(Z,U,15):"#"_$P(Z,U,15)_" "_$$CPTNM^IBCRBH1(IBIFN,4,$P(Z,U,15)),1:"Link Missing"),")"
  • Line Location: DISRC+6
Routine Call
  • DIC
  • Line Location:
    • MODHLP+17
Routine Call
  • DIE
  • Line Location:
    • ATTREND+57

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(81.3 - [#81.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] RCD+1, RCD+3, RVCPRC+3, ORDNXT+4, DXBSTAT+2, DELPR+7, MODHLP+5, ATTREND+35, ATTREND+37, ATTREND+44
^DGCR(399.1 - [#399.1] DISRC+4
^DGCR(399.2 - [#399.2] DISRC
^DGCR(399.3 - [#399.3] RVCPRC+4
^DIC(36 - [#36] ATTREND+46
^IBA(362.3 - [#362.3] ORDNXT+4, ORDDUP+2, DXDUP+2, DXDUP+3, DXBSTAT+1
^IBA(362.4 - [#362.4] DISRC+6
^IBE(350.9 - [#350.9] IBCU1+9
^TMP($J RXSTAT+16, RXSTAT+21!
^VA(200 - [#200] PRVLIC+6, PRVLIC+7

Label References

Name Line Occurrences
DISRC RCD+3

Naked Globals

Name Field # of Occurrence
^(0 RCD+3, DISRC+4, MODHLP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR PRVLIC~, PRVLIC+5!, PRVLIC+11*
ARR( PRVLIC+10*
ATTRENDD ATTREND+31~, ATTREND+37*, ATTREND+48, ATTREND+49, ATTREND+51, ATTREND+52, ATTREND+54, ATTREND+55
DA DELPR+5~, DELPR+6*, DELPR+7, MODHLP~, MODHLP+5
DA(1 DELPR+6*, DELPR+7, MODHLP+4, MODHLP+5
DATA ATTREND+31~
>> DGIFN RCD+3*, DISRC
DIC MODHLP+3~, MODHLP+14*
DIC("S" MODHLP+15*
DIC("W" MODHLP+16*
DIC(0 RCD+5*, MODHLP+14*
DIFN ORDDUP~, ORDDUP+2, DXDUP~, DXDUP+2, DXDUP+3, DXBSTAT~, DXBSTAT+1
DIK DELPR+5~, DELPR+7*
DRUG RXSTAT~, RXSTAT+2*, RXSTAT+15, RXSTAT+16
DX DXDUP~, DXDUP+2, DXDUP+3
FIELD ATTREND~, ATTREND+48, ATTREND+49, ATTREND+51, ATTREND+52, ATTREND+54, ATTREND+55
FILLDT RXSTAT~, RXSTAT+2*, RXSTAT+4, RXSTAT+10
FT ATTREND+31~, ATTREND+32*, ATTREND+33, ATTREND+35, ATTREND+40
I ATTREND+31~, ATTREND+43*, ATTREND+44, ATTREND+47, ATTREND+50, ATTREND+53
IB DELPR~, DELPR+6
IB00 IBCU1+10*, IBCU1+11!
IB01 IBCU1+9*, IBCU1+10, IBCU1+11!
IBCNT PRVLIC+5~*, PRVLIC+10*, PRVLIC+11
IBD0 RVCPRC~, RVCPRC+3*, RVCPRC+4, RVCPRC+5
IBDATE MODHLP+3~, MODHLP+4*, MODHLP+9, MODHLP+10
IBDR ATTREND+31~
IBDR(0 ATTREND+57
IBDR(399 ATTREND+48*, ATTREND+49*, ATTREND+51*, ATTREND+52*, ATTREND+54*, ATTREND+55*
IBDT PRVLIC~, PRVLIC+8
>> IBI RCD+3*
IBIFN RCD+1, RCD+2, RCD+3, DISRC+3, DISRC+6, RVCPRC~, RVCPRC+3, QMED~, QMED+7, ATTREND~
, ATTREND+32, ATTREND+35, ATTREND+37, ATTREND+44, ATTREND+48, ATTREND+49, ATTREND+51, ATTREND+52, ATTREND+54, ATTREND+55
IBIFN1 ATTREND~, ATTREND+36
IBLN RXSTAT+2~*, RXSTAT+4*, RXSTAT+5*, RXSTAT+10*, RXSTAT+16*, RXSTAT+22, PRVLIC+5~, PRVLIC+7*, PRVLIC+8, PRVLIC+9
, PRVLIC+10
IBNUM RXSTAT+2~, RXSTAT+10*
IBON QMED+6~*, QMED+7*, QMED+8
>> IBPRCOB ATTREND+28
IBRTN QMED~, QMED+7
IBX ORDDUP+1~, ORDDUP+2*, DXDUP+2~*, DXBSTAT+1~*, RXSTAT+2~, RXSTAT+4*, RXSTAT+7, RXSTAT+8, RXSTAT+10*, RXSTAT+12
, RXSTAT+13, RXSTAT+16*, PRVLIC+5~*, PRVLIC+9*, PRVLIC+11*, PRVLIC+12, DELPR~, DELPR+6
IBY ORDDUP+1~*, ORDDUP+2*, ORDDUP+3, DXDUP+2~*, DXDUP+3*, DXDUP+4, DXBSTAT+1~, DXBSTAT+2*, DXBSTAT+3, RXSTAT+2~
, RXSTAT+16*, RXSTAT+17, RXSTAT+18, RXSTAT+19, RXSTAT+20, PRVLIC+5~, PRVLIC+6*, PRVLIC+7
IBZ RXSTAT+2~, RXSTAT+4*, RXSTAT+7*, RXSTAT+8*, RXSTAT+10*, RXSTAT+12*, RXSTAT+13*, RXSTAT+16*, RXSTAT+17*, RXSTAT+18*
, RXSTAT+19*, RXSTAT+20*, MODHLP+3~, MODHLP+12
IBZ( MODHLP+9*, MODHLP+10*, MODHLP+11*
IBZ(1 MODHLP+8*
IFN ORDNXT~, ORDNXT+4, DXDUP~, DXDUP+2*, DXDUP+3, DXBSTAT~, DXBSTAT+1*, DXBSTAT+2
IFUNC ATTREND+31~, ATTREND+35*, ATTREND+36, ATTREND+37
INS ATTREND+31~, ATTREND+44*, ATTREND+45, ATTREND+46
IOF RCD+2
NPIFN PRVLIC~, PRVLIC+6, PRVLIC+7
ORD ORDDUP~, ORDDUP+2
PC ATTREND+31~, ATTREND+40*, ATTREND+41, ATTREND+46
PIFN RXSTAT~, RXSTAT+2*, RXSTAT+4, RXSTAT+10
Q MODHLP+6~, MODHLP+7*, MODHLP+9*, MODHLP+10*, MODHLP+11*
STIFN PRVLIC~, PRVLIC+9, PRVLIC+11
U DISRC+1, DISRC+3, DISRC+5, DISRC+6, RVCPRC+4, RVCPRC+5, ORDDUP+2, DXDUP+2, DXBSTAT+1, DXBSTAT+2
, RXSTAT+4, RXSTAT+7, RXSTAT+8, RXSTAT+10, RXSTAT+12, RXSTAT+13, RXSTAT+16, PRVLIC+8, MODHLP+5, MODHLP+9
, MODHLP+10, ATTREND+44, ATTREND+46, ATTREND+48, ATTREND+49, ATTREND+51, ATTREND+52, ATTREND+54, ATTREND+55
X DISRC+2*, DISRC+3*, RVCPRC+2~*, RVCPRC+4*, RVCPRC+5*, RVCPRC+6, ORDNXT+4~*, ORDNXT+5, DELPR+5~
>> X2 DISRC+2*, DISRC+3*
Y ORDNXT+4~*, DELPR+5~
Z RCD+3*, DISRC, DISRC+1, DISRC+2, DISRC+3, DISRC+4, DISRC+5, DISRC+6, MODHLP+3~, MODHLP+5*
, MODHLP+8, MODHLP+9, MODHLP+10
Z0 DISRC~

Marked Items

Name Field # of Occurrence
$T(@IBRTN QMED+7
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 |  Marked Items |  All