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

Package: Controlled Substances

Routine: PSDRWK


Information

PSDRWK ;BIR/JPW-Reprint Pharm Disp. Worksheet ;12/14/99 16:40

Source Information

Source file <PSDRWK.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 6 NOW^%DTC  ^DIC  Y^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD REPRINT WORKSHEET  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ;lists header information
START ;entry for reprint
DEV ;ask device and queue info
ASKD ;ask disp location
DONE
CHKD
SAVE

External References

Name Field # of Occurrence
NOW^%DTC START+1
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+1
^%ZTLOAD DEV+4
^DIC ASKD+4
Y^DIQ DEV+2
^DIR DONE+1, HDR+1
^DIWP START+13
^DIWW START+14
^PSDSET PSDRWK+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"process/dispense narcotic supplies.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDRWK+12
Function Call: WRITE
  • Prompt: !!,"=> This report reprints a worksheet listing of all pending CS requests for a",!," dispensing site.",!!
  • Line Location: PSDRWK+13
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no pending request orders.",!!
  • Line Location: PSDRWK+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+3
Function Call: WRITE
  • Prompt: !!,"There are no pending CS requests for "_PSDSN_".",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,?45,"**** NO REQUESTS PREVIOUSLY PRINTED FOR THIS DISPENSING LOCATION ****"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?40,"PHARMACY DISPENSING WORKSHEET (Reprint)",!!,"Dispensing Location: ",PSDSN,?65,RPDT,?105,"PG "_PG,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "WS #",?10,"DRUG",?50,"QUANTITY",?60,"DISPENSE TO",!,?12,"COMMENTS",?50,"ORDERED",?60,"LOCATION",?102,"ORDERED BY",!,LN,!
  • Line Location: HDR+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIC
  • Line Location:
    • ASKD+4
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+1
^DD(58.8 DEV+2
^PSD(58.8 - [#58.8] ASKD+2, DEV+2, START+4
^PSD(58.85 - [#58.85] PSDRWK+14, CHKD, START+2, START+3, START+7, START+12, START+13
^PSDRUG - [#50] START+5
^UTILITY($J START+13!
^VA(200 - [#200] START+6
^XUSEC("PSJ PHARM TECH" PSDRWK+11
^XUSEC("PSJ RPHARM" PSDRWK+11

Label References

Name Line Occurrences
CHKD ASKD+2
END ASKD+4, CHKD, DEV+3, DEV+4
HDR START+1, START+10
SAVE DEV+4

Naked Globals

Name Field # of Occurrence
^(0 START+2, START+4, START+5, START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1, END!
%H END!
%I END!
%ZIS DEV+3!*, END!
%ZIS("B" DEV+3*
C DEV+2*, END!
CNT START+1*, START+3*, START+9, END!
COMM START+7*, START+13, START+14, END!
DA ASKD+3!, END!, HDR+1!
DIC ASKD+3!*, ASKD+4!, END!
DIC("A" ASKD+3*
DIC("B" ASKD+3*
DIC("S" ASKD+3*
DIC(0 ASKD+3*
DIR DONE+1!, END!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END!
DIRUT DONE+1!, END!
DIWF START+13*, END!
DIWL START+13*, END!
DIWR START+13*, END!
DRUG START+5*, END!
DRUGN START+5*, START+11, END!
DTOUT END!
DUOUT END!
DUZ PSDRWK+11
IO DEV+5
IO("Q" DEV+3!, DEV+4!, END!
IOF DONE, HDR+2
IOP DEV+3!
IOSL START+10
IOST DONE, DONE+1, HDR+1
JJ START+2*, END!
LN START+1!*, END!, HDR+3
NODE START+3*, START+5, START+6, END!
OK PSDRWK+11*, PSDRWK+12!, PSDRWK+14!, END!
ORD START+6*, END!
ORDN START+6*, START+11, END!
PG START+1*, END+1!, HDR+1, HDR+2*
POP DEV+3!, END+1!
PSD START+2*, START+3, START+7, START+11, START+12, START+13, END+1!
PSDEV DEV+2*, DEV+3, END+1!
PSDN START+2*, START+4, END+1!
PSDNA START+4*, START+11, END+1!
PSDOUT START+1*, START+2, START+9*, START+10, DONE+1, END+1!, HDR+1*
PSDS ASKD+1*, ASKD+2*, ASKD+5*, CHKD, DEV+2, START+2, END+1!
>> PSDSITE PSDRWK+10, ASKD+1, ASKD+2, ASKD+3, ASKD+6*
PSDSN ASKD+1*, ASKD+5*, ASKD+6, CHKD, END+1!, HDR+2
QTY START+6*, START+11, END+1!
RPDT START+1*, END+1!, HDR+2
TEXT START+13*, END+1!
U ASKD+1, ASKD+2, ASKD+3, ASKD+6, START+12
WK START+3*, START+11, END+1!
X START+13*, END+1!
Y ASKD+4, ASKD+5, ASKD+6, DEV+2*, START+1*, END+1!, HDR+1
Y(0 ASKD+5
ZTDESC DEV+4*, END+1!
ZTDTH DEV+4!, END+1!
ZTIO DEV+4!, END+1!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+4*, END+1!
ZTSAVE DEV+4!, END+1!
ZTSAVE("PSDS" SAVE*
ZTSAVE("PSDSITE" SAVE*
ZTSAVE("PSDSN" SAVE*
ZTSK DEV+4!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All