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

Package: CMOP

Routine: PSXBPSRP


Information

PSXBPSRP ;BHAM ISC/MFR - CMOP/ECME ACTIVITY REPORT ;09/01/2006

Source Information

Source file <PSXBPSRP.m>

Entry Points

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

    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,"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,"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
    • Variable: X
    • Timeout: $G(DTIME)
    • Line Location: PAUSE+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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call