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

Package: Controlled Substances

Routine: PSDNDES


Information

PSDNDES ;BIR/JPW-Dispense from Pharmacy w/o Green Sheet ; 8 Aug 94

Source Information

Source file <PSDNDES.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Controlled Substances 2 ^PSDDFP1  ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD DISPENSE TO NDES  

Entry Points

Name Comments DBIA/ICR reference
OK
ASKM
MFG
DRUG ;select drug
QTY
ASKD ;ask disp loc
MSG
TEST ;to be reworked for narcotic disp equipment
END
CHKD
NAOU ;select NAOU

External References

Name Field # of Occurrence
^DIC ASKD+5, DRUG+3, NAOU+3
^DIE MFG+5
^DIR QTY, OK+1, MFG, MFG+2, MFG+4
^PSDDFP1 OK+4
^PSDSET PSDNDES+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"dispense narcotic supplies. PSJ RPHARM security key required.",!
  • Line Location: PSDNDES+3
Function Call: WRITE
  • Prompt: !!,"For now this option is the same as dispense w/o green sheet.",!!
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this Pharmacy Vault!!",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"** Your Dispensing Site is missing stock drug data.",!,"Please contact your Pharmacy Coordinator for assistance.",!
  • Line Location: DRUG+4
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRN," is missing breakdown unit or",!,"package size data in ",PSDSN,"."
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !!,PSDSN,"is missing narcotic breakdown unit",!,"for ",PSDRN,"."
  • Line Location: DRUG+9
Function Call: WRITE
  • Prompt: !!,PSDSN,"is missing narcotic package size",!,"for ",PSDRN,"."
  • Line Location: DRUG+10
Function Call: WRITE
  • Prompt: !!,"The drug balance for this drug is ",+$P(^PSD(58.8,PSDS,1,PSDR,0),"^",4),".",!,"You cannot dispense ",QTY," for this drug.",!!
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"Updating Expiration Date data..."
  • Line Location: MFG+5
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: MFG+5
Function Call: WRITE
  • Prompt: !!,"** No action taken. **",!!
  • Line Location: MSG+0
Routine Call
  • DIE
  • Line Location:
    • MFG+5
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • DRUG+3
    • NAOU+3
Routine Call
  • DIR
  • Line Location:
    • QTY
    • OK+1
    • MFG
    • MFG+2
    • MFG+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DRUG+7
^PSD(58.8 - [#58.8] ASKD+2, CHKD, DRUG+4, DRUG+5, DRUG+8, QTY+1, MFG+1*, MFG+3*
^PSDRUG - [#50] DRUG+3
^VA(200 - [#200] PSDNDES+4
^XUSEC("PSJ RPHARM" PSDNDES+3

Label References

Name Line Occurrences
CHKD ASKD+2
DRUG OK+3, OK+4
END ASKD+5, CHKD, DRUG+3, DRUG+4, DRUG+6, DRUG+9, DRUG+10, NAOU+3, QTY, QTY+1
, ASKM, OK+2
MFG ASKM
MSG DRUG+6, QTY, ASKM, OK+2, OK+3

Naked Globals

Name Field # of Occurrence
^(0 DRUG+5, DRUG+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
ASK ASKD+2*, ASKD+6*, ASKM, END!
BAL END!
DA ASKD+3!, DRUG+2!, NAOU+1!, QTY!, OK!, END!, MFG!, MFG+2!, MFG+4!, MFG+5!*
DA(1 DRUG+3*, MFG+5*
DIC ASKD+3!*, ASKD+5!, DRUG+2!, DRUG+3*!, NAOU+1!*, NAOU+3!, END!
DIC("A" ASKD+4*, NAOU+1*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, NAOU+2*
DIC("W" DRUG+2*
DIC(0 ASKD+3*, DRUG+3*, NAOU+1*
DIE END!, MFG+5!*
DIK END!
DINUM END!
DIR QTY!, OK!, OK+1!, END!, MFG!, MFG+2!, MFG+4!
DIR("?" OK*, OK+1*
DIR("A" QTY*, OK*
DIR("B" QTY*, OK*, MFG*, MFG+2*, MFG+4*
DIR(0 QTY*, OK*, MFG*, MFG+2*, MFG+4*
DIROUT END!
DIRUT QTY!, OK!, OK+2, END!
DLAYGO END!
DR END!, MFG+5!*
DTOUT END!, MFG!, MFG+2!, MFG+4!
DUOUT END!, MFG!, MFG+2!, MFG+4!
DUZ PSDNDES+3, PSDNDES+4
EDIT END!
EXP DRUG+5*, DRUG+7, END!, MFG+5*
EXPD DRUG+5*, DRUG+7*, END!, MFG+4
LOT DRUG+5*, END!, MFG+2, MFG+3*
MFG DRUG+5*, END!, MFG, MFG+1*
NAOU NAOU+3*, END!
NAOUN NAOU+3*, END!
NBKU DRUG+5*, DRUG+6, DRUG+8*, DRUG+9, QTY, END!
NPKG DRUG+5*, DRUG+6, DRUG+8*, DRUG+10, QTY, END!
OK END!
PSDDT END+1!
PSDLES END+1!
PSDOUT DRUG+1*, ASKM, OK+4, END+1!, MFG*, MFG+2*, MFG+4*
PSDR DRUG+3*, DRUG+4, DRUG+5, DRUG+8, QTY+1, END+1!, MFG+1, MFG+3, MFG+5
PSDREC END+1!
PSDRN DRUG+3*, DRUG+6, DRUG+9, DRUG+10, END+1!
PSDS ASKD+1*, ASKD+2, ASKD+6*, CHKD, DRUG+3, DRUG+4, DRUG+5, DRUG+8, QTY+1, END+1!
, MFG+1, MFG+3, MFG+5
>> PSDSITE PSDNDES+2, ASKD+1, ASKD+2, ASKD+7*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, ASKD+7, DRUG+6, DRUG+9, DRUG+10, END+1!
PSDUZ PSDNDES+4*, END+1!
PSDUZN PSDNDES+4*, END+1!
QTY QTY+1*, END+1!
TEXP END+1!
TLOT END+1!
TMFG END+1!
U ASKD+1, ASKD+2, ASKD+7
X END+1!
Y ASKD+5, ASKD+6, ASKD+7, DRUG+3, DRUG+7*, NAOU+3, QTY, QTY+1, OK+3, END+1!
, MFG+1, MFG+3, MFG+5
Y(0 ASKD+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All