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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGWEDIS

Package: Auto Replenishment Ward Stock

Routine: PSGWEDIS


Information

PSGWEDIS ;BHAM/CML-Input AOU 'INPATIENT SITE' field ; 07/19/90 10:27

Source Information

Source file <PSGWEDIS.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
QUIT
ED ;
WARN ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will loop thru the PHARMACY AOU STOCK FILE (#58.1) and",!,"locate all ""ACTIVE"" AOUs that do not have an INPATIENT SITE defined."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: *7,!!,"ALL ACTIVE AOUs HAVE INPATIENT SITE DEFINED!!"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: *7,!!,"LOOP COMPLETED!"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"=> ",AOU
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: *7,!!,"LOOP INTERRUPTED!",!!," *** Please complete this editing soon, it is VERY IMPORTANT that ***",!," *** all your AOUs have the INPATIENT SITE field defined. ***"
  • Line Location: WARN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call