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

Package: Drug Accountability

Routine: PSALOC1


Information

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

Source Information

Source file <PSALOC1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
MailMan 1 ($$DM,$$MG)^XMBGRP  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSALOCO  

Entry Points

Name Comments DBIA/ICR reference
MEMBER
Q
PSAHLP10 ;
1
ACTION
PSAHLP9 ;
PSAHLP8 ;
MEMASK
PSAHLP3 ;
PSAHLP2 ;
PSASETUP ;Setup mail message recipients
PSAHLP7 ;
PSAHLP6 ;
PSAHLP5 ;
PSAHLP4 ;

External References

Name Field # of Occurrence
^DIC PSASETUP+1, PSASETUP+2, MEMASK
$$DM^XMBGRP ACTION+2
$$MG^XMBGRP ACTION+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option lets you change the location type. For example: Inpatient and",!,"Outpatient locations can be changed to a Combined (IP/OP) location."
  • Line Location: PSALOC1+2
Function Call: WRITE
  • Prompt: !,"Combined (IP/OP) locations, can be changed to either an Inpatient Location",!,"an Outpatient location, or BOTH.",!
  • Line Location: PSALOC1+3
Function Call: WRITE
  • Prompt: !,"An Inpatient site is required to allow linking of IV rooms to the location."
  • Line Location: PSAHLP3+1
Function Call: WRITE
  • Prompt: !,^DD(58.8,20,3),!
  • Line Location: PSAHLP4+1
Function Call: WRITE
  • Prompt: !,^DD(58.8,20,21,X,0)
  • Line Location: PSAHLP4+1
Function Call: WRITE
  • Prompt: !,^DD(58.831,.01,3)
  • Line Location: PSAHLP5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PSAHLP5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PSAHLP5+1
Function Call: WRITE
  • Prompt: !,^DD(58.842,.01,3)
  • Line Location: PSAHLP6+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PSAHLP6+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PSAHLP6+1
Function Call: WRITE
  • Prompt: !,"This option allows editting of a location's inactivation date.",!
  • Line Location: PSAHLP7+1
Function Call: WRITE
  • Prompt: !,"The Enter/Edit a Drug option adds a new drug to the pharmacy location.",!,"It also displays the balance of an existing drug."
  • Line Location: PSAHLP8+1
Function Call: WRITE
  • Prompt: !,"This option sets up a flag on a pharmacy location or master vault to maintain",!,"the stock and reorder levels or removes the flag.",!
  • Line Location: PSAHLP9+1
Function Call: WRITE
  • Prompt: !,"This option allows the re-activation of an inactive pharmacy location.",!
  • Line Location: PSAHLP10+1
Function Call: WRITE
  • Prompt: !,"Currently, any user who holds the 'PSA ORDERS' key, receives the mail message",!,"'Drug Balances Below Reorder Level' & 'NDC/PRICE change messages'."
  • Line Location: PSASETUP+4
Function Call: WRITE
  • Prompt: !,"Two mail groups have been established to determine who receives the message.",!
  • Line Location: PSASETUP+5
Function Call: WRITE
  • Prompt: !,"Members added to the mail group must first possess the 'PSA ORDERS' key.",!
  • Line Location: PSASETUP+6
Function Call: READ
  • Timeout: DTIME
  • Variable: AN
  • Line Location: MEMBER+0
Function Call: WRITE
  • Prompt: !,"Do you want to edit the users for the "_PSAGRP_" mail group? YES//"
  • Line Location: MEMBER+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es and you will be able to edit the members of this mailgroup."
  • Line Location: MEMBER+1
Function Call: READ
  • Prompt: "Select 'A' to Add the user or 'D' to delete the user. ADD//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: AN
  • Line Location: ACTION+0
Function Call: WRITE
  • Prompt: !,"Enter a 'D' and if the user is already a member of the group, they'll be deleted."
  • Line Location: ACTION+0
Function Call: WRITE
  • Prompt: !,"Sorry, couldn't perform action."
  • Line Location: ACTION+3
Function Call: WRITE
  • Prompt: !,"task completed."
  • Line Location: ACTION+4
Routine Call
  • DIC
  • Line Location:
    • PSASETUP+1
    • PSASETUP+2
    • MEMASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^XMB(3.8 - [#3.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 PSAHLP4+1
^DD(58.831 PSAHLP5+1
^DD(58.842 PSAHLP6+1

Label References

Name Line Occurrences
ACTION ACTION
MEMASK ACTION+3, ACTION+4
MEMBER 1, MEMBER+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AN MEMBER*, MEMBER+1!, MEMBER+2, ACTION*!, ACTION+1, ACTION+2
>> DIC PSASETUP+1*, PSASETUP+2*, MEMASK*
>> DIC("S" MEMASK*
>> DIC(0 MEMASK*
DTIME MEMBER, ACTION
DUZ ACTION+1
>> PSAGRP 1*, 1+1*, MEMBER, ACTION+1, ACTION+2
>> PSAREORD PSASETUP+1*
>> PSAREORD(1 PSASETUP+1*
>> PSAUPDT PSASETUP+2*
>> PSAUPDT(1 PSASETUP+2*
>> X PSAHLP4+1*, PSAHLP5+1*, PSAHLP6+1*, PSASETUP+1*, PSASETUP+2*
>> X5 ACTION+1*, ACTION+2*, ACTION+3
XMY PSASETUP+3!, MEMASK+1!, ACTION+1, ACTION+2
XMY( MEMASK+1*
>> Y PSASETUP+1, PSASETUP+2, MEMASK, MEMASK+1
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