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
|