| PARAMETER |
-
- 1
- TYPE: XECUTABLE CODE
- DESCRIPTION: NSN
- XECUTABLE CODE: S X=$$NSN^PRCPUX1(D1)
-
- 2
- TYPE: XECUTABLE CODE
- DESCRIPTION: UNITS PER ISSUE
- XECUTABLE CODE: S X=$$UNIT^PRCPUX1(D0,D1,"/")
-
- 3
- TYPE: FIELD
- FIELD: 1,0
- DESCRIPTION: ITEM MULTIPLE
-
- 4
- TYPE: XECUTABLE CODE
- DESCRIPTION: DESCRIPTION
- XECUTABLE CODE: S X=$E($$DESCR^PRCPUX1(D0,D1),1,34)
-
- 5
- TYPE: XECUTABLE CODE
- DESCRIPTION: BARCODE
- XECUTABLE CODE: S X="IE"_D0_" "_D1
-
- 6
- TYPE: XECUTABLE CODE
- DESCRIPTION: PAUSE
- XECUTABLE CODE: H 1
|
| FILEMAN CODE |
S PRCT="15^1" D XEC^PRCTLAB;Y1
1,S PRCT="15^2" D XEC^PRCTLAB;Y1,S PRCT="15^3" D XEC^PRCTLAB;C1,S PRCT="15^4" D XEC^PRCTLAB;Y1,S PRCT="15^5" D XEC^PRCTLAB;Y1,S PRCT="15^6" D XEC^PRCTLAB;C1,S PRCT="15^7" D XEC^PRCTLAB;C1,S PRCT="15^8" D XEC^PRCTLAB;Y1
1,S PRCT="15^9" D XEC^PRCTLAB;Y1,S PRCT="15^10" D XEC^PRCTLAB;Y1
|
| MUMPS CODE |
S X="" I '$D(PRCTSC) S PRCTSC=1 S PRCT="5^1" D SPC^PRCTLAB
S PRCT="5^3" D SPC^PRCTLAB
S PRCT="5^2" D SPC^PRCTLAB
S X=$$NSN^PRCPUX1(D1)
S X=" U/I:"
S X=$$UNIT^PRCPUX1(D0,D1,"/")
S X=$E($$DESCR^PRCPUX1(D0,D1),1,34)
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=""
|
