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 |  Local Variables  | All
Print Page as PDF
Routine: PSGWPL1

Package: Auto Replenishment Ward Stock

Routine: PSGWPL1


Information

PSGWPL1 ;BHAM ISC/MPH,CML-Print AOU Inventory Pick List - CONTINUED ; 17 Jun 93 / 10:39 AM

Source Information

Source file <PSGWPL1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Auto Replenishment Ward Stock 1 WRTGRP^PSGWPI2  

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 PSGWPL0  

Entry Points

Name Comments DBIA/ICR reference
PSGDL1
PSGDL2
PSGDL3
PSGDR
PNT
PSGDA
HDGP ;PRINT PICK LIST HEADER
END

External References

Name Field # of Occurrence
WRTGRP^PSGWPI2 HDGP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"AOU INVENTORY GROUP MISSING"
  • Line Location: PSGWPL1+3
Function Call: WRITE
  • Prompt: !,?17,PSGDL1
  • Line Location: PSGDL1+0
Function Call: WRITE
  • Prompt: " ",$P(^PSI(58.17,EXP,0),"^",3)
  • Condition for execution: EXP>0
  • Line Location: PSGDL1+0
Function Call: WRITE
  • Prompt: ?52,$P(^PSI(58.1,PSGDA,0),"^",1),?73,$J(+^TMP("PSGWDL",$J,PSGDL1,PSGDL2,PSGDL3,PSGDR,PSGDA),3),!
  • Line Location: PSGDA+1
Function Call: WRITE
  • Prompt: ?73,$J(+^TMP("PSGWDL",$J,PSGDL1,PSGDL2,PSGDL3,PSGDR),3),?90,"______"
  • Line Location: PSGDA+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDGP+1
Function Call: WRITE
  • Prompt: !,"WARD STOCK PHARMACY PICK LIST FOR "
  • Line Location: HDGP+1
Function Call: WRITE
  • Prompt: ?35,Y," INVENTORY # ",PSGWIDA,?99,PSGTODAY,?120,"PAGE ",PSGPAGE
  • Line Location: HDGP+1
Function Call: WRITE
  • Prompt: !,"GROUP: "
  • Line Location: HDGP+2
Function Call: WRITE
  • Prompt: !,?10,"ITEM",?75,"TO BE",?90,"QUANTITY",!,?73,"DISPENSED",?91,"PICKED",!
  • Line Location: HDGP+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDGP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDGP+1
^PSI(58.1 - [#58.1] PSGDA+1
^PSI(58.17 - [#58.17] PSGDL1
^PSI(58.19 - [#58.19] PSGWPL1+3
^TMP("PSGWDL" PSGDL1, PSGDL2, PSGDL3, PSGDR, PSGDA, PSGDA+1, PSGDA+2, END!

Label References

Name Line Occurrences
END PSGWPL1+3, PSGDL1
HDGP PSGWPL1+4, PSGDR+1
PSGDA PSGDA+3
PSGDL1 PSGDL2
PSGDL2 PSGDL3
PSGDL3 PSGDR
PSGDR PSGDA, PSGDA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> EXP PSGDL1*
I HDGP+4*, END!
IOF HDGP+1
IOSL PSGDR+1
PSGDA PSGDR*, PSGDA*, PSGDA+1, END!
PSGDL1 PSGWPL1+2*, PSGDL1*, PSGDL2, PSGDL3, PSGDR, PSGDA, PSGDA+1, PSGDA+2, END!
PSGDL2 PSGDL1*, PSGDL2*, PSGDL3, PSGDR, PNT, PSGDA, PSGDA+1, PSGDA+2, END!
PSGDL3 PSGDL2*, PSGDL3*, PSGDR, PNT, PSGDA, PSGDA+1, PSGDA+2, END!
PSGDR PSGDL3*, PSGDR*, PNT, PSGDA, PSGDA+1, PSGDA+2, END!
PSGPAGE HDGP+1, HDGP+5*, END!
PSGST PSGDA, PSGDA+1, PSGDA+3, END!
PSGTODAY HDGP+1, END!
>> PSGWIDA PSGWPL1+3, HDGP+1
>> PSGWIN HDGP+1
>> Y HDGP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All