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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSDTRA

Package: Controlled Substances

Routine: PSDTRA


Information

PSDTRA ;BIR/JPW-Transfer Stock Entries from AOU to NAOU ; 18 July 94

Source Information

Source file <PSDTRA.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIR  
Controlled Substances 1 ^PSDSET  
Kernel 1 ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD TRANSFER AOU  

Entry Points

Name Comments DBIA/ICR reference
NUM ;ask how many NAOUs
METHOD ;asks method of stock transfer
FROM ;select AR/WS AOU to transfer stock from
TO ;select NAOU(s) to transfer stock to
CHK ;checks for valid NAOUs
QUE
END

External References

Name Field # of Occurrence
^%ZTLOAD QUE+3
^DIC FROM+1, TO+2
^DIR NUM+3, METHOD+5, CHK+6
^PSDSET PSDTRA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will copy the stock entries from one AR/WS AOU into NAOUs you ",!,"select. No more than 10 transfers are allowed at a time.",!,"Inactive drugs will not be transferred.",!
  • Line Location: PSDTRA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NUM+1
Function Call: WRITE
  • Prompt: !!!,"=> Methods of transferring stock drug data."
  • Line Location: METHOD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: METHOD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FROM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !!,"You may not transfer TO additional NAOUs at this time.",!,"Enter the option again to transfer to more NAOUs.",!
  • Line Location: TO+3
Function Call: WRITE
  • Prompt: !,?5,$P(^PSD(58.8,TR,0),"^")
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,?5,"I will transfer ",$S(MTR=3:"drug name, stock level, location code and types.",MTR=2:"drug name, stock level and location code.",1:"drug name only.")
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You'll be notified by a MailMan message when the transfer is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"Transfer AR/WS Stock Drugs to NAOU has been queued.",!
  • Line Location: QUE+3
Routine Call
  • DIC
  • Line Location:
    • FROM+1
    • TO+2
Routine Call
  • DIR
  • Line Location:
    • NUM+3
    • METHOD+5
    • CHK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] CHK+2
^PSI(58.1 - [#58.1] CHK+2

Label References

Name Line Occurrences
CHK TO+2
END NUM+3, METHOD+5, FROM+1, TO+2, CHK+1, CHK+6
TO TO+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS NUM+3*, TO+2, TO+4, END!
AOU FROM+1*, CHK+2, END!
CNT PSDTRA+3*, TO+2*, TO+3, TO+4, END!
DA NUM+1!, METHOD+2!, FROM+1!, TO+1!, CHK+4!, END!
DIC FROM+1!*, TO+1!*, TO+2!, END!
DIC("A" FROM+1*, TO+1*
DIC("S" TO+1*
DIC(0 FROM+1*, TO+1*
DIR NUM+1!, NUM+3!, METHOD+2!, METHOD+5!, CHK+4!, CHK+6!, END!
DIR("?" NUM+2*, METHOD+3*, METHOD+4*, CHK+5*
DIR("A" NUM+1*, METHOD+2*, CHK+4*
DIR("B" CHK+4*
DIR(0 NUM+1*, METHOD+2*, CHK+4*
DIROUT END!
DIRUT NUM+1!, NUM+3, METHOD+2!, METHOD+5, CHK+4!, CHK+6, END!
DTOUT END!
DUOUT END!
DUZ PSDTRA+3
LOC END!
LOC("TR" PSDTRA+3!, TO+2*, CHK+1, CHK+2, QUE+1
MTR METHOD+5*, CHK+3, END!
NAOUT QUE+1*, END!
>> PSDSITE PSDTRA+2
PSDUZ PSDTRA+3*, END!
TR CHK+2*, QUE+1*, END!
X END!
Y NUM+3, METHOD+5, FROM+1, TO+2, CHK+6, END!
ZTDESC QUE+2*, END!
ZTDTH QUE+2*, END!
ZTIO QUE+2*, END!
>> ZTQUEUED END+1
>> ZTREQ END+1*
ZTRTN QUE+2*, END!
ZTSAVE END!
ZTSAVE("AOU" QUE+2*
ZTSAVE("MTR" QUE+2*
ZTSAVE("NAOUT" QUE+2*
ZTSAVE("PSDUZ" QUE+2*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All