Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
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

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

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

External References

Name Field # of Occurrence
EN^DDIOL .01+1
DUE1^PSOHELP4 .01(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.0732 - [#50.0732] .01+1, .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> 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
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All