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

Package: Auto Replenishment Ward Stock

Routine: PSGWLSI1


Information

PSGWLSI1 ;BHAM ISC/PTD,CML-Print Stock Items in Order by Type/Location ; 03 Sep 93 / 9:35 AM

Source Information

Source file <PSGWLSI1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIK  ^DIR  
Kernel 1 ^%ZISC  

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 PSGWLSI  

Entry Points

Name Comments DBIA/ICR reference
ENQ ;ENTRY POINT WHEN QUEUED
AOU
XREF
BUILD
SETGL
PRINT
AOULP
TYPLP
LOCNLP
DRGLP
STLP
RELP
MINLP
EXPLP
DONE
END
HDR ;PRINT REPORT HEADER

External References

Name Field # of Occurrence
NOW^%DTC BUILD+1, HDR+2
^%ZISC END
^DIK SETGL
^DIR HDR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"==> ",$P(^PSI(58.1,AOU,0),"^")
  • Line Location: AOULP+0
Function Call: WRITE
  • Prompt: !?6,"TYPE: ",$S(TYP=9999:"UNCLASSIFIED BY TYPE",$D(^PSI(58.16,TYP,0)):$P(^(0),"^"),1:"TYPE NAME HAS BEEN DELETED IN FILE 58.16")
  • Line Location: TYPLP+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue: "
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"AOU STOCK LIST BY TYPE/LOCATION"," - DATE: ",Y,?121,"PAGE: ",PGCT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"FOR INVENTORY GROUP - ",$P(^PSI(58.2,IGDA,0),"^")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?2,"AREA OF USE",!?10,"TYPE",?104,"MINIMUM QTY",?119,"EXPIRATION",!?15,"LOCATION",?44,"ITEM",?72,"STOCK LEVEL",?87,"REORDER LEVEL",?104,"TO DISPENSE",?122,"DATE",!,LN
  • Line Location: HDR+3
Routine Call
  • DIR
  • Line Location:
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EXPLP+2, HDR+2
^PSDRUG - [#50] SETGL, SETGL+1
^PSI(58.1 - [#58.1] XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL+2, SETGL+3, AOULP
^PSI(58.16 - [#58.16] TYPLP
^PSI(58.2 - [#58.2] HDR+2
^TMP("PSGWSTK" ENQ+1!, SETGL+4*, AOULP, TYPLP, LOCNLP, DRGLP, STLP, RELP, MINLP, EXPLP
, END!

Label References

Name Line Occurrences
AOU XREF
AOULP TYPLP
BUILD XREF
DONE AOULP
DRGLP STLP
END AOULP, TYPLP, EXPLP
HDR AOULP, TYPLP, EXPLP
LOCNLP DRGLP
MINLP EXPLP
PRINT AOU
RELP MINLP
SETGL BUILD+2, BUILD+3
STLP RELP, EXPLP+3
TYPLP LOCNLP

Naked Globals

Name Field # of Occurrence
^("EXP" SETGL+3
^(0 BUILD*, BUILD+1, SETGL+1, SETGL+2, SETGL+3, TYPLP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BUILD+1, END!, HDR+2
%H END!
%I END!
ANS END!
AOU ENQ+1*, AOU*, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL, SETGL+2, SETGL+3
, SETGL+4, PRINT*, AOULP*, TYPLP, LOCNLP, DRGLP, STLP, RELP, MINLP, EXPLP
, END!
AOULP END!
AOULP( AOU
AUTO DONE+1*, END!
DA SETGL*, END!
DA(1 SETGL*
DIK SETGL*!
DIR HDR+1!
DIR(0 HDR+1*
DRGDA XREF*, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL, SETGL+2, SETGL+3, END!
DRGNAME SETGL+1*, SETGL+4, LOCNLP*, DRGLP*, STLP, RELP, MINLP, EXPLP, EXPLP+1, END!
DRGNM XREF*, SETGL, SETGL+1, END!
DTIME DONE+1
EXP SETGL+3*, SETGL+4, MINLP*, EXPLP*, EXPLP+2, EXPLP+3, END!
G END!
IGDA END!, HDR+2
IO("Q" END!
IOF DONE, HDR+2
IOSL TYPLP, EXPLP
IOST DONE, DONE+1, HDR+1
J END!
JJ END!
K BUILD+2*, BUILD+3*, SETGL+4, END!
LN ENQ+1*, END!, HDR+3
LOCN SETGL+2*, SETGL+4, TYPLP*, LOCNLP*, DRGLP, STLP, RELP, MINLP, EXPLP, EXPLP+1
, END!
MIN SETGL+3*, SETGL+4, RELP*, MINLP*, EXPLP, EXPLP+2, END!
OUT ENQ+1*, AOULP, TYPLP, EXPLP, END!, HDR+1*
PGCT ENQ+1*, END!, HDR+1, HDR+2, HDR+3*
RELEV SETGL+3*, SETGL+4, STLP*, RELP*, MINLP, EXPLP, EXPLP+2, END!
SEL END!, HDR+2
STLEV SETGL+2*, SETGL+4, DRGLP*, STLP*, RELP, MINLP, EXPLP, EXPLP+1, END!
TYP BUILD+3*, AOULP*, TYPLP*, LOCNLP, DRGLP, STLP, RELP, MINLP, EXPLP, END!
X END!
Y BUILD+1*, EXPLP+2*, EXPLP+3, END!, HDR+1, HDR+2*
>> ZTQUEUED END+1
>> ZTREQ END+1*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All