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

Package: IFCAP

Routine: PRCHLO2


Information

PRCHLO2 ;WOIFO/RLL/DAP-EXTRACT ROUTINE (cont.)CLO REPORT SERVER ; 10/16/06 2:09pm

Source Information

Source file <PRCHLO2.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**83,98**; Oct 20, 2000;Build 37
POITEM ; PoItem Table
POITEMH ; PoItem Table Header
POITEMW ; Write PO Item Data
POITLNH ; Write PO Line Inventory Point Header
POITLNW ; Write PO Line Inventory Point Data
GPOITEM ; Get PO Item record
DITMD ; Set PO Item Description Data
POLIDT ; PO line item date received
POLIINV ; PO line item Inventory Point multiple
LPPOITM ; Loop on PO Item
; Initialize with PPOKEY
POITDRCH ; PO Item Date Received Header
POITDRCW ; PO Item Date Received Data
POITDSH ; PO Item Description Header
POITDSW ; PO Item Description Write Data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "PoIdNum^PurchaseOrderNum^PoDate^MonthYrRun^StationNum^"
  • Line Location: POITEMH+2
Function Call: WRITE
  • Prompt: "LineItemIdNum^LineItemNumber^ItemMasterFileNumber^"
  • Line Location: POITEMH+3
Function Call: WRITE
  • Prompt: "ItemMasterDescription^NIFNumber^"
  • Line Location: POITEMH+4
Function Call: WRITE
  • Prompt: "Quantity^UnitOfPurchase^PackagingMultiple^ItemDeliveryPoints^"
  • Line Location: POITEMH+6
Function Call: WRITE
  • Prompt: "BOC^ContractBOA^ActualUnitCost^EstUnitCost^FedSupplyClass^"
  • Line Location: POITEMH+7
Function Call: WRITE
  • Prompt: "VendorStockNumber^NationalDrugCode^SKU^NSN^"
  • Line Location: POITEMH+8
Function Call: WRITE
  • Prompt: "UnitConversionFactor^TotalCost^DiscountedAmount^"
  • Line Location: POITEMH+9
Function Call: WRITE
  • Prompt: "Z410ItemNumber^LotNumber^SerialNumber"
  • Line Location: POITEMH+10
Function Call: WRITE
  • Prompt: !,$G(^TMP($J,"POITEM",GPOID,GPOND,0))
  • Line Location: POITEMW+6
Function Call: WRITE
  • Prompt: "PoIdNum^PurchaseOrderNum^PoDate^MonthYrRun^StationNum^"
  • Line Location: POITLNH+1
Function Call: WRITE
  • Prompt: "LineItemIdNum^LineInvPtIdNum^LineInvPt^LineQty^LineDelivery^"
  • Line Location: POITLNH+2
Function Call: WRITE
  • Prompt: "QtyReceivedToDate",!
  • Line Location: POITLNH+3
Function Call: WRITE
  • Prompt: $G(^TMP($J,"POITEMLNINVPT",PITL,PITL1,1,0)),!
  • Line Location: POITLNW+5
Function Call: WRITE
  • Prompt: "PoIdNum^PurchaseOrderNum^PoDate^MonthYrRun^StationNum^"
  • Line Location: POITDRCH+1
Function Call: WRITE
  • Prompt: "LineItemIdNum^DateRecIdNum^DateReceived^QtyReceived^Amount^"
  • Line Location: POITDRCH+2
Function Call: WRITE
  • Prompt: "PartialNumber^DiscountedAmount^AdjustedQuantityRec^AdjustedAmt",!
  • Line Location: POITDRCH+3
Function Call: WRITE
  • Prompt: $G(^TMP($J,"POITEMDATEREC",PIDRC,PIDRC1,PIDRC2,0)),!
  • Line Location: POITDRCW+7
Function Call: WRITE
  • Prompt: "PoIdNum^PurchaseOrderNum^PoDate^MonthYrRun^StationNum^"
  • Line Location: POITDSH+1
Function Call: WRITE
  • Prompt: "LineItemIdNum^LineItemDescIdNum^Description",!
  • Line Location: POITDSH+2
Function Call: WRITE
  • Prompt: $G(^TMP($J,"POITEMDESC",PDES,PDES1,0)),!
  • Line Location: POITDSW+5
Info |  Source |  Entry Points |  Interaction Calls