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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 FILE^DICN  ^DIE  ^DIR  
Drug Accountability 1 SITES^PSAUTL1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSALOCO  

Entry Points

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

External References

Name Field # of Occurrence
FILE^DICN NEWNM+13
^DIE NEWNM+13
^DIR SELECT+3, ADD+3
SITES^PSAUTL1 ORDER+5

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
  • Timeout: DTIME
  • Variable: AN
  • 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
Routine Call
  • DIE
  • Line Location:
    • NEWNM+13
Routine Call
  • DIR
  • Line Location:
    • SELECT+3
    • ADD+3

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)
^PS(59 - [#59] DISP+5, DISP+6
^PS(59.4 - [#59.4] DISP+5
^PSD(58.8 - [#58.8] PSALOC+7, ORDER+2, ORDER+3, ORDER+4, ORDER+8, ORDER+10, ONE+2, ADD+4, NEWNM+9, NEWNM+10
, NEWNM+12

Label References

Name Line Occurrences
ADD PSALOC+8, ORDER+11
DISP ORDER+12, ORDER+13
EXIT ONE+4, SELECT+3, ADD+3, NEWNM+11
HDR PSALOC+9

Naked Globals

Name Field # of Occurrence
^(0 ORDER+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AN EXIT+1!, NEWNM+2*, NEWNM+3, NEWNM+4, NEWNM+5, NEWNM+6*, NEWNM+7*, NEWNM+8*, NEWNM+9, NEWNM+10
AN1 EXIT+1!, NEWNM+1*, NEWNM+2
CNT EXIT+1!
CNT1 EXIT+1!
CNT2 EXIT+1!
DA EXIT+1!, NEWNM+13!*
DATA DISP+5*, DISP+6, EXIT+1!
DIC EXIT+1!, NEWNM+13*!
DIC(0 NEWNM+13*
DIE EXIT+1!, NEWNM+13*!
DIR SELECT+3!, EXIT+1!
DIR("?" SELECT+2*, ADD+2*
DIR("??" SELECT*, ADD+2*
DIR("A" SELECT*, ADD+2*
DIR(0 SELECT*, ADD+2*
>> DIRUT ADD+3
>> DLAYGO NEWNM+13*
DR NEWNM+13*!
DT ORDER+4
DTIME NEWNM+1, NEWNM+6
>> DUOUT ADD+3
IOF HDR
IOM HDR
PSA EXIT+1!
PSAB EXIT+1!
PSAC EXIT+1!
PSACHK ORDER+11*, EXIT+1!
>> PSACNT ORDER+1*, ORDER+7*, ORDER+12, DISP+1*, DISP+4*, DISP+5, SELECT
PSACOMB EXIT+1!
PSADEL EXIT+1!
PSADRUG EXIT+1!
PSADT EXIT+1!
PSAERR EXIT+1!
PSAI EXIT+1!
PSAII EXIT+1!
PSAINV EXIT+1!
PSAIPS EXIT+1!
PSAISIT ORDER+6!, EXIT+1!
PSAISITN EXIT+1!
PSAIT EXIT+2!
PSAITY SELECT+6*, EXIT+2!, ADD+4*
PSAIV EXIT+2!
PSAIVCHG EXIT+2!
PSAIVLOC EXIT+2!
PSALEN EXIT+2!
PSALOC PSALOC+6!, PSALOC+7*, PSALOC+8, ORDER+1*, ORDER+2*, ORDER+3, ORDER+4, ORDER+7, ORDER+8, ORDER+10
, ONE+1*, ONE+2, ONE+3*, DISP+3*, DISP+4, DISP+5, SELECT+1!, SELECT+6*, EXIT+2!, NEWNM+13*
PSALOCA PSALOC+6!, EXIT+2!
PSALOCA( ORDER+8*, ORDER+10*, ONE+3, DISP+2, DISP+3, DISP+4
PSALOCA("" ORDER+11
PSALOCI EXIT+2!
PSALOCN ONE+3*, DISP+1*, DISP+2*, DISP+3, DISP+4, DISP+5, SELECT+6*, EXIT+2!, ADD+4*, NEWNM+2
, NEWNM+3, NEWNM+5*, NEWNM+12, NEWNM+13
PSAMNU PSALOC+6!, EXIT+2!
PSAMNU( DISP+4*, DISP+5, SELECT+6
PSANEW EXIT+2!, NEWNM+9*, NEWNM+12*, NEWNM+13
PSANLN EXIT+2!
PSANLN1 EXIT+2!
PSANLN2 EXIT+2!
PSANOW EXIT+2!
PSANUM SELECT+4*, EXIT+2!
PSAO EXIT+2!
PSAOC EXIT+2!
PSAOK EXIT+2!
PSAONE ORDER+7*, ONE+1, EXIT+2!
PSAOP EXIT+2!
PSAOSIT ORDER+6!, EXIT+2!
PSAOSITN EXIT+2!
PSAOU EXIT+2!
PSAOUT SELECT+3*, EXIT+2!, NEWNM+1*, NEWNM+3*, NEWNM+6*, NEWNM+8*, NEWNM+10*, NEWNM+11
PSAPVMEN EXIT+2!
PSAQTY EXIT+3!
PSASL EXIT+3!
PSASTO EXIT+3!
PSAT EXIT+3!
PSATYP EXIT+3!
PSAWARD EXIT+3!
PSAY EXIT+3!
X EXIT+3!, NEWNM+13*, HDR*
X2 ORDER+10*, EXIT+3!
X3 DISP+6*, EXIT+3!
XX EXIT+3!
Y SELECT+3, SELECT+4, SELECT+6, EXIT+3!, ADD+4, NEWNM+13
Y(0 ADD+4
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 |  Naked Globals |  Local Variables |  All