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

Package: IFCAP

Routine: PRCPSMST


Information

PRCPSMST ;WISC/RFJ-transfer order isms code sheet ;27 Jan 92

Source Information

Source file <PRCPSMST.m>

Entry Points

Name Comments DBIA/ICR reference
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS OPTION SHOULD ONLY BE USED BY THE WAREHOUSE INVENTORY POINT."
  • Line Location: PRCPSMST+4
Function Call: WRITE
  • Prompt: !,"YOU NEED TO TURN THE ISMS SWITCH 'ON' BEFORE YOU CAN USE THIS OPTION."
  • Line Location: PRCPSMST+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRCPSMST+8
Function Call: WRITE
  • Prompt: !!," YOU ALREADY HAVE THE LINE ITEM DEFINED AS:",!," ",$P(%,"^"),?20,$P(%,"^",2)," MI#: ",$P(%,"^",3),!?20,"QUANTITY: ",$P(%,"^",4)," in ",$P(%,"^",5)
  • Line Location: PRCPSMST+12
Function Call: WRITE
  • Prompt: !,"ITEM DOES NOT HAVE AN NSN!"
  • Line Location: PRCPSMST+15
Function Call: WRITE
  • Prompt: !,"SKU IS NOT DEFINED!"
  • Line Location: PRCPSMST+16
Function Call: WRITE
  • Prompt: !!,ITEMDA,?7,$E(DESCR,1,50),?60,NSN,!!?5,"UNIT per ISSUE",?23,": ",UNIT,!?5,"QUANTITY ON-HAND",?23,": ",+$P(DATA,"^",7)
  • Line Location: PRCPSMST+18
Function Call: WRITE
  • Prompt: !?5,"AVERAGE COST",?23,": ",$J(+$P(DATA,"^",22),0,3),!?5,"LAST RECEIPT COST",?23,": ",+$P(DATA,"^",15),!?5,"LAST SALE PRICE",?23,": ",+$P($G(^PRC(441,ITEMDA,2,WHSE,0)),"^",2)
  • Line Location: PRCPSMST+19
Function Call: WRITE
  • Prompt: !," CS: ",^TMP($J,"TO",LINE,"CS")
  • Line Location: PRCPSMST+24
Function Call: WRITE
  • Prompt: !,"NO ITEMS SELECTED."
  • Line Location: PRCPSMST+26
Function Call: WRITE
  • Prompt: @IOF,!,"YOU HAVE SELECTED THE FOLLOWING LINE ITEMS FOR THE TRANSFER ORDER:"
  • Line Location: PRCPSMST+27
Function Call: WRITE
  • Prompt: !,"LI#: ",LINE,?10,$E($P(%,"^",2),1,20),?32,"MI#: ",$P(%,"^",3),?42,"QTY: ",$P(%,"^",4),?55,"UNIT$: ",$P(%,"^",6),?68,$J($P(%,"^",5),11)
  • Line Location: PRCPSMST+28
Function Call: WRITE
  • Prompt: !!,"NO CODE SHEETS CREATED."
  • Line Location: PRCPSMST+31
Info |  Source |  Entry Points |  Interaction Calls