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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIC  YN^DICN  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Auto Replenishment Ward Stock 6 INVENTORY  ITEM  ON-DEMAND REQUEST DATE/TIME  PSGWXREF  RETURNS  WARD (FOR ITEM)  

Entry Points

Name Comments DBIA/ICR reference
QUIT
KRETERR ;KILL "AMISERR" XREF ON RETURNS
DRGSCRN2 ;
KRET ;KILL "AMIS" XREF FOR RETURNS
QDERR ;SET "AMISERR" XREF ON QTY DISPENSED
RETERR ;SET "AMISERR" XREF ON RETURNS
KODERR ;KILL "AMISERR" XREF ON ON-DEMANDS
OD ;SET "AMIS" XREF FOR ON-DEMAND REQUEST
KOD ;KILL "AMIS" XREF FOR ON-DEMAND REQUEST
OND ;Check quantities for On-Demands/Returns
ODERR ;SET "AMISERR" XREF ON ON-DEMANDS
RET ;SET "AMIS" XREF FOR RETURNS
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
QD ;SET "AMIS" XREF FOR QTY DISPENSED
KQD ;KILL "AMIS" XREF FOR QTY DISPENSED
ASK
EDCHK ;
INACT ;CHECK FOR INACTIVE DATE ON ITEM FOR "D" XREF (FILE 58.1)
KQDERR ;KILL "AMISERR" XREF ON QTY DISPENSED

External References

Name Field # of Occurrence
^DIC DRGSCRN2+2
YN^DICN ASK

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSI(58.1 - [#58.1] OND+1, OND+2, QD+1, KQD+1, OD+1, KOD+1, RET+1, KRET+1, QDERR+1, QDERR+2
, KQDERR+1, ODERR+1, ODERR+2, KODERR+1, RETERR+1, RETERR+2, KRETERR+1, INACT+1, INACT+2, EDCHK+1
^PSI(58.19 - [#58.19] QD+1, KQD+1, QDERR+2, KQDERR+1
^PSI(58.5 - [#58.5] QD+1*, KQD+1, OD+1*, KOD+1, RET+1*, KRET+1, QDERR+2*, KQDERR+2, ODERR+2*, KODERR+2
, RETERR+2*, KRETERR+2

Label References

Name Line Occurrences
ASK ASK+1
QUIT QD+2, KQD+2, OD+2, KOD+2, RET+2, KRET+2, QDERR+3, KQDERR+3, ODERR+3, KODERR+3
, RETERR+3, KRETERR+3

Naked Globals

Name Field # of Occurrence
^( QD+1, KQD+1!, KOD+1!, KRET+1!, QDERR+2, KQDERR+1, KQDERR+2!, KODERR+2!, KRETERR+2!
^("I" DRGSCRN+3
^("SITE" QDERR+1, ODERR+1, RETERR+1
^(0 OND+1, OD+1, ODERR+2
^(1 QD+1, OD+1, RET+1, QDERR+2, ODERR+2, RETERR+2
^(2 DRGSCRN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*!, ASK+1, ASK+2!, QUIT!
%Y ASK!, ASK+2!, QUIT!
ADT QUIT!, QD+1*, KQD+1*, OD+1*, KOD+1*, RET+1*, KRET+1*, QDERR+2*, KQDERR+1*, KQDERR+2
, ODERR+2*, KODERR+1*, KODERR+2, RETERR+2*, KRETERR+1*, KRETERR+2
AOU QUIT!, QD+1*, KQD+1*, OD+1*, KOD+1*, RET+1*, KRET+1*, QDERR+2*, KQDERR+1*, KQDERR+2
, ODERR+2*, KODERR+1*, KODERR+2, RETERR+2*, KRETERR+1*, KRETERR+2
APU DRGSCRN+3*, DRGSCRN+4!, DRGSCRN2+4!
>> D0 EDCHK+1
>> D1 EDCHK+1
>> DA QD+1, KQD+1, OD+1, KOD+1, RET+1, KRET+1, QDERR+2, KQDERR+1, ODERR+2, KODERR+1
, RETERR+2, KRETERR+1
>> DA(1 OND+1, OND+2, QD+1, KQD+1, OD+1, KOD+1, RET+1, KRET+1, QDERR+2, KQDERR+1
, ODERR+2, KODERR+1, RETERR+2, KRETERR+1, INACT+1, INACT+2
>> DA(2 OND+1, OND+2, QD+1, KQD+1, OD+1, KOD+1, RET+1, KRET+1, QDERR+1, QDERR+2
, KQDERR+1, ODERR+1, ODERR+2, KODERR+1, RETERR+1, RETERR+2, KRETERR+1, INACT+1, INACT+2
DIC DRGSCRN2+2!*
DIC("S" DRGSCRN2+1*
>> DIE DRGSCRN2+2
DT INACT+2, DRGSCRN+3
II QUIT!, KQD+1*, KOD+1*, KRET+1*, KQDERR+2*, KODERR+2*, KRETERR+2*
ITM QUIT!, QD+1*, KQD+1*, OD+1*, KOD+1*, RET+1*, KRET+1*, QDERR+2*, KQDERR+1*, KQDERR+2
, ODERR+2*, KODERR+1*, KODERR+2, RETERR+2*, KRETERR+1*, KRETERR+2
LP QUIT!, KQD+1*, KOD+1*, KRET+1*, KQDERR+1*, KQDERR+2*, KODERR+1*, KODERR+2*, KRETERR+1*, KRETERR+2*
PSGWFLG INACT+1!*, INACT+2*
>> PSGWV QD+1, KQD+1, OD+1, KOD+1, RET+1, KRET+1, QDERR+1, KQDERR+1, ODERR+1, KODERR+1
, RETERR+1, KRETERR+1
X OND+1, ASK+2!, QD+1, OD+1, RET+1, QDERR+2, ODERR+2, RETERR+2, DRGSCRN2+2*, DRGSCRN2+3!
, EDCHK+1!
>> Y DRGSCRN2+2, DRGSCRN2+3, EDCHK+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All