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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 3 $$ERRTXT^IBECUS22  $$DAT1^IBOUTL  ($$FILE,$$RX3,$$RXSEC,$$RXZERO,$$SUBFILE,ZERO)^IBRXUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 YMD^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
REM ; Delete rejects.
TRNHDR ; Print the Transmission Report header.
REJDQ ; Tasked entry point.
REJERR ; Write the prescription and name.
TRN ; Generate the Pharmacy Billing Transmission Report
TRNDQ ; Tasked entry point.
FDTQ
REJQ
AWP ;
REJ ; Generate the Pharmacy Billing Reject report.
REJHDR ; Print the Reject report header.
DASH() ; Return a dashed line.
TRNDAT ; Display basic description information.
TRNQ
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.
PAUSE ; Page break

External References

Name Field # of Occurrence
YMD^%DTC AWP+5
^%ZIS REJ+6, TRN+8
HOME^%ZIS REJ+10, TRN+13
^%ZISC REJQ, TRNQ
^%ZTLOAD REJ+9, TRN+12
^DIR PAUSE+4, TRN+3, TRN+4
$$ERRTXT^IBECUS22 REJDQ+20, TRNDQ+26, TRNDQ+36
$$DAT1^IBOUTL REJHDR+3, REJERR+1, TRNHDR+3, TRNDAT+1
$$FILE^IBRXUTL REJDQ+9, TRNDQ+8, FDT+8
$$RX3^IBRXUTL FDT+8
$$RXSEC^IBRXUTL FDT+8
$$RXZERO^IBRXUTL REJDQ+9, TRNDQ+12
$$SUBFILE^IBRXUTL FDT+7
ZERO^IBRXUTL TRNDQ+17

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
  • Timeout: DTIME
  • Variable: JADTA
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • REJ+10
    • TRN+13
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
    • TRN+3
    • TRN+4
Routine Call
  • %ZIS
  • Line Location:
    • REJ+6
    • TRN+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TRNHDR+5, AWP+5
^DPT - [#2] REJERR+2, TRNDQ+12
^IBA(351.5 - [#351.5] TRNDQ+5, TRNDQ+6
^IBA(351.52 - [#351.52] REJ+3, REJDQ+5, REJDQ+6
^JADREJ( REM+3, REM+4!
^JADUTIL("AWP UPDATE" AWP+1, AWP+3, AWP+4!, AWP+6
^TMP($J TRNDQ+18, TRNDQ+19!
^VA(200 - [#200] TRNDQ+41

Label References

Name Line Occurrences
$$DASH REJHDR+3, REJHDR+4, TRNHDR+3, TRNHDR+10
$$FDT REJDQ+11, TRNDQ+13
FDTQ FDT+5, FDT+7
PAUSE REJDQ+14, REJDQ+19, REJDQ+24, TRNDQ+15, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40, TRNDQ+44
REJERR REJDQ+15, REJDQ+19
REJHDR REJDQ+2, REJDQ+14, REJDQ+19
REJQ REJ+3, REJ+6, REJ+7
REM REM+3, REM+4
TRN TRN+5
TRNDAT TRNDQ+16, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40
TRNHDR TRNDQ+2, TRNDQ+15, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40
TRNQ TRN+3, TRN+4, TRN+8, TRN+9

Naked Globals

Name Field # of Occurrence
^(0 REJERR+2
^(1 REJDQ+6
^(2 TRNDQ+6
^(5 TRNDQ+6
^(6 TRNDQ+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H AWP+5*
>> %ZIS REJ+6*, TRN+8*
>> A AWP+3*, AWP+4, AWP+5, AWP+6
DFN REJDQ+9*, REJQ+1!, REJERR+2, TRNQ+1!, FDT+4~, FDT+8*
DIR PAUSE+2~, TRN+3!, TRN+4!
DIR("A" TRN+3*, TRN+4*
DIR(0 PAUSE+4*, TRN+3*, TRN+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4, TRN+3, TRN+4
DT REJHDR+3, TRN+3, TRN+4, TRNHDR+3
DTIME REM+2
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
>> I REJDQ+18*, TRN+11*, TRNDQ+24*, TRNDQ+34*
IBBEG TRN+3*, TRN+4, TRN+5, TRNDQ+9, TRNQ+1!, TRNHDR+5
IBC TRNDQ+5*, TRNDQ+6, TRNQ+2!
IBCD TRNDQ+6*, TRNDQ+7, TRNDQ+8, TRNDQ+12, TRNDQ+13, TRNDQ+31, TRNQ+2!
IBCD2 TRNDQ+6*, TRNDQ+31, TRNDQ+32, TRNQ+2!
IBCD5 TRNDQ+6*, TRNDQ+21, TRNDQ+24, TRNDQ+28, TRNQ+2!
IBCD6 TRNDQ+6*, TRNDQ+21, TRNDQ+34, TRNDQ+39, TRNDQ+41, TRNQ+2!
IBD TRNDQ+8*, TRNDQ+9, TRNDQ+10, TRNQ+2!
IBDPT TRNQ+2!
IBDPT(0 TRNDQ+12*, TRNDAT+2
IBEND TRN+4*, TRN+5, TRNDQ+10, TRNQ+1!, TRNHDR+5
IBERRP REJDQ+18*, REJDQ+20, REJQ+1!, TRNDQ+24*, TRNDQ+26, TRNDQ+34*, TRNDQ+36, TRNQ+1!
IBFDT REJDQ+11*, REJQ+1!, REJERR+1, TRNDQ+13*, TRNQ+2!, TRNDAT+1
IBPAG REJDQ+2*, REJQ+1!, REJHDR+1, REJHDR+2*, REJHDR+4, TRNDQ+2*, TRNQ+1!, TRNHDR+1, TRNHDR+2*, TRNHDR+4
IBQ REJDQ+2*, REJDQ+5, REJDQ+14, REJDQ+18, REJDQ+19, REJDQ+24, REJQ+1!, PAUSE+4*, TRNDQ+2*, TRNDQ+5
, TRNDQ+15, TRNDQ+24, TRNDQ+25, TRNDQ+30, TRNDQ+34, TRNDQ+35, TRNDQ+40, TRNDQ+44, TRNQ+1!
IBR REJDQ+5*, REJDQ+6, REJQ+1!, TRNQ+1!
IBR0 REJDQ+6*, REJDQ+7, REJDQ+9, REJDQ+11, REJQ+1!, TRNQ+1!
IBR1 REJDQ+6*, REJDQ+18, REJQ+1!, TRNQ+1!
IBRXD REJDQ+9*, REJDQ+10, REJQ+1!, REJERR+1, TRNDQ+12*, TRNDQ+17, TRNDQ+18, TRNQ+1!, TRNDAT+1
IBRXN FDT+4~, FDT+6*, FDT+7, FDT+8
IBTXT REJDQ+20*, REJDQ+21, REJQ+1!, TRNDQ+26*, TRNDQ+27, TRNDQ+36*, TRNDQ+37, TRNQ+1!
IBX PAUSE+2~, PAUSE+3*
IO REJ+12, TRN+15
IO("Q" REJ+7, REJ+10!, TRN+9, TRN+13!
IOF REJHDR+1, TRNHDR+1
IOM REJHDR+3, REJHDR+4, DASH+1, TRNHDR+3, TRNHDR+4, TRNHDR+5
IOSL REJDQ+14, REJDQ+19, PAUSE+3, TRNDQ+15, TRNDQ+25, TRNDQ+30, TRNDQ+35, TRNDQ+40
IOST REJHDR+1, PAUSE+1, TRNHDR+1
>> JADTA REM+2*, REM+3, REM+4
>> POP REJ+6, TRN+8
X PAUSE+2~, FDT~, FDT+5, FDT+6, FDT+7, AWP+5
Y PAUSE+2~, TRN+3, TRN+4, TRNHDR+5*, FDT+4~*, FDT+7*, FDT+9*, FDTQ, AWP+5*, AWP+6
>> Z2 FDT+8*, FDT+9
>> Z3 FDT+8*, FDT+9
>> ZTDESC REJ+8*, TRN+10*
>> ZTQUEUED REJQ, TRNQ
>> ZTRTN REJ+8*, TRN+10*
>> ZTSAVE( TRN+11*
ZTSK REJ+9, REJ+10!, TRN+12, TRN+13!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All