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

Package: Controlled Substances

Routine: PSDDFP


Information

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

Source Information

Source file <PSDDFP.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 W/O GS  

Entry Points

Name Comments DBIA/ICR reference
OK
ASKM
MFG
DRUG ;select drug
QTY
ASKD ;ask disp loc
MSG
CHKD
END
NAOU ;select NAOU

External References

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

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: PSDDFP+8
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+5
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRN," is missing breakdown unit or",!,"package size data in ",PSDSN,"."
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: !!,PSDSN,"is missing narcotic breakdown unit",!,"for ",PSDRN,"."
  • Line Location: DRUG+13
Function Call: WRITE
  • Prompt: !!,PSDSN,"is missing narcotic package size",!,"for ",PSDRN,"."
  • Line Location: DRUG+14
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+4
    • 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+8
^PSD(58.8 - [#58.8] ASKD+2, CHKD, DRUG+5, DRUG+6, DRUG+11, DRUG+12, QTY+1, END+2, MFG+1*, MFG+3*
^PSDRUG - [#50] DRUG+4
^VA(200 - [#200] PSDDFP+9
^XUSEC("PSJ RPHARM" PSDDFP+8

Label References

Name Line Occurrences
CHKD ASKD+2
DRUG OK+3, OK+4
END ASKD+5, CHKD, DRUG+4, DRUG+5, DRUG+7, DRUG+13, DRUG+14, NAOU+3, QTY, QTY+1
, ASKM, OK+2
MFG ASKM
MSG DRUG+7, QTY, ASKM, OK+2, OK+3

Naked Globals

Name Field # of Occurrence
^(0 DRUG+6, DRUG+12

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+4*, MFG+5*
DIC ASKD+3!*, ASKD+5!, DRUG+2!, DRUG+4*!, NAOU+1!*, NAOU+3!, END!
DIC("A" ASKD+4*, NAOU+1*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, DRUG+3*, NAOU+2*
DIC("W" DRUG+2*
DIC(0 ASKD+3*, DRUG+4*, NAOU+1*
DIE END!, MFG+5!*
DIK END!
>> DILOCKTM DRUG+11
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 PSDDFP+8, PSDDFP+9
EDIT END!
EXP DRUG+6*, DRUG+8, END!, MFG+5*
EXPD DRUG+6*, DRUG+8*, END!, MFG+4
LOT DRUG+6*, END!, MFG+2, MFG+3*
MFG DRUG+6*, END!, MFG, MFG+1*
NAOU NAOU+3*, END!
NAOUN NAOU+3*, END!
NBKU DRUG+6*, DRUG+7, DRUG+12*, DRUG+13, QTY, END!
NPKG DRUG+6*, DRUG+7, DRUG+12*, DRUG+14, 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+4*, DRUG+5, DRUG+6, DRUG+11, DRUG+12, QTY+1, END+2, END+3!, MFG+1, MFG+3
, MFG+5
PSDREC END+1!
PSDRN DRUG+4*, DRUG+7, DRUG+13, DRUG+14, END+1!
PSDS ASKD+1*, ASKD+2, ASKD+6*, CHKD, DRUG+4, DRUG+5, DRUG+6, DRUG+11, DRUG+12, QTY+1
, END+2, END+3!, MFG+1, MFG+3, MFG+5
>> PSDSITE PSDDFP+7, ASKD+1, ASKD+2, ASKD+7*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, ASKD+7, DRUG+7, DRUG+13, DRUG+14, END+1!
PSDUZ PSDDFP+9*, END+1!
PSDUZN PSDDFP+9*, 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+4, DRUG+8*, 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