Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls