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

Package: IFCAP

Routine: PRCPULAB


Information

PRCPULAB ;WISC/RGY-print barcode labels ;4.21.98

Source Information

Source file <PRCPULAB.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
IFCAP 2 $$DESCR^PRCPUX1  EN^PRCTLAB  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
S
STA
END
DEV ; select device
Q
DQ ;
Q1
PRNT ;

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+6
^%ZTLOAD DEV+6
^DIC S+3
$$DESCR^PRCPUX1 PRNT+2
EN^PRCTLAB S+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter an 'S' to search and print or 'P' to print a specific range of items",!
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S+3
Function Call: READ
  • Formatting: !
  • Prompt: "Start with item #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: STA+0
Function Call: WRITE
  • Prompt: !!,"Enter the item number for this inventory point that you want to start",!,"printing from.",!
  • Line Location: STA+0
Function Call: READ
  • Formatting: !
  • Prompt: " End with item #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Enter the item number for this inventory point that you want to end with.",!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $C(7),!!,"There is not item # "_PRCPSTA_" defined for this inventory point.",!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: $C(7),!!,"The beginning item number is greater than the ending item number.",!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @^(X,0)
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: @(^(X,0))
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: $E(X,1,30),!," ",!,"IE",PRCPIP," ",PRCPSTA
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: @(^(X,0))
  • Line Location: PRNT+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • DIC
  • Line Location:
    • S+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445 - [#445] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] END+2, DQ+2
^PRCT(446.5 - [#446.5] DQ+1
^PRCT(446.6 - [#446.6] DQ+1, PRNT+1, PRNT+3

Label References

Name Line Occurrences
DQ DEV+3
END END
PRNT DQ+2
Q SS+2, S+3, STAENDDEV+2
Q1 DQ+1
S S+1
STA STAEND+2, END+3

Naked Globals

Name Field # of Occurrence
^( DQ+1, PRNT+1, PRNT+3
^(0 DQ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1*, DEV+2!
%ZIS("A" DEV+1*
%ZIS("B" DEV+1*
>> DIC S+3*
>> DIC(0 S+3*
DTIME SSTAEND
IO("Q" DEV+2!, DEV+3
ION DEV+6
POP DEV+2, Q!
PRCPEND END+1*, END+2, END+3, Q!, DQ+2, Q1!
PRCPIP S+3*, END+2, Q!, DQ+2, Q1!, PRNT+2
PRCPPRIV S+3*!
PRCPSTA STA+1*, END+2, END+3, Q!, DQ+2*, Q1!, PRNT+2
PRCT DEV+6!, DQ+1*, Q1!, PRNT+1, PRNT+3
>> X S*, S+1, S+2, STA*, STA+1, END*, END+1, DEV+5*, DQ+1*, PRNT+1*
PRNT+2*, PRNT+3*
>> Y S+3
>> ZTDESC DEV+6*
>> ZTIO DEV+6*
>> ZTRTN DEV+5*
>> ZTSAVE( DEV+5*
Info |  Source |  Call 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