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

Package: Auto Replenishment Ward Stock

Routine: PSGWPIS


Information

PSGWPIS ;BHAM ISC/CML-Print AOU Inventory Sheet for a single AOU ; 29 Dec 93 / 9:15 AM

Source Information

Source file <PSGWPIS.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Auto Replenishment Ward Stock 2 EN1^PSGWPI1  ^PSGWSET  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW INVENTORY SINGLE  

Entry Points

Name Comments DBIA/ICR reference
QUIT
ASKINV
EN ; Entry point for no bar codes
BAR
LIST ; List all the AOUs included in the inventory
DEV
EN1

External References

Name Field # of Occurrence
^%ZIS DEV
HOME^%ZIS DEV+3
^%ZISC QUIT+1
^%ZTLOAD DEV+3
^DIC ASKINV, ASKINV+1
EN1^PSGWPI1 EN1
^PSGWSET PSGWPIS+2, EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print a bar coded Inventory Sheet. In order to do so, you",!,"must queue the output to a printer that is properly set up to produce bar codes."
  • Line Location: BAR+0
Function Call: WRITE
  • Prompt: !!,"This option will print an Inventory Sheet for a single AOU that is included in",!,"an existing Inventory Date/Time.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKINV+1
Function Call: WRITE
  • Prompt: !!,"Right margin for this printout is 132!",!!
  • Line Location: ASKINV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: *7,!!,"THE DEVICE YOU HAVE SELECTED IS NOT SET UP TO PRINT BAR CODES!!",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: *7,!,"There are not any AOUs defined for this Inventory!",!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"The following AOU",$S(AOUCNT>1:"s are",1:" is")," included on this Inventory Sheet:"
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?5,AOU
  • Line Location: LIST+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • ASKINV
    • ASKINV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls
^PSI(58.19 - [#58.19] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEV+1
^%ZIS(2 - [#3.2] DEV+1
^PSI(58.1 - [#58.1] LIST+2
^PSI(58.19 - [#58.19] LIST+1, LIST+2

Label References

Name Line Occurrences
ASKINV ASKINV+1
DEV DEV+1
LIST ASKINV+1
QUIT ASKINV, ASKINV+1, DEV, DEV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
%ZIS("B" DEV*
AA QUIT+1!
AOU ASKINV+1*, QUIT+1!, LIST+2*, LIST+3*
AOUCNT QUIT+1!, LIST+2*, LIST+3
AOULP QUIT+1!
AOULP( LIST+2*, LIST+3
BARFLG BAR*, DEV+1, DEV+2, QUIT+1!
CHK QUIT+1!
D1 QUIT+1!
DA QUIT+1!
DIC ASKINV*!, ASKINV+1*!
DIC("A" ASKINV*, ASKINV+1*
DIC("S" ASKINV+1*
DIC(0 ASKINV*, ASKINV+1*
DIE QUIT!
DLAYGO ASKINV*!
DR QUIT!
DRGDA QUIT+1!
DT ASKINV+2
EXP QUIT+1!
G DEV+2*, QUIT+1!
GROUP QUIT+1!
GRP QUIT+1!
I QUIT+1!
IO EN1
IO("Q" DEV+2!, QUIT+1!
IOP DEV!
>> IOS DEV+1
J QUIT+1!
JJ QUIT+1!, LIST+3*
K QUIT+1!
K1 QUIT+1!
LFC QUIT+1!
LN QUIT+1!
LN1 QUIT+1!
LN2 QUIT+1!
LNCNT QUIT+1!
LOC QUIT+1!
LP QUIT+1!
MH QUIT+1!
NN QUIT+1!
PC QUIT+1!
>> POP DEV
PSG1 QUIT!
PSG2 QUIT!
PSG3 QUIT!
PSGD QUIT!
PSGDA QUIT!
PSGDDA QUIT!
PSGDR QUIT!
PSGINAD QUIT!
PSGISORT QUIT!
PSGLSORT QUIT!
PSGNT QUIT!
PSGPAGE QUIT!
PSGSORT QUIT!
PSGSORTK QUIT!
PSGSW QUIT+1!
PSGT QUIT!
PSGTN QUIT!
PSGTODAY QUIT!
PSGTYP QUIT!
PSGW QUIT!
PSGW("PO" QUIT!
PSGWBAR0 QUIT+1!
PSGWBAR1 QUIT+1!
PSGWBARS QUIT+1!
PSGWDT ASKINV+2*, QUIT!
PSGWDUP QUIT!
PSGWFLG PSGWPIS+2*, EN+1*, QUIT+2!
PSGWGRP QUIT!
PSGWIDA ASKINV*, QUIT!, LIST+1, LIST+2
PSGWIN QUIT!
PSGWLP QUIT!
PSGWN QUIT!
PSGWPC QUIT!
PSGWPGD QUIT!
PSGWSITE PSGWPIS+2, EN+1, QUIT+2!
PSI QUIT!
Q QUIT+1!
SK QUIT+1!
SKK QUIT+1!
STKCHG QUIT!
STLEV QUIT+1!
TAB1 QUIT+1!
TAB2 QUIT+1!
TYPE QUIT+1!
X QUIT+1!
Y ASKINV, ASKINV+1, QUIT+1!
>> ZTDESC DEV+2*
>> ZTQUEUED QUIT+3
>> ZTREQ QUIT+3*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK DEV+3!, QUIT+1!
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 |  Local Variables |  All