STANDARD DATA DICTIONARY #351.6 -- TRANSFER PRICING PATIENT FILE 3/24/25 PAGE 1
STORED IN ^IBAT(351.6, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Per VHA Directive 10-93-142, this file definition should not be modified.
This file is used to store Transfer Pricing patient specific information.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: PATIENT OR FACILITY field (#10.01) of the IB SITE PARAMETERS File (#350.9)
TRANSFER PRICING PATIENT field (#.02) of the TRANSFER PRICING TRANSACTIONS File (#351.61)
CROSS
REFERENCED BY: PATIENT(B)
INDEXED BY: OVERRIDDEN FACILITY & PREFERRED FACILITY (AC), OVERRIDDEN FACILITY & PREFERRED FACILITY (AD)
351.6,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: DEC 03, 1998
HELP-PROMPT: Select a Transfer Pricing patient
DESCRIPTION:
This field is a pointer to the Patient file (#2).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 351.6^B
1)= S ^IBAT(351.6,"B",$E(X,1,30),DA)=""
2)= K ^IBAT(351.6,"B",$E(X,1,30),DA)
351.6,.02 DATE ADDED TO FILE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 12, 1999
HELP-PROMPT: This is the date the patient was added
DESCRIPTION: This stores when this Transfer Pricing patient was added to the file. Usually happens when this
patient has his first Transfer Pricing transaction.
UNEDITABLE
351.6,.03 PREFERRED FACILITY 0;3 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: MAY 23, 2000
HELP-PROMPT: This is the patient's preferred facility
DESCRIPTION:
This is the Transfer Pricing patient's preferred facility as of the last transaction processed.
RECORD INDEXES: AC (#40), AD (#41)
351.6,.04 TRANSFER PRICING STATUS 0;4 SET (Required)
'0' FOR INACTIVE;
'1' FOR ACTIVE;
LAST EDITED: DEC 03, 1998
HELP-PROMPT: Choose if this patient is active or not.
DESCRIPTION: This is a flag showing if the patient is still enrolled with their preferred facility being other
than the current facility. This is only updated if there are Transfer Pricing transactions or by
user intervention.
351.6,.05 LAST ADMISSION DATE 0;5 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 12, 1999
HELP-PROMPT: This is the last admission date
DESCRIPTION: This is the patient's last admission date that they were considered an active Transfer Pricing
patient.
351.6,.06 LAST OUTPATIENT VISIT DATE 0;6 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 12, 1999
HELP-PROMPT: This is the last outpatient date
DESCRIPTION: This is the patient's last outpatient visit date that they were considered an active Transfer
Pricing patient.
351.6,.07 LAST PRESCRIPTION DATE 0;7 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 12, 1999
HELP-PROMPT: This is the last prescription date
DESCRIPTION: This is the patient's last prescription date that they were considered an active Transfer Pricing
patient.
351.6,.08 LAST AUTHORIZING PERSON 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: DEC 03, 1998
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: This field is used to store the person's name from the patient's preferred facility who last
authorized services. This is used as a default for any future authorizations being entered.
351.6,.09 LAST AUTHORIZING FACILITY 0;9 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: DEC 03, 1998
HELP-PROMPT: This is the last facility to provide authorization
DESCRIPTION:
This is the facility where the last authorization was gotten from.
351.6,.1 OVERRIDDEN FACILITY 0;10 POINTER TO INSTITUTION FILE (#4)
INPUT TRANSFORM: S DIC("S")="I $$SCR^IBATUTL(Y),$$INST^IBATUTL(Y)'[""VISN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 23, 2000
HELP-PROMPT: This is the facility to override all others for this patient
DESCRIPTION: This field, if filled in, will override what the patient's preferred facility is for all future
transactions as long as there is something in this field.
SCREEN: S DIC("S")="I $$SCR^IBATUTL(Y),$$INST^IBATUTL(Y)'[""VISN"""
EXPLANATION: Only Valid Facilities, no VISNs allowed
RECORD INDEXES: AC (#40), AD (#41)
351.6,.11 LAST PROSTHETIC DATE 0;11 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 30, 2000
HELP-PROMPT: This is the last date a prosthetic device was issued.
DESCRIPTION:
This is the last date a prosthetic device was issued.
FILES POINTED TO FIELDS
INSTITUTION (#4) PREFERRED FACILITY (#.03)
LAST AUTHORIZING FACILITY (#.09)
OVERRIDDEN FACILITY (#.1)
PATIENT (#2) PATIENT (#.01)
File #351.6
Record Indexes:
AC (#40) RECORD REGULAR IR SORTING ONLY
Short Descr: Patient's preferred (enrolled) network (visn) OR overridden network.
Set Logic: S ^IBAT(351.6,"AC",X(3),DA)=""
Set Cond: S X=X(3)
Kill Logic: K ^IBAT(351.6,"AC",X(3),DA)
Kill Cond: S X=X(3)
Whole Kill: K ^IBAT(351.6,"AC")
X(1): OVERRIDDEN FACILITY (351.6,.1) (forwards)
X(2): PREFERRED FACILITY (351.6,.03) (forwards)
X(3): Computed Code: S X=+$$VISN^IBATUTL($S($G(X(1)):X(1),1:$G(X(2))))
(Subscr 1)
AD (#41) RECORD REGULAR IR SORTING ONLY
Short Descr: Patient's preferred (enrolled) facility OR overridden facility
Set Logic: S ^IBAT(351.6,"AD",X(3),DA)=""
Set Cond: S X=X(3)
Kill Logic: K ^IBAT(351.6,"AD",X(3),DA)
Kill Cond: S X=X(3)
Whole Kill: K ^IBAT(351.6,"AD")
X(1): OVERRIDDEN FACILITY (351.6,.1) (forwards)
X(2): PREFERRED FACILITY (351.6,.03) (forwards)
X(3): Computed Code: S X=+$S($G(X(1)):X(1),1:$G(X(2)))
(Subscr 1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):