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

Package: Auto Replenishment Ward Stock

Routine: PSGWCHG


Information

PSGWCHG ;BHAM ISC/CML-AR/WS Mass Ward Conversion ; 06 Aug 93 / 2:18 PM

Source Information

Source file <PSGWCHG.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
OLD
NEW
QUE
START ;
MAIL ;
QUIT
CHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will allow you to do a mass conversion of all active items in",!,"an active AOU from an old Ward designation to a new Ward designation."
  • Line Location: PSGWCHG+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Select OLD WARD: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OLD+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Select NEW WARD: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: NEW+0
Function Call: WRITE
  • Prompt: !!,"Do you want to queue this job"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"If you want to queue this job to run at a later time, accept the ",!,"default, otherwise enter 'N' to run it immediately or '^' to Exit"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed.",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: *7,!!,"Total Stock Items converted: ",ITEMCNT,!,"Total AOU(s) converted: ",MEDRCNT,!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHK+2

FileMan Files Accessed Via FileMan Db Call

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