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

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

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
Info |  Source |  Entry Points |  Interaction Calls