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

Package: Auto Replenishment Ward Stock

Routine: PSGWLSI2


Information

PSGWLSI2 ;BHAM ISC/PTD,CML-Print Stock Items in Alphabetical Order ; 30 Aug 93 / 10:15 AM

Source Information

Source file <PSGWLSI2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 NOW^%DTC  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWLSI  

Entry Points

Name Comments DBIA/ICR reference
DRGLP
HDR ;PRINT REPORT MAIN HEADER
AOULP
DRUG ;LOOP THROUGH DRUGS FOR AOU
ENQ ;ENTRY POINT WHEN QUEUED
AOU
DONE
DRLOOP
PRINT
END
INACT
SETGL

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"==> ",$P(^PSI(58.1,AOU,0),"^")
  • Line Location: AOULP+0
Function Call: WRITE
  • Prompt: !?8,DRG,?55,$S($P(LOC,"^")'="":$P(LOC,"^"),1:"NOT LISTED"),?74,$S($P(LOC,"^",2)'="":$J($P(LOC,"^",2),6),1:"NOT LISTED")
  • Line Location: DRLOOP+1
Function Call: WRITE
  • Prompt: ?119,$S(EXP:Y,1:"NOT LISTED")
  • Line Location: DRLOOP+3
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: !,"ALPHABETICAL LISTING OF AOU STOCK"," - 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",?104,"MINIMUM QTY",?119,"EXPIRATION",!?18,"ITEM",?57,"LOCATION",?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" DRLOOP+2, HDR+2
^PSDRUG - [#50] DRGLP
^PSI(58.1 - [#58.1] DRGLP, INACT, INACT+1, SETGL, AOULP
^PSI(58.2 - [#58.2] HDR+2
^TMP("PSGWSTK" ENQ+1!, SETGL+1*, AOULP, DRLOOP, END!

Label References

Name Line Occurrences
AOU DRGLP
AOULP DRLOOP
DONE AOULP
DRGLP INACT+1, SETGL+1
DRLOOP DRLOOP+3
END AOULP, DRLOOP+1
HDR AOULP, DRLOOP+1
PRINT AOU

Naked Globals

Name Field # of Occurrence
^("EXP" SETGL
^(0 INACT*, INACT+1, SETGL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INACT+1, END!, HDR+2
%H END!
%I END!
ANS END!
AOU ENQ+1*, AOU*, DRGLP, INACT, INACT+1, SETGL, SETGL+1, PRINT*, AOULP*, DRLOOP
, END!
AOULP END!
AOULP( AOU
AUTO DONE+1*, END!
DIR HDR+1!
DIR(0 HDR+1*
DRG AOULP*, DRLOOP*, DRLOOP+1, END!
DRGDA DRUG+1*, DRGLP*, INACT, INACT+1, SETGL, END!
DRGNAME DRGLP*, SETGL+1, END!
DRGNM DRGLP*, END!
DTIME DONE+1
EXP SETGL*, SETGL+1, DRLOOP+2*, DRLOOP+3, END!
G END!
IGDA END!, HDR+2
IO("Q" END!
IOF DONE, HDR+2
IOSL DRLOOP+1
IOST DONE, DONE+1, HDR+1
J END!
JJ END!
LN ENQ+1*, END!, HDR+3
LOC DRLOOP*, DRLOOP+1, DRLOOP+2, END!
LOCN SETGL*, SETGL+1, END!
MIN SETGL*, SETGL+1, END!
OUT ENQ+1*, AOULP, DRLOOP+1, END!, HDR+1*
PGCT ENQ+1*, END!, HDR+1, HDR+2, HDR+3*
RELEV SETGL*, SETGL+1, END!
SEL END!, HDR+2
STLEV SETGL*, SETGL+1, END!
X END!
Y INACT+1*, DRLOOP+2*, DRLOOP+3, END!, HDR+1, HDR+2*
>> ZTQUEUED END+2
>> ZTREQ END+2*
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