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
Print Page as PDF
Routine: IBECUSO

Package: Integrated Billing

Routine: IBECUSO


Information

IBECUSO ;RLM/DVAMC - TRICARE PHARMACY BILLING OUTPUTS ; 21-AUG-96

Source Information

Source file <IBECUSO.m>

Entry Points

Name Comments DBIA/ICR reference
REJ ; Generate the Pharmacy Billing Reject report.
REJDQ ; Tasked entry point.
REJQ
REJHDR ; Print the Reject report header.
REJERR ; Write the prescription and name.
DASH() ; Return a dashed line.
PAUSE ; Page break
TRN ; Generate the Pharmacy Billing Transmission Report
TRNDQ ; Tasked entry point.
TRNQ
TRNHDR ; Print the Transmission Report header.
TRNDAT ; Display basic description information.
FDT(X) ; Find the Fill Date for the prescription.
; Input: X -- 1;2 where 1 :> pointer to the rx in file #52, and
; 2 :> pointer to the re-fill in #52.1, or
; 0 if this is the original fill.
FDTQ
AWP ;
REM ; Delete rejects.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no rejects to be printed."
  • Line Location: REJ+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: REJ+9
Function Call: WRITE
  • Prompt: !?4,IBTXT
  • Line Location: REJDQ+21
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: REJHDR+1
Function Call: WRITE
  • Prompt: !,$$DASH(),!,"Date: ",$$DAT1^IBOUTL(DT),?(IOM/2)-14,"IPS Unresolved Reject Report"
  • Line Location: REJHDR+3
Function Call: WRITE
  • Prompt: ?(IOM-10),"Page: ",IBPAG,!,$$DASH()
  • Line Location: REJHDR+4
Function Call: WRITE
  • Prompt: !!,"RX# ",$P(IBRXD,"^"),", filled on ",$$DAT1^IBOUTL(IBFDT)
  • Line Location: REJERR+1
Function Call: WRITE
  • Prompt: " (",$E($P($G(^DPT(DFN,0)),"^"),1,17)," ",$P($G(^(0)),"^",9),")"
  • Line Location: REJERR+2
Function Call: WRITE
  • Prompt: " rejected because:"
  • Line Location: REJERR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"Beginning data must be before ending date.",!
  • Line Location: TRN+5
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: TRN+12
Function Call: WRITE
  • Prompt: !?4,IBTXT
  • Line Location: TRNDQ+27
Function Call: WRITE
  • Prompt: !?4,IBTXT
  • Line Location: TRNDQ+37
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: TRNHDR+1
Function Call: WRITE
  • Prompt: !,$$DASH(),!,"Date: ",$$DAT1^IBOUTL(DT),?(IOM/2)-16,"IPS Prescription Status Report"
  • Line Location: TRNHDR+3
Function Call: WRITE
  • Prompt: ?(IOM-10),"Page: ",IBPAG
  • Line Location: TRNHDR+4
Function Call: WRITE
  • Prompt: !?(IOM/2)-17
  • Line Location: TRNHDR+5
Function Call: WRITE
  • Prompt: Y," through "
  • Line Location: TRNHDR+5
Function Call: WRITE
  • Prompt: Y," through "
  • Line Location: TRNHDR+5
Function Call: WRITE
  • Prompt: !,"RX#",?15,"Fill Date",?27,"Patient Name",?62,"Patient SSN"
  • Line Location: TRNHDR+6
Function Call: WRITE
  • Prompt: !,"NDC",?15,"AWP",?25,"Copay",?35,"Ing Cost",?45,"Fee Paid",?55,"Total PD"
  • Line Location: TRNHDR+7
Function Call: WRITE
  • Prompt: !?15,"Auth. #",?39,"Message"
  • Line Location: TRNHDR+8
Function Call: WRITE
  • Prompt: !,"Reject Failure Codes"
  • Line Location: TRNHDR+9
Function Call: WRITE
  • Prompt: !,$$DASH(),!
  • Line Location: TRNHDR+10
Function Call: WRITE
  • Prompt: !!,$P(IBRXD,"^"),?15,$$DAT1^IBOUTL(IBFDT)
  • Line Location: TRNDAT+1
Function Call: WRITE
  • Prompt: ?27,$P(IBDPT(0),"^"),?62,$P(IBDPT(0),"^",9)
  • Line Location: TRNDAT+2
Function Call: WRITE
  • Prompt: !,"No updates on file"
  • Line Location: AWP+1
Function Call: WRITE
  • Prompt: !,"Date Quantity"
  • Line Location: AWP+2
Function Call: WRITE
  • Prompt: !!,"Delete entry from IPS error file"
  • Line Location: REM+1
Function Call: READ
  • Variable: JADTA
  • Timeout: DTIME
  • Line Location: REM+2
Function Call: WRITE
  • Prompt: !,"Delete RX#: "
  • Line Location: REM+2
Function Call: WRITE
  • Prompt: !,JADTA," is not in the error file."
  • Line Location: REM+3
Function Call: WRITE
  • Prompt: !,JADTA," has been deleted."
  • Line Location: REM+4
Info |  Source |  Entry Points |  Interaction Calls