Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Auto Replenishment Ward Stock 1 ($$PSGWDT,SEL)^PSGWUTL1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW STANDARD COST REPORT  

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 ;

External References

Name Field # of Occurrence
NOW^%DTC EN1+1
^%ZIS DVC+2
HOME^%ZIS DVC+3
^%ZISC END+3
^%ZTLOAD DVC+3
^DIC PSGWSTD+3
^DIR PAGE+1
$$PSGWDT^PSGWUTL1 PAGE+2
SEL^PSGWUTL1 PSGWSTD+2

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
Routine Call
  • DIC
  • Line Location:
    • PSGWSTD+3
Routine Call
  • DIR
  • Line Location:
    • PAGE+1
Routine Call
  • %ZIS
  • Line Location:
    • DVC+2
Routine Call
  • %ZIS
  • Line Location:
    • DVC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] PRINT+9, PRINT+10, PRINT+12, PRINT+14
^PSI(58.1 - [#58.1] PSGWSTD+5, PRINT+2, PRINT+3, PRINT+4, PRINT+6, PRINT+21

Label References

Name Line Occurrences
DVC PSGWSTD+2
END PSGWSTD+4, DVC+3
PAGE PRINT+1, PRINT+5
PRINT EN1+2

Naked Globals

Name Field # of Occurrence
^(660 PRINT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC+2!*, END+2!
%ZIS("B" DVC+2*
AOU PSGWSTD+5*, EN1+2*, END+2!, PRINT+2, PRINT+3, PRINT+4, PRINT+6, PRINT+21
AOULP PSGWSTD+4, END+2!
AOULP( PSGWSTD+3*, PSGWSTD+5*, EN1+2
AUTO DONE*, END+2!
CONV END+2!
DIC PSGWSTD+3*!, END+2!
DIC(0 PSGWSTD+3*
DIR END+2!, PAGE+1!
DIR(0 PAGE+1*
DRG END+2!, PRINT+7*, PRINT+9, PRINT+10, PRINT+12, PRINT+14
DTIME DONE
I END+2!, PAGE+5*
INACT END+2!, PRINT+8*
IO DVC+4
IO("Q" DVC+2!, DVC+3
IOF DONE+1, PAGE+2
IOP DVC+2!
IOSL PRINT+5
IOST DONE, PAGE+1
ITM END+2!, PRINT+4*, PRINT+6
LVL END+2!, PRINT+11*, PRINT+15, PRINT+16
>> MFLG PRINT+4*, PRINT+15*
OUT EN1+1*, EN1+2, DONE, END+2!, PRINT+1, PRINT+4, PRINT+5, PRINT+19, PAGE+1*
PAGE EN1+1*, END+2!, PAGE+1, PAGE+2, PAGE+3*
POP DVC+2, END+2!
PSGWAOUN END+2!, PRINT+6*, PRINT+7, PRINT+8, PRINT+11
PSGWCNM END+2!, PRINT+14*, PRINT+15
PSGWDT EN1+1*, END+2!, PRINT+8
SEL PSGWSTD+2, END+2!
TCST END+2!, PRINT+15*, PRINT+18
TTCST EN1+2*, END+2!, PRINT+15*, PRINT+22
U PRINT+14
UCST END+2!, PRINT+12*, PRINT+15, PRINT+17
X PSGWSTD+4, PSGWSTD+5, EN1+1, END+2!, PRINT+20*, PRINT+21*
Y PSGWSTD+3, END+2!, PAGE+1
ZTDESC DVC+3*, END+2!
ZTQUEUED END, END+2!
>> ZTREQ END*
ZTRTN DVC+3*, END+2!
ZTSAVE END+2!
ZTSAVE("AOULP(" DVC+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All