PRE-ODI PRIM/SECONDARY LABEL (14)    CUSTOM LABEL (446.5)

Name Value
NAME PRE-ODI PRIM/SECONDARY LABEL
FILE GENERIC INVENTORY
SPECIALTY COMMANDS LABEL 3X1/INTERMEC 8646
TEXT
|1||7|
L:|3| R:|4| U:|5| V:|2|
|6||8|
PARAMETER
  • 1
    TYPE:   XECUTABLE CODE
    DESCRIPTION:   DESCRIPTION
    XECUTABLE CODE:   S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)
  • 2
    TYPE:   XECUTABLE CODE
    FIELD:   1,.4
    DESCRIPTION:   MANDATORY SOURCE
    XECUTABLE CODE:   S X=$E($$VENDOR^PRCPUX1(D0,D1),1,5)
  • 3
    TYPE:   FIELD
    FIELD:   1,9
    DESCRIPTION:   LEVEL
    LEFT JUSTIFY:   5
  • 4
    TYPE:   FIELD
    FIELD:   1,10
    DESCRIPTION:   REORDER POINT
    LEFT JUSTIFY:   5
  • 5
    TYPE:   XECUTABLE CODE
    DESCRIPTION:   UNITS PER ISSUE
    XECUTABLE CODE:   S X=$$UNIT^PRCPUX1(D0,D1,"/")
  • 6
    TYPE:   XECUTABLE CODE
    DESCRIPTION:   ITEM NO.
    XECUTABLE CODE:   S X="IE"_D0_" "_D1
  • 7
    TYPE:   FIELD
    FIELD:   1,0
    DESCRIPTION:   TEST
  • 8
    TYPE:   XECUTABLE CODE
    DESCRIPTION:   PAUSE
    XECUTABLE CODE:   H 1
FILEMAN CODE
S PRCT="14^1" D XEC^PRCTLAB;Y1
1,S PRCT="14^2" D XEC^PRCTLAB;Y1,S PRCT="14^3" D XEC^PRCTLAB;C1,S PRCT="14^4" D XEC^PRCTLAB;C1,9;Y1;L5,S PRCT="14^5" D XEC^PRCTLAB;Y1,10;Y1;L5,S PRCT="14^6" D XEC^PRCTLAB;Y1,S PRCT="14^7" D XEC^PRCTLAB;Y1
1,S PRCT="14^8" D XEC^PRCTLAB;Y1,S PRCT="14^9" D XEC^PRCTLAB;Y1,S PRCT="14^10" D XEC^PRCTLAB;C1,S PRCT="14^11" D XEC^PRCTLAB;Y1,S PRCT="14^12" D XEC^PRCTLAB;Y1,S PRCT="14^13" D XEC^PRCTLAB;Y1
MUMPS CODE
S X="" I '$D(PRCTSC) S PRCTSC=1 S PRCT="5^1" D SPC^PRCTLAB
S X="IE"_D0_" "_D1
H 1
S:'$D(PRCTCP) PRCTCP=PRCTCPY S PRCTCP=PRCTCP-1 S:PRCTCP D0=D0-.0001 K:PRCTCP=0 PRCTCP S X=""
S PRCT="5^3" D SPC^PRCTLAB
S PRCT="5^2" D SPC^PRCTLAB
S X=$E($$DESCR^PRCPUX1(D0,D1),1,33)
S X="L:"
S X=" R:"
S X=" U:"
S X=$$UNIT^PRCPUX1(D0,D1,"/")
S X=" V:"
S X=$E($$VENDOR^PRCPUX1(D0,D1),1,5)