STANDARD DATA DICTIONARY #452.2 -- PRSE EDUCATION PROGRAM/CLASS SUPPLIER FILE 9/29/25 PAGE 1
STORED IN ^PRSE(452.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the names of the companies or organizations who supply the programs or classes.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
APPLICATION GROUP(S): PRSE
CROSS
REFERENCED BY: PRESENTER/SUPPLIER(B), PROGRAM/CLASS(C)
452.2,.01 PRESENTER/SUPPLIER 0;1 FREE TEXT (Required)
NAME OF COMPANY OR ORGANIZATION
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X[";") X
LAST EDITED: OCT 31, 1996
HELP-PROMPT: Answer must be 3-30 characters in length and not contain a semi-colon (;).
DESCRIPTION:
This field contains the name of the company or organization who supplied the program or class.
TECHNICAL DESCR:
SUPPLIER
EXECUTABLE HELP: W !,"Enter the name of the vendor or supplier of this program (class)."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 452.2^B
1)= S ^PRSE(452.2,"B",$E(X,1,30),DA)=""
2)= K ^PRSE(452.2,"B",$E(X,1,30),DA)
Main index of program/class supplier entries by supplier name.
452.2,1 ADDRESS 0;2 FREE TEXT
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Answer must be 3-30 characters in length
DESCRIPTION:
This field contains the supplier's address (e.g., street number and name).
EXECUTABLE HELP: W !,"Enter the address of the person or vendor presenting the program."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.2,1.5 ADDRESS2 0;7 FREE TEXT
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field contains additional mailing address information.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.2,2 CITY 0;3 FREE TEXT
CITY WHERE SUPPLIER RESIDES
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>20!($L(X)<3) X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Answer must be 3-20 characters in length
DESCRIPTION:
This field contains the city where the supplier resides.
EXECUTABLE HELP: W !,"Enter the name of the city where the supplier/vendor is located.",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.2,3 STATE 0;4 POINTER TO STATE FILE (#5)
LOCATION OF SUPPLIER/VENDOR
LAST EDITED: JUN 30, 1993
DESCRIPTION:
This field contains the state where the supplier is located.
TECHNICAL DESCR:
POINTER TO STATE FILE (^DIC(5, ).
452.2,3.5 ZIP CODE 0;6 FREE TEXT
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>11!($L(X)<5) X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Answer must be 5-11 characters in length.
DESCRIPTION:
This field contains the zip code of the supplier.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.2,4 TELEPHONE 0;5 FREE TEXT
INPUT TRANSFORM: S X=$$UP^XLFSTR(X) K:$L(X)>15!($L(X)<4) X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Answer must be 4-15 characters in length
DESCRIPTION:
This field contains the phone number of the supplier.
EXECUTABLE HELP: W !,"Enter the supplier/vendor's telephone number.",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
452.2,5 PROGRAM/CLASS 1;0 POINTER Multiple #452.25 (Add New Entry without Asking)
LAST EDITED: SEP 14, 1992
DESCRIPTION:
This field contains the name of a program or class.
452.25,.01 PROGRAM/CLASS 0;1 POINTER TO PRSE PROGRAM/CLASS FILE (#452.1)
LAST EDITED: SEP 14, 1992
DESCRIPTION:
This field contains the name of a program or class.
CROSS-REFERENCE: 452.25^B
1)= S ^PRSE(452.2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRSE(452.2,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 452.2^C
1)= S ^PRSE(452.2,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^PRSE(452.2,"C",$E(X,1,30),DA(1),DA)
FILES POINTED TO FIELDS
PRSE PROGRAM/CLASS (#452.1) PROGRAM/CLASS:PROGRAM/CLASS (#.01)
STATE (#5) STATE (#3)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):