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

Package: IFCAP

Routine: PRCPRSUB


Information

PRCPRSUB ;WISC/RFJ-substitute listing for whse ;08 Jun 93

Source Information

Source file <PRCPRSUB.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 5 ($$SCRPAUSE,END,P)^PRCPUREP  NSNSEL^PRCPURS0  ^PRCPUSEL  ($$DESCR,$$NSN,$$UNIT)^PRCPUX1  DISPLAY^PRCPUX2  
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
DQ ; queue starts here
H

External References

Name Field # of Occurrence
DD^%DT DQ+8
NOW^%DTC DQ+8
^%ZIS PRCPRSUB+9
^%ZISC DQ+19
^%ZTLOAD PRCPRSUB+9
$$S^%ZTLOAD DQ+10
$$SCRPAUSE^PRCPUREP DQ+8
END^PRCPUREP DQ+18
P^PRCPUREP DQ+11, DQ+15
NSNSEL^PRCPURS0 PRCPRSUB+8
^PRCPUSEL PRCPRSUB+3
$$DESCR^PRCPUX1 DQ+13, DQ+17
$$NSN^PRCPUX1 DQ+4
$$UNIT^PRCPUX1 DQ+13, DQ+17
DISPLAY^PRCPUX2 PRCPRSUB+6, PRCPRSUB+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS REPORT CAN ONLY BE USED BY THE WAREHOUSE."
  • Line Location: PRCPRSUB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPRSUB+9
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: PRCPRSUB+12
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: !!,$TR(NSN,"-"),?19,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,30),?52,$J(ITEMDA,6),$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),10),$J(+$P(ITEMDATA,"^",7),12)
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !?4,$TR(NSN,"-"),?19,$E($$DESCR^PRCPUX1(PRCP("I"),SUBST),1,30),?52,$J(SUBST,6),$J($$UNIT^PRCPUX1(PRCP("I"),SUBST,"/"),10),$J(+$P(ITEMDATA,"^",7),12)
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"SUBSTITUTE ITEM LISTING FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"NSN",?19,"DESCRIPTION",?56,"MI",$J("UNIT/IS",10),$J("ONHAND QTY",12),!?4,"SUBSTITUTE ITEM(S)",!,%
  • Line Location: H+2
Routine Call
  • %ZIS
  • Line Location:
    • PRCPRSUB+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] DQ+3, DQ+6, DQ+12, DQ+16
^TMP($J DQ+2!, DQ+6*, DQ+9, DQ+14, DQ+19!

Label References

Name Line Occurrences
H DQ+8, DQ+11, DQ+15

Naked Globals

Name Field # of Occurrence
^( DQ+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+1~, DQ+6*, DQ+8, H*, H+1, H+2*
%H DQ+1~
%I DQ+1~
>> %ZIS PRCPRSUB+9*
IO DQ+8
IO("Q" PRCPRSUB+9!
IOF H
IOSL DQ+11, DQ+15
ITEMDA DQ+1~, DQ+3*, DQ+4, DQ+6, DQ+9*, DQ+12, DQ+13, DQ+14
ITEMDATA DQ+1~, DQ+12*, DQ+13, DQ+16*, DQ+17
NOW DQ+1~, DQ+8*, H
NSN DQ+1~, DQ+4*, DQ+5, DQ+6, DQ+9*, DQ+13, DQ+14, DQ+17
PAGE DQ+1~, DQ+8*, H*
>> POP PRCPRSUB+9
>> PRCP("DPTYPE" PRCPRSUB+4
>> PRCP("I" PRCPRSUB+3, DQ+3, DQ+6, DQ+12, DQ+13, DQ+16, DQ+17
>> PRCP("IN" H+1
PRCPEND PRCPRSUB+5~, DQ+5
PRCPFLAG DQ+1~, DQ+9, DQ+10*, DQ+11, DQ+14, DQ+15, DQ+18
PRCPSTRT PRCPRSUB+5~, PRCPRSUB+8, DQ+5
SCREEN DQ+1~, DQ+8*, DQ+11, DQ+15, H
SUBST DQ+1~, DQ+14*, DQ+16, DQ+17
X PRCPRSUB+5~, PRCPRSUB+6!, PRCPRSUB+7!
X(1 PRCPRSUB+6*, PRCPRSUB+7*
Y DQ+1~, DQ+8*
>> ZTDESC PRCPRSUB+10*
>> ZTQUEUED DQ+10
>> ZTRTN PRCPRSUB+10*
>> ZTSAVE("PRCP*" PRCPRSUB+11*
>> ZTSAVE("ZTREQ" PRCPRSUB+11*
ZTSK PRCPRSUB+9!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All