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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGWVW

Package: Auto Replenishment Ward Stock

Routine: PSGWVW


Information

PSGWVW ;BHAM ISC/PTD,CML-Lookup Item and List Wards/AOUs Which Stock It ; 29 Dec 93 / 2:31 PM

Source Information

Source file <PSGWVW.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 (HELP,SS)^PSGWUTL1  
VA FileMan 1 ^DIC  

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 LOOKUP ITEM  

Entry Points

Name Comments DBIA/ICR reference
DIC
DEV
ENQ ;ENTRY POINT WHEN QUEUED
AOULP
DRGLP
CHKDRG
PRINT ;
LOOP
WD
AOU
LOC
STK
MSG
DONE
END
HDR1 ;
HDR2
PRTCHK ;

External References

Name Field # of Occurrence
^%ZIS DIC+1
HOME^%ZIS DEV+1
^%ZISC END+1
^%ZTLOAD DEV+1
^DIC DIC
HELP^PSGWUTL1 PRTCHK+2
SS^PSGWUTL1 DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Using this option, you may look up the wards and/or Areas of Use",!,"which stock the item you select.",!!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!!
  • Line Location: PSGWVW+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DIC+1
Function Call: WRITE
  • Prompt: !!,$P(^PSDRUG(DRGNUM,0),"^")," is not a Ward Stock/Auto Replenishment item."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: WARD
  • Line Location: WD+1
Function Call: WRITE
  • Prompt: ?28,$P(AOUN,"^")
  • Line Location: AOU+0
Function Call: WRITE
  • Prompt: " *"
  • Line Location: AOU+0
Function Call: WRITE
  • Prompt: ?56,LOCN
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !!!,"* Indicates AOU is currently Inactive"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"WARD/AOU LIST FOR AN ITEM",?60,"DATE: "
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: Y,!,"ITEM NAME",!?70,"STOCK",!?10,"WARD",?35,"AREA OF USE",?56,"LOCATION",?70,"LEVEL",!,LN
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!,"==>",DRGNAM,!!
  • Line Location: HDR2+0
Function Call: WRITE
  • Prompt: !!,"* Indicates AOU is currently Inactive"
  • Line Location: PRTCHK+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+2
Routine Call
  • %ZIS
  • Line Location:
    • DIC+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • DIC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR1+2
^DIC(42 - [#42] CHKDRG+5
^PSDRUG - [#50] PRINT+1, LOOP
^PSI(58.1 - [#58.1] AOULP, DRGLP, CHKDRG, CHKDRG+1, CHKDRG+2, CHKDRG+3, CHKDRG+4, CHKDRG+5
^TMP("PSGWITEM" ENQ+1!, CHKDRG+4*, CHKDRG+5*, PRINT+1, LOOP, WD, AOU, LOC, STK, END!

Label References

Name Line Occurrences
AOU LOC
AOULP DRGLP+1
CHKDRG DRGLP
DONE PRINT+1
END DIC, DIC+1, DEV+1, LOOP, WD
HDR1 PRINT+1, PRTCHK+3
HDR2 LOOP, PRTCHK+3
LOC STK
LOOP WD
MSG LOOP
PRINT AOULP
PRTCHK WD
STK STK+1
WD AOU

Naked Globals

Name Field # of Occurrence
^("I" AOULP
^(0 CHKDRG+1*, CHKDRG+3, CHKDRG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DIC+1!*
%ZIS("B" DIC+1*
ANS END!, PRTCHK+2*
AOU ENQ+1*, AOULP*, DRGLP, CHKDRG, CHKDRG+1, CHKDRG+2, CHKDRG+3, CHKDRG+4, CHKDRG+5, END!
AOUN AOULP*, CHKDRG+4, CHKDRG+5, WD*, AOU*, LOC, STK, END!
DIC DIC*!
DIC("A" DIC*
DIC(0 DIC*
DRG PRINT+1*, LOOP*, WD, AOU, LOC, STK, END!
DRGDA CHKDRG*, CHKDRG+1, CHKDRG+2, CHKDRG+3, CHKDRG+4, CHKDRG+5, END!
DRGNAM LOOP*, END!, HDR2
DRGNUM DIC*, DRGLP, CHKDRG, CHKDRG+4, CHKDRG+5, PRINT+1, END!
DT AOULP, HDR1+2
DTIME PRTCHK+2
INACT AOU*, MSG, END!, HDR1+1*, PRTCHK+1
IO DEV+2
IO("Q" DEV!, END!
IOF DONE, HDR1+2
IOP DIC+1!
IOSL WD
IOST DONE, DONE+1, PRTCHK+2
J CHKDRG+5*, END!
LN ENQ+1*, END!, HDR1+2
LOCN CHKDRG+3*, CHKDRG+4, CHKDRG+5, AOU*, LOC*, STK, END!
>> POP DIC+1
QFLG PRINT+1*, LOOP, WD, DONE+1, END!, PRTCHK+2*
STLEV CHKDRG+3*, CHKDRG+4, CHKDRG+5, LOC*, STK*, END!
WARD CHKDRG+4*, CHKDRG+5*, LOOP*, WD*, WD+1, AOU, LOC, STK, END!
WRD CHKDRG+5*, END!
Y DIC, END!, HDR1+2*
>> ZTDESC DEV*
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN DEV*
>> ZTSAVE("DRGNUM" DEV*
ZTSK DEV+1!, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All