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

Package: Auto Replenishment Ward Stock

Routine: PSGWTR


Information

PSGWTR ;BHAM ISC/PTD,CML-Transfer Stock Entries from One AOU to Another ; 08 Dec 93 / 10:02 AM

Source Information

Source file <PSGWTR.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW TRANSFER ENTRIES  

Entry Points

Name Comments DBIA/ICR reference
WHAT
SURE
HOWMANY
DICF
LIMIT
DICT
QUE
END

External References

Name Field # of Occurrence
HOME^%ZIS QUE+3
^%ZTLOAD QUE+3
^DIC DICF, DICT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will copy the stock entries from one AOU into AOUs",!,"you select. Inactive or duplicate items will not be transferred."
  • Line Location: PSGWTR+2
Function Call: WRITE
  • Prompt: !,"Choosing to copy stock items into multiple AOUs will allow you",!,"to choose up to 10 AOUs at one time."
  • Line Location: PSGWTR+3
Function Call: WRITE
  • Prompt: !!?5,"Do you wish to copy stock items INTO:",!?5,"(1) ONE Area of Use, or",!?5,"(2) multiple Areas of Use",!!,"Select ""1"" or ""2"": "
  • Line Location: HOWMANY+0
Function Call: WRITE
  • Prompt: !!,"Answer ""1"" if transfer to only ONE AOU is desired,",!,"answer ""2"" if the same stock list is to be copied into more than one AOU."
  • Line Location: HOWMANY+2
Function Call: WRITE
  • Prompt: !!?5,"Do you wish to transfer:",!?5,"(1) Drug (item) name only, or",!?5,"(2) Drug name, stock level, and location, or",!?5,"(3) Drug name, stock level, location, and type.",!!,"Select ""1"", ""2"", or ""3"": "
  • Line Location: WHAT+0
Function Call: WRITE
  • Prompt: !!,"Answer ""1"" if transfer of ONLY drug name is desired,",!,"answer ""2"" if you wish to copy drug name, stock level, and location, or",!,"answer ""3"" if you wish to transfer drug name, stock level, location, and types."
  • Line Location: WHAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DICF+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DICF+0
Function Call: WRITE
  • Prompt: *7,*7,!!?5,"NOT ALLOWED to transfer out of and into SAME Area of Use!"
  • Line Location: SURE+0
Function Call: WRITE
  • Prompt: !?5,$P(^PSI(58.1,J,0),"^")
  • Line Location: SURE+1
Function Call: WRITE
  • Prompt: !!?5,"I will transfer ",$S(TR=2:"drug name, stock level, and location.",TR=3:"drug name, stock level, location, and types.",1:"drug name only.")
  • Line Location: SURE+2
Function Call: WRITE
  • Prompt: *7,!!,"Answer ""yes"" if you wish to transfer stock entries.",!,"Answer ""no"" or <return> if you do not.",!!
  • Line Location: SURE+4
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by MailMan when the transfer is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,"TRANSFER FILE ENTRIES queued!"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"You may not transfer TO additional AOUs at this time.",!,"Enter the option again to transfer to more AOUs."
  • Line Location: LIMIT+0
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3
Routine Call
  • DIC
  • Line Location:
    • DICF
    • DICT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSI(58.1 - [#58.1] SURE+1

Label References

Name Line Occurrences
DICF WHAT+1
DICT DICT
END HOWMANY+1, WHAT+1, DICF, DICT, SURE, SURE+1, SURE+4
HOWMANY HOWMANY+2
LIMIT DICT
SURE DICT, SURE+4, LIMIT
WHAT HOWMANY+1, WHAT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AOUF DICF*, SURE, SURE+1, END!
AOUT QUE+1*, END!
CHS HOWMANY*, HOWMANY+1, DICT, END!
CT PSGWTR+2*, DICT*, END!
DIC DICF*!, DICT*!
DIC("A" DICF*, DICT*
DIC(0 DICF*, DICT*
DTIME HOWMANY, WHAT, SURE+3
DUZ PSGWTR+2
G QUE+2*, END!
J SURE+1*, QUE+1*, END!
>> LOC("TR" PSGWTR+2!, DICT*, SURE, SURE+1, QUE+1, END!
PSGWDUZ PSGWTR+2*, END!
TR WHAT*, WHAT+1, SURE+2, END!
X SURE+3*, SURE+4, END!
Y DICF, DICT, 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( QUE+2*
ZTSK END!
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