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

Package: Auto Replenishment Ward Stock

Routine: PSGWSTD


Information

PSGWSTD ;BHAM ISC/KKA - Standard Cost Report ; 25 Aug 97 / 9:59 AM

Source Information

Source file <PSGWSTD.m>

Entry Points

Name Comments DBIA/ICR reference
DVC ;select a device
EN1 ;entry point when queued
DONE
END
PRINT ;print all items for the AOU and their data
PAGE ;

Interaction Calls

Name Line Occurrences
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: DVC+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DVC+2
Function Call: WRITE
  • Prompt: !!!,"Press <RETURN> to continue: "
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !," ==>",$P(^PSI(58.1,AOU,0),"^")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"No items found for this AOU"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: "_"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!,"Total for ",$P(^PSI(58.1,AOU,0),"^"),?35
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: @IOF,!,"Standard Cost Report",?109,"PAGE ",PAGE,!,?109,$P($$PSGWDT^PSGWUTL1,"@",1)
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !!!,?5,"AOU",!,"ITEM",?46,"LEVEL",?72,"UNIT COST",?97,"TOTAL COST",!
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: "_"
  • Line Location: PAGE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+6
Info |  Source |  Entry Points |  Interaction Calls