PRIMARY/SECONDARY LABEL (1)    CUSTOM LABEL (446.5)

|1||7|
L:|3| R:|4| U:|5| OD:|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,.8
  DESCRIPTION:   ON-DEMAND ITEM FLAG
  XECUTABLE CODE:   S X=$S($$ODITEM^PRCPUX2(D0,D1)="Y":"Y",1:"N")
• 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="1^1" D XEC^PRCTLAB;Y1
1,S PRCT="1^2" D XEC^PRCTLAB;Y1,S PRCT="1^3" D XEC^PRCTLAB;C1,S PRCT="1^4" D XEC^PRCTLAB;C1,9;Y1;L5,S PRCT="1^5" D XEC^PRCTLAB;Y1,10;Y1;L5,S PRCT="1^6" D XEC^PRCTLAB;Y1,S PRCT="1^7" D XEC^PRCTLAB;Y1,S PRCT="1^8" D XEC^PRCTLAB;Y1
1,S PRCT="1^9" D XEC^PRCTLAB;Y1,S PRCT="1^10" D XEC^PRCTLAB;C1,S PRCT="1^11" D XEC^PRCTLAB;Y1,S PRCT="1^12" D XEC^PRCTLAB;Y1,S PRCT="1^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=" OD:"
S X=$S($$ODITEM^PRCPUX2(D0,D1)="Y":"Y",1:"N")