Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Fields
Print Page as PDF
Global: ^PS(50.0732

Package: Outpatient Pharmacy

Global: ^PS(50.0732


Information

FileMan FileNo FileMan Filename Package
50.0732 DUE QUESTION Outpatient Pharmacy

Description

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

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
Info |  Desc |  Pointed To By FileMan Files |  Fields