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

Package: Auto Replenishment Ward Stock

Routine: PSGWDEL


Information

PSGWDEL ;BHAM ISC/CML-Delete Inventory Sheets ; 02/14/90 8:14

Source Information

Source file <PSGWDEL.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT
START ;
CHK ;Check PHARMACY AOU STOCK FILE (#58.1)
PRT ;Print pointer entries

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"First, let me check for existing entries in other files for this Inventory Date.",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: *7,!!,"Because this Inventory Date is pointed to, it cannot be deleted at this time."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"None found."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to delete this Inventory Sheet "
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to delete this Inventory Sheet "
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"...Deleted"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !!,"***> There are entries in the PHARMACY AOU STOCK FILE (#58.1) for this",!?5,"DATE/TIME FOR INVENTORY for MED ROOM(S):",!,LN
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,$P(^PSI(58.1,MR,0),"^")
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!,"***> There are entries in the PHARMACY BACKORDER FILE (#58.3) for this",!?5,"DATE/TIME FOR INVENTORY for the following ITEMS:",!!?18,"ITEM",?50,"MED ROOM",!,LN
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,$P(^PSDRUG(BODRUG,0),"^"),?45,$P(^PSI(58.1,MR,0),"^")
  • Line Location: PRT+5

FileMan Files Accessed Via FileMan Db Call

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