Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^PS(52.92

Package: Outpatient Pharmacy

Global: ^PS(52.92

Information

FileMan FileNo	FileMan Filename	Package
52.92	TPB INSTITUTION LETTERS	Outpatient Pharmacy

Description

This file holds the local facility information elements that are to be used in printing TPB letters to patients.

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	INSTITUTION	0;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) 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)`
.02	PARENT INSTITUTION	0;2	POINTER TO TPB INSTITUTION LETTERS FILE (#52.92)	TPB INSTITUTION LETTERS(#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`
.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.`
.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.`
.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`
.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`
.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`
.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`
.09	STATE	0;9	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 21, 2003` DESCRIPTION: `The state portion of the institution physical address.`
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`
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`
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)`
1.04	STATE (MAILING)	1;4	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 21, 2003` DESCRIPTION: `STATE For both Physical Address & TPB Mailing Address`
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.`
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.`
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`
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`

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All