STANDARD DATA DICTIONARY #52.92 -- TPB INSTITUTION LETTERS FILE 9/29/25 PAGE 1
STORED IN ^PS(52.92, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the local facility information elements that are to be used in printing TPB letters to patients.
DD ACCESS: @
RD ACCESS:
WR ACCESS:
DEL ACCESS:
LAYGO ACCESS:
AUDIT ACCESS:
POINTED TO BY: PARENT INSTITUTION field (#.02) of the TPB INSTITUTION LETTERS File (#52.92)
CROSS
REFERENCED BY: INSTITUTION(B)
52.92,.01 INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUL 28, 2003
DESCRIPTION:
Pointer to Instituion file #4, to be used for printing TPB letters.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 52.92^B
1)= S ^PS(52.92,"B",$E(X,1,30),DA)=""
2)= K ^PS(52.92,"B",$E(X,1,30),DA)
52.92,.02 PARENT INSTITUTION 0;2 POINTER TO TPB INSTITUTION LETTERS FILE (#52.92)
LAST EDITED: AUG 18, 2003
DESCRIPTION: This field is to be used to re-map Instituions, like CBOCs, to a parent Institution for the purpose
of providing a proper:
Letter Heading
Local Pharmacy Phone Number(s)
Directors Signature Block
52.92,.03 TPB CONTACT PHONE 1 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<7) X
LAST EDITED: AUG 07, 2003
HELP-PROMPT: Answer must be 7-25 characters in length.
DESCRIPTION:
This is the first phone number veterans are to call for more information regarding TPB.
52.92,.04 TPB CONTACT PHONE 2 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<7) X
LAST EDITED: AUG 07, 2003
HELP-PROMPT: Answer must be 7-25 characters in length.
DESCRIPTION:
This is the second phone number veterans are to call for more information regarding TPB.
52.92,.05 ADDRESS LINE 1 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
ADDRESS LINE 1
52.92,.06 ADDRESS LINE 2 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
ADDRESS LINE 2
52.92,.07 CITY 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 1-30 characters in length
DESCRIPTION:
CITY
52.92,.08 ZIP CODE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: AUG 21, 2003
HELP-PROMPT: Answer must be 5-10 characters in length
DESCRIPTION:
ZIP CODE
52.92,.09 STATE 0;9 POINTER TO STATE FILE (#5)
LAST EDITED: AUG 21, 2003
DESCRIPTION:
The state portion of the institution physical address.
52.92,1.01 ADDRESS LINE 1 (MAILING) 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: AUG 07, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
TPB Mailing Address line 1
52.92,1.02 ADDRESS LINE 2 (MAILING) 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: AUG 07, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
TPB Mailing Address line 2
52.92,1.03 CITY (MAILING) 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
CITY (MAILING)
52.92,1.04 STATE (MAILING) 1;4 POINTER TO STATE FILE (#5)
LAST EDITED: AUG 21, 2003
DESCRIPTION:
STATE For both Physical Address & TPB Mailing Address
52.92,1.05 ZIP CODE (MAILING) 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: AUG 07, 2003
HELP-PROMPT: Answer must be 5-10 characters in length
DESCRIPTION:
TPB ZIP CODE for mailing.
52.92,2.01 DIRECTORS SIG LINE 1 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: AUG 07, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
Director Sig Line 1, it is typically the director's name.
52.92,2.02 DIRECTORS SIG LINE 2 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
DIRECTORS SIG LINE 2
52.92,2.03 DIRECTORS SIG LINE 3 2;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUL 28, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
DIRECTORS SIG LINE 3
FILES POINTED TO FIELDS
INSTITUTION (#4) INSTITUTION (#.01)
STATE (#5) STATE (#.09)
STATE (MAILING) (#1.04)
TPB INSTITUTION LETTERS (#52.92) PARENT INSTITUTION (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
INSTITUTION EDIT JUL 25, 2003@15:38 USER #0
EDIT INSTITUTION DD #52.92
SELECT INSTITUTION DD #52.92