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: ^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

Directly Accessed By Routines, Total: 18

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

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Automated Medical Information Exchange 5 DVBCCNNS    DVBCLKT2    DVBCMKLK    DVBCPURG    DVBCUTL8    
Scheduling 2 SDEC58    SDECCAP    

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