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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^APSPQA(32.4

Package: Pharmacy Data Management

Global: ^APSPQA(32.4


Information

FileMan FileNo FileMan Filename Package
9009032.4 APSP INTERVENTION Pharmacy Data Management

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Outpatient Pharmacy 9 APSPT04    APSPT041    APSPT05    APSPT051    APSPT16    PSO INTERVENTIONS    PSO N/F LIST    PSODELI
PSORXI    
Inpatient Medications 3 PSGSICH    PSGSICH1    PSJRXI    
Pharmacy Data Management 2 PSSDDUT3    ^APSPQA(32.4    
Order Entry Results Reporting 1 ORY269    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Outpatient Pharmacy 6 APSPT04    APSPT041    APSPT05    APSPT051    PSODELI    PSORXI    
Inpatient Medications 3 PSGSICH    PSGSICH2    PSJRXI    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Inpatient Medications 1 NON-VERIFIED ORDERS(#53.1)[#53.13(.01)]    
Order Entry Results Reporting 1 ORDER CHECK INSTANCES(#100.05)[81]    
Pharmacy Data Management 1 PHARMACY PATIENT(#55)[#55.1153(.01)#55.6132(.01)]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Pharmacy Data Management 3 APSP INTERVENTION TYPE(#9009032.3)[.07]    APSP INTERVENTION RECOMMENDATION(#9009032.5)[.08]    DRUG(#50)[.05]    
Kernel 1 NEW PERSON(#200)[.03.04.11]
Outpatient Pharmacy 1 OUTPATIENT SITE(#59)[.16]    
Registration 1 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 PATIENT FILE (#2)
************************REQUIRED FIELD************************
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)

  • INPUT TRANSFORM:  S DIC("S")="I $$AASCRN^PSSDDUT3(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 30, 2011
  • HELP-PROMPT:  Select a recommendation.
  • 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.
  • SCREEN:  S DIC("S")="I $$AASCRN^PSSDDUT3(+Y)"
  • EXPLANATION:  The 'UNABLE TO ASSESS' recommendation is only available for NO ALLERGY ASSESSMENT interventions.
.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

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2179
  • INPATIENT MEDICATIONS
  • OUTPATIENT PHARMACY
  • INTERVENTION DATE (.01).
    Access: Both R/W w/Fileman

    PATIENT (.02).
    Access: Both R/W w/Fileman

    PHARMACIST (.04).
    Access: Both R/W w/Fileman

    DRUG (.05).
    Access: Both R/W w/Fileman

    INTERVENTION (.06).
    Access: Both R/W w/Fileman

    RECOMMENDATION (.08).
    Access: Both R/W w/Fileman

    ORIGINATING PACKAGE (.14).
    Access: Both R/W w/Fileman

    RX # (.15).
    Access: Both R/W w/Fileman

    PROVIDER (.03).
    Access: Direct Global R/W & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .01+1
    ^DIC .03+1, .04+1, .08+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!*, .08+1!*, .11+1!*
    DIC("S" .03+1*, .03SCR+1*, .04+1*, .04SCR+1*, .08+1*, .08SCR+1*, .11+1*, .11SCR+1*
    >> DIE .03+1, .04+1, .08+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), .08+1*!, .11+1*!, .15+1!, .17+1*!
    >> Y ID.02+1*, ID.05+1*, .01+1, .03+1, .04+1, .08+1, .11+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All