Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call