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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXBPSRP

Package: CMOP

Routine: PSXBPSRP


Information

PSXBPSRP ;BHAM ISC/MFR - CMOP/ECME ACTIVITY REPORT ;30-Aug-2013 16:46;PLS

Source Information

Source file <PSXBPSRP.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$CJ,$$RJ)^XLFSTR  
CMOP 2 ($$SELDATE,$$SELPATS,$$SELRLNRL,$$SELTYPE,ALL,SELDIV,SELECT)^PSXBPSR1  $$EXCEL^PSXBPSUT  
Integrated Billing 1 $$BILLINFO^IBNCPDPI  
Outpatient Pharmacy 1 ($$ECME,$$STATUS)^PSOBPSUT  
Registration 1 PID^VADPT  
Uncategorized 1 $$BPSPLN^BPSUTIL  
VA Fileman 1 ($$GET1,GETS)^DIQ  

Entry Points

Name Comments DBIA/ICR reference
PATS ; - Get Patient array
EXC ;- Prompt for Excel Capture
TITLE
SELREL ; - Get release, unreleased or all
DEV ; - Prompt for Device
SELPATS(ARRAY)
PAUSE
PLINEX
SELTYPE()
DIV ; - Get Division(s) (Return: DIVDA and DIVNM arrays)
CHKP(BPLINES)
PDETEX(TRX,PATS)
SELDIV
GOODPAT(DFN,PATS) ;
QUE ; - Process queue device
EN ; Entry Point
  • ICR #4968
    • Status: Active
    • Usage: Controlled Subscription
    CHKEPH(TRX) ;check batch for ePharmacy Rx's
    START
    PDET(TRX,PATS)
    ONEDIV(BPFND,STDTE,ENDTE,PATS) ; - Display information for one division
    SELECT(I)
    SELDATE()
    ALL
    PAUSE2
    HEAD1 ;
    BDT ; - Prompt to select Date Range (Return: Start Date^End Date)
    PLINE
    NDAT
    EXIT
    TYPE ; - Get (S)ummary or (D)etailed report type

    External References

    Name Field # of Occurrence
    ^%ZIS DEV+2
    HOME^%ZIS QUE+6
    ^%ZISC EXIT+2
    ^%ZTLOAD QUE+4
    $$BPSPLN^BPSUTIL PDETEX+30
    $$GET1^DIQ CHKEPH+6, CHKEPH+7, PDET+3, PDET+4, PDET+5, PDET+9, PDET+10, PDET+15, PDET+16, PDET+17
    , PDET+23, PDETEX+2, PDETEX+3, PDETEX+4, PDETEX+7, PDETEX+8, PDETEX+13, PDETEX+19, PDETEX+22, PDETEX+29
    GETS^DIQ ONEDIV+7
    $$BILLINFO^IBNCPDPI PDETEX+32
    $$ECME^PSOBPSUT PDET+17, PDETEX+22
    $$STATUS^PSOBPSUT PDET+25, PDETEX+6, PDETEX+31
    $$SELDATE^PSXBPSR1 SELDATE
    $$SELPATS^PSXBPSR1 SELPATS
    $$SELRLNRL^PSXBPSR1 SELREL+1
    $$SELTYPE^PSXBPSR1 SELTYPE
    ALL^PSXBPSR1 ALL
    SELDIV^PSXBPSR1 SELDIV
    SELECT^PSXBPSR1 SELECT
    $$EXCEL^PSXBPSUT EXC+1
    PID^VADPT PDET+13, PDETEX+11
    $$FMTE^XLFDT TITLE+2
    $$NOW^XLFDT TITLE+2
    $$CJ^XLFSTR TITLE+1, TITLE+2
    $$RJ^XLFSTR HEAD1+17, HEAD1+18, HEAD1+20, HEAD1+21

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
    • Line Location: QUE+5
    Function Call: WRITE
    • Prompt: !,?7,"CREATED DATE/TIME:",?35,DATA(6)
    • Line Location: HEAD1+8
    Function Call: WRITE
    • Prompt: !,?7,"RECEIVED DATE/TIME:",?35,DATA(7)
    • Line Location: HEAD1+9
    Function Call: WRITE
    • Prompt: !,?7,"RETRANSMISSION #:",?35,DATA(8)
    • Line Location: HEAD1+10
    Function Call: WRITE
    • Prompt: !,?7,"ORIGINAL TRANS.:",?35,DATA(9)
    • Line Location: HEAD1+11
    Function Call: WRITE
    • Prompt: !,?7,"CLOSED DATE/TIME:",?35,DATA(10)
    • Line Location: HEAD1+12
    Function Call: WRITE
    • Prompt: !,"NAME",?22,"ECME#/RX#/FL#",?45,"NDC SENT",?59,"NDC RECVD",?71,"CMOP-STAT"
    • Line Location: PLINE+0
    Function Call: WRITE
    • Prompt: !," DRUG",?22,"INSURANCE",?38,"PAY-STAT",?48,"BILL#",?58,"REL-DATE"
    • Line Location: PLINE+1
    Function Call: WRITE
    • Prompt: !,"TRANSMISSION",U,"STATUS",U,"DIVISION",U,"CMOP SYSTEM",U,"TRANSMISSION DATE/TIME",U
    • Line Location: PLINEX+0
    Function Call: WRITE
    • Prompt: "NAME",U,"Pt.ID",U,"ECME#",U,"RX#",U,"FL#",U,"NDC SENT",U,"NDC RECVD",U,"CMOP-STAT",U
    • Line Location: PLINEX+1
    Function Call: WRITE
    • Prompt: "DRUG",U,"INSURANCE",U,"PAY-STAT",U,"BILL#",U,"REL-DATE"
    • Line Location: PLINEX+2
    Function Call: WRITE
    • Prompt: !!,"********* BATCH HAS NO ECME BILLABLE PRESCRIPTIONS *******",!
    • Line Location: NDAT+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: TITLE+0
    Function Call: WRITE
    • Prompt: $$CJ^XLFSTR("CMOP/ECME ACTIVITY REPORT "_$S($G(BPFND)=1:"for "_$E(DIVDA(DIVDA),1,24),1:""),80)
    • Line Location: TITLE+1
    Function Call: WRITE
    • Prompt: $$CJ^XLFSTR("For "_STDTE_" thru "_$P(ENDTE,"@")_" Printed: "_$$FMTE^XLFDT($$NOW^XLFDT()),80)
    • Line Location: TITLE+2
    Function Call: WRITE
    • Prompt: !!,"Press RETURN to continue:"
    • Line Location: PAUSE2+2
    Function Call: WRITE
    • Prompt: !!,"Press RETURN to continue, '^' to exit:"
    • Line Location: PAUSE+1
    Function Call: READ
    • Timeout: $G(DTIME)
    • Variable: X
    • Line Location: PAUSE+2
    Routine Call
    • %ZIS
    • Line Location:
      • QUE+6
    Routine Call
    • %ZIS
    • Line Location:
      • DEV+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^PSRX - [#52] GET1^DIQ
    52.1 GET1^DIQ
    ^PSX(550.2 - [#550.2] GETS^DIQ
    550.215 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" START+7, START+8
    ^PSRX - [#52] PDET+17, PDET+19, PDETEX+22, PDETEX+25
    ^PSX(550.2 - [#550.2] ONEDIV+4, ONEDIV+5, CHKEPH+2, CHKEPH+3, CHKEPH+4, PDET+2, PDETEX+1

    Label References

    Name Line Occurrences
    $$CHKEPH ONEDIV+12
    $$GOODPAT CHKEPH+5, PDET+6, PDETEX+5
    $$PDET ONEDIV+23
    $$SELDATE BDT+1
    $$SELPATS PATS+1
    $$SELTYPE TYPE+1
    CHKP ONEDIV+24, PDET+8
    EXIT BDT+1, TYPE+1, PATS+1, DIV+1, SELREL+1, EXC+1, DEV+2, QUE+8, START+20
    HEAD1 ONEDIV+19
    NDAT ONEDIV+24
    ONEDIV START+11
    PAUSE ONEDIV+25, CHKP+3
    PAUSE2 START+17, EXIT
    PDETEX ONEDIV+28
    PLINE PDET+1, CHKP+3
    PLINEX START+5
    SELDIV DIV+1
    START DEV+4
    TITLE START+15, HEAD1+1, CHKP+3

    Naked Globals

    Name Field # of Occurrence
    ^( PDET+19, PDETEX+25

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EN+1~, ONEDIV+1~
    %ZIS EN+1~, DEV+1*
    %ZIS("A" DEV+1*
    %ZIS("B" DEV+1*
    ARRAY SELPATS~
    BATCHES ONEDIV+1~
    BIEN PDET~, PDET+14*, PDETEX~, PDETEX+12*
    BPFND START~, START+1*, START+11, START+14, ONEDIV~, ONEDIV+16*, TITLE+1
    BPLINES CHKP~, CHKP+1*, CHKP+2*, CHKP+3
    DATA ONEDIV+6~, ONEDIV+8*, CHKEPH+1~, CHKEPH+4*
    DATA( ONEDIV+9, HEAD1+3, HEAD1+17, PDETEX+14
    DATA(1 HEAD1+4, PDETEX+15
    DATA(10 HEAD1+12
    DATA(13 HEAD1+13, HEAD1+20
    DATA(14 HEAD1+14, HEAD1+21
    DATA(2 ONEDIV+10, ONEDIV+11, HEAD1+5, PDETEX+16
    DATA(3 HEAD1+6, PDETEX+17
    DATA(5 HEAD1+7, HEAD1+18, PDETEX+18
    DATA(6 HEAD1+8
    DATA(7 HEAD1+9
    DATA(8 HEAD1+10
    DATA(9 HEAD1+11
    DFN PDET~, PDET+5*, PDET+6, PDET+16, PDETEX~, PDETEX+4*, PDETEX+5, PDETEX+19, GOODPAT~, GOODPAT+2
    DIVDA EN+1~, START+11*, ONEDIV+11, TITLE+1
    DIVDA( START+11, ONEDIV+11, TITLE+1
    DIVNM EN+1~, DIV+1
    DIVNM( ONEDIV+10
    DTIME PAUSE2+3, PAUSE+2
    DTOUT EN+1~
    EDFN CHKEPH+1~, CHKEPH+4*, CHKEPH+5
    ENDT EN+1~, BDT+2*, START+8, ONEDIV+4
    ENDTE START~, START+8*, START+11, ONEDIV~, TITLE+2
    EPHARM CHKEPH+1~, CHKEPH+2*, CHKEPH+12*, CHKEPH+13
    EPHFL ONEDIV+1~, ONEDIV+3*, ONEDIV+12*, ONEDIV+13
    EXCEL EN+1~, EXC+1*, START+5, START+15, START+17, START+19, ONEDIV+19, ONEDIV+22, ONEDIV+25, CHKP
    I EN+1~, SELECT~
    IO START+2, PAUSE2+4, PAUSE+3
    IO("Q" DEV+4
    IO(0 PAUSE2+2, PAUSE+1
    IOF TITLE
    IOSL CHKP+3
    IOST DEV+3, QUE+7
    LINE EN+1~, START~, START+1*, PLINE+2, TITLE+3
    M PDET~, PDET+18*, PDET+19*, PDETEX~, PDETEX+24~*, PDETEX+25*
    N PDET~, PDET+18*, PDET+19*, PDETEX~, PDETEX+24~*, PDETEX+25*
    NDCR PDET~, PDET+18*, PDET+19*, PDET+20, PDETEX~, PDETEX+24~*, PDETEX+25*, PDETEX+27
    NDCS PDET~, PDET+18*, PDET+19*, PDET+20, PDETEX~, PDETEX+24~*, PDETEX+25*, PDETEX+26
    PATS EN+2~, PATS+1, START+11, ONEDIV~, ONEDIV+23, ONEDIV+28, CHKEPH+5, PDET~, PDET+6, PDETEX~
    , PDETEX+5, GOODPAT~
    PATS( GOODPAT+1, GOODPAT+2
    POP EN+1~, BDT+1*, TYPE+1*, PATS+1*, DIV+1*, EXC+1*, DEV+2*, START~, START+11, START+14
    , START+19*, ONEDIV+4, ONEDIV+5, ONEDIV+23, ONEDIV+24, ONEDIV+25, PDET+2, PDET+8, EXIT, EXIT+2
    , CHKP+3, PAUSE+2*
    PS ONEDIV+1~, ONEDIV+5*, ONEDIV+23*, ONEDIV+24, PDET~, PDET+2*, PDET+13*, PDET+27, PDETEX~, PDETEX+11*
    PSXDT ONEDIV+1~, ONEDIV+2*, ONEDIV+4*, ONEDIV+5
    RDT PDET~, PDET+15*, PDET+20, PDET+26, PDETEX~, PDETEX+13*, PDETEX+28, PDETEX+33
    RELDAT CHKEPH+1~, CHKEPH+6*, CHKEPH+7*, CHKEPH+8, CHKEPH+9, PDET+9*, PDET+10*, PDET+11, PDET+12, PDETEX+7*
    , PDETEX+8*, PDETEX+9, PDETEX+10
    RFL CHKEPH+1~, CHKEPH+4*, CHKEPH+6, CHKEPH+7, PDET~, PDET+4*, PDET+9, PDET+10, PDET+14, PDET+15
    , PDET+17, PDET+19, PDET+25, PDETEX~, PDETEX+3*, PDETEX+6, PDETEX+7, PDETEX+8, PDETEX+12, PDETEX+13
    , PDETEX+23, PDETEX+25, PDETEX+30, PDETEX+31, PDETEX+32
    RLNRALL SELREL+1~*, CHKEPH+8, CHKEPH+9, PDET+11, PDET+12, PDETEX+9, PDETEX+10
    RX CHKEPH+1~, CHKEPH+4*, CHKEPH+6, CHKEPH+7
    RXI PDET~, PDET+3*, PDET+9, PDET+10, PDET+14, PDET+15, PDET+17, PDET+19, PDET+23, PDET+25
    , PDETEX~, PDETEX+2*, PDETEX+6, PDETEX+7, PDETEX+8, PDETEX+12, PDETEX+13, PDETEX+21, PDETEX+22, PDETEX+25
    , PDETEX+29, PDETEX+30, PDETEX+31, PDETEX+32
    RXS PDET~, PDET+2*, PDET+3, PDET+4, PDET+5, PDETEX~, PDETEX+1*, PDETEX+2, PDETEX+3, PDETEX+4
    SEQ CHKEPH+1~, CHKEPH+2*, CHKEPH+3, CHKEPH+4
    STDT EN+1~, BDT+2*, START+7, ONEDIV+2
    STDTE START~, START+7*, START+11, ONEDIV~, TITLE+2
    TEMP ONEDIV+6~
    TEMP( ONEDIV+8
    TERM EN+1~, DEV+3*, QUE+7*, START+17, ONEDIV+25, CHKP+2, CHKP+3, PAUSE2
    TRX ONEDIV+1~, ONEDIV+5*, ONEDIV+7, ONEDIV+8, ONEDIV+12, ONEDIV+23, ONEDIV+28, CHKEPH~, CHKEPH+2, CHKEPH+3
    , CHKEPH+4, PDET~, PDET+2, PDET+3, PDET+4, PDET+5, PDETEX~, PDETEX+1, PDETEX+2, PDETEX+3
    , PDETEX+4
    TYPE EN+2~, TYPE+1*, ONEDIV+3, ONEDIV+12, HEAD1+2
    U BDT+2, PDETEX+14, PDETEX+15, PDETEX+16, PDETEX+17, PDETEX+18, PDETEX+19, PDETEX+20, PDETEX+21, PDETEX+22
    , PDETEX+23, PDETEX+26, PDETEX+27, PDETEX+28, PDETEX+29, PDETEX+30, PDETEX+31, PDETEX+32, PLINEX, PLINEX+1
    , PLINEX+2
    VA EN+1~, PDET~, PDETEX~
    VA("BID" PDET+16, PDETEX+20
    VAERR EN+1~
    X EN+3~, BDT+1*, BDT+2, PAUSE2+1~, PAUSE2+3*, PAUSE~, PAUSE+2*
    Y EN+3~, START~, START+7*, START+8*, ONEDIV+1~
    ZTDESC EN+3~, QUE+3*
    ZTIO EN+3~
    ZTQUEUED EN+3~, EXIT+1
    ZTREQ EN+3~, EXIT+1*
    ZTRTN EN+3~, QUE+2*
    ZTSAVE EN+3~
    ZTSAVE("*" QUE+1*
    ZTSK EN+3~, QUE+5
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All