Global: ^PS(50.0732

FileMan FileNo	FileMan Filename	Package
50.0732	DUE QUESTION	Outpatient Pharmacy

Directly Accessed By Routines, Total: 7

Package	Total	Routines
Outpatient Pharmacy	5	^PS(50.0732 PSODACT PSODLKP PSODP QUESTION
IHS Changes To Pharmacy	1	APSPQ1

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Outpatient Pharmacy	2	DUE QUESTIONNAIRE(#50.073)[#50.07302(1)] DUE ANSWER SHEET(#50.0731)[#50.07311(1)]

Fields, Total: 7


C(7),!?5") K X,PSRC
1. YES/NO/UNKNOWN
The smallest number allowed for an Answer to this Question.
The largest number allowed for an Answer to this Question.
The number of fractional digits allowed for an Answer to this Question.
The number of characters allowed for an Answer to this Question.
Used to prevent changes to the  Question text once an DUE ANSWER SHEET has been printed.

Field #	Name	Loc	Type	Details
.01	TEXT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>145!($L(X)<3)!'(X'?1P.E) X S PSRC=DA S:$G(PSODUEL) PSRC=+Y I $D(X),Y'=-1,$P(^PS(50.0732,DA,0),"^",7),X'=$P(^PS(50.0732,PSRC,0),"^") D EN^DDIOL("NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!","","$` C(7),!?5") K X,PSRC LAST EDITED: `MAY 19, 1994` HELP-PROMPT: `Answer must be 3-145 characters in length. ENTER A FREE TEXT QUESTION TO BE USED ON A DUE QUESTIONNAIRE. THIS DATA MAY BE CREATED AND EDITED FROM THE DUE QUESTIONNAIRE FILE.` DESCRIPTION: Question to be used in the DUE QUESTIONNAIRE file. EXECUTABLE HELP: `D DUE1^PSOHELP4` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `50.0732^B` 1)= S ^PS(50.0732,"B",$E(X,1,30),DA)="" 2)= K ^PS(50.0732,"B",$E(X,1,30),DA)
1	TYPE OF ANSWER REQUIRED	0;2	SET	'1' FOR YES/NO/UNKNOWN; '2' FOR FREE TEXT; '3' FOR NUMERIC; INPUT TRANSFORM: `I $P(^PS(50.0732,DA,0),"^",7) K X D EN^DDIOL("NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!","","$C(7),!?5")` LAST EDITED: `AUG 22, 1990` HELP-PROMPT: `This field is used to limit the type of response allowed when entering data into a DUE QUESTIONNAIRE.` DESCRIPTION: `Limits the type of Answer allowed.` 1. YES/NO/UNKNOWN 2. FREE TEXT 3. NUMERIC This field logically defines the Answer field, however, VA FileMan will treat the Answer field as it is defined in the Data Dictionary, i.e. Free Text with a max length of 245 characters. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	LOWER LIMIT FOR NUMERICS	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1990` HELP-PROMPT: `Type a Number between -99999999 and 99999999, 0 Decimal Digits. THIS WILL BE THE LOWEST NUMBER ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET.` DESCRIPTION: The smallest number allowed for an Answer to this Question.
3	UPPER LIMIT FOR NUMERICS	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 01, 1990` HELP-PROMPT: `Type a Number between -99999999 and 99999999, 0 Decimal Digits. THIS IS THE HIGHEST NUMBER ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET.` DESCRIPTION: The largest number allowed for an Answer to this Question. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	FRACTIONAL DIGITS	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 01, 1990` HELP-PROMPT: `Type a Number between 0 and 5, 0 Decimal Digits. THIS IS THE MAX NUMBER OF FRACTIONAL DIGITS ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET.` DESCRIPTION: The number of fractional digits allowed for an Answer to this Question.
5	FREE TEXT LENGTH	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 01, 1990` HELP-PROMPT: `Type a Number between 1 and 245, 0 Decimal Digits. THIS IS THE MAX LENGTH ANSWER ALLOWED FOR THIS QUESTION WHEN ANSWERING A DUE ANSWER SHEET` DESCRIPTION: The number of characters allowed for an Answer to this Question.
6	LOCKED	0;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 28, 1990` HELP-PROMPT: `If yes this field prohibits editing the text of this question.` DESCRIPTION: Used to prevent changes to the Question text once an DUE ANSWER SHEET has been printed. UNEDITABLE

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01+1, .01(XREF 1S), .01(XREF 1K)
>> PSODUEL	.01+1
PSRC	.01+1*!
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3+1!, 4+1!, 5+1!
>> Y	.01+1

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PS(50.0732

Information

Description

Directly Accessed By Routines, Total: 7

Pointed To By FileMan Files, Total: 2

Fields, Total: 7

External References

Global Variables Directly Accessed

Local Variables

Legend: