Global: ^DVB(396.95

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

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

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

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.`

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	\|opt
^%ZOSF("TEST"	\|dd396.6
^DD(396	\|sort
^DD(396.3	ID.06+1, \|dd396.95
^DD(396.6	\|dd396.4
^DG(405.3 - [#405.3]	\|sort
^DGPM - [#405]	\|sort
^DIC(4 - [#4]	\|sort
^DPT - [#2]	\|sort
^DVB(396 - [#396]	\|inpt, \|prnt, \|sort
^DVB(396.1 - [#396.1]	\|dd396.1!, \|dd396.115!, \|dd396.12!, \|dd396.13!, \|dd396.14*!
^DVB(396.15 - [#396.15]	\|dd396.15!, \|dd396.151!, \|dd396.1514*!
^DVB(396.17 - [#396.17]	\|dd396.17!, \|dd396.1714!, \|dd396.1715!, \|dd396.1718!, \|dd396.19*!
^DVB(396.18 - [#396.18]	\|dd396.18*!
^DVB(396.195 - [#396.195]	\|dd396.195*!
^DVB(396.2 - [#396.2]	\|dd396.2*!
^DVB(396.21 - [#396.21]	\|dd396.21!, \|dd396.212!
^DVB(396.25 - [#396.25]	\|dd396.25*!
^DVB(396.27 - [#396.27]	\|dd396.27*!
^DVB(396.3 - [#396.3]	ID.06+1, \|dd396.3!, \|dd396.3!, \|dd396.31!, \|dd396.32!, \|dd396.327!, \|dd396.34!, \|dd396.341*!, \|dd396.4, \|dd396.95 , \|sort
^DVB(396.33 - [#396.33]	\|dd396.33*!
^DVB(396.4 - [#396.4]	\|dd396.3, \|dd396.4!, \|dd396.4!
^DVB(396.45 - [#396.45]	\|dd396.45*!
^DVB(396.5 - [#396.5]	\|dd396.5*!
^DVB(396.55 - [#396.55]	\|dd396.55*!
^DVB(396.6 - [#396.6]	\|dd396.4, \|dd396.6!, \|dd396.61!, \|sort
^DVB(396.7 - [#396.7]	\|dd396.7!, \|dd396.701!, \|sort
^DVB(396.9 - [#396.9]	\|dd396.9!, \|dd396.914!
^DVB(396.918 - [#396.918]	\|dd396.918*!
^DVB(396.94 - [#396.94]	\|dd396.94*!
^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), \|dd396.95!, \|dd396.95!
^TMP("AMIE"	\|list

Name	Field # of Occurrence
^(0	ID.03+1, ID.06+1, \|dd396.2, \|dd396.3, \|dd396.4, \|dd396.6, \|dd396.701, \|dd396.95, \|sort
^(1	\|sort
^(4	\|dd396.17
^(7	\|dd396.3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	\|dd396.3~, \|dd396.701*
>> %DT	.01+1, .02+1, .03+1, .05+1, .08+1, \|dd396.1, \|dd396.17, \|dd396.1714, \|dd396.18, \|dd396.19 , \|dd396.2, \|dd396.21, \|dd396.3!, \|dd396.327, \|dd396.34, \|dd396.341, \|dd396.4!, \|dd396.9, \|dd396.95*
%DT(0	\|dd396.3, \|dd396.4
%H	\|dd396.3~
%I	ID.06+1!, \|dd396.3~, \|dd396.4!, \|dd396.95*!
%ZIS	\|dd396.13!, \|dd396.14!
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), \|dd396.18~, \|dd396.4~, \|dd396.95*~
ANS	\|opt!
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), \|dd396.18~, \|dd396.4~, \|dd396.95*~
>> C	ID.06+1, \|dd396.4, \|dd396.95*
>> CODE	\|inpt*
>> D0	\|dd396.3, \|inpt, \|prnt, \|sort
>> 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), \|dd396.1, \|dd396.115, \|dd396.12, \|dd396.13 , \|dd396.14, \|dd396.15, \|dd396.151, \|dd396.1514, \|dd396.17, \|dd396.1714, \|dd396.1715, \|dd396.1718, \|dd396.18, \|dd396.19 , \|dd396.195, \|dd396.2, \|dd396.21, \|dd396.212, \|dd396.25, \|dd396.27, \|dd396.3, \|dd396.3, \|dd396.31, \|dd396.32 , \|dd396.327, \|dd396.33, \|dd396.34, \|dd396.341, \|dd396.4, \|dd396.4, \|dd396.45, \|dd396.5, \|dd396.55, \|dd396.6 , \|dd396.61, \|dd396.7, \|dd396.701, \|dd396.9, \|dd396.914, \|dd396.918, \|dd396.94, \|dd396.95, \|dd396.95
>> DA(1	\|dd396.115, \|dd396.12, \|dd396.13, \|dd396.14, \|dd396.151, \|dd396.1514, \|dd396.1714, \|dd396.1715, \|dd396.1718, \|dd396.19 , \|dd396.212, \|dd396.31, \|dd396.32, \|dd396.327, \|dd396.34, \|dd396.341, \|dd396.61, \|dd396.701, \|dd396.914
>> DA(2	\|dd396.1514, \|dd396.341
>> DIC	ID.06+1, \|dd396.4, \|dd396.95
>> DIG	\|dd396.3*
>> DIH	\|dd396.3*
>> DINUM	\|dd396.1*
>> DIU	\|dd396.3*
DIV	\|dd396.3*!
DIV(0	\|dd396.3*
>> DPP(2	\|sort
>> DPP(3	\|sort
DT	\|dd396.3
DVBA	\|dd396.701*~
DVBABIEN	\|opt*~
>> DVBACORR	\|inpt
>> DVBACPLT	\|inpt*
DVBADFN	\|dd396.2*!
>> DVBADT	\|inpt*
DVBAROUS	\|opt*!
>> DVBASTAT	\|inpt*
DVBAX	\|dd396.13!, \|dd396.14!
DVBCHD	\|opt*!
DVBCRO	\|dd396.3*!
DVBCSTAT	\|dd396.3*~
>> FINALDTE	\|prnt*
HD	\|opt*!
>> I(0	\|sort
IOF	\|inpt, \|opt
IOM	\|opt
ION	\|dd396.13, \|dd396.14
IOP	\|dd396.13!, \|dd396.14!, \|inpt*!, \|opt!
IOST(0	\|opt*
>> OPER	\|inpt
>> POP	\|dd396.13, \|dd396.14
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), \|dd396.17, \|dd396.2, \|dd396.3, \|dd396.4, \|dd396.6, \|dd396.701, \|dd396.95, \|inpt , \|prnt, \|sort
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!, \|dd396.1!, \|dd396.115, \|dd396.12, \|dd396.13!, \|dd396.14!, \|dd396.15, \|dd396.151!, \|dd396.1514, \|dd396.17! , \|dd396.1714!, \|dd396.1715!, \|dd396.1718, \|dd396.18!, \|dd396.19!, \|dd396.195!, \|dd396.2!, \|dd396.21!, \|dd396.212!, \|dd396.25! , \|dd396.27!, \|dd396.3!, \|dd396.3!, \|dd396.3, \|dd396.31, \|dd396.32, \|dd396.327!, \|dd396.33!, \|dd396.34!, \|dd396.341! , \|dd396.4!, \|dd396.4!, \|dd396.45!, \|dd396.5!, \|dd396.55!, \|dd396.6!, \|dd396.61, \|dd396.7!, \|dd396.701~, \|dd396.9! , \|dd396.914, \|dd396.918!, \|dd396.94!, \|dd396.95!, \|dd396.95!, \|inpt, \|sort
X(1	\|dd396.9, \|sort*
X(2	\|dd396.9, \|sort*
X(3	\|sort*
>> X1	\|dd396.3*
>> X2	\|dd396.3*
XLOC	\|dd396.2*!
>> XQORM("B"	\|ptcl*
>> Y	ID.06+1, .01+1, .02+1, .03+1, .05+1, .08+1, \|dd396.1, \|dd396.17, \|dd396.1714, \|dd396.18 , \|dd396.19, \|dd396.2, \|dd396.21, \|dd396.3!, \|dd396.327, \|dd396.34, \|dd396.341, \|dd396.4, \|dd396.41!, \|dd396.45* , \|dd396.9, \|dd396.95, \|inpt, \|sort
Y(	\|dd396.3*
Y(0	\|dd396.1, \|dd396.4, \|dd396.45*
Y(1	\|dd396.3, \|sort
Y(101	\|sort
Y(2	\|sort*
>> ZDAT	\|prnt*
>> ZDAT1	\|prnt*

Customize PDF page

Package: Automated Medical Information Exchange

Global: ^DVB(396.95

Information

Description

Directly Accessed By Routines, Total: 19

Accessed By FileMan Db Calls, Total: 7

Pointer To FileMan Files, Total: 1

Fields, Total: 8

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: