EXPENDABLE INVENTORY (6)    CUSTOM LABEL (446.5)

Name Value
NAME EXPENDABLE INVENTORY
FILE GENERIC INVENTORY
LABEL ROUTINE -PRCPULAB
SPECIALTY COMMANDS LABEL 3X1/INTERMEC 8646
TEXT
|1||2|
  
|3|
PARAMETER
  • 1
    TYPE:   FIELD
    FIELD:   1,0
    DESCRIPTION:   ITEM MULTIPLE
  • 2
    TYPE:   XECUTABLE CODE
    FIELD:   1,.7
    DESCRIPTION:   ITEM DESCRIPTION
    XECUTABLE CODE:   S X=$S($D(^PRCP(445,D0,1,D1,6)):$S($P(^(6),"^")]"":$P(^(6),"^"),1:"^"),1:"^") S:X="^" X=$S($P(^PRC(441,D1,0),"^",2)]"":$P(^(0),"^",2),1:"NO DESCRIPTION") S X=$E(X,1,30)
  • 3
    TYPE:   XECUTABLE CODE
    FIELD:   1,.01
    DESCRIPTION:   ITEM NO.
    XECUTABLE CODE:   S X="IE"_D0_" "_D1
FILEMAN CODE
S PRCT="6^1" D XEC^PRCTLAB;Y1
1,S PRCT="6^2" D XEC^PRCTLAB;Y1,S PRCT="6^3" D XEC^PRCTLAB;C1,S PRCT="6^4" D XEC^PRCTLAB;C1,S PRCT="6^5" D XEC^PRCTLAB;C1,S PRCT="6^6" D XEC^PRCTLAB;Y1,S PRCT="6^7" D XEC^PRCTLAB;Y1
MUMPS CODE
S X="" I '$D(PRCTSC) S PRCTSC=1 S PRCT="5^1" D SPC^PRCTLAB
S PRCT="5^2" D SPC^PRCTLAB
S X=$S($D(^PRCP(445,D0,1,D1,6)):$S($P(^(6),"^")]"":$P(^(6),"^"),1:"^"),1:"^") S:X="^" X=$S($P(^PRC(441,D1,0),"^",2)]"":$P(^(0),"^",2),1:"NO DESCRIPTION") S X=$E(X,1,30)
S X="  "
S X="IE"_D0_" "_D1
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