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 |  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 Total: 10

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 3 DEVBAR^PSOBMST  ^PSOLSET  ^PSOSUBCH  
VA Fileman 3 ^%DT  NOW^%DTC  ^DIR  
CMOP 1 ^PSXRPPL1  

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
HEAD
END
HEADONE
LIST
BEG
START
  • ICR #1970
    • Status: Active
    • Usage: Private
    QUE
    YLOOP

    External References

    Name Field # of Occurrence
    ^%DT BEG+1, QUE
    NOW^%DTC QUE
    ^%ZIS QUE+2
    ^%ZISC END+1
    ^%ZTLOAD QUE+11
    ^DIR BEG+9, BEG+11, YLOOP+6, YLOOP+7, LIST+1, HEADONE
    DEVBAR^PSOBMST QUE+3
    ^PSOLSET PSOSURST+2
    ^PSOSUBCH YLOOP+8
    ^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: !
    • Line Location: YLOOP+6
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: YLOOP+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: YLOOP+7
    Function Call: WRITE
    • Prompt: !!?3,"Nothing queued to print!",!
    • Line Location: YLOOP+7
    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: !,"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+6
      • YLOOP+7
      • LIST+1
      • HEADONE
    Routine Call
    • %ZIS
    • Line Location:
      • QUE+2

    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+8, QUE+9
    , END!, LIST, LIST+1
    ^UTILITY($J BEG!, QUE+10*, 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+9
    START PSOSURST+3, BEG+11, YLOOP+6, YLOOP+7, YLOOP+8, YLOOP+9, QUE, QUE+2

    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+6!, YLOOP+7!, LIST+1!, HEADONE!
    DIR("A" BEG+11*, YLOOP+6*, YLOOP+7*
    DIR("B" YLOOP+6*, YLOOP+7*
    DIR(0 BEG+9*, BEG+11*, YLOOP+6*, YLOOP+7*, LIST+1*, HEADONE*
    >> DIRUT YLOOP+7
    DTOUT BEG!, BEG+1, BEG+11, YLOOP+6, QUE, END!
    DUOUT BEG+11, END!
    DUZ PSOSURST+4
    ENDDATE BEG+1*, BEG+2*, BEG+3, END!
    GG QUE+7*, END!, LIST+2*, LIST+3
    INRX END!, 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!
    LLL END!, LIST*, LIST+1, HEAD, HEADONE+1
    MMM BEG+3*, BEG+4, END!
    NNN QUE+8*, QUE+9, END!
    POP QUE+2, END!
    PSIDATE BEG+7*, BEG+8, YLOOP+4*, END!
    >> PSOBAR0 QUE+4
    >> PSOBAR1 QUE+4
    >> PSOBARS QUE+4*
    PSODATE BEG+8*, YLOOP+4*, YLOOP+5, END!
    PSODUZ BEG+7*, BEG+8, YLOOP+4*, END!
    PSOIOS QUE+3~*
    PSOLISTY BEG!, YLOOP+7*, YLOOP+8, YLOOP+9, END+1!
    PSOOUT BEG!, BEG+7, BEG+8, BEG+9*, BEG+10, BEG+11*, YLOOP+9, LIST, LIST+1*, LIST+2
    , LIST+4, LIST+5*, HEADONE*
    >> PSOPAR PSOSURST+2, QUE+4
    PSOREDEV QUE+5*, QUE+6, END!
    PSORTIME QUE+1*, QUE+6, END!
    >> PSOSITE BEG+4, BEG+6, BEG+9, LIST+1, LIST+2
    PSOSUREP QUE+1*, END!
    PSOUSER BEG+8*, YLOOP+4*, YLOOP+5, END!
    PSRDATE QUE+9*, QUE+10, END+1!
    PSRDIV QUE+9*, QUE+10, END+1!
    PSRDUZ QUE+9*, QUE+10, END+1!
    >> PSXSYS PSOSURST+4
    PSYLOOP YLOOP*, YLOOP+1, YLOOP+2, END!
    RECNT BEG+2*, BEG+4*, BEG+11*, END+1!
    REDT END+1!, LIST+1*, LIST+2
    REDUZ END+1!, LIST+1*, LIST+2
    RR BEG+13*, YLOOP+2*, END+1!
    SS END+1!, LIST+1*, LIST+2
    X PSOSURST+3~*!
    XXX BEG+3*, BEG+4, END+1!
    >> Y BEG+1, BEG+8*, BEG+9, BEG+10, BEG+11, BEG+12, BEG+13, YLOOP+4*, YLOOP+6, YLOOP+7
    , YLOOP+8, QUE, QUE+1, LIST+1, LIST+4, LIST+5, HEADONE
    >> Y( YLOOP, YLOOP+1, YLOOP+2
    >> Y(1 YLOOP
    >> ZTDESC QUE+6*
    >> ZTDTH QUE+6*
    >> ZTIO QUE+6*
    >> ZTRTN QUE+6*
    >> ZTSAVE( QUE+7*
    >> ZTSAVE("^UTILITY($J,""PSOREPT""," QUE+11*
    ZZ BEG+12*, YLOOP+1*, END+1!
    ZZZ BEG+3*, BEG+4, BEG+12*, YLOOP+1*, YLOOP+3*, YLOOP+4, YLOOP+5, END+1!
    >> ZZZZ HEAD*, HEADONE+1*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All