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

Package: IFCAP

Routine: PRCPRPK2


Information

PRCPRPK2 ;WISC/RFJ-packaging discrepancy report (print errors) ;04 Oct 91

Source Information

Source file <PRCPRPK2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 4 ($$SCRPAUSE,END,P)^PRCPUREP  $$GETVEN^PRCPUVEN  ($$DESCR,$$UNIT,$$UNITVAL)^PRCPUX1  DISPLAY^PRCPUX2  
VA FileMan 2 DD^%DT  NOW^%DTC  

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 PRCPRPKG  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print errors
DISPLAY(V1,V2)
H
ERRORS ;; error codes

External References

Name Field # of Occurrence
DD^%DT PRINT+2
NOW^%DTC PRINT+2
$$SCRPAUSE^PRCPUREP PRINT+2
END^PRCPUREP PRINT+30
P^PRCPUREP PRINT+4, PRINT+7, PRINT+12, PRINT+19, PRINT+21, PRINT+24, PRINT+29
$$GETVEN^PRCPUVEN PRINT+14
$$DESCR^PRCPUX1 PRINT+5
$$UNIT^PRCPUX1 PRINT+5
$$UNITVAL^PRCPUX1 PRINT+15, PRINT+16, PRINT+26
DISPLAY^PRCPUX2 DISPLAY+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,NSN,?19,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,25),?47,"[#",ITEMDA,"]",?55,$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA," per "),11)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?3,"VENDOR (m=MAND)",?20,"[#V]",?27,"UNIT per PUR",?41,"UNIT per REC",?55,"CONV FACT",?71,"LAST COST"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?1,"m"
  • Condition for execution: $P($G(^PRCP(445,PRCP("I"),1,ITEMDA,0)),"^",12)=VENDA
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?3,$E($P($G(^PRC(440,VENDA,0)),"^"),1,15),?20,"[#",+VENDA,"]",?27,$J($$UNITVAL^PRCPUX1($P(VENDATA,"^",8),$P(VENDATA,"^",7)," per "),11)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?41,$J($$UNITVAL^PRCPUX1($P(PSDATA,"^",3),$P(PSDATA,"^",2)," per "),11),?55,$J($P(PSDATA,"^",4),9),?71,$J($P(VENDATA,"^",2),9)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?3,"TRANSACTION",?28,"VENDOR",?50,"UNIT per REC",?65,"CF",?71,"QTY OUTST"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !?3,$P($G(^PRCS(410,+TRANDA,0)),"^"),?28,$E($P($G(^PRC(440,+$P($G(^PRCS(410,+TRANDA,3)),"^",4),0)),"^"),1,20)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?50,$J($$UNITVAL^PRCPUX1($P(D,"^",4),$P(D,"^",3)," per "),11),?65,$J($P(D,"^",5),2),?70,$J($P(D,"^",2),10)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"PACKAGING DISCREPANCY REPORT FOR ",PRCP("IN"),?(80-$L(%)),%,!,"NSN",?19,"DESCRIPTION",?47,"[#MI]",?55,"UNIT per ISSUE",!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: %
  • Line Location: H+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] PRINT+15, PRINT+25
^PRC(441 - [#441] PRINT+13
^PRCP(445 - [#445] PRINT+15, PRINT+23
^PRCS(410 - [#410] PRINT+25
^TMP($J PRINT+3, PRINT+6, PRINT+8, PRINT+11, PRINT+17, PRINT+18, PRINT+23, PRINT+27, PRINT+28

Label References

Name Line Occurrences
DISPLAY PRINT+8, PRINT+18, PRINT+28
H PRINT+2, PRINT+4, PRINT+7, PRINT+12, PRINT+19, PRINT+21, PRINT+24, PRINT+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1~, PRINT+2, H*, H+1*
%H PRINT+1~
%I PRINT+1~
D PRINT+1~, PRINT+23*, PRINT+26
ERROR PRINT+1~, PRINT+6*, PRINT+8, PRINT+9, PRINT+11, PRINT+20
IO PRINT+2
IOF H
IOSL PRINT+4, PRINT+7, PRINT+12, PRINT+19, PRINT+21, PRINT+24, PRINT+29
ITEMDA PRINT+1~, PRINT+3*, PRINT+5, PRINT+6, PRINT+8, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+17
, PRINT+18, PRINT+23, PRINT+27, PRINT+28
NOW PRINT+1~, PRINT+2*, H
NSN PRINT+1~, PRINT+3*, PRINT+5, PRINT+6, PRINT+8, PRINT+11, PRINT+17, PRINT+18, PRINT+23, PRINT+27
, PRINT+28
P1 DISPLAY+1~, DISPLAY+2*, DISPLAY+4
P2 DISPLAY+1~, DISPLAY+2*, DISPLAY+5
P3 DISPLAY+1~, DISPLAY+2*, DISPLAY+6
PAGE PRINT+1~, PRINT+2*, H*
>> PRCP("I" PRINT+5, PRINT+14, PRINT+15, PRINT+23
>> PRCP("IN" H+1
PRCPFLAG PRINT+1~, PRINT+3, PRINT+4, PRINT+6, PRINT+7, PRINT+11, PRINT+12, PRINT+17, PRINT+19, PRINT+21
, PRINT+23, PRINT+24, PRINT+27, PRINT+29, PRINT+30
PSDATA PRINT+1~, PRINT+14*, PRINT+16
SCREEN PRINT+1~, PRINT+2*, PRINT+4, PRINT+7, PRINT+12, PRINT+19, PRINT+21, PRINT+24, PRINT+29, H
SUBERROR PRINT+1~, PRINT+17*, PRINT+18, PRINT+27*, PRINT+28
TRANDA PRINT+1~, PRINT+23*, PRINT+25, PRINT+27, PRINT+28
V1 DISPLAY~
V2 DISPLAY~, DISPLAY+2
VENDA PRINT+1~, PRINT+11*, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18
VENDATA PRINT+1~, PRINT+13*, PRINT+15, PRINT+16
X PRINT+1~, DISPLAY+1~, DISPLAY+3*, DISPLAY+4*, DISPLAY+5*, DISPLAY+6*, DISPLAY+7
X(1 DISPLAY+7*
Y PRINT+1~, PRINT+2*

Marked Items

Name Field # of Occurrence
$T(ERRORS+V1 DISPLAY+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All