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

Package: Controlled Substances

Routine: PSDDWK


Information

PSDDWK ;BIR/JPW-Pharm Dispensing Worksheet ;6 July 94

Source Information

Source file <PSDDWK.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 $$FMADD^XLFDT  EN^XQH  SIG^XUSESIG  
Controlled Substances 2 ^PSDDWK1  ^PSDSET  
VA FileMan 2 ^DIC  ^DIR  

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

Package Total Caller Graph
Controlled Substances 1 PSD WORKSHEET DISPENSING  

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask dispensing location
SETD
ASKM ;ask method of dispensing - by worksheet or individual request
END
WK ;compile worksheet dispensing data
REQ ;dispense by individual request
SET ;sets data for display/editing
MSG
PSDLCK ;; PSD*3*59 CLEAR LOCKS FOR THIS ORDER

External References

Name Field # of Occurrence
^DIC ASKD+5, REQ+4
^DIR ASKM+3
^PSDDWK1 WK+3, REQ+7
^PSDSET PSDDWK+5
$$FMADD^XLFDT SET+7
EN^XQH PSDDWK+8
SIG^XUSESIG ASKM+4

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, PSJ PHARM TECH or PSD TECH ADV security key required.",!
  • Line Location: PSDDWK+7
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no pending request orders.",!!
  • Line Location: PSDDWK+9
Function Call: WRITE
  • Prompt: !!,"Accessing worksheet information..."
  • Line Location: WK+1
Function Call: WRITE
  • Prompt: !!,"Accessing worksheet information..."
  • Line Location: REQ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REQ+4
Function Call: WRITE
  • Prompt: !!,"This request is currently being processed by ",$P(^VA(200,$P(^XTMP("PSDLCK",PSDN,0),"^",3),0),"^")
  • Line Location: REQ+5
Function Call: WRITE
  • Prompt: !!,"The status of this request is "_$P($G(^PSD(58.82,STAT,0)),"^")_".",!,"You cannot edit this request using this option.",!
  • Line Location: REQ+6
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no pending CS requests for ",PSDSN,".",!
  • Line Location: MSG+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"Press <RET> to return to the menu"
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSG+1
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • REQ+4
Routine Call
  • DIR
  • Line Location:
    • ASKM+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SET+12, SET+13, SET+18
^PSD(58.8 - [#58.8] ASKD+2, SETD, SETD+1, WK+3, SET+8, SET+10, SET+18
^PSD(58.82 - [#58.82] REQ+6
^PSD(58.85 - [#58.85] PSDDWK+9, SETD+2, WK+2, WK+3, REQ+2, SET+1, SET+5, SET+15, PSDLCK+1
^PSDRUG - [#50] SET+9
^VA(200 - [#200] PSDDWK+8, REQ+5, SET+14, SET+16
^XTMP("PSDLCK" REQ+5, SET+7*, PSDLCK+2!
^XUSEC("PSD TECH ADV" PSDDWK+6
^XUSEC("PSJ PHARM TECH" PSDDWK+6
^XUSEC("PSJ RPHARM" PSDDWK+6, SET+16

Label References

Name Line Occurrences
END ASKD+5, SETD+2, ASKM+3, ASKM+4
MSG SETD+2, ASKM+5
PSDLCK WK+3, REQ+7
REQ ASKM+4, REQ+5, REQ+6, REQ+8
SET WK+3, REQ+4
SETD ASKD+2
WK ASKM+4

Naked Globals

Name Field # of Occurrence
^(0 REQ+2, SET+1, SET+8, SET+9, SET+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
%ZIS END!
ACT END!
ALL END!
ANS ASKM+3*, ASKM+4, END!
BAL END!
CNT END!
COMM END!
DA ASKD+3!, ASKM+1!, END!, REQ+4!
DIC ASKD+3!*, ASKD+5!, END!, REQ+4!*
DIC("A" ASKD+4*, REQ+4*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, REQ+4*
DIC(0 ASKD+3*, REQ+4*
DIE END!
DIR ASKM+1!, ASKM+3!, END!
DIR("?" ASKM+2*
DIR("A" ASKM+1*
DIR(0 ASKM+1*
DIROUT END!
DIRUT ASKM+1!, ASKM+3, END!
DIWF END!
DIWL END!
DIWR END!
DR END!
DT SET+7
DTIME MSG+1
DTOUT END!
DUOUT END!
DUZ PSDDWK+6, PSDDWK+8, SET+7, SET+16
EXP END!, SET+17*, SET+18*
EXPD END!, SET+17*, SET+18*
FLAG END!
LN END+1!
LOOP END+1!
LOT END+1!, SET+17*, SET+18*
MFG END+1!, SET+17*, SET+18*
MSG END+1!
NAOU END+1!, SET+8*
NAOUN END+1!, SET+8*
NBKU END+1!, SET+17*, SET+18*
NEW END+1!
NODE END+1!, SET+1*, SET+4, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14
NODED ASKD+2*, ASKD+7*, SETD, END+1!
NOFLAG PSDDWK+10*, ASKM+5, END+1!, REQ+2*, REQ+3
NPKG END+1!, SET+17*, SET+18*
NSITE END+1!, SET+1*
OK PSDDWK+6*, PSDDWK+7!, END+1!
OKD ASKD+2*, END+1!
ORD END+1!, SET+14*
ORDN END+1!, SET+14*
ORDS END+1!, WK+3, SET+10*, SET+18
ORDSN END+1!, SET+10*
PAT END+1!, SET+15*
PRT END+2!
PSD END+2!, WK+2*, WK+3, REQ+2*
PSDAG SETD*, END+2!
PSDAGN END+2!, SET+1*
PSDBY END+2!, SET+14*, SET+16*
PSDBYN END+2!, SET+14*, SET+16*
PSDDT END+2!, SET+13*
PSDG END+2!
PSDGS SETD+1*, END+2!
PSDGSN END+2!, SET+1*
PSDIO END+2!
PSDLCK END+1!, WK+3, REQ+5, SET+3*, SET+6*
PSDLES END+2!
PSDM SETD*, END+2!
PSDMN END+2!, SET+1*
PSDN END+2!, WK+3*, REQ+2*, REQ+4*, REQ+5, SET+1, SET+5, SET+7, SET+15, PSDLCK+1
, PSDLCK+2
PSDNA END+2!
PSDNO PSDDWK+10*, END+2!
PSDOUT ASKM+4*, END+2!, WK+2, WK+3, REQ+7
PSDPN END+2!, SET+13*
PSDR END+3!, WK+3, SET+9*, SET+18
PSDREC END+3!
PSDRG SETD+1*, END+3!
PSDRGN END+3!, SET+1*
PSDRN END+3!, SET+4*, SET+9*
PSDS ASKD+1*, ASKD+2, ASKD+7*, SETD, SETD+1, SETD+2, END+3!, WK+2, WK+3, REQ+2
>> PSDSITE PSDDWK+5, ASKD+1, ASKD+2, ASKD+8*
PSDSN ASKD+1*, ASKD+4, ASKD+7*, ASKD+8, END+3!, MSG
PSDT END+3!, SET+13*
PSDUZA END+3!, SET+11*
QTY END+3!, SET+13*
REQ END+3!, SET+12*
REQD END+3!, SET+12*
REQDT END+3!, SET+12*
SITE END+3!
STAT END+3!, WK+3, REQ+6, SET+4*, PSDLCK+2!
TECH END+3!
TEXT END+3!
U PSDDWK+8, ASKD+1, ASKD+2, ASKD+8, SET+15
WORD END+3!
X ASKM+4~, END+3!, MSG+1*
X1 ASKM+4~
XQH PSDDWK+8~*
Y ASKD+5, ASKD+7, ASKD+8, ASKM+3, END+3!, REQ+4, SET+12*, SET+13*, SET+18*
Y(0 ASKD+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All