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

Package: Outpatient Pharmacy

Routine: PSOSUBCH


Information

PSOSUBCH ;BIR/RTR-Print batch list to a printer ; 1/1/96

Source Information

Source file <PSOSUBCH.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOSUDP1  PSOSURST  

Entry Points

Name Comments DBIA/ICR reference
DEQUE
HEAD
MSNQ
END
LIST
MSQ
DEEND
QUE
DELIST
DEHEAD

External References

Name Field # of Occurrence
^%ZIS QUE, DEQUE
^%ZISC QUE+2, END, DEQUE+2, DEEND
^%ZTLOAD QUE+2, DEQUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOTHING PRINTED"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"This report must be sent to a printer!",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"No Rx's to print!",!
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,"END OF LIST"
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"This report must be sent to a printer!",!
  • Line Location: DEQUE+1
Function Call: WRITE
  • Prompt: !!,"No Rx's to print!",!
  • Line Location: DELIST+5
Function Call: WRITE
  • Prompt: !!,"END OF LIST"
  • Line Location: DELIST+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEHEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: DEHEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: DEHEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEEND+0
Function Call: WRITE
  • Prompt: !!,"REPORT of batched Rx's queued to print!",!
  • Line Location: MSQ+0
Function Call: WRITE
  • Prompt: !!,"REPORT of batched Rx's being sent to print!",!
  • Line Location: MSNQ+0
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • DEQUE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD, DEHEAD
^DPT - [#2] LIST+3, DELIST+3
^PS(52.5 - [#52.5] LIST+1, LIST+2, LIST+3, DELIST+1, DELIST+2, DELIST+3
^PSRX - [#52] LIST+2, LIST+3, DELIST+2, DELIST+3
^TMP($J LIST, LIST+1, HEAD, END!, DELIST, DELIST+1, DEHEAD, DEEND!
^VA(200 - [#200] HEAD+1, DEHEAD+1

Label References

Name Line Occurrences
DEEND DELIST+7
DEHEAD DELIST+1, DELIST+4
DEQUE DEQUE+1
END LIST+7
HEAD LIST+1, LIST+4
MSNQ QUE+3, DEQUE+3
MSQ QUE+2, DEQUE+2
QUE QUE+1

Naked Globals

Name Field # of Occurrence
^(0 LIST+2, LIST+3, HEAD+1, DELIST+2, DELIST+3, DEHEAD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE!*, DEQUE!*
GG LIST+2*, LIST+3, END!, DELIST+2*, DELIST+3, DEEND!
INRX LIST+2*, LIST+3, END!, DELIST+2*, DELIST+3, DEEND!
IO LIST, DELIST
IO("Q" QUE+2, DEQUE+2
IOF HEAD+1, END, DEHEAD+1, DEEND
IOP QUE!, DEQUE!
IOSL LIST+4, DELIST+4
IOST QUE+1, DEQUE+1
LLL LIST*, LIST+1, HEAD, HEAD+1, END!, DELIST*, DELIST+1, DEHEAD, DEHEAD+1, DEEND!
POP QUE!, DEQUE!
PSOPDUZ HEAD*, HEAD+1, END!, DEHEAD*, DEHEAD+1, DEEND!
PSOPTIME HEAD*, HEAD+1, END!, DEHEAD*, DEHEAD+1, DEEND!
>> PSOSITE LIST+1, LIST+2
REDT LIST+1*, LIST+2, END!, DELIST+1*, DELIST+2, DEEND!
REDUZ LIST+1*, LIST+2, END!, DELIST+1*, DELIST+2, DEEND!
RESITE DELIST+1*, DELIST+2, DEEND!
SBFLAG LIST*, LIST+3*, LIST+5, DELIST*, DELIST+3*, DELIST+5, DEEND!
SS LIST+1*, LIST+2, END!, DELIST+1*, DELIST+2, DEEND!
>> Y HEAD*, DEHEAD*
>> ZTDESC QUE+2*, DEQUE+2*
>> ZTQUEUED END, DEEND
>> ZTREQ END*, DEEND*
>> ZTRTN QUE+2*, DEQUE+2*
>> ZTSAVE("PSOSITE" QUE+2*, DEQUE+2*
>> ZTSAVE("^TMP($J,""PSODES""," DEQUE+2*
>> ZTSAVE("^TMP($J,""PSODESPR""," DEQUE+2*
>> ZTSAVE("^TMP($J,""PSORES""," QUE+2*
>> ZTSAVE("^TMP($J,""PSORESPR""," QUE+2*
ZZZZ HEAD+1*, END!, DEHEAD+1*, DEEND!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All