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

Entry Points

Name Comments DBIA/ICR reference
RCD ;Revenue Code Display
DISRC
RVCPRC(IBIFN,IBD0) ; returns 1 if CHAMPVA rate type + 2 if CMS-1500, 0 otherwise
; IBD0 - zero node of bill if available, not required
ORDNXT(IFN) ;CALLED BY TRIGGER ON (362.3,.02) THAT SETS DX PRINT ORDER (362.3,.03),
ORDDUP(ORD,DIFN) ;returns true if print order ORD is already defined for a bill (not same entry)
DXDUP(DX,DIFN,IFN) ;returns true if DX is already defined for a bill (not same entry)
DXBSTAT(DIFN,IFN) ;returns a diagnosis' bill status (either DIFN or IFN can be passed, both are not needed)
RXSTAT(DRUG,PIFN,FILLDT) ; returns status/definition of rx
; returns: ORIGINAL ^ RELEASED/RETURNED TO STOCK ^ DRUG DEA
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
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
MODHLP(DA) ; Executable modifier help 399.042 .14
; DA = iens of the current entry DA(1) = file 399 ien
; DA = file 399.042 ien
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
ATTREND(IBIFN,IBIFN1,FIELD) ; This function is called from Mumps Cross References in the claim file 399 and
; also the PROVIDER subfile 399.0222.

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,?6,$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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(81.3 - [#81.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call