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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW DELETE INVENTORY  

Entry Points

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

External References

Name Field # of Occurrence
^DIC PSGWDEL+2
YN^DICN START+3
^DIK START+4

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
Routine Call
  • DIC
  • Line Location:
    • PSGWDEL+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] PRT+5
^PSI(58.1 - [#58.1] CHK+1, PRT+3, PRT+5
^PSI(58.3 - [#58.3] CHK+3, PRT+5
^TMP("PSGW" QUIT!, START+1!, START+2, START+3, CHK+1*, CHK+3*, PRT+2, PRT+3, PRT+4, PRT+5

Label References

Name Line Occurrences
CHK START+1
PRT START+2
START PSGWDEL+2

Naked Globals

Name Field # of Occurrence
^( CHK+1, CHK+3
^(0 PRT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT!, START+3*, START+4
%Y QUIT!
BO QUIT!, CHK+3*, PRT+5*
BODRUG QUIT!, PRT+5*
DA QUIT!, START+4*
DIC PSGWDEL+2*!
DIC("A" PSGWDEL+2*
DIC(0 PSGWDEL+2*
DIK QUIT!, START+4*
GRP QUIT!
II PSGWDEL+2*, QUIT!, START+3*
INVDA PSGWDEL+2*, QUIT!, START+4, CHK+1
INVDT PSGWDEL+2*, QUIT!, CHK+3
ITM QUIT!, CHK+1*
LN QUIT!, PRT+1*, PRT+2, PRT+4
LP QUIT!
MR QUIT!, CHK+1*, CHK+3*, PRT+3*, PRT+5*
PC QUIT!
X QUIT!
Y PSGWDEL+2, QUIT!
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 |  Naked Globals |  Local Variables |  All