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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^DVB(396.95

Package: Automated Medical Information Exchange

Global: ^DVB(396.95

Information

FileMan FileNo	FileMan Filename	Package
396.95	AMIE C&P EXAM TRACKING	Automated Medical Information Exchange

Description

This file has been added for use by the 2507 REQUEST File (396.3). It contains information about C&P appointments linked to 2507 Requests. This file should not be edited via FileMan. The information in this file is crucial to proper calculation of the Average Processing Time on the AMIE AMIS 290. NOTICE: This file is part of an implementation of a Nationally Controlled Procedure. Local modifications to this file are prohibited per VHA Directive 10-93-142

Directly Accessed By Routines, Total: 19

Package	Total	Routines
Automated Medical Information Exchange	14	DVBAB96 DVBCCHKR DVBCCNNS DVBCLKT2 DVBCLKTL DVBCMKL2 DVBCMKLK DVBCUTA3 DVBCUTA4 DVBCUTL2 DVBCUTL6 VISTA BUTTON ^DVB(396.95 DVBCUTL8
Scheduling	3	SDEC58 SDECCAP SDESCOMPPEN

Accessed By FileMan Db Calls, Total: 7

Package	Total	Routines
Automated Medical Information Exchange	4	DVBCCNNS DVBCLKT2 DVBCMKLK DVBCUTL8
Scheduling	3	SDEC58 SDECCAP SDESCOMPPEN

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Automated Medical Information Exchange	1	2507 REQUEST(#396.3)[.06]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	INITIAL APPT DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the first appointment date scheduled.` DESCRIPTION: `This field contains the initial appointment date.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains the date of the first appointment scheduled for the examination.` CROSS-REFERENCE: `396.95^B` `1)= S ^DVB(396.95,"B",$E(X,1,30),DA)=""` `2)= K ^DVB(396.95,"B",$E(X,1,30),DA)`
.02	ORIGINAL APPT DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the date of the original appointment for the examination.` DESCRIPTION: `This field contains the original appointment date.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains the date of the original appointment for the examination. This date will equal the current appointment until the veteran reschedules.` `This date will be used for the clock stop date in the event of a veteran reschedule, if it is the latest original appointment date rescheduled by the veteran.` CROSS-REFERENCE: `396.95^ARO^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,6)'="" S ^DVB(396.95,"ARO",$P(^DVB(396.95,DA,0),U,6),$E(X,1,30),DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,6)'="" K ^DVB(396.95,"ARO",$P(^DVB(396.95,DA,0),U,6),$E(X,1,30),DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last original appointment date on a 2507 request.` CROSS-REFERENCE: `396.95^ARVO^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,4)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) S ^DVB(396.95,"ARVO",A,B,$E(X,1,30),DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,4)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) K ^DVB(396.95,"ARVO",A,B,$E(X,1,30),DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last original appointment date on those appointments that have been cancelled by the` `veteran. This is to ensure that all appointments rescheduled at the request of the veteran are completed within 30 days.`
.03	CURRENT APPT DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the date of the current appointment for the examination.` DESCRIPTION: `This field contains the current appointment date for the examination.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains the date of the current appointment for the examination. This date may be used for the clock start date in the event of a veteran reschedule.` CROSS-REFERENCE: `396.95^AB^MUMPS` `1)= N A S A=$P(^DVB(396.95,DA,0),U,6) I +A>0 S ^DVB(396.95,"AB",A,$E(X,1,30),DA)=""` `2)= N A S A=$P(^DVB(396.95,DA,0),U,6) I +A>0 K ^DVB(396.95,"AB",A,$E(X,1,30),DA)` `This cross reference is used to reference all the current appointment dates on a specific 2507 request.` CROSS-REFERENCE: `396.95^CD` `1)= S ^DVB(396.95,"CD",$E(X,1,30),DA)=""` `2)= K ^DVB(396.95,"CD",$E(X,1,30),DA)` `This Cross Reference is used by the AMIE Appointment Management software to find a specific appointment link in the AMIE C&P Exam Tracking File.` CROSS-REFERENCE: `396.95^ARVC^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,4)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) S ^DVB(396.95,"ARVC",A,B,$E(X,1,30),DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,4)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) K ^DVB(396.95,"ARVC",A,B,$E(X,1,30),DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last current appointment date on those appointments that have been cancelled by the` `veteran. This is to ensure that all appointments rescheduled at the request of the veteran are completed within 30 days.`
.04	VETERAN CANCELLATION	0;4	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the date of the current appointment for the examination.` DESCRIPTION: `This field contains a code indicating if the appointment has been cancelled at the request of the veteran.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains either of two values for a set of codes (Yes or No). In the event of a veteran reschedule, this field will indicate the occurance so the` `Original Appt Date will not be modified with any subsequent reschedules.` CROSS-REFERENCE: `396.95^AVC2^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,3)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,3) S ^DVB(396.95,"ARVC",A,$E(X,1,30),B,DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,3)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,3) K ^DVB(396.95,"ARVC",A,$E(X,1,30),B,DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last current appointment date on those appointments that have been cancelled by the` `veteran. This is to ensure that all appointments rescheduled at the request of the veteran are completed within 30 days.` CROSS-REFERENCE: `396.95^AVO2^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,2)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,2) S ^DVB(396.95,"ARVO",A,$E(X,1,30),B,DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,2)'="",($P(^DVB(396.95,DA,0),U,6)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,2) K ^DVB(396.95,"ARVO",A,$E(X,1,30),B,DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last original appointment date on those appointments that have been cancelled by the` `veteran. This is to ensure that all appointments rescheduled at the request of the veteran are completed within 30 days.`
.05	VETERAN REQ APPT DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the last appointment date rescheduled for at the veteran's request.` DESCRIPTION: `This field contains the date to which the veteran last requested the appointment be rescheduled.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains the last date of the appointment rescheduled to by the veteran.`
.06	2507 REQUEST	0;6	POINTER TO 2507 REQUEST FILE (#396.3)	**********************REQUIRED FIELD********************** 2507 REQUEST(#396.3) LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the IEN from the 2507 Request this record points to.` DESCRIPTION: `This field contains a pointer to the 2507 request record this appointment is scheduled for.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains an IEN from file 396.3.` CROSS-REFERENCE: `396.95^AB2^MUMPS` `1)= N A S A=$P(^DVB(396.95,DA,0),U,3) I +A>0 S ^DVB(396.95,"AB",$E(X,1,30),A,DA)=""` `2)= N A S A=$P(^DVB(396.95,DA,0),U,3) I +A>0 K ^DVB(396.95,"AB",$E(X,1,30),A,DA)` `This cross reference is used to look up Current Appt Dates on specific 2507 requests.` CROSS-REFERENCE: `396.95^AR` `1)= S ^DVB(396.95,"AR",$E(X,1,30),DA)=""` `2)= K ^DVB(396.95,"AR",$E(X,1,30),DA)` `This Cross-Reference is used by DVBCPURG to delete those appointment records that are associated with the 2507 request being deleted.` CROSS-REFERENCE: `396.95^ARO1^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,2)'="" S ^DVB(396.95,"ARO",$E(X,1,30),$P(^DVB(396.95,DA,0),U,2),DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,2)'="" K ^DVB(396.95,"ARO",$E(X,1,30),$P(^DVB(396.95,DA,0),U,2),DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last original appointment date on a 2507 request.` CROSS-REFERENCE: `396.95^AVC3^MUMPS` `1)= I ($P(^DVB(396.95,DA,0),U,3)'=""),($P(^DVB(396.95,DA,0),U,4)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,3) S ^DVB(396.95,"ARVC",$E(X,1,30),A,B,DA)=""` `2)= I ($P(^DVB(396.95,DA,0),U,3)'=""),($P(^DVB(396.95,DA,0),U,4)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,3) K ^DVB(396.95,"ARVC",$E(X,1,30),A,B,DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last current appointment date on those appointments that have been cancelled by the` `veteran. This is to ensure that all appointments rescheduled at the request of the veteran are completed within 30 days.` CROSS-REFERENCE: `396.95^AVO3^MUMPS` `1)= I $P(^DVB(396.95,DA,0),U,2)'="",($P(^DVB(396.95,DA,0),U,4)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,2) S ^DVB(396.95,"ARVO",$E(X,1,30),A,B,DA)=""` `2)= I $P(^DVB(396.95,DA,0),U,2)'="",($P(^DVB(396.95,DA,0),U,4)'="") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,2) K ^DVB(396.95,"ARVO",$E(X,1,30),A,B,DA)` `This Cross-Reference is used by the software that calculates the total processing time for a 2507 request. It is used to find the last original appointment date on those appointments that have been cancelled by the` `veteran. This is to ensure that all appointments rescheduled at the request of the veteran are completed within 30 days.`
.07	APPOINTMENT STATUS	0;7	SET	**********************REQUIRED FIELD********************** '1' FOR ACTIVE; '0' FOR CANCELLED; LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter the status of the appointment tracked by this record.` DESCRIPTION: `This field contains a code indicating the status of the appointment.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains either of two values for a set of codes (Active or Cancelled).`
.08	DATE APPT CANCELLED	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 07, 1994` HELP-PROMPT: `Enter the date the appointment this record is linked to was cancelled.` DESCRIPTION: `This field contains the date the appointment this link is associated with was last cancelled.` TECHNICAL DESCR: `The information in this field should not be modified by the site. It contains the last date the appointment was cancelled.`

External References

Name	Field # of Occurrence
^%DT	.01+1, .02+1, .03+1, .05+1, .08+1
Y^DIQ	ID.06+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(396.3	ID.06+1
^DVB(396.3 - [#396.3]	ID.06+1
^DVB(396.95 - [#396.95]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K) , .06(XREF 3S), .06(XREF 3K), .06(XREF 4S), .06(XREF 4K), .06(XREF 5S), .06(XREF 5K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.03+1, ID.06+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, .02+1, .03+1, .05+1, .08+1*
%I	ID.06+1*!
A	.02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K) , .06(XREF 1S), .06(XREF 1K), .06(XREF 4S), .06(XREF 4K), .06(XREF 5S), .06(XREF 5K)
B	.02(XREF 2S), .02(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 4S), .06(XREF 4K) , .06(XREF 5S), .06(XREF 5K)
>> C	ID.06+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K) , .06(XREF 3S), .06(XREF 3K), .06(XREF 4S), .06(XREF 4K), .06(XREF 5S), .06(XREF 5K)
>> DIC	ID.06+1
U	ID.03+1, ID.06+1, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 3S), .03(XREF 3K) , .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 3S), .06(XREF 3K), .06(XREF 4S), .06(XREF 4K) , .06(XREF 5S), .06(XREF 5K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1!, .03(XREF 1S) , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1! , .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .06(XREF 3S), .06(XREF 3K), .06(XREF 4S), .06(XREF 4K), .06(XREF 5S), .06(XREF 5K) , .08+1*!
>> Y	ID.06+1*, .01+1, .02+1, .03+1, .05+1, .08+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All