Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls