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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXSRP

Package: CMOP

Routine: PSXSRP


Information

PSXSRP ;BIR/WPB - Reprint Label Driver Routine [ 01/30/98 2:19 PM ]

Source Information

Source file <PSXSRP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIK  
CMOP 1 START^PSXSRST  
Outpatient Pharmacy 1 DQ^PSOLBL  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSOLBL  PSOLLLI  
CMOP 1 PSXSRST  

Entry Points

Name Comments DBIA/ICR reference
BEG ;
AREC ;
  • ICR #2201
    • Status: Active
    • Usage: Private
    LOCK
    APR ;D:X="P"&($P($G(^PS(52.5,DA,0)),"^",6))&($P($G(^(0)),"^",8))&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",11))&($P($G(^PS(52.5,DA,"P")),"^"))
    KAPR ;D:X='"P"&($P($G(^PS(52.5,DA,0)),"^",6))&($P($G(^(0)),"^",8))&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",11))&($P($G(^PS(52.5,DA,"P")),"^"))
    QUE
    END
    HELP ;help message, allows the user to return to the main menu or exit

    External References

    Name Field # of Occurrence
    ^%DT QUE
    NOW^%DTC AREC+2, QUE
    ^%ZIS QUE+2
    ^%ZISC END+2
    ^%ZTLOAD QUE+11
    ^DIK BEG+5
    DQ^PSOLBL BEG+8, BEG+11
    START^PSXSRST QUE
    DEM^VADPT BEG+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: QUE+0
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: QUE+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: QUE+2
    Function Call: WRITE
    • Prompt: !!,"REPRINTED LABELS QUEUED TO PRINT!",!
    • Line Location: QUE+12
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: !!,"1 - Reset CMOP Printed Batches for Transmission resets the CMOP printed"
    • Line Location: HELP+3
    Function Call: WRITE
    • Prompt: !,"Rx's for transmission. NO LABELS are REPRINTED using this option. The",!,"Rx's from the CMOP Printed Batch selected will remain in the Rx Suspense file",!,"with a CMOP Status of 'Queued for Transmission."
    • Line Location: HELP+4
    Function Call: WRITE
    • Prompt: !!,"2 - This option allows you to reprint CMOP labels that were printed from",!,"Suspense. Each time the Print from Suspense File option is run, those labels are"
    • Line Location: HELP+5
    Function Call: WRITE
    • Prompt: !,"grouped in a batch. This option shows you all CMOP batches printed for the",!,"date range entered, and any number of batches may be selected to reprint."
    • Line Location: HELP+6
    Function Call: WRITE
    • Prompt: !,"Only those labels that printed with the original batch will reprint, and",!,"they will reprint in the same order they were originally printed."
    • Line Location: HELP+7
    Function Call: WRITE
    • Prompt: !!,"3 - This option allows you to reprint labels that were printed from suspense.",!,"Each time the Print from Suspense File option is run, those labels are"
    • Line Location: HELP+8
    Function Call: WRITE
    • Prompt: !,"grouped in a batch. This option shows you all batches printed for the",!,"date range entered, and any number of batches may be selected to reprint."
    • Line Location: HELP+9
    Function Call: WRITE
    • Prompt: !,"Only those labels that printed with the original batch will reprint, and",!,"they will reprint in the same order they were originally printed."
    • Line Location: HELP+10
    Routine Call
    • %ZIS
    • Line Location:
      • QUE+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(52.5 - [#52.5] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] QUE+3
    ^%ZIS(2 - [#3.2] QUE+3
    ^PS(52.5 - [#52.5] BEG+4, BEG+5, BEG+6, BEG+7, BEG+10, BEG+13, APR+1, APR+2*, APR+3!, KAPR+2!
    ^PSRX - [#52] AREC+3, AREC+4, AREC+5*, LOCK*
    ^TMP($J QUE+8, QUE+9, END!
    ^UTILITY($J BEG+1, BEG+3, QUE+10*, END!

    Label References

    Name Line Occurrences
    BEG QUE+2
    END BEG+1
    LOCK LOCK

    Naked Globals

    Name Field # of Occurrence
    ^("BAR" QUE+3
    ^(0 BEG+4, BEG+10, BEG+13, APR+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % AREC+2, QUE, END+1!
    %DT QUE!*, END!
    %DT("A" QUE*!
    %DT("B" QUE*!
    %DT(0 QUE*!
    %ZIS QUE+2*, END!
    %ZIS("A" QUE+2*
    %ZIS("B" QUE+2*
    AA END!
    AAA END!
    AAAA BEG+3*, BEG+4, END+1!
    BBBB BEG+3*, BEG+4, END+1!
    BDT END!
    CCCC BEG+3*, BEG+4, END+1!
    CNT AREC+3*, AREC+5*, LOCK, END+1!
    COM AREC+2*, LOCK, END+1!
    COUNT END!
    >> DA BEG+5*, APR+1, APR+2, APR+3, KAPR+2
    DDDD BEG+4*, END+1!
    DFN BEG+5*!
    >> DIK BEG+5*
    DTIME LOCK
    DTOUT QUE, END!
    DTTM AREC+2*, LOCK, END+1!
    DUOUT END!
    DUZ BEG+8, BEG+11
    EEEE BEG+4*, BEG+5, BEG+6, BEG+7, END+1!
    ENDDATE END!
    FFF BEG+9*, BEG+12*, END+1!
    FFFF BEG+9*, BEG+12*, END+1!
    GG QUE+7*, END!
    GGGG BEG+10*, BEG+13*, END+1!
    HHHH BEG+10*, BEG+13*, END+1!
    HLDDEAD BEG+5*, END+1!
    INRX END!
    IOF HELP+2
    ION QUE+5
    >> IOS QUE+3
    IOST QUE+2
    J QUE+3*, END+1!
    JJ AREC+3*, END!
    LLL END!
    MMM END!
    MMMM BEG+10*, BEG+13*, END+1!
    NNN QUE+8*, QUE+9, END!
    NNNN BEG+10*, BEG+13*, END+1!
    NPATIENT BEG+7*, END+1!
    OPATIENT BEG+6*, BEG+7*, END+1!
    PATIFLAG BEG+2*, BEG+6*, END+1!
    PDUZ BEG+8*, BEG+11*, LOCK, END+1!
    POP QUE+2, END!
    PPL BEG+8*!, BEG+9, BEG+10, BEG+11*, BEG+12, BEG+13
    PSIDATE END!
    >> PSOBAR0 QUE+4
    >> PSOBAR1 QUE+4
    >> PSOBARS QUE+4*
    >> PSOPAR QUE+4
    PSRDATE QUE+9*, QUE+10, END+2!
    PSRDIV QUE+9*, QUE+10, END+2!
    PSRDUZ QUE+9*, QUE+10, END+2!
    PSXDEV QUE+5*, QUE+6, END!
    PSXDT END!
    PSXREEP LOCK+1!
    PSXREEPF LOCK+1!
    PSXREP BEG+8*, BEG+11*, QUE+1*, END!
    PSXU END!
    RECNT END+2!
    RECOUNT BEG+2*, BEG+7*, BEG+8*, END+1!
    REDT END+2!
    REDUZ END+2!
    REHLDPPL BEG+7*, BEG+8!, BEG+11
    REPCOUNT BEG+9*, BEG+10, BEG+12*, BEG+13, END+1!
    RF AREC+4*, END+1!
    RFCNT AREC+4*, LOCK, END+1!
    RR END+2!
    RX AREC+3, AREC+4, AREC+5, LOCK, END+1!
    RXP LOCK, END+1!
    RXPR BEG+8!
    RXPR( BEG+10*, BEG+13*
    RXRP BEG+8!
    SS END+2!
    TIME QUE+1*, QUE+6, END!
    >> VA("BID" BEG+5!
    >> VA("PID" BEG+5!
    VADM BEG+5!
    VADM(6 BEG+5
    X APR+1, KAPR+2, END+1!
    XDUZ END!
    XXX END+2!
    Y QUE, QUE+1, END+1!
    >> ZTDESC QUE+6*
    >> ZTDTH QUE+6*
    >> ZTIO QUE+6*
    >> ZTQUEUED END+2
    >> ZTREQ END+2*
    >> ZTRTN QUE+6*
    >> ZTSAVE( QUE+7*
    >> ZTSAVE("^UTILITY($J,""PSXREPT""," QUE+11*
    ZZ END+2!
    ZZZ END+2!
    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 |  Naked Globals |  Local Variables |  All