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

Package: Outpatient Pharmacy

Routine: PSOSURST


Information

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

Source Information

Source file <PSOSURST.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 4 DEVBAR^PSOBMST  $$SELPRT^PSOFDAUT  ^PSOLSET  ^PSOSUBCH  
VA FileMan 4 ^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
CMOP 1 ^PSXRPPL1  

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
CMOP 1 PSXRPPL1  
Outpatient Pharmacy 1 PSO PNDRPT  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^%DT BEG+1, QUE
    NOW^%DTC QUE
    ^%ZIS QUE+2
    ^%ZISC END+2
    ^%ZTLOAD QUE+19
    $$GET1^DIQ YLOOP+7, QUE+8
    ^DIR BEG+9, BEG+11, YLOOP+9, YLOOP+12, YLOOP+13, LIST+1, HEADONE
    DEVBAR^PSOBMST QUE+3
    $$SELPRT^PSOFDAUT QUE+10
    ^PSOLSET PSOSURST+2
    ^PSOSUBCH YLOOP+14
    ^PSXRPPL1 PSOSURST+4

    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
    Routine Call
    • DIR
    • Line Location:
      • BEG+9
      • BEG+11
      • YLOOP+9
      • YLOOP+12
      • YLOOP+13
      • LIST+1
      • HEADONE
    Routine Call
    • %ZIS
    • Line Location:
      • QUE+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(59 - [#59] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" PSOSURST+3
    ^DD("DD" BEG+8, YLOOP+4
    ^DPT - [#2] LIST+3
    ^PS(52.5 - [#52.5] BEG+3, LIST+1, LIST+2, LIST+3
    ^PS(59 - [#59] BEG+6, BEG+9
    ^PSRX - [#52] LIST+2, LIST+3
    ^TMP($J BEG!, BEG+4*, BEG+5, BEG+7, BEG+13*, YLOOP+2*, YLOOP+3, YLOOP+4, QUE+16, QUE+17
    , END!, LIST, LIST+1
    ^UTILITY($J BEG!, QUE+18*, END!
    ^VA(200 - [#200] BEG+8, YLOOP+4
    ^XUSEC("PSX XMIT" PSOSURST+4
    ^XUSEC("PSXCMOPMGR" PSOSURST+4

    Label References

    Name Line Occurrences
    BEG BEG+5
    END PSOSURST+2, BEG+1, BEG+10
    HEAD LIST+1
    HEADONE LIST+2
    LIST YLOOP+15
    START PSOSURST+3, BEG+11, YLOOP+7, YLOOP+12, YLOOP+13, YLOOP+14, YLOOP+15, QUE, QUE+2, QUE+8

    Naked Globals

    Name Field # of Occurrence
    ^(0 BEG+8, YLOOP+4, LIST+2, LIST+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % QUE
    %DT BEG+1!*, QUE!*, END!
    %DT("A" BEG+1*, QUE*
    %DT("B" QUE*
    %DT(0 BEG+1*, QUE*
    %ZIS QUE+2*, END!
    %ZIS("A" QUE+2*
    %ZIS("B" QUE+2*
    AA BEG+6*, BEG+9*, END!
    AAA BEG+7*, BEG+8, END!
    BEGDATE BEG+1*, BEG+2*, BEG+3, END!
    COUNT BEG+12*, BEG+13*, YLOOP+1*, YLOOP+2*, END!
    DIR BEG+9!, BEG+11!, YLOOP+8!, YLOOP+9!, YLOOP+12!, YLOOP+13!, LIST+1!, HEADONE!
    DIR("A" BEG+11*, YLOOP+8*, YLOOP+12*, YLOOP+13*
    DIR("B" YLOOP+8*, YLOOP+12*, YLOOP+13*
    DIR(0 BEG+9*, BEG+11*, YLOOP+8*, YLOOP+12*, YLOOP+13*, LIST+1*, HEADONE*
    DIRUT YLOOP+7, YLOOP+8!, YLOOP+9, YLOOP+13
    DTOUT BEG!, BEG+1, BEG+11, YLOOP+7, YLOOP+9, YLOOP+12, QUE, END!
    DUOUT BEG+11, END!
    DUZ PSOSURST+4
    ENDDATE BEG+1*, BEG+2*, BEG+3, END+1!
    FDAPRT QUE+8~*, QUE+9, QUE+10*, QUE+11, QUE+12
    GG QUE+15*, END+1!, LIST+2*, LIST+3
    INRX END+1!, LIST+2*, LIST+3
    IOF BEG+6, BEG+9, HEAD, HEADONE+1
    ION QUE+5
    >> IOS QUE+3
    IOSL BEG+8, LIST+2
    IOST QUE+2
    JJ BEG+13*, YLOOP+2*, END+1!
    LLL END+1!, LIST*, LIST+1, HEAD, HEADONE+1
    MMM BEG+3*, BEG+4, END+1!
    NNN QUE+16*, QUE+17, END+1!
    POP QUE+2, END+1!
    PSIDATE BEG+7*, BEG+8, YLOOP+4*, END+1!
    >> PSOBAR0 QUE+4
    >> PSOBAR1 QUE+4
    >> PSOBARS QUE+4*
    PSODATE BEG+8*, YLOOP+4*, YLOOP+5, END+1!
    PSODUZ BEG+7*, BEG+8, YLOOP+4*, END+1!
    >> PSOFDAPT QUE+8, QUE+10, QUE+12*
    PSOIOS QUE+3~*
    PSOLISTY BEG!, YLOOP+13*, YLOOP+14, YLOOP+15, END+2!
    PSOMGREP YLOOP+10*, QUE+8, END+1!
    PSOOUT BEG!, BEG+7, BEG+8, BEG+9*, BEG+10, BEG+11*, YLOOP+15, LIST, LIST+1*, LIST+2
    , LIST+4, LIST+5*, HEADONE*
    >> PSOPAR PSOSURST+2, QUE+4
    PSOREDEV QUE+5*, QUE+14, END+1!
    PSORTIME QUE+1*, QUE+14, END+1!
    >> PSOSITE BEG+4, BEG+6, BEG+9, YLOOP+7, QUE+8, LIST+1, LIST+2
    PSOSUREP QUE+1*, END+1!
    PSOUSER BEG+8*, YLOOP+4*, YLOOP+5, END+1!
    PSRDATE QUE+17*, QUE+18, END+2!
    PSRDIV QUE+17*, QUE+18, END+2!
    PSRDUZ QUE+17*, QUE+18, END+2!
    >> PSXSYS PSOSURST+4
    PSYLOOP YLOOP*, YLOOP+1, YLOOP+2, END+1!
    RECNT BEG+2*, BEG+4*, BEG+11*, END+2!
    REDT END+2!, LIST+1*, LIST+2
    REDUZ END+2!, LIST+1*, LIST+2
    RR BEG+13*, YLOOP+2*, END+2!
    SS END+2!, LIST+1*, LIST+2
    X PSOSURST+3~*!
    XXX BEG+3*, BEG+4, END+2!
    >> Y BEG+1, BEG+8*, BEG+9, BEG+10, BEG+11, BEG+12, BEG+13, YLOOP+4*, YLOOP+10, YLOOP+12
    , YLOOP+13, YLOOP+14, QUE, QUE+1, LIST+1, LIST+4, LIST+5, HEADONE
    >> Y( YLOOP, YLOOP+1, YLOOP+2
    >> Y(1 YLOOP
    >> ZTDESC QUE+14*
    >> ZTDTH QUE+14*
    >> ZTIO QUE+14*
    >> ZTRTN QUE+14*
    >> ZTSAVE( QUE+15*
    >> ZTSAVE("^UTILITY($J,""PSOREPT""," QUE+19*
    ZZ BEG+12*, YLOOP+1*, END+2!
    ZZZ BEG+3*, BEG+4, BEG+12*, YLOOP+1*, YLOOP+3*, YLOOP+4, YLOOP+5, END+2!
    >> ZZZZ HEAD*, HEADONE+1*
    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