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 |  Local Variables  | All
Print Page as PDF
Routine: PSDDWK1

Package: Controlled Substances

Routine: PSDDWK1


Information

PSDDWK1 ;BIR/JPW-Pharm Dispensing Worksheet (cont'd) ;12/14/99 15:01

Source Information

Source file <PSDDWK1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Controlled Substances 3 ^PSDDWK2  ^PSDDWK4  EDIT^PSDDWKE  
VA FileMan 3 ^DIR  ^DIWP  ^DIWW  

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 PSDDWK  

Entry Points

Name Comments DBIA/ICR reference
START ;entry point for dispensing options
CHK ;
PHARM ;by dispensing pharmacist
ACT ;decides disp action
END
TECH ;by tech or non-disp pharmacist
MSG
DISPLAY ;displays order request

External References

Name Field # of Occurrence
^DIR PHARM+3, TECH+3
^DIWP DISPLAY+10
^DIWW DISPLAY+11
^PSDDWK2 ACT+1, ACT+2
^PSDDWK4 ACT+3
EDIT^PSDDWKE ACT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"=> The drug balance is "_BAL_". You cannot dispense "_QTY_" for this drug.",!
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,"Old Balance: ",BAL,?35,"New Balance: ",BAL-QTY,!
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PHARM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TECH+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: @IOF,!,?23,"Controlled Substance Order Request"
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !,?27,"*** PRIORITY"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: " INFUSION"
  • Condition for execution: $G(PAT)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: " ORDER ***"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: "Pharmacy Dispensing #: ",$S(PSDPN:PSDPN,1:""),!,"Requested by",?16,": ",ORDN,?52,"Request Date: ",REQD,!,LN,!
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"Drug",?16,": ",PSDRN,?56,"Quantity: ",?66,QTY
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Dispensed by",?16,": ",$S(PSDBY:PSDBYN,1:""),?50,"Dispensed Date: ",$S(PSDT:PSDDT,1:""),!,"Disp. Location",?16,": ",$S($D(ORDSN):ORDSN,1:"")
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,"Manufacturer",?16,": ",MFG,!,"Lot #",?16,": ",LOT,!,"Exp. Date",?16,": ",EXPD
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,"Ord. Location",?16,": ",NAOUN,!,"Order Status",?16,": ",$P($G(^PSD(58.82,STAT,0)),"^"),!,"Comments:"
  • Line Location: DISPLAY+9
Routine Call
  • DIR
  • Line Location:
    • PHARM+3
    • TECH+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISPLAY+6
^PSD(58.8 - [#58.8] CHK+2
^PSD(58.82 - [#58.82] DISPLAY+9
^PSD(58.85 - [#58.85] DISPLAY+2, DISPLAY+10
^UTILITY($J DISPLAY+10!
^XUSEC("PSJ RPHARM" CHK+1

Label References

Name Line Occurrences
ACT CHK+1
CHK ACT+3, ACT+4, ACT+5
DISPLAY START+1, ACT+5
MSG PHARM+3, ACT+6, TECH+3
PHARM CHK+3
TECH CHK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACT START+1*, PHARM+4*, ACT+1, ACT+2, ACT+3, ACT+4, ACT+5, ACT+6, TECH+4*
>> BAL CHK+2*, CHK+3, CHK+4
>> COMM DISPLAY+9*, DISPLAY+10*, DISPLAY+11*
DA PHARM+1!, TECH+1!
DIR PHARM+1!, PHARM+3!, TECH+1!, TECH+3!
DIR("?" PHARM+1*, PHARM+2*, TECH+1*, TECH+2*
DIR("A" PHARM+2*, TECH+1*, TECH+2*
DIR(0 PHARM+1*, TECH+1*
>> DIWF DISPLAY+10*
>> DIWL DISPLAY+10*
>> DIWR DISPLAY+10*
DTIME MSG
DTOUT PHARM+1!, PHARM+3, TECH+1!, TECH+3
DUOUT PHARM+1!, PHARM+3, TECH+1!, TECH+3
DUZ CHK+1
>> EXPD DISPLAY+8
IOF DISPLAY+1
LN DISPLAY+3!*, DISPLAY+4
>> LOT DISPLAY+8
>> MFG DISPLAY+8
>> NAOUN DISPLAY+9
>> NEW START+1*, START+2
>> NOFLAG START+1*
>> ORDN DISPLAY+4
>> ORDS START+2*, CHK+2
>> ORDSN DISPLAY+7
>> PAT DISPLAY+2, DISPLAY+6
>> PSDBY DISPLAY+7
>> PSDBYN DISPLAY+7
>> PSDDT DISPLAY+7
>> PSDN DISPLAY+2, DISPLAY+10
>> PSDNO START+1*, ACT+4
>> PSDOUT START+1, CHK+1, PHARM+3*, ACT+3, ACT+4, TECH+3*, MSG+1*, DISPLAY+1
>> PSDPN DISPLAY+4
>> PSDR CHK+2
>> PSDRN DISPLAY+5
>> PSDS START+2
>> PSDT DISPLAY+7
>> QTY CHK+3, CHK+4, DISPLAY+5
>> REQD DISPLAY+4
>> STAT ACT+3, DISPLAY+9
>> TEXT DISPLAY+10*
U DISPLAY+2, DISPLAY+6
>> X MSG*, MSG+1, DISPLAY+10*
>> Y PHARM+4, TECH+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All