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

Package: Integrated Billing

Routine: IBNCPRR


Information

IBNCPRR ;DALOI/AAT - Prescription Report for 3rd Party Billing cross check ;07/21/04

Source Information

Source file <IBNCPRR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIV
WMC
ENB
DATE ;
INS
SDE
DEVICE ;
RUN ;
REPORT ;
WRLINE ; Write the summary report line
WRLINE2 ; Write the detailed report line
WRLINE3 ; Write the Excel report line
HDR ;
COLLECT ;
RXWMC(IBRX) ;WMC
CHKP ;Check for EOP
PAUSE ;
PAUSE2 ;
ULINE(X) ;line
RXSTAT(IBDFN,IBRX) ;
RXSTATUS(IBDFN,IBRX) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WMC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SDE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+13
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+8
Function Call: WRITE
  • Prompt: !,"No data meet the criteria."
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !,$$DAT3^IBOUTL(IBDT)," ",?12,$E(IBPN,1,23)," "
  • Line Location: WRLINE+2
Function Call: WRITE
  • Prompt: ?36,$E($$FILE^IBRXUTL(IBRX,.01),1,11)," ",?48,IBFL
  • Line Location: WRLINE+3
Function Call: WRITE
  • Prompt: ?51,$P(IBD,U,3)," "
  • Line Location: WRLINE+4
Function Call: WRITE
  • Prompt: ?59,$P($G(^DGCR(399,+$P(IBD,U,4),0)),U)," "
  • Line Location: WRLINE+5
Function Call: WRITE
  • Prompt: ?67,$E($P($G(^DIC(36,+$P(IBD,U,5),0)),U),1,13)
  • Line Location: WRLINE+6
Function Call: WRITE
  • Prompt: !,$$DAT^IBNCPRR1(IBDT)," ",?10,$E(IBPN,1,18)," "
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: ?29,$$SSN4^IBNCPRR1(+IBD)
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: ?34,$E($$FILE^IBRXUTL(IBRX,.01),1,10)," "
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: ?45,IBFL," "
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: ?49,$$DAT^IBNCPRR1($P(IBD,U,2))," "
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: ?60,$E(DRUGNM,1,20)
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: !?5,"ECME#: ",$P(IBD,U,3),", Rx Status: ",$$FILE^IBRXUTL(IBRX,100,"E"),", Rx Copay: ",$$COPAY^IBNCPRR1(IBRX,IBFL)
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: !?5,"Bill#: ",$P($G(^DGCR(399,+$P(IBD,U,4),0)),U)
  • Line Location: WRLINE2+17
Function Call: WRITE
  • Prompt: ", Insurance: ",$E($P($G(^DIC(36,+$P(IBD,U,5),0)),U),1,20)
  • Line Location: WRLINE2+18
Function Call: WRITE
  • Prompt: !?5,"CMOP SEQUENCE# ",SEQNUM
  • Line Location: WRLINE2+36
Function Call: WRITE
  • Prompt: ", STATUS: ",$P(^TMP($J,"IBRX",DFN,IBRX,"C",IBCMOP,3),"^",2)
  • Line Location: WRLINE2+37
Function Call: WRITE
  • Prompt: ", NDC: ",$P(^TMP($J,"IBRX",DFN,IBRX,"C",IBCMOP,4),"^",1)
  • Line Location: WRLINE2+38
Function Call: WRITE
  • Prompt: !?5,"NO CMOP TRANSACTIONS FOUND"
  • Line Location: WRLINE2+40
Function Call: WRITE
  • Prompt: !?5,$$DATTIM^IBNCPRR1(+IBZ),?21,$E(IBTXT,1,59)
  • Line Location: WRLINE2+58
Function Call: WRITE
  • Prompt: !?5,"-------------------------------"
  • Line Location: WRLINE2+61
Function Call: WRITE
  • Prompt: !,$$DAT^IBNCPRR1(IBDT),U,$E(IBPN,1,23),U
  • Line Location: WRLINE3+1
Function Call: WRITE
  • Prompt: $E($$FILE^IBRXUTL(IBRX,.01),1,11),U,IBFL,U
  • Line Location: WRLINE3+2
Function Call: WRITE
  • Prompt: $$DAT^IBNCPRR1($P(IBD,U,2)),U
  • Line Location: WRLINE3+3
Function Call: WRITE
  • Prompt: $P(IBD,U,3),U
  • Line Location: WRLINE3+4
Function Call: WRITE
  • Prompt: $P($G(^DGCR(399,+$P(IBD,U,4),0)),U),U
  • Line Location: WRLINE3+5
Function Call: WRITE
  • Prompt: $E($P($G(^DIC(36,+$P(IBD,U,5),0)),U),1,13)
  • Line Location: WRLINE3+6
Function Call: WRITE
  • Prompt: @IOF,?10,"IB THIRD PARTY BILLING PHARMACY CROSS-CHECK REPORT for "_IBSNAME,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?10,$S(IBWMC="C":"CMOP",IBWMC="M":"MAIL",1:"WINDOW")," PRESCRIPTIONS"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ", ",$S(IBSDE="S":"SUMMARY",1:"DETAILED")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?10,"Released ",$$DAT3^IBOUTL(IBBDT)_" to "_$$DAT3^IBOUTL(IBEDT),?70,"Page: "_IBPAGE
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!,"Rel.Date Patient Name Rx No Fill# ECME# Bill Insurance"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !!,"Rel.Date Patient Name SSN Rx No Fill# Fil.Date Drug"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!,"Rel.Date^Patient Name^SSN^Rx No^Fill#^Fil.Date^ECME#^Bill"
  • Line Location: HDR+16
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ULINE+2
Function Call: WRITE
  • Prompt: $G(X,"-")
  • Line Location: ULINE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] EXTERNAL^DILFD
52.3 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call