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

Package: Controlled Substances

Routine: PSDTRN


Information

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

Source Information

Source file <PSDTRN.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD TRANSFER NAOU  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will copy the stock entries from one NAOU into NAOUs you select.",!,"No more than 10 transfers are allowed at a time.",!,"Inactive drugs will not be transferred.",!
  • Line Location: PSDTRN+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: $C(7),$C(7),!!,?5," ** NOT ALLOWED to transfer out of and into SAME NAOU! **"
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !,?5,$P(^PSD(58.8,TR,0),"^")
  • Line Location: CHK+3
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+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by a MailMan message when the transfer is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"'Transfer Stock Drugs from NAOU 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+7

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS NUM+3*, TO+2, TO+4, END!
CNT PSDTRN+3*, TO+2*, TO+3, TO+4, END!
DA NUM+1!, METHOD+2!, FROM+1!, TO+1!, CHK+5!, END!
DIC FROM+1!*, TO+1!*, TO+2!, END!
DIC("A" FROM+1*, TO+1*
DIC("S" FROM+1*, TO+1*
DIC(0 FROM+1*, TO+1*
DIR NUM+1!, NUM+3!, METHOD+2!, METHOD+5!, CHK+5!, CHK+7!, END!
DIR("?" NUM+2*, METHOD+3*, METHOD+4*, CHK+6*
DIR("A" NUM+1*, METHOD+2*, CHK+5*
DIR("B" CHK+5*
DIR(0 NUM+1*, METHOD+2*, CHK+5*
DIROUT END!
DIRUT NUM+1!, NUM+3, METHOD+2!, METHOD+5, CHK+5!, CHK+7, END!
DTOUT END!
DUOUT END!
DUZ PSDTRN+3
LOC END!
LOC("TR" PSDTRN+3!, TO+2*, CHK+1, CHK+2, CHK+3, QUE+1
MTR METHOD+5*, CHK+4, END!
NAOUT QUE+1*, END!
NSF FROM+1*, CHK+1, CHK+3, END!
>> PSDSITE PSDTRN+2
PSDUZ PSDTRN+3*, END!
TR CHK+3*, QUE+1*, END!
X END!
Y NUM+3, METHOD+5, FROM+1, TO+2, CHK+7, END!
ZTDESC QUE+2*, END!
ZTDTH QUE+2*, END!
ZTIO QUE+2*, END!
>> ZTQUEUED END
>> ZTREQ END*
ZTRTN QUE+2*, END!
ZTSAVE END!
ZTSAVE("MTR" QUE+2*
ZTSAVE("NAOUT" QUE+2*
ZTSAVE("NSF" 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