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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 5 $$BILL^IBNCPBB  $$ECMEBIL^IBNCPDPU  ($$BILLINS,$$COPAY,$$DAT,$$DATTIM,$$ECMENO,$$NXTREFDT,$$RXINS,$$SSN4)^IBNCPRR1  $$DAT3^IBOUTL  ($$FILE,$$RXZERO,$$SUBFILE,ZERO)^IBRXUTL  
Outpatient Pharmacy 4 RX^PSO52API  EXTRACT^PSO52EX  PSS^PSO59  (DIC,DIQ)^PSODI  
VA FileMan 4 ^%DT  ^DIC  $$EXTERNAL^DILFD  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBNCPDP1  IBNCPEV  

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) ;

External References

Name Field # of Occurrence
^%DT DATE+5, DATE+10
^%ZIS DEVICE+3
HOME^%ZIS DEVICE+14
^%ZISC RUN+9
^%ZTLOAD DEVICE+12
^DIC INS+7
$$EXTERNAL^DILFD WRLINE2+57, RXSTAT+4
^DIR WMC+2, ENB+2, INS+2, SDE+3
$$BILL^IBNCPBB COLLECT+18
$$ECMEBIL^IBNCPDPU COLLECT+21
$$BILLINS^IBNCPRR1 COLLECT+19
$$COPAY^IBNCPRR1 WRLINE2+14
$$DAT^IBNCPRR1 WRLINE2+3, WRLINE2+7, WRLINE3+1, WRLINE3+3
$$DATTIM^IBNCPRR1 WRLINE2+58
$$ECMENO^IBNCPRR1 COLLECT+28
$$NXTREFDT^IBNCPRR1 WRLINE2+44
$$RXINS^IBNCPRR1 COLLECT+20
$$SSN4^IBNCPRR1 WRLINE2+4
$$DAT3^IBOUTL WRLINE+2, HDR+10
$$FILE^IBRXUTL WRLINE+3, WRLINE2+5, WRLINE2+9, WRLINE2+14, WRLINE2+25, WRLINE2+46, WRLINE3+2, COLLECT+10, COLLECT+12, COLLECT+13
COLLECT+15, RXWMC+2, RXWMC+5
$$RXZERO^IBRXUTL COLLECT+11, RXWMC+5
$$SUBFILE^IBRXUTL COLLECT+16
ZERO^IBRXUTL WRLINE2+9
RX^PSO52API WRLINE2+26, WRLINE2+47, RXWMC+3, RXSTATUS+3
EXTRACT^PSO52EX COLLECT+5
PSS^PSO59 HDR+4
DIC^PSODI DIV+1
DIQ^PSODI WRLINE2+35

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
Routine Call
  • DIC
  • Line Location:
    • INS+7
Routine Call
  • DIR
  • Line Location:
    • WMC+2
    • ENB+2
    • INS+2
    • SDE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] EXTERNAL^DILFD
52.3 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] WRLINE+5, WRLINE2+17, WRLINE3+5
^DIC(36 - [#36] WRLINE+6, WRLINE2+18, WRLINE3+6
^TMP($J RUN+2, WRLINE2+9, WRLINE2+10!, WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+37, WRLINE2+38, WRLINE2+39!, WRLINE2+47
WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56, WRLINE2+59!, HDR+5, HDR+6!, COLLECT+7, COLLECT+8, COLLECT+9
COLLECT+30!, RXWMC+4, RXWMC+8!, RXSTATUS+2!, RXSTATUS+4, RXSTATUS+5!

Label References

Name Line Occurrences
$$RXSTATUS RXSTAT+3
$$RXWMC COLLECT+27
CHKP WRLINE+1, WRLINE2+2, WRLINE2+13, WRLINE2+16, WRLINE2+30, WRLINE2+40, WRLINE2+55, WRLINE2+60, ULINE+1
COLLECT RUN+5
DATE EN+7
DEVICE EN+10
DIV EN+4
ENB EN+6
HDR REPORT+2, CHKP+1
INS EN+8
PAUSE CHKP+1
PAUSE2 EN+12
REPORT RUN+7
RUN EN+11
SDE EN+9
ULINE HDR+17
WMC EN+5
WRLINE REPORT+9
WRLINE2 REPORT+10
WRLINE3 REPORT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~, DATE+3*, DATE+5!, DATE+8*, DATE+10!
%DT("A" DATE+4*, DATE+9*
%DT("B" DATE+4*, DATE+9*
%ZIS DEVICE+1~, DEVICE+2*
CNT COLLECT+1~, COLLECT+6*
DA WRLINE2+31~, WRLINE2+33*, WRLINE2+35
DA( WRLINE2+33*, WRLINE2+35
DFN REPORT+1~, WRLINE2+25*, WRLINE2+26, WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+37, WRLINE2+38, WRLINE2+46*, WRLINE2+47
WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56, COLLECT+1~, COLLECT+10*, COLLECT+11, COLLECT+21, COLLECT+29, RXWMC+1~
, RXWMC+2*, RXWMC+3, RXWMC+4
DIC DIV~, DIV+1*, INS~, INS+6*, WRLINE2+31~
DIC("A" DIV+1*
DIC(0 DIV+1*, INS+6*
DIQ WRLINE2+31~, WRLINE2+34*, WRLINE2+35
DIQ(0 WRLINE2+34*, WRLINE2+35
DIR WMC~, ENB~, INS~, SDE~
DIR("A" WMC+1*, ENB+1*, INS+1*, SDE+1*
DIR("B" WMC+1*, ENB+1*, INS+1*, SDE+1*
DIR(0 WMC+2*, ENB+2*, INS+2*, SDE+2*
DIRUT DIV~, DIV+2, WMC~, WMC+3, ENB~, ENB+3, INS~, INS+3, INS+8, SDE~
SDE+4
DR WRLINE2+31~, WRLINE2+32*, WRLINE2+35
DR( WRLINE2+32*, WRLINE2+35
DRGIFN WRLINE2+8~, WRLINE2+9*
DRUGNM WRLINE2+8~, WRLINE2+9*, WRLINE2+11
DT DATE+2
>> DTE COLLECT+6*, COLLECT+7*, COLLECT+8, COLLECT+9
DTIME PAUSE+1, PAUSE2+1
I ULINE+2~*
IBACT WRLINE2+43~
IBANY WRLINE2+22~, WRLINE2+23*, WRLINE2+38*, WRLINE2+40
IBBDT EN+1~, DATE+2*, DATE+7*, HDR+10, COLLECT+2, COLLECT+5
IBBIL COLLECT+1~, COLLECT+18*, COLLECT+19, COLLECT+29
IBCMOP WRLINE2+22~, WRLINE2+24*, WRLINE2+27*, WRLINE2+28, WRLINE2+29, WRLINE2+33, WRLINE2+37, WRLINE2+38
IBD REPORT+1~, REPORT+8*, WRLINE+4, WRLINE+5, WRLINE+6, WRLINE2+4, WRLINE2+7, WRLINE2+14, WRLINE2+16, WRLINE2+17
WRLINE2+18, WRLINE3+3, WRLINE3+4, WRLINE3+5, WRLINE3+6
IBDFN RXSTAT~, RXSTAT+3, RXSTATUS~, RXSTATUS+3, RXSTATUS+4
IBDT REPORT+1~, REPORT+4*, REPORT+5, REPORT+6, REPORT+7, REPORT+8, WRLINE+2, WRLINE2+3, WRLINE2+44, WRLINE3+1
COLLECT+1~, COLLECT+2*, COLLECT+17, COLLECT+29
IBECMBIL COLLECT+1~, COLLECT+21*, COLLECT+23, COLLECT+24, COLLECT+28
IBECN COLLECT+1~, COLLECT+28*, COLLECT+29
IBEDT EN+1~, DATE+2*, DATE+12*, HDR+10, COLLECT+5
IBENB EN+1~, ENB+4*, COLLECT+23, COLLECT+24
>> IBFIL COLLECT+9*, COLLECT+15, COLLECT+16
IBFILD COLLECT+1~
IBFL REPORT+1~, REPORT+7*, REPORT+8, WRLINE+3, WRLINE2+6, WRLINE2+14, WRLINE2+29, WRLINE2+44, WRLINE3+2, COLLECT+1~
COLLECT+16, COLLECT+20, COLLECT+29
IBFLDT COLLECT+1~, COLLECT+15*, COLLECT+16*, COLLECT+17*, COLLECT+18, COLLECT+21, COLLECT+29
IBFROM WRLINE2+43~, WRLINE2+44*, WRLINE2+45, WRLINE2+53
IBINS EN+1~, INS+4*, INS+10*, COLLECT+25
IBP COLLECT+1~
IBPAGE RUN+1~, RUN+4*, HDR+7*, HDR+10
IBPN REPORT+1~, REPORT+5*, REPORT+6, REPORT+7, REPORT+8, WRLINE+2, WRLINE2+3, WRLINE3+1, COLLECT+1~, COLLECT+12*
COLLECT+29
IBQ EN+1~, EN+2*, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+12
DIV+2*, DIV+3*, WMC+3*, ENB+3*, DATE+6*, DATE+11*, INS+3*, INS+8*, INS+9*, SDE+4*
DEVICE+4*, DEVICE+7*, REPORT+4, REPORT+5, REPORT+6, REPORT+7, WRLINE+1, WRLINE2+2, WRLINE2+13, WRLINE2+16
WRLINE2+21, WRLINE2+27, WRLINE2+30, WRLINE2+40, WRLINE2+49, WRLINE2+55, WRLINE2+60, CHKP+1, PAUSE+1*, PAUSE2+1*
, ULINE+1
IBRX REPORT+1~, REPORT+6*, REPORT+7, REPORT+8, WRLINE+3, WRLINE2+5, WRLINE2+9, WRLINE2+14, WRLINE2+25, WRLINE2+26
WRLINE2+27, WRLINE2+28, WRLINE2+29, WRLINE2+33, WRLINE2+37, WRLINE2+38, WRLINE2+44, WRLINE2+46, WRLINE2+47, WRLINE2+49
WRLINE2+51, WRLINE2+52, WRLINE2+56, WRLINE3+2, COLLECT+1~, COLLECT+8*, COLLECT+9, COLLECT+10, COLLECT+11, COLLECT+12
COLLECT+13, COLLECT+15, COLLECT+16, COLLECT+20, COLLECT+27, COLLECT+28, COLLECT+29, RXWMC~, RXWMC+2, RXWMC+3
, RXWMC+4, RXWMC+5, RXSTAT~, RXSTAT+3, RXSTATUS~, RXSTATUS+3, RXSTATUS+4
IBRXARR WRLINE2+1~
IBRXARR( WRLINE2+35
IBRXINS COLLECT+1~, COLLECT+19*, COLLECT+20*, COLLECT+25, COLLECT+29
IBRXN COLLECT+1~, COLLECT+18
IBRXSITE COLLECT+1~, COLLECT+13*, COLLECT+14
IBS RXSTAT+1~, RXSTAT+3*, RXSTAT+4
IBSCR EN+1~, DEVICE+5*, RUN+8, CHKP+1
IBSDE EN+1~, SDE+5*, REPORT+9, REPORT+10, REPORT+11, HDR+9, HDR+11, HDR+13, HDR+15, HDR+17
IBSITE EN+1~, DIV+1*, DIV+3, HDR+4, HDR+5, COLLECT+14
IBSNAME HDR+1~, HDR+3*, HDR+5*, HDR+8
IBTMP WRLINE2+43~, WRLINE2+48*, WRLINE2+49*, WRLINE2+51, WRLINE2+52, WRLINE2+56
IBTO WRLINE2+43~, WRLINE2+44*, WRLINE2+45*, WRLINE2+54
IBTXT WRLINE2+50~, WRLINE2+56*, WRLINE2+57*, WRLINE2+58
IBWM RXWMC+1~, RXWMC+6*, RXWMC+7*, RXWMC+9
IBWMC EN+1~, WMC+4*, WRLINE2+21, HDR+9, COLLECT+27
IBZ WRLINE2+22~, WRLINE2+28*, WRLINE2+50~, WRLINE2+52*, WRLINE2+53, WRLINE2+54, WRLINE2+57, WRLINE2+58, COLLECT+1~, COLLECT+11*
, RXWMC+1~, RXWMC+5*, RXWMC+6
IO DEVICE+15, RUN+6, PAUSE+2, PAUSE2+2
IO("Q" DEVICE+7
IO(0 PAUSE+1, PAUSE2+1
IOF RUN+8, HDR+8
ION DEVICE+9
IOSL CHKP+1
IOST DEVICE+5
LIST WRLINE2+46*, WRLINE2+47, WRLINE2+49, WRLINE2+51, WRLINE2+52, WRLINE2+56, WRLINE2+59, HDR+1~, HDR+2*, HDR+4
HDR+5, HDR+6, COLLECT+1~, COLLECT+4*, COLLECT+5, COLLECT+7, COLLECT+8, COLLECT+9, COLLECT+30, RXWMC+2*
, RXWMC+3, RXWMC+4, RXWMC+8
>> NODE WRLINE2+46*, WRLINE2+47, RXWMC+2*, RXWMC+3
POP DEVICE+1~, DEVICE+4
PSODIY DIV+4!
REF RUN+1~, RUN+2*, RUN+3, RUN+10, REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+7, REPORT+8
COLLECT+29
SEQNUM WRLINE2+8~, WRLINE2+35*, WRLINE2+36
U WRLINE+4, WRLINE+5, WRLINE+6, WRLINE2+7, WRLINE2+14, WRLINE2+16, WRLINE2+17, WRLINE2+18, WRLINE2+57, WRLINE3+1
WRLINE3+2, WRLINE3+3, WRLINE3+4, WRLINE3+5, WRLINE3+6, COLLECT+29, RXWMC+6
X PAUSE+1~*, PAUSE2+1~*, ULINE~, ULINE+2, RXSTATUS+1~, RXSTATUS+4*, RXSTATUS+6
Y DIV+1!, WMC~, WMC+4, ENB~, ENB+4, DATE+1~, DATE+6, DATE+7, DATE+11, DATE+12
, INS~, INS+4, INS+9, INS+10, SDE+5
ZTDESC DEVICE+1~, DEVICE+11*
ZTIO DEVICE+1~, DEVICE+9*
ZTRTN DEVICE+1~, DEVICE+8*
ZTSAVE DEVICE+1~
ZTSAVE("IB*" DEVICE+10*
ZTSK DEVICE+1~, DEVICE+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All