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

Package: Drug Accountability

Routine: PSALOC2


Information

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

Source Information

Source file <PSALOC2.m>

Entry Points

Name Comments DBIA/ICR reference
INPAT
OUTPA
STRDATA ;store data
FINISH ;done setting up location
DONEI
SETUPIP
SETUPOP
CMBSETUP ;Setup combined location
DRUGS
SETDIC
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You will be prompted for an existing Inpatient & Outpatient location.",!,"Both types can be selected, or just one.",!!
  • Line Location: PSALOC2+7
Function Call: WRITE
  • Prompt: !,"Inpatient Site : "_PSAISIT(1)
  • Line Location: STRDATA+1
Function Call: WRITE
  • Prompt: !,"Outpatient Site : "_PSAOSIT(1)
  • Line Location: STRDATA+2
Function Call: WRITE
  • Prompt: !,"No changes made"
  • Line Location: STRDATA+3
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: DONEI+0
Function Call: WRITE
  • Prompt: !,"Do you want to Inactivate "_PSALOCN_" now ? YES// "
  • Line Location: DONEI+0
Function Call: WRITE
  • Prompt: !,"Since your setting up a new location, there is no point in keeping this one in",!,"an active state. Answer 'Y'es to inactivate this location.",!
  • Line Location: DONEI+1
Function Call: WRITE
  • Prompt: !,PSALOCN," is now inactive."
  • Line Location: DONEI+4
Function Call: WRITE
  • Prompt: !,"Do you want to setup "_PSAISIT(1)_" with the same inpatient site",!,"already identified in "_PSALOCN
  • Line Location: SETUPIP+0
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: SETUPIP+1
Function Call: WRITE
  • Prompt: " ? YES // "
  • Line Location: SETUPIP+1
Function Call: WRITE
  • Prompt: !,"Answer Yes, and the inpatient site currently assigned to the Combined location",!,"will be assigned to the inpatient site."
  • Line Location: SETUPIP+2
Function Call: WRITE
  • Prompt: !,"Do you want to setup "_PSAOSIT(1)_" with the same Outpatient location(s), ",!,"already defined for "_PSALOCN
  • Line Location: SETUPOP+0
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: SETUPOP+1
Function Call: WRITE
  • Prompt: " ? YES // "
  • Line Location: SETUPOP+1
Function Call: WRITE
  • Prompt: !,"Answer Yes, and the outpatient site(s) assigned to the Combined location",!,"will be assigned to the Outpatient location."
  • Line Location: SETUPOP+2
Function Call: WRITE
  • Prompt: !,"Sorry, this is an inactive pharmacy location.",!
  • Line Location: CMBSETUP+2
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: DRUGS+2
Function Call: WRITE
  • Prompt: !,"Do you want to transfer the drugs from "_PSALOCN_" to "_$P(^PSD(58.8,PSANEWL,0),"^")_" YES // "
  • Line Location: DRUGS+2
Function Call: WRITE
  • Prompt: !!,"Since "_PSALOCN_" will be made inactive after setup is complete, you can",!,"transfer each drug and its balance information to the new location.",!
  • Line Location: DRUGS+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DRUGS+5
Function Call: WRITE
  • Prompt: !,"Drug transfer complete."
  • Line Location: DRUGS+6

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