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

Package: IFCAP

Routine: PRCPCRLO


Information

PRCPCRLO ;WISC/RFJ-specific item or ik locator report ;01 Sep 93

Source Information

Source file <PRCPCRLO.m>

Call Graph

Call Graph

Call Graph Total: 10

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

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT DQ+3
NOW^%DTC DQ+3
^%ZIS PRCPCRLO+8
^%ZISC Q
^%ZTLOAD PRCPCRLO+8
$$MASTITEM^PRCPUITM PRCPCRLO+7
$$SCRPAUSE^PRCPUREP DQ+3
END^PRCPUREP DQ+12
P^PRCPUREP DQ+6, DQ+10
^PRCPUSEL PRCPCRLO+3
$$DESCR^PRCPUX1 DQ+2, DQ+5, DQ+9
$$INVNAME^PRCPUX1 DQ+5, DQ+9
$$UNIT^PRCPUX1 DQ+2
DISPLAY^PRCPUX2 PRCPCRLO+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPCRLO+8
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: PRCPCRLO+11
Function Call: WRITE
  • Prompt: !,"CC ITEM # ",CCITEM,?20,$E($$DESCR^PRCPUX1(PRCP("I"),CCITEM),1,28),?50,$E($$INVNAME^PRCPUX1(+$P(^PRCP(445.7,CCITEM,0),"^",2)),1,18),?70,$J($P(DATA,"^",2),10)
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !,"IK ITEM # ",IKITEM,?20,$E($$DESCR^PRCPUX1(PRCP("I"),IKITEM),1,28),?50,$E($$INVNAME^PRCPUX1(+$P(^PRCP(445.8,IKITEM,0),"^",2)),1,18),?70,$J($P(DATA,"^",2),10)
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"SPECIFIC ITEM OR INSTRUMENT KIT LOCATOR REPORT ",?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"FOR: ",PRCP("IN")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?4,"ITEM: ",$E(ITEMDESC,1,20),?32,"CURRENT QTY ON-HAND: ",QTY," ",UNITS
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"CASE CART OR INSTRUMENT KIT",?50,"CREATED BY",?70,$J("QTY NEEDED",10),!,%
  • Line Location: H+5
Routine Call
  • %ZIS
  • Line Location:
    • PRCPCRLO+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] DQ+2
^PRCP(445.7 - [#445.7] DQ+4, DQ+5
^PRCP(445.8 - [#445.8] DQ+8, DQ+9

Label References

Name Line Occurrences
H DQ+3, DQ+6, DQ+10
Q PRCPCRLO+8, DQ+7, DQ+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+1~, DQ+3, H*, H+1, H+2*, H+5
%I DQ+1~
>> %ZIS PRCPCRLO+8*
CCITEM DQ+1~, DQ+4*, DQ+5
DATA DQ+1~, DQ+4*, DQ+5, DQ+8*, DQ+9
IKITEM DQ+1~, DQ+8*, DQ+9
IO DQ+3
IO("Q" PRCPCRLO+8!
IOF H
IOSL DQ+6, DQ+10
ITEMDA PRCPCRLO+4~, PRCPCRLO+7*, DQ+2, DQ+4, DQ+8
ITEMDESC DQ+1~, DQ+2*, H+4
NOW DQ+1~, DQ+3*, H
PAGE DQ+1~, DQ+3*, H*
>> POP PRCPCRLO+8
>> PRCP("I" PRCPCRLO+3, DQ+2, DQ+5, DQ+9
>> PRCP("IN" H+3
PRCPFLAG DQ+1~, DQ+4, DQ+6, DQ+7, DQ+8, DQ+10, DQ+11
QTY DQ+1~, DQ+2*, H+4
SCREEN DQ+1~, DQ+3*, DQ+6, DQ+10, H
UNITS DQ+1~, DQ+2*, H+4
X PRCPCRLO+4~, PRCPCRLO+5!, PRCPCRLO+6, DQ+1~
X(1 PRCPCRLO+5*
Y DQ+1~, DQ+3*
>> ZTDESC PRCPCRLO+9*
>> ZTRTN PRCPCRLO+9*
>> ZTSAVE("ITEMDA" PRCPCRLO+10*
>> ZTSAVE("PRCP*" PRCPCRLO+10*
>> ZTSAVE("ZTREQ" PRCPCRLO+10*
ZTSK PRCPCRLO+8!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All