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

Package: Auto Replenishment Ward Stock

Routine: PSGWRA


Information

PSGWRA ;BHAM ISC/PTD,CML-Recalculate AMIS Data ; 02/13/90 15:50

Source Information

Source file <PSGWRA.m>

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
ASK
QUE
ENQ ;BUILD SITE ARRAY
MSG
END
START ;LOOP THRU "B" XREF
DTLP
DTDA
DRGLP
ERROR
UPAMIS ;UPDATE THE AMIS SUBFILE
UPDATE
AMIS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option should be used ONLY if you have discovered and CHANGED",!,"cost data, AMIS category, or AMIS conversion number in the Drug file.",!,"Recalculation will use the new data to calculate AMIS stats.",!!!
  • Line Location: PSGWRA+4
Function Call: WRITE
  • Prompt: !!,"There is NO data in the AMIS Stats file."
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,"There are AMIS exceptions for the dates you selected.",!,"You MUST use the Incomplete AMIS Data option before RECALCULATION!"
  • Line Location: EDT+2
Function Call: WRITE
  • Prompt: !!,"I will now DELETE ALL AMIS DATA from ",Y," to "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: Y," and RECALCULATE.",!!,"Are you SURE that is what you want to do? NO// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Answer ""yes"" if you wish to delete AMIS data",!,"for the date range and recalculate.",!,"Answer ""no"" or <return> if you do not.",!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"This job will automatically be queued to run in the background.",!,"You will be notified by MailMan when the recalculation is completed.",!
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,"RECALCULATE AMIS DATA queued!"
  • Line Location: QUE+2
Info |  Source |  Entry Points |  Interaction Calls