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

Package: Auto Replenishment Ward Stock

Routine: PSGWOND


Information

PSGWOND ;BHAM ISC/MPH,CML-Delete an On-Demand Request ; 19 Mar 97 / 2:35 PM

Source Information

Source file <PSGWOND.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
DT
RD
END
HELP
LOOP
LOOP2
DEL
NOLOOP
ITEM

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: "
  • Variable: PSGWODT
  • Timeout: DTIME
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !,"On-Demand Request Date/Time not found, please try again...",!
  • Line Location: DT+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you wish to delete ALL items on this on-demand request? N// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"Answer ""Y"" or ""N"". If yes, the program will loop thru",!,"all items which were requested on the date/time selected",!,"and delete the request. If no, the user will be asked",!,"for the AOU and the item will be removed.",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !," ",$P(^PSI(58.1,PSGWAOU,0),"^")," ",$P(^PSDRUG(PSGWITN,0),"^")," On-demand request deleted"
  • Line Location: DEL+2

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