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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCPRLDO

Package: IFCAP

Routine: PRCPRLDO


Information

PRCPRLDO ;WISC/RFJ-list distribution orders ;7/24/00 23:29

Source Information

Source file <PRCPRLDO.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
IFCAP 9 RELEASE^PRCPBAL3  (BUILD,Q)^PRCPOPT  DQ^PRCPOPT1  ($$STATUS,$$TYPE,VARIABLE)^PRCPOPU  ($$SCRPAUSE,END,P)^PRCPUREP  ^PRCPUSEL  ($$DESCR,$$INVNAME)^PRCPUX1  DISPLAY^PRCPUX2  
$$YN^PRCPUYN  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
DEVICE ;
DQ ; queue starts here
H
PICKTICK ; print orders which have been released but the picking ticket
; has not been printed

External References

Name Field # of Occurrence
DD^%DT DQ+4, DQ+9
NOW^%DTC DQ+4
^%ZIS DEVICE+1
^%ZISC DQ+20
^%ZTLOAD DEVICE+3
RELEASE^PRCPBAL3 PRCPRLDO+15
BUILD^PRCPOPT PICKTICK+8
Q^PRCPOPT PICKTICK+10
DQ^PRCPOPT1 PICKTICK+9
$$STATUS^PRCPOPU DQ+10
$$TYPE^PRCPOPU DQ+10
VARIABLE^PRCPOPU PICKTICK+7
$$SCRPAUSE^PRCPUREP DQ+4
END^PRCPUREP DQ+19
P^PRCPUREP DQ+13, DQ+18
^PRCPUSEL PRCPRLDO+3
$$DESCR^PRCPUX1 DQ+17
$$INVNAME^PRCPUX1 DQ+11, DQ+12
DISPLAY^PRCPUX2 PRCPRLDO+6, PRCPRLDO+8, PRCPRLDO+19, PRCPRLDO+25
$$YN^PRCPUYN PRCPRLDO+10, PRCPRLDO+21, PRCPRLDO+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO ORDERS READY FOR RELEASING."
  • Line Location: PRCPRLDO+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPRLDO+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPRLDO+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,"YOU CANNOT SELECT YOUR CURRENT DEVICE FOR PRINTING PICKING TICKETS."
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,$P(DATA,"^"),?8,$P(Y,"@"),?22,$P($$TYPE^PRCPOPU(ORDERDA),"ORDER"),?32,$$STATUS^PRCPOPU(ORDERDA)
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: ?54,$E($$INVNAME^PRCPUX1(+$P(DATA,"^",3)),1,25)
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: ?54,$E($$INVNAME^PRCPUX1(+$P(DATA,"^",2)),1,25)
  • Line Location: DQ+12
Function Call: WRITE
  • Prompt: !?10,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,29),?40,ITEMDA,?50,$J(+$P(ITEMDATA,"^",2),15),$J(UNITCOST,15)
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"LIST DISTRIBUTION ORDER REPORT FOR ",PRCP("IN"),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"ORDER#",?8,"DATE",?22,"TYPE",?32,"STATUS",?54,"DELIVER ",$S(PRCP("DPTYPE")="P":"TO",1:"FROM")," INVENTORY POINT"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?10,"ITEM",?40,"MI#",?50,$J("QUANTITY",15),$J("EST. UNIT COST",15)
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] DQ+16
^PRCP(445.3 - [#445.3] PRCPRLDO+13, DQ+5, DQ+15, PICKTICK+3
^TMP($J PRCPRLDO+12!, PRCPRLDO+13*, PRCPRLDO+14, PRCPRLDO+16!

Label References

Name Line Occurrences
DEVICE PRCPRLDO+23, DEVICE+2
H DQ+4, DQ+13, DQ+18
PICKTICK DQ+1

Naked Globals

Name Field # of Occurrence
^( PRCPRLDO+13, DQ+5, DQ+15, PICKTICK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPRLDO+4~, PRCPRLDO+10*, PRCPRLDO+11, PRCPRLDO+21*, PRCPRLDO+22, PRCPRLDO+27*, PRCPRLDO+28, DQ+4, H*, H+1
H+4*
>> %ZIS DEVICE+1*
DATA PRCPRLDO+13*, DQ+3~, DQ+5*, DQ+6, DQ+7, DQ+8, DQ+9, DQ+10, DQ+11, DQ+12
DQ+16, PICKTICK+2~, PICKTICK+3*, PICKTICK+4, PICKTICK+5, PICKTICK+6
IO DEVICE+2, DQ+4
IO("Q" DEVICE+3!
>> IO(0 DEVICE+2
IOF H
IOSL DQ+13, DQ+18
ITEMDA DQ+3~, DQ+15*, DQ+16, DQ+17
ITEMDATA DQ+3~, DQ+15*, DQ+17
NOW DQ+3~, DQ+4*, H
ORDERDA PRCPRLDO+4~, PRCPRLDO+13*, DQ+3~, DQ+5*, DQ+10, DQ+15, PICKTICK+2~, PICKTICK+3*, PICKTICK+8
PAGE DQ+3~, DQ+4*, H*
>> POP DEVICE+1
>> PRCP("DPTYPE" PRCPRLDO+7, DQ+7, DQ+8, DQ+11, DQ+12, H+2, PICKTICK+4
>> PRCP("I" PRCPRLDO+3, PRCPRLDO+13, DQ+7, DQ+8, DQ+17, PICKTICK+4
>> PRCP("IN" PRCPRLDO+8, PRCPRLDO+18, H+1
PRCPFITM PRCPRLDO+4~, PRCPRLDO+28*, DQ+14, H+3
PRCPFLAG PRCPRLDO+4~, PRCPRLDO+7, PRCPRLDO+10*, PRCPRLDO+21*, DQ+3~, DQ+5, DQ+13, DQ+15, DQ+18
PRCPFPIC PRCPRLDO+4~, PRCPRLDO+22*, PRCPRLDO+23, DEVICE+2, DQ+1
PRCPORD PICKTICK+2~
PRCPPAT PICKTICK+2~
PRCPPRIM PICKTICK+2~
PRCPSECO PICKTICK+2~
SCREEN DQ+3~, DQ+4*, DQ+13, DQ+18, H
UNITCOST DQ+3~, DQ+16*, DQ+17
X PRCPRLDO+4~, PRCPRLDO+5!, PRCPRLDO+6, PRCPRLDO+8!, PRCPRLDO+18!, PRCPRLDO+19, PRCPRLDO+25!, DQ+3~
X(1 PRCPRLDO+5*, PRCPRLDO+8*, PRCPRLDO+18*, PRCPRLDO+25*
>> XH PRCPRLDO+9*, PRCPRLDO+20*, PRCPRLDO+26*
>> XH(1 PRCPRLDO+20*, PRCPRLDO+26*
>> XP PRCPRLDO+9*, PRCPRLDO+20*, PRCPRLDO+26*
Y DQ+3~, DQ+4*, DQ+9*, DQ+10
>> ZTDESC DEVICE+4*
>> ZTRTN DEVICE+4*
>> ZTSAVE("PRCP*" DEVICE+5*
>> ZTSAVE("ZTREQ" DEVICE+5*
ZTSK DEVICE+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All