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

Package: IFCAP

Routine: PRCPRIT1


Information

PRCPRIT1 ;WISC/RFJ/VAC-display item (print) ; 10/27/06 2:01pm

Source Information

Source file <PRCPRIT1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 7 $$GROUPNM^PRCPEGRP  $$STORELOC^PRCPESTO  ($$GETIN,$$GETOUT)^PRCPUDUE  ($$SCRPAUSE,END,P)^PRCPUREP  ($$DESCR,$$INVNAME,$$UNIT,$$UNITVAL)^PRCPUX1  $$ODITEM^PRCPUX2  STATUS^PRCSES  
VA FileMan 2 DD^%DT  (C,NOW)^%DTC  
Kernel 1 ^%ZISC  

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

Package Total Caller Graph
IFCAP 1 PRCPRIT0  

Entry Points

Name Comments DBIA/ICR reference
DQ ;queue comes here
Q
H
HS ;header for procurement sources
HO ;header for outstanding transactions
HU ;header for usage
HR ;header for receipts

External References

Name Field # of Occurrence
DD^%DT DQ+2, DQ+20, DQ+21
C^%DTC DQ+38
NOW^%DTC DQ+2
^%ZISC Q
$$GROUPNM^PRCPEGRP DQ+4
$$STORELOC^PRCPESTO DQ+22
$$GETIN^PRCPUDUE DQ+15
$$GETOUT^PRCPUDUE DQ+15
$$SCRPAUSE^PRCPUREP DQ+2
END^PRCPUREP DQ+50
P^PRCPUREP DQ+28, DQ+31, DQ+36, DQ+40, DQ+43, DQ+46, DQ+49
$$DESCR^PRCPUX1 DQ+4
$$INVNAME^PRCPUX1 DQ+2
$$UNIT^PRCPUX1 DQ+14
$$UNITVAL^PRCPUX1 DQ+27, DQ+34
$$ODITEM^PRCPUX2 DQ+9
STATUS^PRCSES DQ+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(MASTDATA,"^",5),?19,$E($$DESCR^PRCPUX1(INVPT,ITEMDA),1,28),?49,"[#",ITEMDA,"]",?59,$E($$GROUPNM^PRCPEGRP(+$P(ITEMDATA,"^",21)),1,20)
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: "D"
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: !?3,"UNIT per ISSUE: ",UNIT
  • Line Location: DQ+14
Function Call: WRITE
  • Prompt: !?6,"QTY ON HAND: ",+$P(ITEMDATA,"^",7),?33,"DUE-IN: ",$$GETIN^PRCPUDUE(INVPT,ITEMDA),?60,"DUE-OUT: ",$$GETOUT^PRCPUDUE(INVPT,ITEMDA),!?6,"QTY NON-ISS: ",+$P(ITEMDATA,"^",19)
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !?19,"** DELETE ITEM WHEN QTY ON HAND REACHES ZERO **"
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: !?6,"TOTAL VALUE: ",$P(ITEMDATA,"^",27)
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !?5,"NORM STL LVL: ",$P(ITEMDATA,"^",9),?29,"REORDER PT: ",$P(ITEMDATA,"^",10),?55,"INT ORDER PT: ",$P(ITEMDATA,"^",4)
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: !?4,"EMERGENCY LVL: ",$P(ITEMDATA,"^",11),?29,"ISSUE MULT: ",$P(ITEMDATA,"^",25),?54,"MIN ISSUE QTY: ",$P(ITEMDATA,"^",17)
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: !?5,"TEMP STK LVL: ",$P(ITEMDATA,"^",23),?29,"UNTIL DATE: ",Y
  • Line Location: DQ+20
Function Call: WRITE
  • Prompt: !?8,"LAST COST: ",$P(ITEMDATA,"^",15),?29,"LAST REC'D: ",Y,?55,"AVERAGE COST: ",$P(ITEMDATA,"^",22)
  • Line Location: DQ+21
Function Call: WRITE
  • Prompt: !?1,"MAIN STORAGE LOC: ",$$STORELOC^PRCPESTO(+$P(ITEMDATA,"^",6))
  • Line Location: DQ+22
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: ?3,"m"
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: ?5,$E(Y,1,27),?37,"[#",+DATA,"]",?45,$J($P(DATA,"^",4),9),?68,$J($$UNITVAL^PRCPUX1($P(DATA,"^",3),$P(DATA,"^",2)," per "),11)
  • Line Location: DQ+27
Function Call: WRITE
  • Prompt: !?1,$P($G(^PRCS(410,PRCPDA,0)),"^"),?21,$J(+$P(DATA,"^",2),7),?32,$J(UNIT,11),?50,$J($P(DATA,"^",5),5),?57,$J($P(DATA,"^",2)/$P(DATA,"^",5),7),?68,$J($$UNITVAL^PRCPUX1($P(DATA,"^",4),$P(DATA,"^",3)," per "),11)
  • Line Location: DQ+34
Function Call: WRITE
  • Prompt: !?10,"REQUEST STATUS: ",X
  • Line Location: DQ+35
Function Call: WRITE
  • Prompt: !?9,$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(PRCPDA,4,5))," ",17+$E(PRCPDA),$E(PRCPDA,2,3),?29,$J($P(DATA,"^",2),15),?47,$J($P(DATA,"^",3),17,3)
  • Line Location: DQ+42
Function Call: WRITE
  • Prompt: !?9,$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",+$E(PRCPDA,4,5))," ",$E(PRCPDA,6,7),", ",17+$E(PRCPDA),$E(PRCPDA,2,3),?29,$J($P(DATA,"^",2),13)
  • Line Location: DQ+48
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"DISPLAY ITEM REPORT FOR ",INVNAME,?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"NSN",?19,"DESCRIPTION",?49,"[IM#]",?59,"GROUP : DESCRIPTION",!,%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?15,"-----POSSIBLE SOURCES (m=MANDATORY SOURCE)-----",!?5,"VENDOR",?37,"[#V]",?45,"CONV FACT",?68,"UNIT per REC"
  • Line Location: HS+1
Function Call: WRITE
  • Prompt: !?22,"-----OUTSTANDING TRANSACTIONS-----",!?1,"TRANSACTION NO. QTY ORD in UNIT per ISS CONV FACT QTY REC in UNIT per REC"
  • Line Location: HO+1
Function Call: WRITE
  • Prompt: !?24,"-----USAGE/ISSUES HISTORY-----",!?9,"DATE USED/ISSUED QTY USED/ISSUED COST USED/ISSUED"
  • Line Location: HU+1
Function Call: WRITE
  • Prompt: !?26,"-----RECEIPTS HISTORY-----",!?9,"DATE RECEIVED QTY RECEIVED"
  • Line Location: HR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] DQ+26
^PRC(441 - [#441] DQ+3
^PRCD(420.2 - [#420.2] DQ+11, DQ+13
^PRCP(445 - [#445] DQ+3, DQ+23, DQ+24, DQ+26, DQ+28, DQ+30, DQ+32, DQ+36, DQ+39, DQ+41
, DQ+43, DQ+45, DQ+47, DQ+49
^PRCS(410 - [#410] DQ+34

Label References

Name Line Occurrences
H DQ+2, DQ+28, DQ+31, DQ+36, DQ+40, DQ+43, DQ+46, DQ+49
HO DQ+32, DQ+36
HR DQ+47, DQ+49
HS DQ+24, DQ+28
HU DQ+41, DQ+43
Q DQ+29, DQ+37, DQ+44

Naked Globals

Name Field # of Occurrence
^( DQ+24, DQ+32, DQ+41, DQ+47

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+2, H*, H+1, H+2*
%I DQ+1~
D DQ+1~
D0 DQ+1~, DQ+35*
DATA DQ+1~, DQ+24*, DQ+25, DQ+26*, DQ+27, DQ+32*, DQ+33*, DQ+34, DQ+41*, DQ+42
, DQ+47*, DQ+48
DATE DQ+1~, DQ+2*, DQ+38
INVNAME DQ+1~, DQ+2*, H+1
>> INVPT DQ+2, DQ+3, DQ+4, DQ+9, DQ+14, DQ+15, DQ+23, DQ+24, DQ+28, DQ+30
, DQ+32, DQ+36, DQ+39, DQ+41, DQ+43, DQ+45, DQ+47, DQ+49
IO DQ+2
IOF H
IOSL DQ+28, DQ+31, DQ+36, DQ+40, DQ+43, DQ+46, DQ+49
>> ITEMDA DQ+3, DQ+4, DQ+9, DQ+14, DQ+15, DQ+23, DQ+24, DQ+28, DQ+30, DQ+32
, DQ+36, DQ+39, DQ+41, DQ+43, DQ+45, DQ+47, DQ+49
ITEMDATA DQ+1~, DQ+3*, DQ+4, DQ+15, DQ+16, DQ+17, DQ+18, DQ+19, DQ+20, DQ+21
, DQ+22, DQ+25
MASTDATA DQ+1~, DQ+3*, DQ+4, DQ+11, DQ+13
NOW DQ+1~, DQ+2*, H
ODI DQ+1~, DQ+8*, DQ+9*, DQ+10
>> ODIFLAG DQ+6, DQ+12
PAGE DQ+1~, DQ+2*, H*
PRCPDA DQ+1~, DQ+24*, DQ+28, DQ+32*, DQ+34, DQ+35, DQ+36, DQ+41*, DQ+42, DQ+43
, DQ+47*, DQ+48, DQ+49
PRCPFLAG DQ+1~, DQ+24, DQ+28, DQ+29, DQ+31, DQ+32, DQ+36, DQ+37, DQ+40, DQ+41
, DQ+43, DQ+44, DQ+46, DQ+47, DQ+49, DQ+50
SCREEN DQ+1~, DQ+2*, DQ+28, DQ+31, DQ+36, DQ+40, DQ+43, DQ+46, DQ+49, H
UNIT DQ+1~, DQ+14*, DQ+34
X DQ+1~, DQ+35, DQ+38*, DQ+39, DQ+41, DQ+45, DQ+47
X1 DQ+1~, DQ+38*
X2 DQ+1~, DQ+38*
Y DQ+1~, DQ+2*, DQ+20*, DQ+21*, DQ+26*, DQ+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All