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

Package: Controlled Substances

Routine: PSDDWK2


Information

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

Source Information

Source file <PSDDWK2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Controlled Substances 1 UPDATE^PSDDWK3  

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 PSDDWK1  

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

External References

Name Field # of Occurrence
NOW^%DTC PROC+2, SUB+2
^DIC FIND+1
^DIR ASKN
UPDATE^PSDDWK3 EDIT+5

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
Routine Call
  • DIC
  • Line Location:
    • FIND+1
Routine Call
  • DIR
  • Line Location:
    • ASKN

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] AUTO+1, AUTO+2, AUTO+3, ADDNADDN+1*, ADDN+2*, ADDN+3, SUB+1, SUB+3, SUB+4
CHK+1, CHK+2
^PSD(58.81 - [#58.81] ASKN+2, ADD+1, FIND*, FIND+2, ADDN+1
^PSD(58.82 - [#58.82] CHK+2
^PSD(58.85 - [#58.85] PROC+2, DISPN+1, EDIT+2

Label References

Name Line Occurrences
ADD EDIT+3
ADDN ADDN+1
ASKN ASKN+2
AUTO DISPN+2
CHK PROC+1
EDIT DISPN+1, DISPN+2
FIND FIND
MSG AUTO+1, AUTO+2
MSG1 EDIT+5, CHK+3
SUB EDIT+3

Naked Globals

Name Field # of Occurrence
^(0 PROC+2, EDIT+2, SUB+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PROC+2, SUB+2
>> ACT PROC+2, EDIT+3
>> BAL EDIT+1*, SUB+3*, SUB+5
DIC FIND+1!*
DIC(0 FIND+1*
DILOCKTM ADD+1, AUTO+3, SUB+1
DINUM FIND+1*!
DIR ASKN!
DIR("?" ASKN*
DIR("A" ASKN*
DIR(0 ASKN*
DIRUT ASKN!, ASKN+1
DLAYGO FIND+1!*
DTIME ASKN+1, MSG1
DUZ PROC+2
>> FLAG DISPN+1*
MSG AUTO+1!*, AUTO+2*, MSG+1
>> NEW DISPN+1
>> ORDS DISPN+1*, AUTO+1, AUTO+2, AUTO+3, ADDNADDN+1, ADDN+2, ADDN+3, SUB+1, SUB+3
SUB+4, CHK+1, CHK+2
>> PSDAG DISPN+1
>> PSDAGN DISPN+1*, DISPN+2
>> PSDLES PROC+1, CHK+1*, CHK+2*
>> PSDN PROC+2, DISPN+1, EDIT+2
>> PSDOUT DISPN+2, MSG+1*, MSG1+1*
>> PSDPN ASKN+3*, EDIT+1, ADDN*, ADDN+1, ADDN+2
>> PSDR SUB+1, SUB+3, SUB+4, CHK+1, CHK+2
PSDREC EDIT+2!*, EDIT+3, FIND*, FIND+1
>> PSDS DISPN+1
>> PSDT PROC+2*, SUB+2*
>> QTY SUB+3, SUB+5, CHK+1, CHK+2
>> STAT CHK+2
>> TECH PROC+2*
>> X ASKN+1*, FIND+1*, MSG1*, MSG1+1
>> Y ASKN+2, ASKN+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All