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

Package: Controlled Substances

Routine: PSDDWK2


Information

PSDDWK2 ;BIR/JPW-Pharm Dispensing Worksheet (cont'd) ; 21 Jun 93

Source Information

Source file <PSDDWK2.m>

Entry Points

Name Comments DBIA/ICR reference
PROC ;ver/proc req ord
DISPN ;assign dsp #s
ASKN
EDIT ;edit/add ord
ADD ;find entry number
FIND
AUTO ;select next available disp #
ADDN
MSG ;prints message
MSG1
SUB ;sub qty from dsp site
CHK ;check for valid bal

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Assigning Pharmacy Dispensing #...",!
  • Line Location: DISPN+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !!,"This order cannot be processed without a dispensing number.",!!,"Press <RET> to continue"
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !!,"The number "_Y_" has previously been used as a dispensing number.",!,"Please select another number.",!!
  • Line Location: ASKN+2
Function Call: WRITE
  • Prompt: !!,"PHARMACY DISPENSING # ",PSDPN,!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"Updating the transaction..."
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: $C(7),!!," Contact your Pharmacy Co-ordinator.",!," Your ""Dispensing #'s"" range has "_$S(MSG:"not been defined.",1:"been exceeded.")
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue"
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: !!,"Old Balance : ",BAL,?35,"New Balance :",BAL-QTY,!!
  • Line Location: SUB+5
Info |  Source |  Entry Points |  Interaction Calls