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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
IFCAP 7 CODESHT^PRCPSMGO  $$ITEM^PRCPUITM  (P,R)^PRCPUREP  ^PRCPUSEL  ($$DESCR,$$NSN,$$SKU,$$UNITVAL)^PRCPUX1  $$ISMSFLAG^PRCPUX2  $$YN^PRCPUYN  
Kernel 1 ^%ZIS  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
Q

External References

Name Field # of Occurrence
^%ZIS PRCPSMST+7
^DIR PRCPSMST+8, PRCPSMST+10, PRCPSMST+20, PRCPSMST+21
CODESHT^PRCPSMGO PRCPSMST+34
$$ITEM^PRCPUITM PRCPSMST+14
P^PRCPUREP PRCPSMST+29
R^PRCPUREP PRCPSMST+24
^PRCPUSEL PRCPSMST+3
$$DESCR^PRCPUX1 PRCPSMST+17
$$NSN^PRCPUX1 PRCPSMST+15
$$SKU^PRCPUX1 PRCPSMST+16
$$UNITVAL^PRCPUX1 PRCPSMST+17
$$ISMSFLAG^PRCPUX2 PRCPSMST+5
$$YN^PRCPUYN PRCPSMST+13, PRCPSMST+33

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
Routine Call
  • %ZIS
  • Line Location:
    • PRCPSMST+7
Routine Call
  • DIR
  • Line Location:
    • PRCPSMST+8
    • PRCPSMST+10
    • PRCPSMST+20
    • PRCPSMST+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] PRCPSMST+7
^PRC(441 - [#441] PRCPSMST+19
^PRCP(445 - [#445] PRCPSMST+17
^TMP($J PRCPSMST+7!, PRCPSMST+11, PRCPSMST+14!, PRCPSMST+23*, PRCPSMST+24, PRCPSMST+26, PRCPSMST+27, PRCPSMST+28*, PRCPSMST+31, Q!

Label References

Name Line Occurrences
Q PRCPSMST+25, PRCPSMST+26, PRCPSMST+30, PRCPSMST+31, PRCPSMST+33

Naked Globals

Name Field # of Occurrence
^( PRCPSMST+11, PRCPSMST+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPSMST+6~, PRCPSMST+11*, PRCPSMST+12, PRCPSMST+21*, PRCPSMST+27*, PRCPSMST+28
AVGCOST PRCPSMST+6~, PRCPSMST+22*, PRCPSMST+23
COUNT PRCPSMST+6~, PRCPSMST+27*, PRCPSMST+28*
DATA PRCPSMST+6~, PRCPSMST+17*, PRCPSMST+18, PRCPSMST+19, PRCPSMST+22
DESCR PRCPSMST+6~, PRCPSMST+17*, PRCPSMST+18, PRCPSMST+23
DIR PRCPSMST+8!, PRCPSMST+10!, PRCPSMST+20!, PRCPSMST+21!
DIR("?" PRCPSMST+8*, PRCPSMST+10*
DIR("A" PRCPSMST+8*, PRCPSMST+10*, PRCPSMST+20*, PRCPSMST+21*
DIR(0 PRCPSMST+8*, PRCPSMST+10*, PRCPSMST+20*, PRCPSMST+21*
IOF PRCPSMST+10, PRCPSMST+27
IOP PRCPSMST+7*!
IOSL PRCPSMST+29
ITEMDA PRCPSMST+6~, PRCPSMST+14*, PRCPSMST+15, PRCPSMST+16, PRCPSMST+17, PRCPSMST+18, PRCPSMST+19, PRCPSMST+23, PRCPSMST+25
LASTCOST PRCPSMST+6~, PRCPSMST+22*, PRCPSMST+23
LINE PRCPSMST+6~, PRCPSMST+11*, PRCPSMST+13!, PRCPSMST+14, PRCPSMST+23, PRCPSMST+24, PRCPSMST+27*, PRCPSMST+28
NSN PRCPSMST+6~, PRCPSMST+15*, PRCPSMST+18, PRCPSMST+23
>> PRC("SITE" PRCPSMST+5, PRCPSMST+34
>> PRCP("DPTYPE" PRCPSMST+4
>> PRCP("I" PRCPSMST+3, PRCPSMST+14, PRCPSMST+16, PRCPSMST+17
PRCPFLAG PRCPSMST+6~, PRCPSMST+27, PRCPSMST+30
QTYREC PRCPSMST+6~, PRCPSMST+20*, PRCPSMST+21, PRCPSMST+22, PRCPSMST+23
SKU PRCPSMST+6~, PRCPSMST+16*, PRCPSMST+23
TOTVAL PRCPSMST+6~, PRCPSMST+22*, PRCPSMST+23
TRANSNO PRCPSMST+6~, PRCPSMST+9*, PRCPSMST+10, PRCPSMST+23, PRCPSMST+34
UNIT PRCPSMST+6~, PRCPSMST+17*, PRCPSMST+18, PRCPSMST+20, PRCPSMST+23
UNITCOST PRCPSMST+6~, PRCPSMST+21*, PRCPSMST+22, PRCPSMST+23
WHSE PRCPSMST+6~, PRCPSMST+7*, PRCPSMST+19
X PRCPSMST+6~, PRCPSMST+8, PRCPSMST+9, PRCPSMST+10, PRCPSMST+11, PRCPSMST+20, PRCPSMST+21
>> XH PRCPSMST+13*, PRCPSMST+32*
>> XH(1 PRCPSMST+32*
>> XP PRCPSMST+13*, PRCPSMST+32*
>> XP(1 PRCPSMST+32*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All