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

Package: IFCAP

Routine: PRCPCASR


Information

PRCPCASR ;WISC/RFJ-assemble cc or ik (print list of items) ;01 Sep 93

Source Information

Source file <PRCPCASR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
IFCAP 4 $$REUSABLE^PRCPU441  P^PRCPUREP  $$DESCR^PRCPUX1  DISPLAY^PRCPUX2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCPCASC  PRCPCASK  

Entry Points

Name Comments DBIA/ICR reference
PRINT(QUANTITY) ; print list of items in cc or ik
; quantity=qty to assemble
; returns variable notinvpt=1 if items not stored in inventory point
; returns variable negative=1 if new item qty drops below zero
; returns variable prcpflag=1 if user ^ during display
; returns ^tmp($j,"prcpcasr",itemda)=qty needed ^ inventory value
H ; display header on display
CHECK(TYPE) ; called from prcpcasc,prcpcask to check the ik or cc definition
; before assembly
; type=c for case cart or =i for instrument kit

External References

Name Field # of Occurrence
$$REUSABLE^PRCPU441 PRINT+15
P^PRCPUREP PRINT+21
$$DESCR^PRCPUX1 PRINT+18
DISPLAY^PRCPUX2 CHECK+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,ITEMDA,?7,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,22),?30,$S(REUSABLE=1:"Reusable",1:"Disposable"),?44,$J($P(ITEMDATA,"^",7),13),$J(DATA,10),$J(NEWQTY,13)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !?44,$J("CURRENT",13),$J("QTY",10),$J("** NEW **",13),!,"IM#",?7,"DESCRIPTION",?30,"ITEM TYPE",?44,$J("QTY ON-HAND",13),$J("NEEDED",10),$J("QTY ON-HAND",13)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] PRINT+10, CHECK+6, CHECK+8, CHECK+10
^TMP($J PRINT+7!, PRINT+9, PRINT+19*, CHECK+6, CHECK+8

Label References

Name Line Occurrences
H PRINT+8, PRINT+21

Naked Globals

Name Field # of Occurrence
^( PRINT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+6~, H+2*
CCIKITEM CHECK+4~, CHECK+5*, CHECK+6*, CHECK+7, CHECK+8
DATA PRINT+6~, PRINT+9*, PRINT+13, PRINT+14, PRINT+18, PRINT+19
INVVAL PRINT+6~, PRINT+13*, PRINT+19
IOSL PRINT+21
ITEMDA PRINT+6~, PRINT+9*, PRINT+10, PRINT+15, PRINT+18, PRINT+19, CHECK+6, CHECK+8, CHECK+10
ITEMDATA PRINT+6~, PRINT+10*, PRINT+11*, PRINT+12*, PRINT+13, PRINT+14, PRINT+16, PRINT+18
NEGATIVE PRINT+7!, PRINT+17*
NEWQTY PRINT+6~, PRINT+14*, PRINT+16*, PRINT+17, PRINT+18
NOTINVPT PRINT+7!, PRINT+12*
>> PRCP("I" PRINT+10, PRINT+18, CHECK+6, CHECK+8, CHECK+10
PRCPFLAG PRINT+7!, PRINT+9, PRINT+21, CHECK+6, CHECK+7*, CHECK+8*, CHECK+9
PRCPITEM CHECK+4~, CHECK+5*, CHECK+6*, CHECK+7, CHECK+8
QUANTITY PRINT~, PRINT+9
REUSABLE PRINT+6~, PRINT+15*, PRINT+16, PRINT+17, PRINT+18, PRINT+19
SCREEN PRINT+6~, PRINT+9*, PRINT+20*, PRINT+21*
TYPE CHECK~, CHECK+3*, CHECK+10, CHECK+11, CHECK+12
X CHECK+4~, CHECK+10!, CHECK+13
X(1 CHECK+10*
X(2 CHECK+11*
X(3 CHECK+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All