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

|1||7|
L:|3| R:|4| U:|5| V:|2|
|6||8|

• 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

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

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)