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 |  Local Variables  | All
Print Page as PDF
Routine: PSGWDUP

Package: Auto Replenishment Ward Stock

Routine: PSGWDUP


Information

PSGWDUP ;BHAM ISC/KKA-Report for Duplicate entries in ITEM subfile ; 27 Aug 93 / 8:04 AM

Source Information

Source file <PSGWDUP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIR  
Auto Replenishment Ward Stock 1 ENTRY^PSGWDUP1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW DUPLICATE REPORT  

Entry Points

Name Comments DBIA/ICR reference
DUP ; CHECK FOR DUPLICATE ENTRIES IN ITEM SUBFIELD IN 58.1
SLCT ;** select drug(s) which should be printed **
END ;
ACHK ;** continue checking for number of active items

External References

Name Field # of Occurrence
NOW^%DTC DUP+1
^%ZIS SLCT+2
HOME^%ZIS SLCT+3
^%ZISC END+2
^%ZTLOAD SLCT+3
^DIR SLCT+1
ENTRY^PSGWDUP1 SLCT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Duplicate Entries Exist in the ITEM subfile (58.11) of the",!,"PHARMACY AOU STOCK file (#58.1) for the Following Drugs:",!!
  • Line Location: DUP+3
Function Call: READ
  • Variable: CONT
  • Timeout: DTIME
  • Line Location: DUP+8
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or ""^"" to exit: "
  • Line Location: DUP+8
Function Call: WRITE
  • Prompt: @IOF,"Duplicate Entries (continued)",!!
  • Line Location: DUP+8
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue: "
  • Variable: AUTO
  • Timeout: DTIME
  • Line Location: DUP+13
Function Call: WRITE
  • Prompt: !!,?10,"No duplicate entries exist."
  • Line Location: DUP+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: SLCT+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 132.",!,"You may queue the report to print at a later time.",!!
  • Line Location: SLCT+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: SLCT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Routine Call
  • DIR
  • Line Location:
    • SLCT+1
Routine Call
  • %ZIS
  • Line Location:
    • SLCT+2
Routine Call
  • %ZIS
  • Line Location:
    • SLCT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] DUP+10
^PSI(58.1 - [#58.1] DUP+4, DUP+5, DUP+6, DUP+10, DUP+12, ACHK+1
^TMP("PSGW" DUP+11*, DUP+12*, END+1!

Label References

Name Line Occurrences
ACHK DUP+6
END DUP+13, SLCT+1, SLCT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%H END+1!
%I END+1!
%ZIS SLCT+2!*
%ZIS("B" SLCT+2*
ACNT DUP+5*, DUP+6*, DUP+7, END+1!, ACHK+1*
AUTO DUP+13*, END+1!
CNT DUP+2*, DUP+9*, DUP+10, DUP+11, DUP+12, DUP+13, SLCT+1, END+1!
CNT2 DUP+12*, END+1!
CONT DUP+8*, END+1!
DIR SLCT+1!
DIR("A" SLCT+1*
DIR(0 SLCT+1*
DTIME DUP+8, DUP+13
IDT DUP+6*, END+1!, ACHK+1*
IO SLCT+4
IO("Q" SLCT+2!, SLCT+3
IOF DUP+3, DUP+8, END+2
IOP SLCT+2!
IOSL DUP+8
OUT DUP+2*, DUP+4, DUP+5, DUP+8*, END+1!
POP SLCT+2, END+1!
PSGWAOU DUP+4*, DUP+5, DUP+6, DUP+10, DUP+11, DUP+12, END+1!, ACHK+1
PSGWDRG DUP+5*, DUP+6, DUP+10, DUP+11, DUP+12, END+1!
PSGWDRP SLCT+1*, END+1!
PSGWDT DUP+1*, DUP+6, END+1!, ACHK+1
PSGWITM DUP+5*, DUP+6, DUP+11, DUP+12*, END+1!
PSGWITMT DUP+6*, END+1!, ACHK+1
X DUP+1, END+1!
Y SLCT+1, END+1!
ZTDESC SLCT+3*, END+1!
ZTRTN SLCT+3*, END+1!
>> ZTSAVE("PSGWDRP" SLCT+3*, END+1!
>> ZTSAVE("^TMP(""PSGW"",$J)" END+1!
>> ZTSAVE("^TMP(""PSGW"",$J," SLCT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All