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

Package: Outpatient Pharmacy

Routine: PSOSURST


Information

PSOSURST ;BIR/RTR-Reset and Reprint from Suspense ; 7/20/96

Source Information

Source file <PSOSURST.m>

Entry Points

Name Comments DBIA/ICR reference
START
  • ICR #1970
    • Status: Active
    • Usage: Private
    BEG
    YLOOP
    QUE
    END
    LIST
    HEAD
    HEADONE

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Enter a date range to see all batches printed from suspense within those dates."
    • Line Location: START+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: BEG+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: BEG+1
    Function Call: WRITE
    • Prompt: !!,"Gathering batches, please wait...",!
    • Line Location: BEG+2
    Function Call: WRITE
    • Prompt: $C(7),!!,"There are no printed batches found for that date range!",!
    • Line Location: BEG+5
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: BEG+6
    Function Call: WRITE
    • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
    • Line Location: BEG+6
    Function Call: WRITE
    • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
    • Line Location: BEG+6
    Function Call: WRITE
    • Prompt: !?2,AAA,?10,PSODATE,?40,PSOUSER
    • Line Location: BEG+8
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: BEG+9
    Function Call: WRITE
    • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
    • Line Location: BEG+9
    Function Call: WRITE
    • Prompt: !?1,"BATCH",?10,"QUEUED TO PRINT ON:",?40,"PRINTED BY:",?56,$E($P($G(^PS(59,PSOSITE,0)),"^"),1,23),!
    • Line Location: BEG+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: BEG+11
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: BEG+11
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: YLOOP+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: YLOOP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: YLOOP+12
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: YLOOP+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: YLOOP+13
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: YLOOP+13
    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: !!?3,"Nothing queued to print!",!
    • Line Location: QUE+2
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: QUE+8
    Function Call: WRITE
    • Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer."
    • Line Location: QUE+11
    Function Call: WRITE
    • Prompt: !!,"REPRINTED LABELS QUEUED TO PRINT!",!
    • Line Location: QUE+20
    Function Call: WRITE
    • Prompt: !,"END OF LIST"
    • Line Location: LIST+5
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HEAD+0
    Function Call: WRITE
    • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
    • Line Location: HEAD+0
    Function Call: WRITE
    • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
    • Line Location: HEAD+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HEADONE+1
    Function Call: WRITE
    • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
    • Line Location: HEADONE+1
    Function Call: WRITE
    • Prompt: !,"RX #",?20,"PATIENT NAME",?60,"BATCH ",LLL,!
    • Line Location: HEADONE+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(59 - [#59] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call