Sub-Field: 454.01

Parent File	Name	Number	Package
PAID CODE FILES(#454)	OCCUPATION SERIES/TITLE	454.01	PAID

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!((X'?6N)&(X'?5N1U)&(X'?4N1U1N)&(X'?4N2U)) X I $D(X),(+$E(X,1,4)>2500),$E(X,6)>0 K X W !!,"Wage Grade Occupational Series & Title codes must end in 2 uppercase letters and/or numbers.",!` `MAXIMUM LENGTH: 6` LAST EDITED: `MAR 13, 2018` HELP-PROMPT: `the answer must be 6 characters in length. The first 4 characters must be numbers. The last 2 characters can be either uppercase letters and/or numbers.` DESCRIPTION: `This field contains the actual PAID code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `454.01^B` `1)= S ^PRSP(454,1,"OCC","B",$E(X,1,30),DA)=""` `2)= K ^PRSP(454,1,"OCC","B",$E(X,1,30),DA)`
1	EXPLANATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 06, 1993` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This is the text description for the code.` CROSS-REFERENCE: `454.01^C` `1)= S ^PRSP(454,DA(1),"OCC","C",$E(X,1,30),DA)=""` `2)= K ^PRSP(454,DA(1),"OCC","C",$E(X,1,30),DA)`

CODE

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!((X'?6N)&(X'?5N1U)&(X'?4N1U1N)&(X'?4N2U)) X I $D(X),(+$E(X,1,4)>2500),$E(X,6)>0 K X W !!,"Wage Grade Occupational Series & Title codes must end in 2 uppercase letters and/or numbers.",!
MAXIMUM LENGTH: 6
LAST EDITED: MAR 13, 2018
HELP-PROMPT: the answer must be 6 characters in length. The first 4 characters must be numbers. The last 2 characters can be either uppercase letters and/or numbers.
DESCRIPTION:
This field contains the actual PAID code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 454.01^B
1)= S ^PRSP(454,1,"OCC","B",$E(X,1,30),DA)=""
2)= K ^PRSP(454,1,"OCC","B",$E(X,1,30),DA)

EXPLANATION

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
LAST EDITED: APR 06, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
This is the text description for the code.
CROSS-REFERENCE: 454.01^C
1)= S ^PRSP(454,DA(1),"OCC","C",$E(X,1,30),DA)=""
2)= K ^PRSP(454,DA(1),"OCC","C",$E(X,1,30),DA)