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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^APSPQA(32.4

Package: IHS Changes To Pharmacy

Global: ^APSPQA(32.4


Information

FileMan FileNo FileMan Filename Package
9009032.4 APSP INTERVENTION IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
IHS Changes To Pharmacy 11 APSPCDI    APSPCDI1    APSPOST4    APSPOSTP    APSPT04    APSPT041    ^APSPQA(32.4    APSPT05
APSPT051    APSPT16    APSPT161    
Outpatient Pharmacy 2 PSODELI    PSORXI    
Inpatient Medications 1 PSJRXI    
Local Area Programs 1 AZAXDPM2    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
IHS Changes To Pharmacy 7 APSPLDEL    APSPOST4    APSPOSTP    APSPT04    APSPT041    APSPT05    APSPT051    
Outpatient Pharmacy 2 PSODELI    PSORXI    
Inpatient Medications 1 PSJRXI    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Changes To Pharmacy 2 APSP INTERVENTION TYPE(#9009032.3)[.07]    APSP INTERVENTION RECOMMENDATION(#9009032.5)[.08]    
Kernel 1 NEW PERSON(#200)[.03, .04, .11]
Outpatient Pharmacy 1 OUTPATIENT SITE(#59)[.16]    
Pharmacy Data Management 1 DRUG(#50)[.05]    
Registration 1 VA PATIENT(#2)[.02]    

Fields, Total: 22

Field # Name Loc Type Details
.01 INTERVENTION DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  MAR 19, 1993
  • HELP-PROMPT:  Enter the date of the intervention, usually you can enter 'T' for today.
  • DESCRIPTION:  
    This is the date that you recorded the intervention.  You can enter any standard FileMan date input.  ex. 2/5/90, Feb 5, 1990, etc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009032.4^B
    1)= S ^APSPQA(32.4,"B",$E(X,1,30),DA)=""
    2)= K ^APSPQA(32.4,"B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  MAR 14, 1990
  • HELP-PROMPT:  Please enter the patient's name or ID#.
  • DESCRIPTION:  
    You should enter the patient that you are intervening for.  You may use any of the normal ways you use to enter a prompt that asks for a patient. Ex. Lastname, Firstname MI. or ID#
  • CROSS-REFERENCE:  9009032.4^C
    1)= S ^APSPQA(32.4,"C",$E(X,1,30),DA)=""
    2)= K ^APSPQA(32.4,"C",$E(X,1,30),DA)
    This cross reference is used to allow pharmacists to look up interventions by patient when they need to complete a intervention entry.
.03 PROVIDER 0;3 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:  Enter the provider involved with the intervention.
  • DESCRIPTION:  
    You should enter the name of the provider that prescribed this medication or treatment that you are intervening on.  You may enter the provider's name or the provider's synonym.
  • 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:  9009032.4^AC
    1)= S ^APSPQA(32.4,"AC",$E(X,1,30),DA)=""
    2)= K ^APSPQA(32.4,"AC",$E(X,1,30),DA)
    This cross reference was put into place to allow sorting of the entries by Provider.  This may be useful for custom reports.
.04 PHARMACIST 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 28, 1994
  • DESCRIPTION:  
    You should enter the name of the pharmacist making the intervention and who will be doing the follow up with the provider.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))"
  • EXPLANATION:  Only select a user with a pharmacist's key
  • CROSS-REFERENCE:  9009032.4^AE
    1)= S ^APSPQA(32.4,"AE",$E(X,1,30),DA)=""
    2)= K ^APSPQA(32.4,"AE",$E(X,1,30),DA)
    This cross reference was put into place to allow sorting of the entries by Provider.  This may be useful for custom reports.
  • CROSS-REFERENCE:  9009032.4^D
    1)= S ^APSPQA(32.4,"D",$E(X,1,30),DA)=""
    2)= K ^APSPQA(32.4,"D",$E(X,1,30),DA)
    3)= Do not delete.
    This xref is used to look up by pharmacist.
.05 DRUG 0;5 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  FEB 24, 1990
  • DESCRIPTION:  
    If there is a drug involved in the intervention, enter the name of the drug here.  This is a pointer to your local Drug file and you will only be able to enter drugs that are in this file.
.06 INSTITUTED BY 0;6 SET
************************REQUIRED FIELD************************
  • '1' FOR PHARMACY;
  • '2' FOR PROVIDER;
  • '3' FOR NURSING;
  • '4' FOR PATIENT OR FAMILY;
  • '5' FOR OTHER;

  • LAST EDITED:  FEB 27, 1990
  • DESCRIPTION:  This field is asking who initially brought up the need for an intervention. You should enter a '?' to see your choices. The choices currently offered include : Pharmacy, Nursing, Provider, Patient or Family, and Other
    (to catch everybody else).
.07 INTERVENTION 0;7 POINTER TO APSP INTERVENTION TYPE FILE (#9009032.3)
************************REQUIRED FIELD************************
APSP INTERVENTION TYPE(#9009032.3)

  • LAST EDITED:  JUN 25, 1990
  • DESCRIPTION:  You are given a selection of 19 different types of interventions. You should enter 1 of the choices. Choices include: Inappropriate Drug, Incorrect Dose, Allergy, etc. If you would like to see a list of all your choices
    enter a '?' at the prompt.  If none of the selections really cover the reason for the intervention you should enter 'Other'.
  • CROSS-REFERENCE:  9009032.4^AD
    1)= S ^APSPQA(32.4,"AD",$E(X,1,30),DA)=""
    2)= K ^APSPQA(32.4,"AD",$E(X,1,30),DA)
    This cross reference was put into place to allow easy sorting of entries by the type of intervention.  This may be useful for custom reports.





.08
RECOMMENDATION
0;8
POINTER TO APSP INTERVENTION RECOMMENDATION FILE (#9009032.5) 

************************REQUIRED FIELD************************
APSP INTERVENTION RECOMMENDATION(#9009032.5)
  • LAST EDITED:  FEB 27, 1990
  • DESCRIPTION:  This is the type of recommendation the pharmacist is going to make to the provider.  You can see the list of selections by entering a '?' at the prompt.  Just as in previous fields if none of the selections cover the
    recommendation the pharmacist should enter an 'Other' at the prompt.





.09
WAS PROVIDER CONTACTED
0;9
SET

  • '0' FOR YES;
  • '1' FOR NO;
  • LAST EDITED:  MAR 13, 1990
  • DESCRIPTION:  This field is used to record whether or not a provider was contacted regarding the intervention.  In most cases a provider will be contacted but if a pharmacy and a provider have certain agreements about changing orders
    the provider may not be contacted.





.11
PROVIDER CONTACTED
0;11
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:  Enter the name of the provider contacted if it is different than the provider who wrote the prescription or ordered the treatment.
  • DESCRIPTION:  This field is used to record the name of a provider that was contacted if it is different from the provider who wrote the prescription or ordered the treatment.  It is a pointer to the New Person file and you should enter
    the provider here just as you would anyplace else.
  • 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.





.12
RECOMMENDATION ACCEPTED
0;12
SET

  • '0' FOR NO;
  • '1' FOR YES;
  • LAST EDITED:  MAR 13, 1990
  • DESCRIPTION:  
    This field is used to record whether your recommendation was accepted or rejected by the provider.





.13
AGREE WITH PROVIDER
0;13
SET

  • '0' FOR YES;
  • '1' FOR NO;
  • LAST EDITED:  MAR 13, 1990
  • DESCRIPTION:  This field is used to record whether you agree with the provider if your recommendation was rejected.  This field will only be asked if the user answered 'No' to the Recommendation Accepted field.  The pharmacist should
    answer either 'Yes' or 'No'.





.14
ORIGINATING PACKAGE
0;14
SET

  • '0' FOR OUTPATIENT;
  • '1' FOR INPATIENT;
  • LAST EDITED:  MAR 22, 1993
  • DESCRIPTION:  
    This field contains information about whether a intervention was originated by the Outpatient Pharmacy or Inpatient Medications software.





.15
RX #
0;15
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<3) X
  • LAST EDITED:  JUL 08, 1992
  • HELP-PROMPT:  Answer must be 3-10 characters in length.
  • DESCRIPTION:  
    This field contains the prescription number involved in an intervention.  This field is filled by the routine called for drug-drug interactions.





.16
DIVISION
0;16
POINTER TO OUTPATIENT SITE FILE (#59)
OUTPATIENT SITE(#59)
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  Enter the pharmacy division involved in the intervention
  • DESCRIPTION:  
    This is the pharmacy division involved in the intervention
  • TECHNICAL DESCR:  
    This is a pointer to the Outpatient Site File (File 59)





.17
FINANCIAL COST
0;17
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUL 08, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field is used to estimate the savings due to this intervention.





1100
OTHER FOR INTERVENTION
11;0
WORD-PROCESSING #9009032.411   





1200
OTHER FOR RECOMMENDATION
12;0
WORD-PROCESSING #9009032.412   

  • DESCRIPTION:  The pharmacist is asked this field only if they have answered the Recommendation field with 'Other'.  This is a word-processing field that allows you to enter any recommendation you would like to make that was not covered
    by the selections in the Recommendation field.





1300
REASON FOR INTERVENTION
13;0
WORD-PROCESSING #9009032.413   

  • DESCRIPTION:  
    This field is a word-processing field that is used by the pharmacist if they wish to record a more detailed explanation of the intervention.





1400
ACTION TAKEN
14;0
WORD-PROCESSING #9009032.414   

  • DESCRIPTION:  
    This word-processing field may be used by the pharmacist to record more detailed information about the action taken with this intervention.





1500
CLINICAL IMPACT
15;0
WORD-PROCESSING #9009032.415   

  • DESCRIPTION:  
    This word-processing field may be utilized by the pharmacist if they wish to document what they felt the clinical impact of the intervention is.





1600
FINANCIAL IMPACT
16;0
WORD-PROCESSING #9009032.416   

  • DESCRIPTION:  
    This word processing field may be utilized by the pharmacist if they wish to document some sort of financial impact of the intervention.
  • TECHNICAL DESCR:  
    word processing







External References







Name
Field # of Occurrence




^%DT
.01+1




^DIC
.03+1, .04+1, .11+1




Y^DIQ
ID.02+1, ID.05+1








Global Variables Directly Accessed







Name
Line Occurrences  (* Changed,  ! Killed)




^APSPQA(32.4 - [#9009032.4]
.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
, .07(XREF 1S), .07(XREF 1K)		




^DD(2
ID.02+1




^DD(50
ID.05+1




^DPT - [#2]
ID.02+1




^PSDRUG - [#50]
ID.05+1








Naked Globals







Name
Field # of Occurrence




^(0
ID.02+1, ID.05+1








Local Variables




  

    
Legend:

    

      
        

           >> 
           Not killed explicitly
          

           * 
          Changed
          

           ! 
          Killed
          

          ~
          Newed
        

      
    

    

  





Name
Field # of Occurrence




>> %DT
.01+1*




>> %DT(0
.01+1*!




%I
ID.02+1*!, ID.05+1*!




>> C
ID.02+1*, ID.05+1*




>> DA
.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
, .07(XREF 1S), .07(XREF 1K)		




DIC
ID.02+1, ID.05+1, .03+1!*, .04+1!*, .11+1!*




DIC("S"
.03+1*, .03SCR+1*, .04+1*, .04SCR+1*, .11+1*, .11SCR+1*




>> DIE
.03+1, .04+1, .11+1




DT
.01+1




U
ID.02+1, ID.05+1




X
.01+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .04+1*!, .04(XREF 1S)
, .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .07(XREF 1S), .07(XREF 1K), .11+1*!, .15+1!, .17+1*!		




>> Y
ID.02+1*, ID.05+1*, .01+1, .03+1, .04+1, .11+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 | 
Naked Globals | 
Local Variables | 
All