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

Package: Integrated Billing

Routine: IBNCPBB


Information

IBNCPBB ;DALOI/AAT - ECME BACKBILLING ;24-JUN-2003

Source Information

Source file <IBNCPBB.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;[IB GENERATE ECME RX BILLS] entry
CT(IBTRN) ;CT ENTRY
MODE ;
; IBMOD1: "P"-Single Patient, "R"-Single Rx
; IBMOD3 (if IBMOD1="P"): "U"-Unbilled, "A"-All Rx
; IBPAT (if IBMOD1="P"): Patient's DFN
; IBBDT,IBEDT (if IBMOD1="P"): From/To dates inclusive
DATE ;
SELECT ;Select from patient's list
; (IBPAT,IBBDT,IBEDT,IBMOD3)
SELECT2 ;Select from Rx list
; (IBRX)
MKCHOICE ;
CONFIRM ;
CONFRX(IBRX) ;
STAT(X) ;
BILL(IBRXN,IBDT) ;Bill IEN (if any) or null
RXDATA(IBRX,IBFIL) ;
DISP(IBITEM) ;
PARSE(X) ;
PAUSE(MESSAGE) ;
SC(IEN) ;Service connected
DLYRC(DFLT) ; function, ask for NCPDP field 357-NV Delay Reason Code
; DFLT = optional default value (integer from 1-14)
; returns code or "^" on time-out, etc.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"This option sends electronic Pharmacy Claims to the Payer"
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: !!,"This is not a Pharmacy Claims Tracking record",*7,!
  • Line Location: CT+10
Function Call: WRITE
  • Prompt: !!,"The Prescription is not released.",!
  • Line Location: CT+17
Function Call: WRITE
  • Prompt: !!,"The Rx is marked 'non-billable' in CT: ",$P($G(^IBE(356.8,+$P(IBZ,U,19),0)),U)
  • Line Location: CT+36
Function Call: WRITE
  • Prompt: !,"If you continue, the NON-BILLABLE REASON will be deleted.",!
  • Line Location: CT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: CT+41
Function Call: WRITE
  • Prompt: !!,"The Prescription is marked 'non-billable' in Claims Tracking",*7
  • Line Location: CT+48
Function Call: WRITE
  • Prompt: !,"Reason non-billable: ",$P($G(^IBE(356.8,+$P(IBZ,U,19),0),"Unknown"),U),!
  • Line Location: CT+49
Function Call: WRITE
  • Prompt: !!,"The patient is not ECME Billable at the ",$S(IBFIL:"re",1:""),"fill date."
  • Line Location: CT+54
Function Call: WRITE
  • Prompt: !,"Reason: ",$P(IBRES,U,2,255),!
  • Line Location: CT+55
Function Call: WRITE
  • Prompt: !!,"Rx# ",IBRXN," was previously billed."
  • Line Location: CT+61
Function Call: WRITE
  • Prompt: !,"Please manually cancel the bill# ",$P($G(^DGCR(399,IBBIL,0)),U)," before submitting claim to ECME.",!
  • Line Location: CT+62
Function Call: WRITE
  • Prompt: !,"The bill# ",$P($G(^DGCR(399,IBBIL,0)),U)," has been cancelled.",!
  • Line Location: CT+64
Function Call: WRITE
  • Prompt: !!,"Submitting Rx# ",IBRXN
  • Line Location: CT+70
Function Call: WRITE
  • Prompt: ", Refill# ",IBFIL
  • Condition for execution: IBFIL
  • Line Location: CT+70
Function Call: WRITE
  • Prompt: " ..."
  • Line Location: CT+70
Function Call: WRITE
  • Prompt: !," ",$S(+IBRES=0:"S",1:"Not s")_"ent through ECME."
  • Line Location: CT+71
Function Call: WRITE
  • Prompt: !," *** ECME returned status: ",$$STAT(IBRES),!
  • Line Location: CT+72
Function Call: WRITE
  • Prompt: !!,"The Rx have been submitted to ECME for electronic billing",!
  • Line Location: CT+73
Function Call: WRITE
  • Prompt: !,"???"
  • Line Location: MODE+17
Function Call: WRITE
  • Prompt: *7,!!,"Warning! The patient is currently not ECME billable!"
  • Line Location: MODE+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT2+4
Function Call: WRITE
  • Prompt: !,"The Rx does not exist. Please try again."
  • Line Location: SELECT2+7
Function Call: WRITE
  • Prompt: !,"The Rx has not been released. Please try again."
  • Line Location: SELECT2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MKCHOICE+2
Function Call: WRITE
  • Prompt: !!," No Rxs meet the entered criteria. Please try again."
  • Line Location: MKCHOICE+5
Function Call: READ
  • Variable: IBSEL
  • Timeout: DTIME
  • Line Location: MKCHOICE+7
Function Call: WRITE
  • Prompt: !!,"Enter Line Item(s) to submit to ECME or (A)LL :"
  • Line Location: MKCHOICE+7
Function Call: WRITE
  • Prompt: !?10,"Enter number(s) or item range(s) separated by comma."
  • Line Location: MKCHOICE+8
Function Call: WRITE
  • Prompt: !?10,"Example: 1,3,7-11"
  • Line Location: MKCHOICE+9
Function Call: WRITE
  • Prompt: $E("ALL",$L(IBSEL)+1,3)
  • Line Location: MKCHOICE+11
Function Call: WRITE
  • Prompt: " Nothing selected"
  • Line Location: MKCHOICE+12
Function Call: WRITE
  • Prompt: " Cancelled"
  • Line Location: MKCHOICE+13
Function Call: WRITE
  • Prompt: !!,"No item(s) match the selection."
  • Line Location: MKCHOICE+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFRX+2
Function Call: WRITE
  • Prompt: !,IBITEM," ",?4,$P(IBD,U,2)," ",?15,$P(IBD,U,3)," ",?20,$$DAT2^IBOUTL($P(IBD,U,4))," "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: ?32,$E($$DRUG^IBRXUTL1(+$P(IBD,U,5)),1,30)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?64,$P($G(^DGCR(399,+IBBIL,0)),U)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: "(canc)"
  • Line Location: DISP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBT(356 - [#356] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call