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
Print Page as PDF
Routine: PSGWUTL

Package: Auto Replenishment Ward Stock

Routine: PSGWUTL


Information

PSGWUTL ;BHAM ISC/CML,KKA-Utility routine for FileMan functions ; 06 Dec 93 / 2:23 PM

Source Information

Source file <PSGWUTL.m>

Entry Points

Name Comments DBIA/ICR reference
OND ;Check quantities for On-Demands/Returns
ASK
QUIT
QD ;SET "AMIS" XREF FOR QTY DISPENSED
KQD ;KILL "AMIS" XREF FOR QTY DISPENSED
OD ;SET "AMIS" XREF FOR ON-DEMAND REQUEST
KOD ;KILL "AMIS" XREF FOR ON-DEMAND REQUEST
RET ;SET "AMIS" XREF FOR RETURNS
KRET ;KILL "AMIS" XREF FOR RETURNS
QDERR ;SET "AMISERR" XREF ON QTY DISPENSED
KQDERR ;KILL "AMISERR" XREF ON QTY DISPENSED
ODERR ;SET "AMISERR" XREF ON ON-DEMANDS
KODERR ;KILL "AMISERR" XREF ON ON-DEMANDS
RETERR ;SET "AMISERR" XREF ON RETURNS
KRETERR ;KILL "AMISERR" XREF ON RETURNS
INACT ;CHECK FOR INACTIVE DATE ON ITEM FOR "D" XREF (FILE 58.1)
DRGSCRN ;SCREEN DRUG FILE DRUGS FOR AR/WS FOR ^DD(58.11,.01,0) AND ^DD(58.11,.01,12.1)
; naked indicator set within VA FileMan in file 58.11
; this code is called as part of the input transform
DRGSCRN2 ;
EDCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"This quantity seems too high! The normal Stock Level for this item is ",$P(^PSI(58.1,DA(2),1,DA(1),0),"^",2)
  • Line Location: OND+2
Function Call: WRITE
  • Prompt: !?5,"Are you sure of this amount "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " Enter 'YES' or 'NO'"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Enter name of drug being stocked in this AOU."
  • Line Location: DRGSCRN2+3
Function Call: WRITE
  • Prompt: !," NO EDITING -- This item has activity. "
  • Line Location: EDCHK+1
Info |  Source |  Entry Points |  Interaction Calls