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 |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^PS(50.0731

Package: Outpatient Pharmacy

Global: ^PS(50.0731


Information

FileMan FileNo FileMan Filename Package
50.0731 DUE ANSWER SHEET Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Outpatient Pharmacy 7 PSODEDT    ^PS(50.073    PSODACT    PSODLKP    PSODP    QUESTION    ^PS(50.0731    
IHS Changes To Pharmacy 1 APSPQ1    
Local Area Programs 1 AZAXDPM2    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Outpatient Pharmacy 4 PSODACT    PSODEDT    PSODLKP    PSODP    
IHS Changes To Pharmacy 1 APSPQ1    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Outpatient Pharmacy 5 DUE QUESTIONNAIRE(#50.073)[1]    DUE QUESTION(#50.0732)[#50.07311(1)]    DUE SECTION(#50.0733)[8]    OUTPATIENT SITE(#59)[10]    PRESCRIPTION(#52)[3]    
Kernel 1 NEW PERSON(#200)[4, 5, 9]
Pharmacy Data Management 1 DRUG(#50)[2]    
Registration 1 VA PATIENT(#2)[7]    

Fields, Total: 12

Field # Name Loc Type Details
.01 SEQUENCE NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits . THIS IS THE UNIQUE NUMBER USED TO IDENTIFY THIS DUE ANSWER SHEET.
  • DESCRIPTION:  
    A Number which distinctly identifies a DUE ANSWER SHEET.  Automatically generated when a new DUE ANSWER SHEET is created.
  • PRE-LOOKUP:  K:DIC(0)["L" X
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50.0731^B
    1)= S ^PS(50.0731,"B",$E(X,1,30),DA)=""
    2)= K ^PS(50.0731,"B",$E(X,1,30),DA)
1 QUESTIONNAIRE 0;2 POINTER TO DUE QUESTIONNAIRE FILE (#50.073) DUE QUESTIONNAIRE(#50.073)

  • LAST EDITED:  AUG 15, 1990
  • HELP-PROMPT:  Enter the DUE QUESTIONNAIRE that should be related to this DUE ANSWER SHEET.
  • DESCRIPTION:  
    The DUE QUESTIONNAIRE from which this DUE ANSWER SHEET was generated.
  • CROSS-REFERENCE:  50.0731^Q
    1)= S ^PS(50.0731,"Q",$E(X,1,30),DA)=""
    2)= K ^PS(50.0731,"Q",$E(X,1,30),DA)
2 DRUG 0;3 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  AUG 15, 1990
  • HELP-PROMPT:  This is the drug requiring this DUE study.
  • DESCRIPTION:  
    The Drug for which this DUE ANSWER SHEET was generated.
  • CROSS-REFERENCE:  50.0731^D
    1)= S ^PS(50.0731,"D",$E(X,1,30),DA)=""
    2)= K ^PS(50.0731,"D",$E(X,1,30),DA)
3 RX # 0;4 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  AUG 01, 1990
  • HELP-PROMPT:  The RX number for the order requiring this DUE study.
  • DESCRIPTION:  
    The Prescription number for which this DUE ANSWER SHEET was generated.
4 PROVIDER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  The provider who completed this DUE ANSWER SHEET.
  • DESCRIPTION:  
    The Provider answering this DUE ANSWER SHEET.
  • SCREEN:  S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
  • EXPLANATION:  Only valid providers are to be selected.
  • CROSS-REFERENCE:  50.0731^P
    1)= S ^PS(50.0731,"P",$E(X,1,30),DA)=""
    2)= K ^PS(50.0731,"P",$E(X,1,30),DA)
5 CREATED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  User entering this DUE ANSWER SHEET.
  • DESCRIPTION:  
    The user who generated this DUE ANSWER SHEET.  This field will be null if the DUE ANSWER SHEET was generated from an Action Profile.
6 DATE/TIME CREATED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 04, 1990
  • HELP-PROMPT:  Time this DUE ANSWER SHEET was answered.
  • DESCRIPTION:  
    The Date and Time this DUE ANSWER SHEET was generated.
7 PATIENT 0;8 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  AUG 08, 1990
  • HELP-PROMPT:  Patient receiving the drug.
  • DESCRIPTION:  
    The patient receiving the Drug for which this DUE ANSWER SHEET was generated.
8 SECTION 0;9 POINTER TO DUE SECTION FILE (#50.0733) DUE SECTION(#50.0733)

  • LAST EDITED:  AUG 17, 1990
  • HELP-PROMPT:  Use this field for grouping this DUE ANSWER SHEET, e.g. providers, clinic, services, etc.
  • DESCRIPTION:  
    The Section related to this DUE ANSWER SHEET.  This field should be used to group DUE ANSWER SHEETs into groups, e.g. Clinics, Services, Divisions, etc.
9 LAST EDITED BY 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  The user last editing this DUE ANSWER SHEET.
  • DESCRIPTION:  
    The last User to edit this DUE ANSWER SHEET.
10 SITE/DIVISION 0;11 POINTER TO OUTPATIENT SITE FILE (#59) OUTPATIENT SITE(#59)

  • LAST EDITED:  OCT 05, 1992
  • HELP-PROMPT:  Pointer to site/division in Outpatient Site file.
  • DESCRIPTION:  
    This field is used to sort and print the responses to the DUE ANSWER SHEETS site/division.
20 QUESTION 1;0 Multiple #50.07311 50.07311

  • DESCRIPTION:  
    This sub-file is used to enter the text associated with the DUE Questionnaire.
  • IDENTIFIED BY:  QUESTION TEXT(#1)

External References

Name Field # of Occurrence
^%DT 6+1
^DIC 4+1

Global Variables Directly Accessed

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 6+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
DIC 4+1!*
DIC("S" 4+1*, 4SCR+1*
DIC(0 .01TPL+1
>> DIE 4+1
>> DINUM .01+1*
X .01+1!, .01TPL+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4+1*!, 4(XREF 1S)
, 4(XREF 1K), 6+1*!
>> Y 4+1, 6+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All