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

Package: IFCAP

Routine: PRCPRINV


Information

PRCPRINV ;WISC/RFJ/DGL/VAC-inventory control parameters report ; 2/27/07 8:46am

Source Information

Source file <PRCPRINV.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 5 $$TO^PRCPUDPT  ($$KEY,$$SCRPAUSE,$$USER,END,P)^PRCPUREP  ^PRCPUSEL  $$INVNAME^PRCPUX1  $$ODITEM^PRCPUX2  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**98**;Oct 20, 2000;Build 37
DQ ; queue starts here
Q
H

External References

Name Field # of Occurrence
DD^%DT DQ+3
NOW^%DTC DQ+3
^%ZIS V+9
^%ZISC Q
^%ZTLOAD V+9
$$TO^PRCPUDPT V+6
$$KEY^PRCPUREP DQ+54
$$SCRPAUSE^PRCPUREP DQ+3
$$USER^PRCPUREP DQ+53
END^PRCPUREP DQ+68
P^PRCPUREP DQ+9, DQ+26, DQ+28, DQ+32, DQ+37, DQ+40, DQ+46, DQ+49, DQ+57, DQ+60
DQ+66
^PRCPUSEL V+4
$$INVNAME^PRCPUX1 V+8, DQ+65
$$ODITEM^PRCPUX2 DQ+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"--Press RETURN to print parameters for ",PRCP("IN"),"--"
  • Line Location: V+6
Function Call: WRITE
  • Prompt: !!,"Print control parameters for ",$$INVNAME^PRCPUX1(PRCPINPT),!
  • Line Location: V+8
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: V+12
Function Call: WRITE
  • Prompt: !!,"TYPE OF INVENTORY POINT",?30,": ",$S(PRCPTYPE="W":"SUPPLY WAREHOUSE",PRCPTYPE="P":"PRIMARY",PRCPTYPE="S":"SECONDARY",1:"<<NOT DEFINED>>")
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !,"ABBREVIATED NAME",?30,": ",$P(DATA,"^",5)
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !,"COST CENTER",?30,": ",$E($P($G(^PRCD(420.1,+$P(DATA,"^",7),0)),"^"),1,48)
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !,"KEEP PERPETUAL INVENTORY",?30,": ",$S($P(DATA,"^",2)="Y":"YES",1:"NO")
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: !,"KEEP TRANSACTION/USAGE HISTORY",?30,": ",$S($P(DATA,"^",6)="Y":"YES",1:"NO")
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !,"PRIMARY UPDATED BY WAREHOUSE",?30,": ",$S($P(DATA,"^",16)="N":"NO",1:"YES")
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: !,"SPECIAL INVENTORY POINT TYPE",?30,": ",$S($P(DATA,"^",20)="D":"DRUG ACCOUNTABILITY",$P(DATA,"^",20)="S":"SPD",1:"")
  • Line Location: DQ+12
Function Call: WRITE
  • Prompt: !,"SPD PICKING TICKET PRINTER: ",$P($G(^PRCP(445,PRCPINPT,"DEV")),"^")
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !,"ISSUE BOOK SORT",?30,": ",$S($P(DATA,"^",10)="A":"ALPHA SORT",$P(DATA,"^",10)="N":"NSN SORT",1:"")
  • Line Location: DQ+14
Function Call: WRITE
  • Prompt: !,"REGULAR WHSE ISSUES SCHEDULE",?30,": ",$S($P(DATA,"^",4)="W":"WEEKLY",$P(DATA,"^",4)=2:"EVERY 2 WEEKS",$P(DATA,"^",4)="M":"MONTHLY",$P(DATA,"^",4)="O":"OTHER",1:"")
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !,"DEPARTMENT NUMBER",?30,": ",$P(DATA,"^",8)
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: !,"MONTHS INACTIVE ITEM DELETION",?30,": ",$P(DATA,"^",13)
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !,"TOTAL NUMBER OF ITEMS STORED",?30,": ",STDITEM+ODITEM
  • Line Location: DQ+31
Function Call: WRITE
  • Prompt: !!,"FUND CONTROL POINTS",?30,": "
  • Line Location: DQ+34
Function Call: WRITE
  • Prompt: $P($G(^PRC(420,STATION,1,FCP,0)),"^")
  • Line Location: DQ+36
Function Call: WRITE
  • Prompt: !?32
  • Line Location: DQ+38
Function Call: WRITE
  • Prompt: !!,"MIS COSTING SECTION",?30,": "
  • Line Location: DQ+42
Function Call: WRITE
  • Prompt: $E($P($G(^DIC(49,+$P(%,"^"),0)),"^"),1,30),?64,$J($P(%,"^",2),5)," %"
  • Line Location: DQ+45
Function Call: WRITE
  • Prompt: !?32
  • Line Location: DQ+47
Function Call: WRITE
  • Prompt: !!,"INVENTORY USERS",?30,": "
  • Line Location: DQ+50
Function Call: WRITE
  • Prompt: $E($$USER^PRCPUREP(USER),1,30)
  • Line Location: DQ+53
Function Call: WRITE
  • Prompt: ?64,MGRFLG
  • Line Location: DQ+56
Function Call: WRITE
  • Prompt: !?32
  • Line Location: DQ+58
Function Call: WRITE
  • Prompt: !!,"DISTRIBUTION POINTS",?30,": "
  • Line Location: DQ+62
Function Call: WRITE
  • Prompt: $$INVNAME^PRCPUX1(DISTR),?64,$S(%="W":"SUPPLY WAREHOUSE",%="P":"PRIMARY",%="S":"SECONDARY",1:"<<NOT DEFINED>>")
  • Line Location: DQ+65
Function Call: WRITE
  • Prompt: !?32
  • Line Location: DQ+67
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"INVENTORY PARAMETERS FOR: ",$E(PRCPNAME,1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+3
Routine Call
  • %ZIS
  • Line Location:
    • V+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] DQ+45
^PRC(420 - [#420] DQ+35, DQ+36
^PRCD(420.1 - [#420.1] DQ+6
^PRCP(445 - [#445] DQ+2, DQ+13, DQ+20, DQ+43, DQ+44, DQ+51, DQ+55, DQ+63, DQ+64

Label References

Name Line Occurrences
H DQ+3, DQ+9, DQ+26, DQ+28, DQ+32, DQ+37, DQ+40, DQ+46, DQ+49, DQ+57
DQ+60, DQ+66
Q DQ+9, DQ+26, DQ+28, DQ+32, DQ+39, DQ+40, DQ+48, DQ+49, DQ+59, DQ+60

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+1~, DQ+3, DQ+44*, DQ+45, DQ+64*, DQ+65, H*, H+1, H+2*, H+3
%I DQ+1~
>> %ZIS V+9*
DATA DQ+1~, DQ+2*, DQ+5, DQ+6, DQ+7, DQ+8, DQ+11, DQ+12, DQ+13, DQ+14
DQ+15, DQ+16, DQ+17
DISTR DQ+1~, DQ+63*, DQ+64, DQ+65
FCP DQ+1~, DQ+35*, DQ+36
IO DQ+3
IO("Q" V+9!
IOF H
IOSL DQ+9, DQ+26, DQ+28, DQ+32, DQ+37, DQ+40, DQ+46, DQ+49, DQ+57, DQ+60
DQ+66
ITEMCTR DQ+1~, DQ+19*, DQ+20*, DQ+21
MGRFLG DQ+1~, DQ+52*, DQ+54*, DQ+55*, DQ+56
NOW DQ+1~, DQ+3*, H
ODIFLG DQ+1~, DQ+21*, DQ+22
ODITEM DQ+1~, DQ+19*, DQ+22*, DQ+27, DQ+31
PAGE DQ+1~, DQ+3*, H*
POP V+5~, V+9
>> PRCP("DPTYPE" V+6
>> PRCP("I" V+4, V+6, V+7
>> PRCP("IN" V+6
PRCPFLAG DQ+1~, DQ+9, DQ+26, DQ+28, DQ+32, DQ+35, DQ+37, DQ+39, DQ+40, DQ+43
DQ+46, DQ+48, DQ+49, DQ+51, DQ+57, DQ+59, DQ+60, DQ+63, DQ+66, DQ+68
PRCPINPT V+5~, V+6*, V+7*, V+8, DQ+2, DQ+13, DQ+20, DQ+21, DQ+35, DQ+43
DQ+44, DQ+51, DQ+55, DQ+63
PRCPNAME DQ+1~, DQ+2*, H+1
PRCPTYPE DQ+1~, DQ+2*, DQ+4, DQ+6, DQ+10, DQ+24, DQ+33, DQ+41, DQ+54, DQ+61
SCREEN DQ+1~, DQ+3*, DQ+9, DQ+26, DQ+28, DQ+32, DQ+37, DQ+40, DQ+46, DQ+49
DQ+57, DQ+60, DQ+66, H
SECT DQ+1~, DQ+43*, DQ+44
STATION DQ+1~, DQ+35*, DQ+36
STDITEM DQ+1~, DQ+19*, DQ+23*, DQ+25, DQ+31
USER DQ+1~, DQ+51*, DQ+53, DQ+54, DQ+55
X V+5~, DQ+1~
Y DQ+1~, DQ+3*
ZTDESC V+5~, V+10*
ZTRTN V+5~, V+10*
ZTSAVE V+5~
ZTSAVE("PRCP*" V+11*
ZTSAVE("ZTREQ" V+11*
ZTSK V+9!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All