SUBFILE 55.05

Select DATA DICTIONARY UTILITY OPTION:   LIST FILE ATTRIBUTES START WITH WHAT FILE: PHARMACY PATIENT// GO TO WHAT FILE: PHARMACY PATIENT// Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// NON-VA MEDS Go to field: NON-VA MEDS DEVICE:  TELNET PORT STANDARD DATA DICTIONARY #55 -- PHARMACY PATIENT FILE APR 6,2012@15:08:37 PAGE 1 STORED IN ^PS(55, (426 ENTRIES)   SITE: TROY ISC SUPPORT ACCOUNT   UCI: VAH,ROU (VERSION 1.0)

DATA         NAME                  GLOBAL        DATA ELEMENT      TITLE                 LOCATION      TYPE ---

55,52.2      NON-VA MEDS            NVA;0 POINTER Multiple #55.05

LAST EDITED:     MAR 26, 2003 DESCRIPTION:     This is the Non-VA Meds order multiple. It will be used to store the Non-VA Med orders entered through the CPRS application.

TECHNICAL DESCR: This multiple field (#52.2) contains the Non-VA Med orders.

Select DATA DICTIONARY UTILITY OPTION:   LIST FILE ATTRIBUTES START WITH WHAT FILE: PHARMACY PATIENT// GO TO WHAT FILE: PHARMACY PATIENT// Select SUB-FILE: NON-VA MEDS Select SUB-FILE: Select LISTING FORMAT: STANDARD// Start with field: FIRST// DEVICE: PHOME HOME PRINTER STANDARD DATA DICTIONARY #55.05 -- NON-VA MEDS SUB-FILE APR 6,2012@15:03:43 PAGE 1 STORED IN ^PS(55,D0,"NVA",  SITE: TROY ISC SUPPORT ACCOUNT   UCI: VAH,ROU

DATA         NAME                  GLOBAL        DATA ELEMENT      TITLE                 LOCATION      TYPE --- This is the Non-VA Meds order multiple. It will be used to store the Non-VA Med orders entered through the CPRS application.

TECHNICAL DESCRIPTION: This multiple field (#52.2) contains the Non-VA Med orders.

COMPILED CROSS-REFERENCE ROUTINE: PSSJXR

(NOTE: Kernel's File Access Security has been installed in this UCI.)

CROSS REFERENCED BY: STATUS(APSOD), ORDERABLE ITEM(B)

55.05,.01    ORDERABLE ITEM         0;1 POINTER TO PHARMACY ORDERABLE ITEM FIL E (#50.7)

LAST EDITED:     MAR 28, 2003 DESCRIPTION:     This is the orderable item that represents the Non-VA Med being taken by the patient.

TECHNICAL DESCR: This field points to the PHARMACY ORDERABLE ITEM (#50.7).

CROSS-REFERENCE: 55.05^B 1)= S ^PS(55,DA(1),"NVA","B",$E(X,1,30),DA)=""                               2)= K ^PS(55,DA(1),"NVA","B",$E(X,1,30),DA)

Record INDEXES:  ACRNVA (#452) (WHOLE FILE #55)

55.05,1      DISPENSE DRUG          0;2 POINTER TO DRUG FILE (#50)

LAST EDITED:     MAR 28, 2003 DESCRIPTION:     This is the dispense drug that represents the Non-VA Med being taken by the patient.

TECHNICAL DESCR: This field is a pointer to the DRUG file (#50).

55.05,2      DOSAGE                 0;3 FREE TEXT

INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X              LAST EDITED:      MAR 28, 2003 HELP-PROMPT:     Answer must be 1-80 characters in length DESCRIPTION:     This is the dosage of the Non-VA Med being taken by the patient.

55.05,3      MEDICATION ROUTE       0;4 FREE TEXT

INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X              LAST EDITED:      MAR 22, 2005 HELP-PROMPT:     Answer must be 1-40 characters in length DESCRIPTION:     This is the route of the Non-VA Medication being taken by the patient.

55.05,4      SCHEDULE               0;5 FREE TEXT

INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X              LAST EDITED:      MAR 15, 2004 HELP-PROMPT:     Answer must be 1-50 characters in length. DESCRIPTION:     This is the schedule of the Non-VA Medication being taken by the patient.

55.05,5      STATUS                 0;6 SET

'1' FOR DISCONTINUED; '2' FOR DATE OF DEATH ENTERED; LAST EDITED:     DEC 17, 2003 DESCRIPTION: This is the status of the Non-VA Med order.

TECHNICAL DESCR: set of codes

CROSS-REFERENCE: 55.05^APSOD^MUMPS 1)= S:$G(PSODEATH) ^PS(55,DA(1),"NVA","APSOD",D A)=""

2)= K:$G(PSODEATH) ^PS(55,DA(1),"NVA","APSOD",D A)                               3)= DO NOT DELETE. This xref will be set only when a Non-VA med is                               discontinued because a death of detah was entered. This xref will be used to reinstate order if date of death is deleted. ^PS(55,dfn,"nva","apsod",da).

55.05,6      DISCONTINUED DATE      0;7 DATE

INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X              LAST EDITED:      MAR 28, 2003 HELP-PROMPT:     (No range limit on date) DESCRIPTION:     This is the date the patient stopped taking the Non-VA Medication.

Record INDEXES:  ACRNVA (#452) (WHOLE FILE #55)

55.05,7      ORDER NUMBER           0;8 POINTER TO ORDER FILE (#100)

LAST EDITED:     MAR 28, 2003 HELP-PROMPT:     This is the CPRS order number. DESCRIPTION: This is the CPRS order number.

55.05,8      START DATE             0;9 DATE

INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X              LAST EDITED:      APR 07, 2004 HELP-PROMPT:     (No range limit on date) DESCRIPTION:     This is the date the patient started taking the Non-VA Medication.

Record INDEXES:  ACRNVA (#452) (WHOLE FILE #55)

55.05,9      ORDER CHECKS           OCK;0 Multiple #55.051

55.051,.01     ORDER CHECK NARRATIVE  0;1 FREE TEXT

INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X                LAST EDITED:      JUL 10, 2003 HELP-PROMPT:     Answer must be 1-200 characters in length. DESCRIPTION:     This is the narrative of the order check(s) for the Non-VA Med order.

CROSS-REFERENCE: 55.051^B 1)= S ^PS(55,DA(2),"NVA",DA(1),"OCK","B",$E(X,1                               ,30),DA)=""

2)= K ^PS(55,DA(2),"NVA",DA(1),"OCK","B",$E(X,1                               ,30),DA)

55.051,1       OVERRIDING PROVIDER  0;2 POINTER TO NEW PERSON FILE (#200)

LAST EDITED:   JUL 10, 2003 DESCRIPTION:   This is the provider responsible for overriding the order check.

55.051,2       OVERRIDING REASON    OVR;0   WORD-PROCESSING #55.0511

DESCRIPTION:   This is the overriding reason description given by the Provider.

55.05,10     DISCLAIMER             DSC;0   WORD-PROCESSING #55.052

DESCRIPTION:      This is the multiple for the Non-VA Med Disclaimer (Statement/Explanation).

55.05,11     DOCUMENTED DATE        0;10 DATE (Required)

INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X              LAST EDITED:      MAR 28, 2003 HELP-PROMPT:     (No range limit on date) DESCRIPTION:     This is the date the Non-VA Med order was entered to the system.

CROSS-REFERENCE: 55^ADCDT 1)= S ^PS(55,"ADCDT",$E(X,1,30),DA(1),DA)=""                               2)= K ^PS(55,"ADCDT",$E(X,1,30),DA(1),DA)

Record INDEXES:  ACRNVA (#452) (WHOLE FILE #55)

55.05,12     DOCUMENTED BY          0;11 POINTER TO NEW PERSON FILE (#200) (Required)

LAST EDITED:     MAR 28, 2003 DESCRIPTION:     This is the person responsible for documenting the Non-VA Med order.

55.05,13     CLINIC                 0;12 POINTER TO HOSPITAL LOCATION FILE (#4                                4)

LAST EDITED:     MAR 25, 2003

55.05,14     COMMENTS               1;0   WORD-PROCESSING #55.514

FILES POINTED TO                     FIELDS

DRUG (#50)                       DISPENSE DRUG (#1)

HOSPITAL LOCATION (#44)          CLINIC (#13)

NEW PERSON (#200)                DOCUMENTED BY (#12) ORDER CHECKS:OVERRIDING PROVIDER (#1)

ORDER (#100)                     ORDER NUMBER (#7)

PHARMACY ORDERABLE ITEM (#50.7)  ORDERABLE ITEM (#.01)

Subfile #55.05

Record Indexes:

ACRNVA (#452)   Record    MUMPS    IR    Action    WHOLE FILE (#55) Short Descr: Clinical Reminders index. Description: This cross-reference builds two indexes, one for finding all patients with a pharmacy orderable item and one for finding all the pharmacy orderable items a patient has. The indexes are stored in the Clinical Reminders index global as: ^PXRMINDX("55NVA","IP",POI,DFN,START DATE,STOP DATE,DAS) ^PXRMINDX("55NVA","PI",DFN,POI,START DATE,STOP DATE,DAS) respectively. POI is the pharmacy orderable item. If there is no START DATE then the DOCUMENTED DATE is used in its place. For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual. Set Logic: D SNVA^PSOPXRMU(.X,.DA) Kill Logic: D KNVA^PSOPXRMU(.X,.DA) Whole Kill: K ^PXRMINDX("55NVA") X(1): ORDERABLE ITEM  (55.05,.01)  (Subscr 1)  (forwards) X(2): DOCUMENTED DATE  (55.05,11)  (Subscr 2)  (forwards) X(3): START DATE  (55.05,8) X(4): DISCONTINUED DATE  (55.05,6)

Select DATA DICTIONARY UTILITY OPTION:   LIST FILE ATTRIBUTES START WITH WHAT FILE: PHARMACY PATIENT// GO TO WHAT FILE: PHARMACY PATIENT// Select SUB-FILE: NON-VA MEDS Select SUB-FILE: Select LISTING FORMAT: STANDARD// GLOBAL MAP DEVICE:  TELNET PORT GLOBAL MAP DATA DICTIONARY #55.05 -- NON-VA MEDS SUB-FILE APR 6,2012@15:11:05 PAGE 1 STORED IN ^PS(55,D0,"NVA",  SITE: TROY ISC SUPPORT ACCOUNT   UCI: VAH,ROU --- This is the Non-VA Meds order multiple. It will be used to store the Non-VA Med orders entered through the CPRS application.

TECHNICAL DESCRIPTION: This multiple field (#52.2) contains the Non-VA Med orders.

CROSS REFERENCED BY: STATUS(APSOD), ORDERABLE ITEM(B)

^PS(55,D0,"NVA",D1,0)= (#.01) ORDERABLE ITEM [1P:50.7] ^ (#1) DISPENSE DRUG ==>[2P:50] ^ (#2) DOSAGE [3F] ^ (#3) MEDICATION ROUTE ==>[4F] ^ (#4) SCHEDULE [5F] ^ (#5) STATUS [6S] ^ (#6) ==>DISCONTINUED DATE [7D] ^ (#7) ORDER NUMBER [8P:100] ^ ==>(#8) START DATE [9D] ^ (#11) DOCUMENTED DATE [10D] ^ ==>(#12) DOCUMENTED BY [11P:200] ^ ^PS(55,D0,"NVA",D1,0)= (#13) CLINIC [12P:44] ^ ^PS(55,D0,"NVA",D1,1,0)=^55.514^^ (#14) COMMENTS ^PS(55,D0,"NVA",D1,1,D2,0)= (#.01) COMMENTS [1W] ^ ^PS(55,D0,"NVA",D1,DSC,0)=^55.052^^ (#10) DISCLAIMER ^PS(55,D0,"NVA",D1,DSC,D2,0)= (#.01) DISCLAIMER [1W] ^ ^PS(55,D0,"NVA",D1,OCK,0)=^55.051^^ (#9) ORDER CHECKS ^PS(55,D0,"NVA",D1,OCK,D2,0)= (#.01) ORDER CHECK NARRATIVE [1F] ^ (#1) ==>OVERRIDING PROVIDER [2P:200] ^ ^PS(55,D0,"NVA",D1,OCK,D2,OVR,0)=^55.0511^^ (#2) OVERRIDING REASON ^PS(55,D0,"NVA",D1,OCK,D2,OVR,D3,0)= (#.01) OVERRIDING REASON [1W] ^