STANDARD DATA DICTIONARY #442.6 -- PAT NUMBER FILE 6/27/25 PAGE 1
STORED IN ^PRC(442.6, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains prefix information for a PAT number. It allows the user to reserve blocks of P.O.numbers for specific groups of
users, so that the computer can automatically assign the next sequential number available within the block when a new PAT is added
to file 442.
IDENTIFIED BY:
"WRITE": W " ",@("$P($P($C(59)_$S($D(^DD(442.6,4,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,5)_"":"",2),$C(59
),1)")
POINTED TO BY: COMMON NUMBERING SERIES field (#10) of the PROSTHETICS SITE PARAMETERS File (#669.9)
CROSS
REFERENCED BY: COMMON NUMBERING SERIES(B), COMMON NUMBERING SERIES(C)
442.6,.01 COMMON NUMBERING SERIES 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<6)!'(X?3N1"-"2UN.UN) X I $D(X),$D(^PRC(442.6,"B",X))
K X
LAST EDITED: AUG 19, 1988
HELP-PROMPT: Enter the station number and the common numbering series separated by '-'. (e.g. 531-A6 or 531-A61)
DESCRIPTION:
This is the station number and the common numbering series.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 442.6^B
1)= S ^PRC(442.6,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442.6,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 442.6^C^MUMPS
1)= S ^PRC(442.6,"C",$P(X,"-",2),DA)=""
2)= K ^PRC(442.6,"C",$P(X,"-",2),DA)
This X-REF is used for lookup. Just the COMMON NUMBERING SERIES without the site number is used in
this X-REF.
442.6,1 LOWER BOUND 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),"-",2),2)'="P" K:$L($P
(^(0),U))=7&(X>999) X
LAST EDITED: MAY 05, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
DESCRIPTION:
This is the lower bound of the numbering series.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.6,2 UPPER BOUND 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),"-",2),2)'="P" K:$L($P
(^(0),U))=7&(X>999) X
LAST EDITED: MAY 05, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
DESCRIPTION:
This is the upper bound of the numbering series.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.6,3 NEXT NUMBER 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),"-",2),2)'="P" K:$L($P
(^(0),U))=7&(X>999) X
LAST EDITED: MAY 05, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
DESCRIPTION:
This is the first number of the series that will be used.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.6,4 USING SECTION 0;5 SET
'1' FOR PERSONAL PROPERTY;
'2' FOR PURCHASING & CONTRACTING;
'3' FOR IMPREST FUNDS CLERK;
'4' FOR ACCOUNTING TECHNICIAN;
'5' FOR ACCOUNTS RECEIVABLE;
'6' FOR PC AUTHORIZED BUYER;
'7' FOR DO AUTHORIZED BUYER;
LAST EDITED: JUN 25, 1996
HELP-PROMPT: This field limits access to certain blocks of P.O.numbers. Note that if the field is left empty,
it can be used ONLY by P&C.
DESCRIPTION:
This is the using Section.
442.6,5 FISCAL YEAR 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: JUN 26, 1991
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
The fiscal year.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):