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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSALOC

Package: Drug Accountability

Routine: PSALOC


Information

PSALOC ;BIR/MNT,DB-Set Up/Edit a Pharmacy Location ;7/23/97

Source Information

Source file <PSALOC.m>

Entry Points

Name Comments DBIA/ICR reference
ORDER ;If more than one pharmacy location, collect them in alpha order.
ONE ;only one
DISP ;Displays the available pharmacy locations.
SELECT
EXIT ;Kills all variables except PSALOC array & PSAOUT
ADD ;add locations
NEWNM
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No Drug Accountability location has been created yet."
  • Line Location: PSALOC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: !,"There are no Drug Accountability pharmacy locations with data."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !,?50,$P($G(^PS(59,$P(DATA,"^",X3),0)),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"***** INACTIVE *****"
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,$J(PSACNT,2),?5,"New Pharmacy Location",!
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"New location set-up"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,"bye"
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !,"There is at least one entry setup with this name. Could we expand the name ?",!,"Something like "_PSALOCN_" (WEST WING) ?"
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !,"Sorry that is what I have already"
  • Line Location: NEWNM+3
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: NEWNM+6
Function Call: WRITE
  • Prompt: "sorry, this one exists"
  • Line Location: NEWNM+10
Function Call: WRITE
  • Prompt: @IOF,?20,"<<<<< PHARMACY LOCATION SETUP SCREEN >>>>> ",!!,"LOCATION TYPES : INPATIENT, OUTPATIENT & COMBINED (IP/OP)",!!,"#",?5,"LOCATION ",?25,"INPATIENT SITE",?50,"OUTPATIENT SITE(s)",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call