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

Package: Outpatient Pharmacy

Routine: PSOEXBCH


Information

PSOEXBCH ;BIR/RTR-print external interface list to a printer ;1/1/96

Source Information

Source file <PSOEXBCH.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 EN^PSOHLSN1  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOEXRST  

Entry Points

Name Comments DBIA/ICR reference
DEQUE
HEAD
MSNQ
END
GETPPL ;
GETN ;
LIST
MSQ
DEEND
PART ;
QUE
DELIST
MEDEX ;
DEHEAD

External References

Name Field # of Occurrence
^%ZIS QUE, DEQUE
^%ZISC QUE+2, END, DEQUE+2, DEEND
^%ZTLOAD QUE+2, DEQUE+2
EN^PSOHLSN1 MEDEX+3
DEM^VADPT GETPPL+7

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: ?44,$G(HLZZDRUG)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !?38,$G(HLZZDRUG)
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !!,"No Rx's to print!",!
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !!,"END OF LIST"
  • Line Location: LIST+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+4
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 #",?13,"PATIENT NAME",?44,"BATCH ",LLL,!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+5
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+4, DELIST+3, GETN+2
^PS(52.5 - [#52.5] DELIST+1, DELIST+2, DELIST+3
^PS(52.51 - [#52.51] LIST+1, LIST+2, LIST+9, GETN+1, GETN+2, GETPPL+5, GETPPL+6, PART+1
^PSDRUG - [#50] LIST+5
^PSRX - [#52] LIST+2, LIST+4, LIST+5, LIST+6, DELIST+2, DELIST+3, GETPPL+9, MEDEX+1, MEDEX+3*
^TMP($J LIST, LIST+1, HEAD, END!, DELIST, DELIST+1, DEHEAD, DEEND!, GETN+1, GETPPL+3
, GETPPL+4
^VA(200 - [#200] HEAD+5, DEHEAD+1

Label References

Name Line Occurrences
DEEND DELIST+7
DEHEAD DELIST+1, DELIST+4
DEQUE DEQUE+1
END LIST+12
GETN LIST
HEAD LIST+1, LIST+9
MEDEX GETPPL+10
MSNQ QUE+3, DEQUE+3
MSQ QUE+2, DEQUE+2
PART GETPPL+11, GETPPL+12
QUE QUE+1

Naked Globals

Name Field # of Occurrence
^("STA" GETPPL+9
^(0 LIST+2, HEAD+5, DELIST+2, DELIST+3, DEHEAD+1, GETPPL+6, PART+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE!*, DEQUE!*
DFN GETPPL+2~, GETPPL+6*, GETPPL+11, GETPPL+12, PART+1
DT MEDEX+1
GG END!, DELIST+2*, DELIST+3, DEEND!
>> HLZNAME GETN+2*
HLZZDRUG LIST+5*, LIST+7, LIST+8, END!
HLZZDRUL LIST+5*, LIST+7, LIST+8, END!
HLZZNAME LIST+4*, LIST+6, END!
INRX LIST+2*, LIST+4, LIST+5, LIST+6, END!, DELIST+2*, DELIST+3, DEEND!
IO LIST, DELIST
IO("Q" QUE+2, DEQUE+2
IOF HEAD+1, HEAD+2, HEAD+3, END, DEHEAD+1, DEEND
IOP QUE!, DEQUE!
IOSL LIST+9, HEAD+3, DELIST+4
IOST QUE+1, DEQUE+1
LLL LIST*, LIST+1, HEAD, HEAD+5, END!, DELIST*, DELIST+1, DEHEAD, DEHEAD+1, DEEND!
, GETN+1
>> NM1 GETN+1*
>> NM2 GETN+1*
>> NM3 GETN+1*, GETN+2
PCOMM GETPPL+2~, MEDEX+3*
PDCT GETPPL+2~, GETPPL+5*, GETPPL+7*
PDEAD GETPPL+2~, GETPPL+5*, GETPPL+7*, GETPPL+8
PMEDX GETPPL+2~, GETPPL+10*, MEDEX+2*
POP QUE!, DEQUE!
PPLDT GETPPL+2~, GETPPL+4*, GETPPL+5
PPLDV GETPPL+2~
PPLDZ GETPPL+2~, GETPPL+4*, GETPPL+5
PPLOOP GETPPL+2~, GETPPL+5*, GETPPL+6, PART+1
PPLOP GETPPL+2~, GETPPL+3*, GETPPL+4
PPLRXN GETPPL+2~, GETPPL+6*, GETPPL+9, GETPPL+11, GETPPL+12, MEDEX+1, MEDEX+3, PART+1
PPLX GETPPL+1!
PPLX( GETPPL+11*, GETPPL+12*
PSEXSTAT END!
PSOIOF LIST!, LIST+9*!, HEAD+2, HEAD+3, END!
PSOPDUZ HEAD*, HEAD+5, END!, DEHEAD*, DEHEAD+1, DEEND!
PSOPTIME HEAD*, HEAD+5, END!, DEHEAD*, DEHEAD+1, DEEND!
>> PSOSITE LIST+1, LIST+2, LIST+9, HEAD, GETN+1, GETPPL+4, GETPPL+5
PSX END!
REDT LIST+1*, LIST+9, END!, DELIST+1*, DELIST+2, DEEND!
REDUZ LIST+1*, LIST+9, END!, DELIST+1*, DELIST+2, DEEND!
RESITE DELIST+1*, DELIST+2, DEEND!
RXPRX GETPPL+1!
RXPRX( PART+1*
SBFLAG LIST*, LIST+6*, LIST+10, HEAD+1, HEAD+3, HEAD+4, DELIST*, DELIST+3*, DELIST+5, DEEND!
SS LIST+1*, LIST+2, LIST+9, END!, DELIST+1*, DELIST+2, DEEND!
>> VADM(6 GETPPL+7
>> 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,""PSOHLRES""," QUE+2*
>> ZTSAVE("^TMP($J,""PSOHLSPR""," QUE+2*
ZZZZ HEAD+5*, 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