RUN IRL PROGRAM (8)    CUSTOM LABEL (446.5)

Name Value
NAME RUN IRL PROGRAM
SPECIALTY COMMANDS LABEL 3X1/INTERMEC 8646
TEXT 
 
RUN IRL PROGRAM
//
PARAMETER
  • 1
    TYPE:   XECUTABLE CODE
    DESCRIPTION:   TEST
    XECUTABLE CODE:   S X=X
FILEMAN CODE 
S PRCT="8^1" D XEC^PRCTLAB;Y1
S PRCT="8^2" D XEC^PRCTLAB;Y1
S PRCT="8^3" D XEC^PRCTLAB;C1
S PRCT="8^4" D XEC^PRCTLAB;C1
S PRCT="8^5" D XEC^PRCTLAB;C1
S PRCT="8^6" D XEC^PRCTLAB;Y1
S PRCT="8^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 X="RUN IRL PROGRAM"
S X="//"
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