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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 XY^%RCR  ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSALOCO  

Entry Points

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

External References

Name Field # of Occurrence
XY^%RCR SETUPOP+5
^DIC INPAT, OUTPA, CMBSETUP+1
^DIE SETUPIP+4, SETUPOP+4

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
  • Timeout: DTIME
  • Variable: AN
  • 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
  • Timeout: DTIME
  • Variable: AN
  • 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
  • Timeout: DTIME
  • Variable: AN
  • 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
  • Timeout: DTIME
  • Variable: AN
  • 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
Routine Call
  • DIE
  • Line Location:
    • SETUPIP+4
    • SETUPOP+4
Routine Call
  • DIC
  • Line Location:
    • INPAT
    • OUTPA
    • CMBSETUP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] STRDATA+6, FINISH+1, FINISH+2, DONEI+4*, CMBSETUP+2, CMBSETUP+3, DRUGS, DRUGS+1, DRUGS+2, DRUGS+5*

Label References

Name Line Occurrences
CMBSETUP PSALOC2+6, CMBSETUP+2
DONEI DONEI+1
DRUGS STRDATA+7, CMBSETUP+3, DRUGS+3
FINISH STRDATA+4, STRDATA+6, CMBSETUP+4
Q INPAT, OUTPA, STRDATA+3, STRDATA+7, FINISH+1, FINISH+2, DONEI, DONEI+5, CMBSETUP+2
SETDIC INPAT, OUTPA
SETUPIP FINISH+1, SETUPIP+2
SETUPOP FINISH+2, SETUPOP+2
STRDATA OUTPA+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X SETUPOP+5*
>> %Y SETUPOP+5*
AN DONEI*, DONEI+1!, DONEI+4, SETUPIP+1*, SETUPIP+2*!, SETUPIP+3, SETUPOP+1*, SETUPOP+2*!, SETUPOP+3, DRUGS+2*
, DRUGS+3*, DRUGS+4, DRUGS+5
>> DA SETUPIP+4*, SETUPOP+4*
DIC CMBSETUP+1*, SETDIC!*
DIC("A" CMBSETUP+1*, SETDIC*
DIC("S" INPAT*, OUTPA*, CMBSETUP+1*
DIC(0 CMBSETUP+1*, SETDIC*
>> DIE SETUPIP+4*, SETUPOP+4*
>> DIRUT INPAT, OUTPA
>> DR SETUPIP+4*, SETUPOP+4*
DT DONEI+4
DTIME DONEI, SETUPIP+1, SETUPOP+1, DRUGS+2
PSACNTR PSALOC2+5!, STRDATA+1*, STRDATA+2*, STRDATA+4
PSAERR PSALOC2+5!, STRDATA+7, FINISH+1, FINISH+2, SETUPIP+1*, SETUPOP+1*, DRUGS+2*
PSAISIT PSALOC2+5!, INPAT*, STRDATA+3, STRDATA+5, FINISH+1, SETUPIP+4
PSAISIT(1 INPAT*, STRDATA+1, FINISH+1, SETUPIP
>> PSALOC FINISH+1, FINISH+2, DONEI+4, DRUGS, DRUGS+1, DRUGS+5
>> PSALOCN PSALOC2+6, DONEI, DONEI+4, SETUPIP, SETUPOP, DRUGS+2, DRUGS+3
>> PSANEWL STRDATA+5*, STRDATA+6, CMBSETUP+3*, DRUGS+2, DRUGS+5
PSAOSIT PSALOC2+5!, OUTPA*, STRDATA+3, STRDATA+5, FINISH+2, SETUPOP+4
PSAOSIT(1 OUTPA*, STRDATA+2, FINISH+2, SETUPOP
>> PSATYPE INPAT*, OUTPA*, SETDIC
>> X1 DRUGS+5*
Y INPAT, OUTPA, CMBSETUP+2!, CMBSETUP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All