ARCH_PILOT_PROJECT_INCREMENT_3_0.KID

KIDS Distribution saved on Mar 06, 2012@13:34:07
Project ARCH Increment 3
**KIDS**:ARCH PILOT PROJECT INCREMENT 3.0^FB*3.5*138^PXRM*2.0*23^

**INSTALL NAME**
ARCH PILOT PROJECT INCREMENT 3.0
"BLD",8741,0)
ARCH PILOT PROJECT INCREMENT 3.0^^1^3120306^y
"BLD",8741,1,0)
^^27^27^3111209^
"BLD",8741,1,1,0)
This build is a multi-package build that contains FB*3.5*138
"BLD",8741,1,2,0)
and PXRM*2.0*23. It supports the third increment for Project ARCH.
"BLD",8741,1,3,0)
 
"BLD",8741,1,4,0)
The Office of Policy Analysis within the Office of the Assistant
"BLD",8741,1,5,0)
Deputy  Under Secretary for Health for Policy and Planning
"BLD",8741,1,6,0)
(ADUSH/PP) requested the capability to automatically identify all
"BLD",8741,1,7,0)
Veterans who are eligible  for a high visibility Congressionally
"BLD",8741,1,8,0)
mandated contract care pilot  program (named Project ARCH, Access to
"BLD",8741,1,9,0)
Care Received Closer to Home) in  five VISNs (1, 6, 15, 18, and 19).
"BLD",8741,1,10,0)
 
"BLD",8741,1,11,0)
FB*3.5*138:
"BLD",8741,1,12,0)
This build adds the PROJECT ARCH REMINDER DELAY field (#38) to the 
"BLD",8741,1,13,0)
FEE BASIS SITE PARAMETERS file (#161.4) that allows sites to customize
"BLD",8741,1,14,0)
number of days that the Project ARCH Clinical Reminder will become
"BLD",8741,1,15,0)
due again after the patient Declines or Refuses services offered.
"BLD",8741,1,16,0)
Two new options are also installed on the Project ARCH Menu. 
"BLD",8741,1,17,0)
The ARCH Eligibility Data Upload option allows sites to upload 
"BLD",8741,1,18,0)
the national Project ARCH data extract files that contain the updates 
"BLD",8741,1,19,0)
for Project ARCH Eligibility. 
"BLD",8741,1,20,0)
The ARCH Clinical Reminder Due Delay option sets the value in the new
"BLD",8741,1,21,0)
PROJECT ARCH REMINDER DELAY field with a number between 1 and 180 days.
"BLD",8741,1,22,0)
 
"BLD",8741,1,23,0)
 
"BLD",8741,1,24,0)
PXRM*2*23:
"BLD",8741,1,25,0)
This build places VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY
"BLD",8741,1,26,0)
in the Reminder Exchange file. This contains the following new and
"BLD",8741,1,27,0)
existing components that will be installed during the post-init.
"BLD",8741,6.3)
2
"BLD",8741,10,0)
^9.63^2^2
"BLD",8741,10,1,0)
FB*3.5*138^1
"BLD",8741,10,2,0)
PXRM*2.0*23^1
"BLD",8741,10,"B","FB*3.5*138",1)

"BLD",8741,10,"B","PXRM*2.0*23",2)

"BLD",8741,"KRN",0)
^9.67PA^779.2^20
"BLD",8741,"KRN",.4,0)
.4
"BLD",8741,"KRN",.401,0)
.401
"BLD",8741,"KRN",.402,0)
.402
"BLD",8741,"KRN",.403,0)
.403
"BLD",8741,"KRN",.5,0)
.5
"BLD",8741,"KRN",.84,0)
.84
"BLD",8741,"KRN",3.6,0)
3.6
"BLD",8741,"KRN",3.8,0)
3.8
"BLD",8741,"KRN",9.2,0)
9.2
"BLD",8741,"KRN",9.8,0)
9.8
"BLD",8741,"KRN",19,0)
19
"BLD",8741,"KRN",19.1,0)
19.1
"BLD",8741,"KRN",101,0)
101
"BLD",8741,"KRN",409.61,0)
409.61
"BLD",8741,"KRN",771,0)
771
"BLD",8741,"KRN",779.2,0)
779.2
"BLD",8741,"KRN",870,0)
870
"BLD",8741,"KRN",8989.51,0)
8989.51
"BLD",8741,"KRN",8989.52,0)
8989.52
"BLD",8741,"KRN",8994,0)
8994
"BLD",8741,"KRN","B",.4,.4)

"BLD",8741,"KRN","B",.401,.401)

"BLD",8741,"KRN","B",.402,.402)

"BLD",8741,"KRN","B",.403,.403)

"BLD",8741,"KRN","B",.5,.5)

"BLD",8741,"KRN","B",.84,.84)

"BLD",8741,"KRN","B",3.6,3.6)

"BLD",8741,"KRN","B",3.8,3.8)

"BLD",8741,"KRN","B",9.2,9.2)

"BLD",8741,"KRN","B",9.8,9.8)

"BLD",8741,"KRN","B",19,19)

"BLD",8741,"KRN","B",19.1,19.1)

"BLD",8741,"KRN","B",101,101)

"BLD",8741,"KRN","B",409.61,409.61)

"BLD",8741,"KRN","B",771,771)

"BLD",8741,"KRN","B",779.2,779.2)

"BLD",8741,"KRN","B",870,870)

"BLD",8741,"KRN","B",8989.51,8989.51)

"BLD",8741,"KRN","B",8989.52,8989.52)

"BLD",8741,"KRN","B",8994,8994)

"MBREQ")
0
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"VER")
8.0^22.0
**INSTALL NAME**
FB*3.5*138
"BLD",8739,0)
FB*3.5*138^FEE BASIS^0^3120306^y
"BLD",8739,4,0)
^9.64PA^161.4^1
"BLD",8739,4,161.4,0)
161.4
"BLD",8739,4,161.4,2,0)
^9.641^161.4^1
"BLD",8739,4,161.4,2,161.4,0)
FEE BASIS SITE PARAMETERS  (File-top level)
"BLD",8739,4,161.4,2,161.4,1,0)
^9.6411^38^1
"BLD",8739,4,161.4,2,161.4,1,38,0)
PROJECT ARCH REMINDER DELAY
"BLD",8739,4,161.4,222)
y^y^p^^^^n^^n
"BLD",8739,4,161.4,224)

"BLD",8739,4,"APDD",161.4,161.4)

"BLD",8739,4,"APDD",161.4,161.4,38)

"BLD",8739,4,"B",161.4,161.4)

"BLD",8739,6.3)
3
"BLD",8739,"KRN",0)
^9.67PA^779.2^20
"BLD",8739,"KRN",.4,0)
.4
"BLD",8739,"KRN",.401,0)
.401
"BLD",8739,"KRN",.402,0)
.402
"BLD",8739,"KRN",.403,0)
.403
"BLD",8739,"KRN",.5,0)
.5
"BLD",8739,"KRN",.84,0)
.84
"BLD",8739,"KRN",3.6,0)
3.6
"BLD",8739,"KRN",3.8,0)
3.8
"BLD",8739,"KRN",9.2,0)
9.2
"BLD",8739,"KRN",9.8,0)
9.8
"BLD",8739,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",8739,"KRN",9.8,"NM",1,0)
FBARCH0^^0^B26823995
"BLD",8739,"KRN",9.8,"NM","B","FBARCH0",1)

"BLD",8739,"KRN",19,0)
19
"BLD",8739,"KRN",19,"NM",0)
^9.68A^3^3
"BLD",8739,"KRN",19,"NM",1,0)
FB ARCH DATA UPLOAD^^0
"BLD",8739,"KRN",19,"NM",2,0)
FB ARCH REMINDER DELAY^^0
"BLD",8739,"KRN",19,"NM",3,0)
FB PROJECT ARCH MENU^^2
"BLD",8739,"KRN",19,"NM","B","FB ARCH DATA UPLOAD",1)

"BLD",8739,"KRN",19,"NM","B","FB ARCH REMINDER DELAY",2)

"BLD",8739,"KRN",19,"NM","B","FB PROJECT ARCH MENU",3)

"BLD",8739,"KRN",19.1,0)
19.1
"BLD",8739,"KRN",101,0)
101
"BLD",8739,"KRN",409.61,0)
409.61
"BLD",8739,"KRN",771,0)
771
"BLD",8739,"KRN",779.2,0)
779.2
"BLD",8739,"KRN",870,0)
870
"BLD",8739,"KRN",8989.51,0)
8989.51
"BLD",8739,"KRN",8989.52,0)
8989.52
"BLD",8739,"KRN",8994,0)
8994
"BLD",8739,"KRN","B",.4,.4)

"BLD",8739,"KRN","B",.401,.401)

"BLD",8739,"KRN","B",.402,.402)

"BLD",8739,"KRN","B",.403,.403)

"BLD",8739,"KRN","B",.5,.5)

"BLD",8739,"KRN","B",.84,.84)

"BLD",8739,"KRN","B",3.6,3.6)

"BLD",8739,"KRN","B",3.8,3.8)

"BLD",8739,"KRN","B",9.2,9.2)

"BLD",8739,"KRN","B",9.8,9.8)

"BLD",8739,"KRN","B",19,19)

"BLD",8739,"KRN","B",19.1,19.1)

"BLD",8739,"KRN","B",101,101)

"BLD",8739,"KRN","B",409.61,409.61)

"BLD",8739,"KRN","B",771,771)

"BLD",8739,"KRN","B",779.2,779.2)

"BLD",8739,"KRN","B",870,870)

"BLD",8739,"KRN","B",8989.51,8989.51)

"BLD",8739,"KRN","B",8989.52,8989.52)

"BLD",8739,"KRN","B",8994,8994)

"BLD",8739,"QUES",0)
^9.62^^
"FIA",161.4)
FEE BASIS SITE PARAMETERS
"FIA",161.4,0)
^FBAA(161.4,
"FIA",161.4,0,0)
161.4
"FIA",161.4,0,1)
y^y^p^^^^n^^n
"FIA",161.4,0,10)

"FIA",161.4,0,11)

"FIA",161.4,0,"RLRO")

"FIA",161.4,0,"VR")
3.5^FB
"FIA",161.4,161.4)
1
"FIA",161.4,161.4,38)

"KRN",19,13470,-1)
2^3
"KRN",19,13470,0)
FB PROJECT ARCH MENU^Project ARCH Menu^^M^123457115^FB ARCH^^^^^^60^y
"KRN",19,13470,10,0)
^19.01IP^4^4
"KRN",19,13470,10,3,0)
13522^UP^3
"KRN",19,13470,10,3,"^")
FB ARCH DATA UPLOAD
"KRN",19,13470,10,4,0)
13525^RE^4
"KRN",19,13470,10,4,"^")
FB ARCH REMINDER DELAY
"KRN",19,13470,"U")
PROJECT ARCH MENU
"KRN",19,13522,-1)
0^1
"KRN",19,13522,0)
FB ARCH DATA UPLOAD^ARCH Eligibility Data Upload^^R^^FB ARCH^^^^^^FEE BASIS
"KRN",19,13522,1,0)
^^1^1^3111129^
"KRN",19,13522,1,1,0)
This option allows an upload of ARCH eligibility data from a flat file.
"KRN",19,13522,25)
EN^FBARCH0
"KRN",19,13522,"U")
ARCH ELIGIBILITY DATA UPLOAD
"KRN",19,13525,-1)
0^2
"KRN",19,13525,0)
FB ARCH REMINDER DELAY^ARCH Clinical Reminder Due Delay^^R^^FB ARCH^^^^^^FEE BASIS
"KRN",19,13525,1,0)
^^6^6^3111207^
"KRN",19,13525,1,1,0)
This option will modify the PROJECT ARCH REMINDER DELAY field #38 in the
"KRN",19,13525,1,2,0)
FEE BASIS SITE PARAMETERS file #161.4 for this site. The value represents 
"KRN",19,13525,1,3,0)
the number of days that the Project ARCH Clinical Reminder will become 
"KRN",19,13525,1,4,0)
due again after the patient has either declined or refused Project ARCH 
"KRN",19,13525,1,5,0)
services. The default value is 1 but a site can edit the number of days 
"KRN",19,13525,1,6,0)
up to 180.
"KRN",19,13525,25)
SETDELAY^FBARCH0
"KRN",19,13525,"U")
ARCH CLINICAL REMINDER DUE DEL
"MBREQ")
1
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"PKG",60,-1)
1^1
"PKG",60,0)
FEE BASIS^FB^Used to pay private vendors
"PKG",60,20,0)
^9.402P^1^1
"PKG",60,20,1,0)
2^^FBPMRG
"PKG",60,20,1,1)
 
"PKG",60,20,"B",2,1)

"PKG",60,22,0)
^9.49I^1^1
"PKG",60,22,1,0)
3.5^2950130^2950313
"PKG",60,22,1,"PAH",1,0)
138^3120306
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
1
"RTN","FBARCH0")
0^1^B26823995
"RTN","FBARCH0",1,0)
FBARCH0 ; HINOIFO/RVD - ARCH IMPORT ELIGIBILITY AND UTILITY ; 01/08/11 12:30pm
"RTN","FBARCH0",2,0)
 ;;3.5;FEE BASIS;**119,130,138**;JAN 30, 1995;Build 3
"RTN","FBARCH0",3,0)
 ;;Per VHA Directive 2004-038, this routine should not be modified.
"RTN","FBARCH0",4,0)
 ;Integration Agreements:
"RTN","FBARCH0",5,0)
 ; ^DPT( - #2070, 10035
"RTN","FBARCH0",6,0)
 ; ^DIE - #2053
"RTN","FBARCH0",7,0)
 ; ^VASITE -#10112
"RTN","FBARCH0",8,0)
 ; ^XUAF4 - #2171
"RTN","FBARCH0",9,0)
 ; ^DIC(4 - #10090
"RTN","FBARCH0",10,0)
 ; ^MPIF001 - #2701
"RTN","FBARCH0",11,0)
 ; @XPDGREF - 2433
"RTN","FBARCH0",12,0)
 ; DT^DILF - #2054
"RTN","FBARCH0",13,0)
 Q
"RTN","FBARCH0",14,0)
 ;
"RTN","FBARCH0",15,0)
EN ; entry point
"RTN","FBARCH0",16,0)
 ;
"RTN","FBARCH0",17,0)
 N CNT,DFN,DIR,DTOUT,DUOUT,DIRUT,DIROUT,FBDATA,FBDATE,FBDIR,FBFILE,FBTOT,FBX,FBY,X,Y,Z
"RTN","FBARCH0",18,0)
 K ^TMP("FBARCH",$J)
"RTN","FBARCH0",19,0)
 S FBDIR=$$PWD^%ZISH
"RTN","FBARCH0",20,0)
 ;
"RTN","FBARCH0",21,0)
 S DIR("A")="Enter host file directory",DIR("B")=FBDIR
"RTN","FBARCH0",22,0)
 S DIR("?",1)="Enter the full path specification where the host file may be found"
"RTN","FBARCH0",23,0)
 S DIR("?")="or press return for the default directory "_FBDIR
"RTN","FBARCH0",24,0)
 S DIR(0)="FO^3:60"
"RTN","FBARCH0",25,0)
 D ^DIR K DIR
"RTN","FBARCH0",26,0)
 S FBDIR=$S($D(DUOUT)!$D(DTOUT):-1,1:Y)
"RTN","FBARCH0",27,0)
 I FBDIR=-1!(FBDIR="") G STARTX
"RTN","FBARCH0",28,0)
 ;
"RTN","FBARCH0",29,0)
 S DIR("A")="Enter host file name"
"RTN","FBARCH0",30,0)
 S DIR("?")="Enter the name of the host file to upload"
"RTN","FBARCH0",31,0)
 S DIR(0)="FO^3:60"
"RTN","FBARCH0",32,0)
 D ^DIR K DIR
"RTN","FBARCH0",33,0)
 S FBFILE=$S($D(DUOUT)!$D(DTOUT):-1,1:Y)
"RTN","FBARCH0",34,0)
 I FBFILE=-1!(FBFILE="") G STARTX
"RTN","FBARCH0",35,0)
 S FBX(FBFILE)="",Z=$$LIST^%ZISH(FBDIR,"FBX","FBY") K FBX,FBY
"RTN","FBARCH0",36,0)
 I 'Z D  G STARTX
"RTN","FBARCH0",37,0)
 .W !!,"File "_FBFILE_" not found in directory "_FBDIR
"RTN","FBARCH0",38,0)
 .S DIR(0)="E" D ^DIR
"RTN","FBARCH0",39,0)
 .Q
"RTN","FBARCH0",40,0)
 ; load data into global ^TMP("FBARCH",$J,n)
"RTN","FBARCH0",41,0)
 W !!,"Loading data into temporary global..."
"RTN","FBARCH0",42,0)
 S Z=$$FTG^%ZISH(FBDIR,FBFILE,$NA(^TMP("FBARCH",$J,1)),3)
"RTN","FBARCH0",43,0)
 I 'Z D  G STARTX
"RTN","FBARCH0",44,0)
 .W !!,"Unable to load data from file "_FBDIR_FBFILE
"RTN","FBARCH0",45,0)
 .S DIR(0)="E" D ^DIR
"RTN","FBARCH0",46,0)
 .Q
"RTN","FBARCH0",47,0)
 S FBTOT=$O(^TMP("FBARCH",$J,""),-1) ; total number of records in the file
"RTN","FBARCH0",48,0)
 I 'FBTOT W "No records found." S DIR(0)="E" D ^DIR G STARTX
"RTN","FBARCH0",49,0)
 W "Done."
"RTN","FBARCH0",50,0)
 W !!,FBTOT," records found",!
"RTN","FBARCH0",51,0)
 S DIR(0)="Y",DIR("B")="NO",DIR("A")="Do you wish to continue uploading ARCH eligibility data from this file"
"RTN","FBARCH0",52,0)
 D ^DIR K DIR
"RTN","FBARCH0",53,0)
 I Y'>0 G STARTX
"RTN","FBARCH0",54,0)
 ; process records
"RTN","FBARCH0",55,0)
 W !!,"Processing records..."
"RTN","FBARCH0",56,0)
 S CNT=0,Z="" F  S Z=$O(^TMP("FBARCH",$J,Z)) Q:'Z  D
"RTN","FBARCH0",57,0)
 .S FBDATA=$G(^TMP("FBARCH",$J,Z))
"RTN","FBARCH0",58,0)
 .; get and validate DFN
"RTN","FBARCH0",59,0)
 .S DFN=+$$GETDFN^MPIF001($P(FBDATA,U)) I DFN'>0 Q
"RTN","FBARCH0",60,0)
 .; get and validate date
"RTN","FBARCH0",61,0)
 .D DT^DILF("E",$P(FBDATA,U,2),.FBDATE) I FBDATE'>0 Q
"RTN","FBARCH0",62,0)
 .S CNT=CNT+1 I CNT#10=0 W "."
"RTN","FBARCH0",63,0)
 .; process record
"RTN","FBARCH0",64,0)
 .D SETREC(DFN,FBDATE)
"RTN","FBARCH0",65,0)
 .Q
"RTN","FBARCH0",66,0)
 W "Done"
"RTN","FBARCH0",67,0)
 W !!,CNT," records processed."
"RTN","FBARCH0",68,0)
 W !,"Upload complete",!
"RTN","FBARCH0",69,0)
 S DIR(0)="E" D ^DIR
"RTN","FBARCH0",70,0)
STARTX ;
"RTN","FBARCH0",71,0)
 K ^TMP("FBARCH",$J)
"RTN","FBARCH0",72,0)
 Q
"RTN","FBARCH0",73,0)
 ;
"RTN","FBARCH0",74,0)
SETREC(DFN,FBDATE) ; create/update entry in file 161
"RTN","FBARCH0",75,0)
 ; DFN - ien in file 2/file 161
"RTN","FBARCH0",76,0)
 ; FBDATE - ARCH eligibility date
"RTN","FBARCH0",77,0)
 N DA,DIC,DINUM,DLAYGO,IEN,X,Y
"RTN","FBARCH0",78,0)
 ; add this patient to file 161 if there's no existing entry
"RTN","FBARCH0",79,0)
 S IEN=$O(^FBAAA("B",DFN,""))
"RTN","FBARCH0",80,0)
 I 'IEN K DO S (X,DINUM,DA)=DFN,DIC="^FBAAA(",DIC(0)="LM",DLAYGO=161 D FILE^DICN S IEN=+Y K DINUM
"RTN","FBARCH0",81,0)
 ; update ARCH eligibility
"RTN","FBARCH0",82,0)
 I $O(^FBAAA("ARCH",FBDATE,DFN,""))>0 Q  ; ARCH eligibility record already exists
"RTN","FBARCH0",83,0)
 K DA,DO
"RTN","FBARCH0",84,0)
 S X=FBDATE,DA(1)=IEN,DLAYGO=161.011,DIC="^FBAAA("_IEN_",""ARCHFEE"",",DIC(0)="LM",DIC("DR")="2////1"
"RTN","FBARCH0",85,0)
 D FILE^DICN
"RTN","FBARCH0",86,0)
 Q
"RTN","FBARCH0",87,0)
 ;
"RTN","FBARCH0",88,0)
ELIG(DFN,FBBDT,FBEDT,FBDATA) ;this function returns if pt is ARCH eligible or NOT
"RTN","FBARCH0",89,0)
 ; input: = DFN - patient IEN (pointer to file #161)
"RTN","FBARCH0",90,0)
 ;          FBBDT - beginning dt
"RTN","FBARCH0",91,0)
 ;          FBEDT - ending dt
"RTN","FBARCH0",92,0)
 ; output: FBDATA = 1 if eligible and FBDATA()=DFN^0 or 1^date of eligibility
"RTN","FBARCH0",93,0)
 ;          from most recent to the oldest
"RTN","FBARCH0",94,0)
 ;  FBDATA = 0 if not eligible
"RTN","FBARCH0",95,0)
 ;
"RTN","FBARCH0",96,0)
 N FBI,FBDAT,FBEL,FBHDT,FBCNT,FBELDT,FBSAV1,FBSAV2,FBJ
"RTN","FBARCH0",97,0)
 S (FBHDT,FBEL,FBELDT,FBCNT,FBDATA)=0
"RTN","FBARCH0",98,0)
 S FBBDT=$S(FBBDT>0:FBBDT,1:0)
"RTN","FBARCH0",99,0)
 S FBEDT=$S(FBEDT>0:FBEDT,1:9999999)
"RTN","FBARCH0",100,0)
 Q:(FBEDT<FBBDT) FBDATA
"RTN","FBARCH0",101,0)
 Q:'$D(^FBAAA(DFN,"ARCHFEE")) FBDATA
"RTN","FBARCH0",102,0)
 S FBI=$O(^FBAAA(DFN,"ARCHFEE","B"," "),-1)
"RTN","FBARCH0",103,0)
 S FBJ=$O(^FBAAA(DFN,"ARCHFEE","B",FBI," "),-1),FBDAT=$G(^FBAAA(DFN,"ARCHFEE",FBJ,0))
"RTN","FBARCH0",104,0)
 I (FBEDT=FBI)!(FBEDT>FBI) D
"RTN","FBARCH0",105,0)
 .S FBEL=$P(FBDAT,U,2)
"RTN","FBARCH0",106,0)
 .S FBCNT=FBCNT+1 S FBDATA(FBCNT)=FBEL_U_FBI,FBDATA=FBEL
"RTN","FBARCH0",107,0)
 F  S FBI=$O(^FBAAA(DFN,"ARCHFEE","B",FBI),-1) Q:FBI'>0  D
"RTN","FBARCH0",108,0)
 .S FBJ=$O(^FBAAA(DFN,"ARCHFEE","B",FBI,0)),FBDAT=$G(^FBAAA(DFN,"ARCHFEE",FBJ,0))
"RTN","FBARCH0",109,0)
 .Q:(FBEDT<FBI)
"RTN","FBARCH0",110,0)
 .S FBEL=$P(FBDAT,U,2),FBCNT=FBCNT+1
"RTN","FBARCH0",111,0)
 .S FBDATA(FBCNT)=FBEL_U_FBI
"RTN","FBARCH0",112,0)
 ;
"RTN","FBARCH0",113,0)
 S:$G(FBDATA(1)) FBDATA=$P(FBDATA(1),U)
"RTN","FBARCH0",114,0)
 Q FBDATA
"RTN","FBARCH0",115,0)
 ;
"RTN","FBARCH0",116,0)
LIST(FBBDT,FBEDT) ;this function returns a list of ARCH patients w/in the date range.
"RTN","FBARCH0",117,0)
 ; input: = FBBGT - beginning dt
"RTN","FBARCH0",118,0)
 ;          FBEDT - ending dt
"RTN","FBARCH0",119,0)
 ; output:= number of ARCH eligible pt and ^TMP($J,"ARCHFEE",#)=DFN^0 or 1^date of eligibility
"RTN","FBARCH0",120,0)
 ;          from the OLDEST to the MOST RECENT
"RTN","FBARCH0",121,0)
 ; FBJ - internal entry number of file #161 which is DINUM to Patient File (2)
"RTN","FBARCH0",122,0)
 N FBCOUNT,FBI,FBJ,FBEDAT,FBHDAT,FBELDA,FBELDT,FBEL,FBHDT,FBH,FBDFI
"RTN","FBARCH0",123,0)
 K ^TMP($J,"ARCHFEE") S (FBI,FBCOUNT,FBELDT)=0
"RTN","FBARCH0",124,0)
 Q:'$D(^FBAAA("ARCH")) FBCOUNT
"RTN","FBARCH0",125,0)
 S FBBDT=$S(FBBDT>0:FBBDT,1:0)
"RTN","FBARCH0",126,0)
 S FBEDT=$S(FBEDT>0:FBEDT,1:9999999)
"RTN","FBARCH0",127,0)
 Q:(FBEDT<FBBDT) FBCOUNT
"RTN","FBARCH0",128,0)
 F  S FBI=$O(^FBAAA("ARCH",FBI)) Q:FBI=""  D
"RTN","FBARCH0",129,0)
 .F FBJ=0:0 S FBJ=$O(^FBAAA("ARCH",FBI,FBJ)) Q:FBJ'>0  D
"RTN","FBARCH0",130,0)
 ..S FBDFI=$O(^FBAAA("ARCH",FBI,FBJ,0))
"RTN","FBARCH0",131,0)
 ..S FBEDAT=$G(^FBAAA(FBJ,"ARCHFEE",FBDFI,0)),FBELDT=$P(FBEDAT,U)
"RTN","FBARCH0",132,0)
 ..Q:(FBEDT<FBELDT)
"RTN","FBARCH0",133,0)
 ..S FBCOUNT=FBCOUNT+1
"RTN","FBARCH0",134,0)
 ..S ^TMP($J,"ARCHFEE",FBCOUNT)=FBJ_U_$P(FBEDAT,U,2)_U_FBELDT
"RTN","FBARCH0",135,0)
 Q FBCOUNT
"RTN","FBARCH0",136,0)
 ;
"RTN","FBARCH0",137,0)
PARSE(FB) ; parse - remove double quotes and trailing blanks if any
"RTN","FBARCH0",138,0)
 N I,B
"RTN","FBARCH0",139,0)
 Q:FB="" FB
"RTN","FBARCH0",140,0)
 S:$E(FB,1)="""" FB=$E(FB,2,$L(FB))
"RTN","FBARCH0",141,0)
 S:$E(FB,$L(FB))="""" FB=$E(FB,1,($L(FB)-1))
"RTN","FBARCH0",142,0)
 Q:$E(FB,$L(FB))'=" " FB ; Last char is non-blank
"RTN","FBARCH0",143,0)
 F I=$L(FB):-1:1 Q:$E(FB,I)'=" "  S B=$E(FB,1,I-1)
"RTN","FBARCH0",144,0)
 S FB=B
"RTN","FBARCH0",145,0)
 Q FB
"RTN","FBARCH0",146,0)
 ;
"RTN","FBARCH0",147,0)
GETDELAY() ; return the Project ARCH Reminder Delay - default is 1.
"RTN","FBARCH0",148,0)
 N FBDELAY
"RTN","FBARCH0",149,0)
 S FBDELAY=$P($G(^FBAA(161.4,1,"ARCH")),U)
"RTN","FBARCH0",150,0)
 Q $S(FBDELAY]"":FBDELAY,1:1)
"RTN","FBARCH0",151,0)
 ;
"RTN","FBARCH0",152,0)
SETDELAY ; Edit the Fee Basis Site Parameters for the Project ARCH Reminder Delay
"RTN","FBARCH0",153,0)
 N DIE,DIC,DA,DR,FBPOP
"RTN","FBARCH0",154,0)
 D SITEP^FBAAUTL Q:FBPOP
"RTN","FBARCH0",155,0)
 W !! S DIE="^FBAA(161.4,",DIC(0)="AELQ",DA=1,DR="38//1" D ^DIE
"RTN","FBARCH0",156,0)
 Q
"RTN","FBARCH0",157,0)
 ;
"VER")
8.0^22.0
"^DD",161.4,161.4,38,0)
PROJECT ARCH REMINDER DELAY^NJ3,0^^ARCH;1^K:+X'=X!(X>180)!(X<1)!(X?.E1"."1.N) X
"^DD",161.4,161.4,38,3)
Type a number between 1 and 180, 0 decimals.
"^DD",161.4,161.4,38,21,0)
^^7^7^3111207^
"^DD",161.4,161.4,38,21,1,0)
The number of days to delay the Project ARCH Clinical Reminder from 
"^DD",161.4,161.4,38,21,2,0)
becoming due once the patient has either declined the services offered, 
"^DD",161.4,161.4,38,21,3,0)
or rejected the services offered due to travel distance to a non-VA 
"^DD",161.4,161.4,38,21,4,0)
contracted provider being further than the closest VA facility.
"^DD",161.4,161.4,38,21,5,0)
The acceptable values are 1 day to 180 days with 1 day being the default 
"^DD",161.4,161.4,38,21,6,0)
if no value is entered.
"^DD",161.4,161.4,38,21,7,0)
This field is only used by the Project ARCH National Clinical Reminder.
"^DD",161.4,161.4,38,"DT")
3111207
**INSTALL NAME**
PXRM*2.0*23
"BLD",8740,0)
PXRM*2.0*23^CLINICAL REMINDERS^0^3120306^y
"BLD",8740,4,0)
^9.64PA^811.8^2
"BLD",8740,4,811.4,0)
811.4
"BLD",8740,4,811.4,222)
n^y^f^^n^^y^o^n
"BLD",8740,4,811.4,224)
I $$CFINC^PXRMP23I(Y)
"BLD",8740,4,811.8,0)
811.8
"BLD",8740,4,811.8,222)
n^n^f^^n^^y^o^n
"BLD",8740,4,811.8,224)
I $$EXFINC^PXRMEXSI(Y,"EXARRAY","PXRMP23E")
"BLD",8740,4,"B",811.4,811.4)

"BLD",8740,4,"B",811.8,811.8)

"BLD",8740,6.3)
3
"BLD",8740,"ABPKG")
n
"BLD",8740,"INI")
PRE^PXRMP23I
"BLD",8740,"INIT")
POST^PXRMP23I
"BLD",8740,"KRN",0)
^9.67PA^779.2^20
"BLD",8740,"KRN",.4,0)
.4
"BLD",8740,"KRN",.401,0)
.401
"BLD",8740,"KRN",.402,0)
.402
"BLD",8740,"KRN",.403,0)
.403
"BLD",8740,"KRN",.5,0)
.5
"BLD",8740,"KRN",.84,0)
.84
"BLD",8740,"KRN",3.6,0)
3.6
"BLD",8740,"KRN",3.8,0)
3.8
"BLD",8740,"KRN",9.2,0)
9.2
"BLD",8740,"KRN",9.8,0)
9.8
"BLD",8740,"KRN",9.8,"NM",0)
^9.68A^3^3
"BLD",8740,"KRN",9.8,"NM",1,0)
PXRMARCH^^0^B4665333
"BLD",8740,"KRN",9.8,"NM",2,0)
PXRMP23E^^0^B831621
"BLD",8740,"KRN",9.8,"NM",3,0)
PXRMP23I^^0^B4131496
"BLD",8740,"KRN",9.8,"NM","B","PXRMARCH",1)

"BLD",8740,"KRN",9.8,"NM","B","PXRMP23E",2)

"BLD",8740,"KRN",9.8,"NM","B","PXRMP23I",3)

"BLD",8740,"KRN",19,0)
19
"BLD",8740,"KRN",19.1,0)
19.1
"BLD",8740,"KRN",101,0)
101
"BLD",8740,"KRN",409.61,0)
409.61
"BLD",8740,"KRN",771,0)
771
"BLD",8740,"KRN",779.2,0)
779.2
"BLD",8740,"KRN",870,0)
870
"BLD",8740,"KRN",8989.51,0)
8989.51
"BLD",8740,"KRN",8989.52,0)
8989.52
"BLD",8740,"KRN",8994,0)
8994
"BLD",8740,"KRN","B",.4,.4)

"BLD",8740,"KRN","B",.401,.401)

"BLD",8740,"KRN","B",.402,.402)

"BLD",8740,"KRN","B",.403,.403)

"BLD",8740,"KRN","B",.5,.5)

"BLD",8740,"KRN","B",.84,.84)

"BLD",8740,"KRN","B",3.6,3.6)

"BLD",8740,"KRN","B",3.8,3.8)

"BLD",8740,"KRN","B",9.2,9.2)

"BLD",8740,"KRN","B",9.8,9.8)

"BLD",8740,"KRN","B",19,19)

"BLD",8740,"KRN","B",19.1,19.1)

"BLD",8740,"KRN","B",101,101)

"BLD",8740,"KRN","B",409.61,409.61)

"BLD",8740,"KRN","B",771,771)

"BLD",8740,"KRN","B",779.2,779.2)

"BLD",8740,"KRN","B",870,870)

"BLD",8740,"KRN","B",8989.51,8989.51)

"BLD",8740,"KRN","B",8989.52,8989.52)

"BLD",8740,"KRN","B",8994,8994)

"BLD",8740,"QDEF")
^^^^NO^^^^NO^^NO
"BLD",8740,"QUES",0)
^9.62^^
"BLD",8740,"REQB",0)
^9.611^2^2
"BLD",8740,"REQB",1,0)
FB*3.5*138^2
"BLD",8740,"REQB",2,0)
PXRM*2.0*20^2
"BLD",8740,"REQB","B","FB*3.5*138",1)

"BLD",8740,"REQB","B","PXRM*2.0*20",2)

"DATA",811.4,17,0)
VA-ARCH REMINDER CUSTOM DUE DATE^PXRMARCH^ISDUE^ARCH Reminder Custom Due Date^M
"DATA",811.4,17,1,0)
^^4^4^3111215
"DATA",811.4,17,1,1,0)
This multi-occurrence computed finding returns the date the Project ARCH 
"DATA",811.4,17,1,2,0)
Reminder will be due based on the delay value for the Project ARCH
"DATA",811.4,17,1,3,0)
Clinical Reminder and the last time the patient declined or refused
"DATA",811.4,17,1,4,0)
services.
"DATA",811.4,17,100)
N^6
"DATA",811.4,17,110,0)
^811.42D^1^1
"DATA",811.4,17,110,1,0)
3111215.10461^123457115
"DATA",811.4,17,110,1,1,0)
^^1^1^3111215
"DATA",811.4,17,110,1,1,1,0)
Exchange Install
"DATA",811.8,7,0)
VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY^TOMLIN,BRIAN at SALT LAKE CITY^3111214.161255
"DATA",811.8,7,100,1,0)
<?xml version="1.0" standalone="yes"?>
"DATA",811.8,7,100,2,0)
<REMINDER_EXCHANGE_FILE_ENTRY>
"DATA",811.8,7,100,3,0)
<PACKAGE_VERSION>2.0P20</PACKAGE_VERSION>
"DATA",811.8,7,100,4,0)
<INDEX_AT>1130</INDEX_AT>
"DATA",811.8,7,100,5,0)
<SOURCE>
"DATA",811.8,7,100,6,0)
<NAME>VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY</NAME>
"DATA",811.8,7,100,7,0)
<USER>TOMLIN,BRIAN</USER>
"DATA",811.8,7,100,8,0)
<SITE>SALT LAKE CITY</SITE>
"DATA",811.8,7,100,9,0)
<DATE_PACKED>12/14/2011@16:12:55</DATE_PACKED>
"DATA",811.8,7,100,10,0)
</SOURCE>
"DATA",811.8,7,100,11,0)
<DESCRIPTION><![CDATA[
"DATA",811.8,7,100,12,0)
This reminder definition is used to identify patients who are eligible 
"DATA",811.8,7,100,13,0)
for the Access Received Closer to Home (ARCH) pilot program. Project ARCH
"DATA",811.8,7,100,14,0)
is a contract care pilot program designed to improve access to needed
"DATA",811.8,7,100,15,0)
health care through contracted providers that are closer to the Veteran's
"DATA",811.8,7,100,16,0)
residence.
"DATA",811.8,7,100,17,0)
]]></DESCRIPTION>
"DATA",811.8,7,100,18,0)
<KEYWORDS>
"DATA",811.8,7,100,19,0)
</KEYWORDS>
"DATA",811.8,7,100,20,0)
<M_ROUTINE>
"DATA",811.8,7,100,21,0)
<ROUTINE_NAME>PXRMARCH</ROUTINE_NAME>
"DATA",811.8,7,100,22,0)
<CHECKSUM>2180654701</CHECKSUM>
"DATA",811.8,7,100,23,0)
<CODE>
"DATA",811.8,7,100,24,0)
<![CDATA[
"DATA",811.8,7,100,25,0)
PXRMARCH ;SLC/PKR/BNT - Clinical Reminder ARCH routines. ;12/09/2011
"DATA",811.8,7,100,26,0)
 ;;2.0;CLINICAL REMINDERS;**20,23**;Feb 04, 2005
"DATA",811.8,7,100,27,0)
 ;==========================================================
"DATA",811.8,7,100,28,0)
ELIG(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Multiple occurrence
"DATA",811.8,7,100,29,0)
 ;computed finding for ARCH eligibility.
"DATA",811.8,7,100,30,0)
 N ARCHDATA,IND,SDIR
"DATA",811.8,7,100,31,0)
 ;DBIA #5619
"DATA",811.8,7,100,32,0)
 S IND=$$ELIG^FBARCH0(DFN,BDT,EDT,.ARCHDATA)
"DATA",811.8,7,100,33,0)
 S SDIR=$S(NGET<0:-1,1:1)
"DATA",811.8,7,100,34,0)
 S NGET=$S(NGET<0:-NGET,1:NGET)
"DATA",811.8,7,100,35,0)
 S IND="",NFOUND=0
"DATA",811.8,7,100,36,0)
 F  S IND=$O(ARCHDATA(IND),SDIR) Q:(IND="")!(NFOUND=NGET)  D
"DATA",811.8,7,100,37,0)
 . S NFOUND=NFOUND+1
"DATA",811.8,7,100,38,0)
 . S TEST(NFOUND)=$P(ARCHDATA(IND),U,1)
"DATA",811.8,7,100,39,0)
 . S DATE(NFOUND)=$P(ARCHDATA(IND),U,2)
"DATA",811.8,7,100,40,0)
 . S TEXT(NFOUND)=""
"DATA",811.8,7,100,41,0)
 Q
"DATA",811.8,7,100,42,0)
 ;
"DATA",811.8,7,100,43,0)
 ;==========================================================
"DATA",811.8,7,100,44,0)
LIST(NGET,BDT,EDT,PLIST,PARAM) ;List computed finding for building a list
"DATA",811.8,7,100,45,0)
 ;of ARCH eligible patients.
"DATA",811.8,7,100,46,0)
 N CNT,DATE,DFN,IND,NL,TEMP
"DATA",811.8,7,100,47,0)
 ;DBIA #5619
"DATA",811.8,7,100,48,0)
 S NL=$$LIST^FBARCH0(BDT,EDT)
"DATA",811.8,7,100,49,0)
 F IND=1:1:NL D
"DATA",811.8,7,100,50,0)
 . S TEMP=^TMP($J,"ARCHFEE",IND)
"DATA",811.8,7,100,51,0)
 .;Check eligibility.
"DATA",811.8,7,100,52,0)
 . I '$P(TEMP,U,2) Q
"DATA",811.8,7,100,53,0)
 . S DFN=$P(TEMP,U,1),DATE=$P(TEMP,U,3)
"DATA",811.8,7,100,54,0)
 . S ^TMP($J,"TLIST",DFN,DATE)=""
"DATA",811.8,7,100,55,0)
 S DFN=""
"DATA",811.8,7,100,56,0)
 F  S DFN=$O(^TMP($J,"TLIST",DFN)) Q:DFN=""  D
"DATA",811.8,7,100,57,0)
 . S CNT=0,DATE=""
"DATA",811.8,7,100,58,0)
 . F  S DATE=$O(^TMP($J,"TLIST",DFN,DATE)) Q:(DATE="")!(CNT=NGET)  D
"DATA",811.8,7,100,59,0)
 .. S CNT=CNT+1,^TMP($J,PLIST,DFN,CNT)=U_DATE
"DATA",811.8,7,100,60,0)
 K ^TMP($J,"ARCHFEE"),^TMP($J,"TLIST")
"DATA",811.8,7,100,61,0)
 Q
"DATA",811.8,7,100,62,0)
 ;
"DATA",811.8,7,100,63,0)
 ;==========================================================
"DATA",811.8,7,100,64,0)
ISDUE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Multiple occurrence
"DATA",811.8,7,100,65,0)
 ; computed finding for a Project ARCH Reminder Custom Date Due.
"DATA",811.8,7,100,66,0)
 ; The $$GETDELAY^FBARCH0 API returns a site defined numeric value that represents
"DATA",811.8,7,100,67,0)
 ; the number of days to delay the reminder from being due again after 
"DATA",811.8,7,100,68,0)
 ; being declined or refused through one of the related health factors.
"DATA",811.8,7,100,69,0)
 ;
"DATA",811.8,7,100,70,0)
 ; $$GETDELAY^FBARCH0 Supported by IA 5619
"DATA",811.8,7,100,71,0)
 ;
"DATA",811.8,7,100,72,0)
 N X,HFID,ARCHVHF,ARCHDLAY
"DATA",811.8,7,100,73,0)
 S NFOUND=1
"DATA",811.8,7,100,74,0)
 S ARCHDLAY=$$GETDELAY^FBARCH0()
"DATA",811.8,7,100,75,0)
 S ARCHVHF($P($$NOW^PXRMDATE(),"."))=""
"DATA",811.8,7,100,76,0)
 ; Get DECLINES and REFUSES Health Factor ID and last date created
"DATA",811.8,7,100,77,0)
 F X="DECLINES","REFUSES" S HFID=$O(^AUTTHF("B","ARCH-SERVICE NEEDED THIS VISIT "_X,0)) D
"DATA",811.8,7,100,78,0)
 . Q:'$D(^PXRMINDX(9000010.23,"PI",DFN,HFID))
"DATA",811.8,7,100,79,0)
 . ; Get date and add delay value
"DATA",811.8,7,100,80,0)
 . S ARCHVHF($$FMADD^XLFDT($P($O(^PXRMINDX(9000010.23,"PI",DFN,HFID," "),-1),"."),ARCHDLAY))=""
"DATA",811.8,7,100,81,0)
 S TEST(NFOUND)=1
"DATA",811.8,7,100,82,0)
 S TEXT(NFOUND)=""
"DATA",811.8,7,100,83,0)
 S DATE(NFOUND)=$O(ARCHVHF(" "),-1)
"DATA",811.8,7,100,84,0)
 Q
"DATA",811.8,7,100,85,0)
 ;
"DATA",811.8,7,100,86,0)
]]>
"DATA",811.8,7,100,87,0)
</CODE>
"DATA",811.8,7,100,88,0)
</M_ROUTINE>
"DATA",811.8,7,100,89,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,90,0)
<FILE_NAME>TIU TEMPLATE FIELD</FILE_NAME>
"DATA",811.8,7,100,91,0)
<FILE_NUMBER>8927.1</FILE_NUMBER>
"DATA",811.8,7,100,92,0)
<POINT_01>ARCH SERVICE LIST</POINT_01>
"DATA",811.8,7,100,93,0)
<INTERNAL_ENTRY_NUMBER>44</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,94,0)
<CHECKSUM>3826720154</CHECKSUM>
"DATA",811.8,7,100,95,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,96,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,97,0)
<![CDATA[
"DATA",811.8,7,100,98,0)
8927.1;+44,;.01~ARCH SERVICE LIST
"DATA",811.8,7,100,99,0)
8927.1;+44,;.02~Text
"DATA",811.8,7,100,100,0)
8927.1;+44,;.03~NO
"DATA",811.8,7,100,101,0)
8927.1;+44,;.04~0
"DATA",811.8,7,100,102,0)
8927.1;+44,;.07~0
"DATA",811.8,7,100,103,0)
8927.1;+44,;.08~NO
"DATA",811.8,7,100,104,0)
8927.1;+44,;.09~NO
"DATA",811.8,7,100,105,0)
8927.1;+44,;.1~0
"DATA",811.8,7,100,106,0)
8927.1;+44,;.11~0
"DATA",811.8,7,100,107,0)
8927.1;+44,;.12~0
"DATA",811.8,7,100,108,0)
8927.1;+44,;.13~0
"DATA",811.8,7,100,109,0)
8927.1;+44,;.14~0
"DATA",811.8,7,100,110,0)
8927.1;+44,;.15~0
"DATA",811.8,7,100,111,0)
8927.1;+44,;10~WP-start~23
"DATA",811.8,7,100,112,0)
VISN 1:  
"DATA",811.8,7,100,113,0)
  Acute medical/surgical inpatient care, outpatient specialty consultation, 
"DATA",811.8,7,100,114,0)
  and diagnostic imaging and laboratory/pathology services associated with
"DATA",811.8,7,100,115,0)
  outpatient specialty consultations
"DATA",811.8,7,100,116,0)

"DATA",811.8,7,100,117,0)
VISN 6:
"DATA",811.8,7,100,118,0)
  Primary care, including preventive services and diagnostic imaging and 
"DATA",811.8,7,100,119,0)
  laboratory/pathology services associated with primary care
"DATA",811.8,7,100,120,0)

"DATA",811.8,7,100,121,0)
VISN 15:
"DATA",811.8,7,100,122,0)
  Primary care, including preventive services, mental health screenings 
"DATA",811.8,7,100,123,0)
  and diagnostic imaging and laboratory/pathology services associated 
"DATA",811.8,7,100,124,0)
  with primary care
"DATA",811.8,7,100,125,0)

"DATA",811.8,7,100,126,0)
VISN 18:
"DATA",811.8,7,100,127,0)
  Acute medical/surgical inpatient care, outpatient specialty consultation,
"DATA",811.8,7,100,128,0)
  and diagnostic imaging and laboratory/pathology services
"DATA",811.8,7,100,129,0)
  associated with outpatient specialty consultations
"DATA",811.8,7,100,130,0)

"DATA",811.8,7,100,131,0)
VISN 19:
"DATA",811.8,7,100,132,0)
  Acute medical/surgical inpatient care, outpatient specialty consultation,
"DATA",811.8,7,100,133,0)
  PET scans and diagnostic laboratory/pathology services associated with 
"DATA",811.8,7,100,134,0)
  outpatient specialty consultations
"DATA",811.8,7,100,135,0)
]]>
"DATA",811.8,7,100,136,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,137,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,138,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,139,0)
<FILE_NAME>TIU TEMPLATE FIELD</FILE_NAME>
"DATA",811.8,7,100,140,0)
<FILE_NUMBER>8927.1</FILE_NUMBER>
"DATA",811.8,7,100,141,0)
<POINT_01>ARCH CONSENT FORM URL</POINT_01>
"DATA",811.8,7,100,142,0)
<INTERNAL_ENTRY_NUMBER>45</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,143,0)
<CHECKSUM>1939953355</CHECKSUM>
"DATA",811.8,7,100,144,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,145,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,146,0)
<![CDATA[
"DATA",811.8,7,100,147,0)
8927.1;+45,;.01~ARCH CONSENT FORM URL
"DATA",811.8,7,100,148,0)
8927.1;+45,;.02~Hyperlink
"DATA",811.8,7,100,149,0)
8927.1;+45,;.03~NO
"DATA",811.8,7,100,150,0)
8927.1;+45,;.04~0
"DATA",811.8,7,100,151,0)
8927.1;+45,;.05~Consent Form
"DATA",811.8,7,100,152,0)
8927.1;+45,;.07~0
"DATA",811.8,7,100,153,0)
8927.1;+45,;.08~NO
"DATA",811.8,7,100,154,0)
8927.1;+45,;.09~NO
"DATA",811.8,7,100,155,0)
8927.1;+45,;.1~0
"DATA",811.8,7,100,156,0)
8927.1;+45,;.11~0
"DATA",811.8,7,100,157,0)
8927.1;+45,;.12~0
"DATA",811.8,7,100,158,0)
8927.1;+45,;.13~0
"DATA",811.8,7,100,159,0)
8927.1;+45,;.14~0
"DATA",811.8,7,100,160,0)
8927.1;+45,;.15~0
"DATA",811.8,7,100,161,0)
8927.1;+45,;2~WP-start~2
"DATA",811.8,7,100,162,0)
To be used to link consent form doc to Project 
"DATA",811.8,7,100,163,0)
ARCH reminder dialog.
"DATA",811.8,7,100,164,0)
8927.1;+45,;3~http://www.va.gov
"DATA",811.8,7,100,165,0)
]]>
"DATA",811.8,7,100,166,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,167,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,168,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,169,0)
<FILE_NAME>TIU TEMPLATE FIELD</FILE_NAME>
"DATA",811.8,7,100,170,0)
<FILE_NUMBER>8927.1</FILE_NUMBER>
"DATA",811.8,7,100,171,0)
<POINT_01>ARCH OVERVIEW TEXT</POINT_01>
"DATA",811.8,7,100,172,0)
<INTERNAL_ENTRY_NUMBER>46</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,173,0)
<CHECKSUM>593348017</CHECKSUM>
"DATA",811.8,7,100,174,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,175,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,176,0)
<![CDATA[
"DATA",811.8,7,100,177,0)
8927.1;+46,;.01~ARCH OVERVIEW TEXT
"DATA",811.8,7,100,178,0)
8927.1;+46,;.02~Text
"DATA",811.8,7,100,179,0)
8927.1;+46,;.03~NO
"DATA",811.8,7,100,180,0)
8927.1;+46,;.04~74
"DATA",811.8,7,100,181,0)
8927.1;+46,;.07~0
"DATA",811.8,7,100,182,0)
8927.1;+46,;.08~NO
"DATA",811.8,7,100,183,0)
8927.1;+46,;.09~NO
"DATA",811.8,7,100,184,0)
8927.1;+46,;.1~11
"DATA",811.8,7,100,185,0)
8927.1;+46,;.11~0
"DATA",811.8,7,100,186,0)
8927.1;+46,;.12~2
"DATA",811.8,7,100,187,0)
8927.1;+46,;.13~0
"DATA",811.8,7,100,188,0)
8927.1;+46,;.14~0
"DATA",811.8,7,100,189,0)
8927.1;+46,;.15~0
"DATA",811.8,7,100,190,0)
8927.1;+46,;10~WP-start~9
"DATA",811.8,7,100,191,0)
PLEASE NOTE:
"DATA",811.8,7,100,192,0)
This Veteran is eligible for Project ARCH (Access Received Closer to
"DATA",811.8,7,100,193,0)
Home). Project ARCH is a contract care pilot program operating in this
"DATA",811.8,7,100,194,0)
VISN that is designed to improve access to specific health care services
"DATA",811.8,7,100,195,0)
through contracted providers that are closer to the Veteran's residence.
"DATA",811.8,7,100,196,0)
Project ARCH is voluntary and Veterans must consent to participate.
"DATA",811.8,7,100,197,0)
Please inform this Veteran that s/he may be eligible for Project ARCH.
"DATA",811.8,7,100,198,0)
Consult requests will only be processed for eligible Veterans requiring
"DATA",811.8,7,100,199,0)
one of the services covered under the pilot:
"DATA",811.8,7,100,200,0)
]]>
"DATA",811.8,7,100,201,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,202,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,203,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,204,0)
<FILE_NAME>TIU TEMPLATE FIELD</FILE_NAME>
"DATA",811.8,7,100,205,0)
<FILE_NUMBER>8927.1</FILE_NUMBER>
"DATA",811.8,7,100,206,0)
<POINT_01>ARCH FAQ URL</POINT_01>
"DATA",811.8,7,100,207,0)
<INTERNAL_ENTRY_NUMBER>47</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,208,0)
<CHECKSUM>2468051910</CHECKSUM>
"DATA",811.8,7,100,209,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,210,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,211,0)
<![CDATA[
"DATA",811.8,7,100,212,0)
8927.1;+47,;.01~ARCH FAQ URL
"DATA",811.8,7,100,213,0)
8927.1;+47,;.02~Hyperlink
"DATA",811.8,7,100,214,0)
8927.1;+47,;.03~NO
"DATA",811.8,7,100,215,0)
8927.1;+47,;.04~0
"DATA",811.8,7,100,216,0)
8927.1;+47,;.05~Frequently Asked Questions
"DATA",811.8,7,100,217,0)
8927.1;+47,;.07~0
"DATA",811.8,7,100,218,0)
8927.1;+47,;.08~NO
"DATA",811.8,7,100,219,0)
8927.1;+47,;.09~NO
"DATA",811.8,7,100,220,0)
8927.1;+47,;.1~0
"DATA",811.8,7,100,221,0)
8927.1;+47,;.11~0
"DATA",811.8,7,100,222,0)
8927.1;+47,;.12~0
"DATA",811.8,7,100,223,0)
8927.1;+47,;.13~0
"DATA",811.8,7,100,224,0)
8927.1;+47,;.14~0
"DATA",811.8,7,100,225,0)
8927.1;+47,;.15~0
"DATA",811.8,7,100,226,0)
8927.1;+47,;2~WP-start~2
"DATA",811.8,7,100,227,0)
To be used to link FAQ doc to Project ARCH 
"DATA",811.8,7,100,228,0)
reminder dialog.
"DATA",811.8,7,100,229,0)
8927.1;+47,;3~http://www.va.gov
"DATA",811.8,7,100,230,0)
]]>
"DATA",811.8,7,100,231,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,232,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,233,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,234,0)
<FILE_NAME>TIU TEMPLATE FIELD</FILE_NAME>
"DATA",811.8,7,100,235,0)
<FILE_NUMBER>8927.1</FILE_NUMBER>
"DATA",811.8,7,100,236,0)
<POINT_01>ARCH CARE COORDINATOR</POINT_01>
"DATA",811.8,7,100,237,0)
<INTERNAL_ENTRY_NUMBER>48</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,238,0)
<CHECKSUM>3626546994</CHECKSUM>
"DATA",811.8,7,100,239,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,240,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,241,0)
<![CDATA[
"DATA",811.8,7,100,242,0)
8927.1;+48,;.01~ARCH CARE COORDINATOR
"DATA",811.8,7,100,243,0)
8927.1;+48,;.02~Text
"DATA",811.8,7,100,244,0)
8927.1;+48,;.03~NO
"DATA",811.8,7,100,245,0)
8927.1;+48,;.04~74
"DATA",811.8,7,100,246,0)
8927.1;+48,;.07~0
"DATA",811.8,7,100,247,0)
8927.1;+48,;.08~NO
"DATA",811.8,7,100,248,0)
8927.1;+48,;.09~NO
"DATA",811.8,7,100,249,0)
8927.1;+48,;.1~10
"DATA",811.8,7,100,250,0)
8927.1;+48,;.11~0
"DATA",811.8,7,100,251,0)
8927.1;+48,;.12~0
"DATA",811.8,7,100,252,0)
8927.1;+48,;.13~0
"DATA",811.8,7,100,253,0)
8927.1;+48,;.14~0
"DATA",811.8,7,100,254,0)
8927.1;+48,;.15~0
"DATA",811.8,7,100,255,0)
8927.1;+48,;10~WP-start~4
"DATA",811.8,7,100,256,0)
Project ARCH Care Coordinator
"DATA",811.8,7,100,257,0)
First MI Last 
"DATA",811.8,7,100,258,0)
First.Last@va.gov
"DATA",811.8,7,100,259,0)
Office: 123-555-1212 x1234 Pager: 1234
"DATA",811.8,7,100,260,0)
]]>
"DATA",811.8,7,100,261,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,262,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,263,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,264,0)
<FILE_NAME>HEALTH FACTORS</FILE_NAME>
"DATA",811.8,7,100,265,0)
<FILE_NUMBER>9999999.64</FILE_NUMBER>
"DATA",811.8,7,100,266,0)
<POINT_01>ARCH</POINT_01>
"DATA",811.8,7,100,267,0)
<INTERNAL_ENTRY_NUMBER>855</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,268,0)
<CHECKSUM>942876253</CHECKSUM>
"DATA",811.8,7,100,269,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,270,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,271,0)
<![CDATA[
"DATA",811.8,7,100,272,0)
9999999.64;+855,;.01~ARCH
"DATA",811.8,7,100,273,0)
9999999.64;+855,;.1~CATEGORY
"DATA",811.8,7,100,274,0)
]]>
"DATA",811.8,7,100,275,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,276,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,277,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,278,0)
<FILE_NAME>HEALTH FACTORS</FILE_NAME>
"DATA",811.8,7,100,279,0)
<FILE_NUMBER>9999999.64</FILE_NUMBER>
"DATA",811.8,7,100,280,0)
<POINT_01>ARCH-SERVICE NEEDED THIS VISIT REFUSES</POINT_01>
"DATA",811.8,7,100,281,0)
<INTERNAL_ENTRY_NUMBER>660061</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,282,0)
<CHECKSUM>4125055266</CHECKSUM>
"DATA",811.8,7,100,283,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,284,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,285,0)
<![CDATA[
"DATA",811.8,7,100,286,0)
9999999.64;+660061,;.01~ARCH-SERVICE NEEDED THIS VISIT REFUSES
"DATA",811.8,7,100,287,0)
9999999.64;+660061,;.03~ARCH
"DATA",811.8,7,100,288,0)
9999999.64;+660061,;.04~REFUSES
"DATA",811.8,7,100,289,0)
9999999.64;+660061,;.08~YES
"DATA",811.8,7,100,290,0)
9999999.64;+660061,;.1~FACTOR
"DATA",811.8,7,100,291,0)
]]>
"DATA",811.8,7,100,292,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,293,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,294,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,295,0)
<FILE_NAME>HEALTH FACTORS</FILE_NAME>
"DATA",811.8,7,100,296,0)
<FILE_NUMBER>9999999.64</FILE_NUMBER>
"DATA",811.8,7,100,297,0)
<POINT_01>ARCH-NO SERVICE NEEDED THIS VISIT</POINT_01>
"DATA",811.8,7,100,298,0)
<INTERNAL_ENTRY_NUMBER>856</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,299,0)
<CHECKSUM>3338573356</CHECKSUM>
"DATA",811.8,7,100,300,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,301,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,302,0)
<![CDATA[
"DATA",811.8,7,100,303,0)
9999999.64;+856,;.01~ARCH-NO SERVICE NEEDED THIS VISIT
"DATA",811.8,7,100,304,0)
9999999.64;+856,;.03~ARCH
"DATA",811.8,7,100,305,0)
9999999.64;+856,;.04~NOT NEEDED
"DATA",811.8,7,100,306,0)
9999999.64;+856,;.08~YES
"DATA",811.8,7,100,307,0)
9999999.64;+856,;.1~FACTOR
"DATA",811.8,7,100,308,0)
]]>
"DATA",811.8,7,100,309,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,310,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,311,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,312,0)
<FILE_NAME>HEALTH FACTORS</FILE_NAME>
"DATA",811.8,7,100,313,0)
<FILE_NUMBER>9999999.64</FILE_NUMBER>
"DATA",811.8,7,100,314,0)
<POINT_01>ARCH-SERVICE NEEDED THIS VISIT DECLINES</POINT_01>
"DATA",811.8,7,100,315,0)
<INTERNAL_ENTRY_NUMBER>857</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,316,0)
<CHECKSUM>3701167017</CHECKSUM>
"DATA",811.8,7,100,317,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,318,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,319,0)
<![CDATA[
"DATA",811.8,7,100,320,0)
9999999.64;+857,;.01~ARCH-SERVICE NEEDED THIS VISIT DECLINES
"DATA",811.8,7,100,321,0)
9999999.64;+857,;.03~ARCH
"DATA",811.8,7,100,322,0)
9999999.64;+857,;.04~DECLINES
"DATA",811.8,7,100,323,0)
9999999.64;+857,;.08~YES
"DATA",811.8,7,100,324,0)
9999999.64;+857,;.1~FACTOR
"DATA",811.8,7,100,325,0)
]]>
"DATA",811.8,7,100,326,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,327,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,328,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,329,0)
<FILE_NAME>HEALTH FACTORS</FILE_NAME>
"DATA",811.8,7,100,330,0)
<FILE_NUMBER>9999999.64</FILE_NUMBER>
"DATA",811.8,7,100,331,0)
<POINT_01>ARCH-SERVICE NEEDED THIS VISIT CONSENTS</POINT_01>
"DATA",811.8,7,100,332,0)
<INTERNAL_ENTRY_NUMBER>858</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,333,0)
<CHECKSUM>2608272510</CHECKSUM>
"DATA",811.8,7,100,334,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,335,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,336,0)
<![CDATA[
"DATA",811.8,7,100,337,0)
9999999.64;+858,;.01~ARCH-SERVICE NEEDED THIS VISIT CONSENTS
"DATA",811.8,7,100,338,0)
9999999.64;+858,;.03~ARCH
"DATA",811.8,7,100,339,0)
9999999.64;+858,;.04~CONSENTS
"DATA",811.8,7,100,340,0)
9999999.64;+858,;.08~YES
"DATA",811.8,7,100,341,0)
9999999.64;+858,;.1~FACTOR
"DATA",811.8,7,100,342,0)
]]>
"DATA",811.8,7,100,343,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,344,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,345,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,346,0)
<FILE_NAME>REMINDER SPONSOR</FILE_NAME>
"DATA",811.8,7,100,347,0)
<FILE_NUMBER>811.6</FILE_NUMBER>
"DATA",811.8,7,100,348,0)
<POINT_01>Office of Quality &amp; Performance</POINT_01>
"DATA",811.8,7,100,349,0)
<INTERNAL_ENTRY_NUMBER>15</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,350,0)
<CHECKSUM>1008763345</CHECKSUM>
"DATA",811.8,7,100,351,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,352,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,353,0)
<![CDATA[
"DATA",811.8,7,100,354,0)
811.6;+15,;.01~Office of Quality & Performance
"DATA",811.8,7,100,355,0)
811.6;+15,;100~NATIONAL
"DATA",811.8,7,100,356,0)
811.63;+16,+15,;.01~12/14/2011@16:13:06
"DATA",811.8,7,100,357,0)
811.63;+16,+15,;2~WP-start~1
"DATA",811.8,7,100,358,0)
Exchange Stub
"DATA",811.8,7,100,359,0)
]]>
"DATA",811.8,7,100,360,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,361,0)
<IEN_ROOT>
"DATA",811.8,7,100,362,0)
<![CDATA[
"DATA",811.8,7,100,363,0)
16^1
"DATA",811.8,7,100,364,0)
]]>
"DATA",811.8,7,100,365,0)
</IEN_ROOT>
"DATA",811.8,7,100,366,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,367,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,368,0)
<FILE_NAME>REMINDER SPONSOR</FILE_NAME>
"DATA",811.8,7,100,369,0)
<FILE_NUMBER>811.6</FILE_NUMBER>
"DATA",811.8,7,100,370,0)
<POINT_01>VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning</POINT_01>
"DATA",811.8,7,100,371,0)
<INTERNAL_ENTRY_NUMBER>8</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,372,0)
<CHECKSUM>1666611775</CHECKSUM>
"DATA",811.8,7,100,373,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,374,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,375,0)
<![CDATA[
"DATA",811.8,7,100,376,0)
811.6;+8,;.01~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,377,0)
811.6;+8,;100~NATIONAL
"DATA",811.8,7,100,378,0)
811.61;+9,+8,;.01~VHA Office of Policy Analysis
"DATA",811.8,7,100,379,0)
811.61;+9,+8,;1~WP-start~4
"DATA",811.8,7,100,380,0)
202-461-7097 or 202-461-6831
"DATA",811.8,7,100,381,0)

"DATA",811.8,7,100,382,0)

"DATA",811.8,7,100,383,0)

"DATA",811.8,7,100,384,0)
811.63;+10,+8,;.01~12/14/2011@16:13:06
"DATA",811.8,7,100,385,0)
811.63;+10,+8,;2~WP-start~1
"DATA",811.8,7,100,386,0)
Exchange Stub
"DATA",811.8,7,100,387,0)
]]>
"DATA",811.8,7,100,388,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,389,0)
<IEN_ROOT>
"DATA",811.8,7,100,390,0)
<![CDATA[
"DATA",811.8,7,100,391,0)
9^1
"DATA",811.8,7,100,392,0)
10^1
"DATA",811.8,7,100,393,0)
]]>
"DATA",811.8,7,100,394,0)
</IEN_ROOT>
"DATA",811.8,7,100,395,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,396,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,397,0)
<FILE_NAME>REMINDER SPONSOR</FILE_NAME>
"DATA",811.8,7,100,398,0)
<FILE_NUMBER>811.6</FILE_NUMBER>
"DATA",811.8,7,100,399,0)
<POINT_01>VHA Office of the Assistant Deputy Under Secretary for Health for Polig</POINT_01>
"DATA",811.8,7,100,400,0)
<INTERNAL_ENTRY_NUMBER>22</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,401,0)
<CHECKSUM>3360888530</CHECKSUM>
"DATA",811.8,7,100,402,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,403,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,404,0)
<![CDATA[
"DATA",811.8,7,100,405,0)
811.6;+22,;.01~VHA Office of the Assistant Deputy Under Secretary for Health for Polig
"DATA",811.8,7,100,406,0)
811.6;+22,;100~NATIONAL
"DATA",811.8,7,100,407,0)
811.63;+23,+22,;.01~12/14/2011@16:13:06
"DATA",811.8,7,100,408,0)
811.63;+23,+22,;2~WP-start~1
"DATA",811.8,7,100,409,0)
Exchange Stub
"DATA",811.8,7,100,410,0)
]]>
"DATA",811.8,7,100,411,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,412,0)
<IEN_ROOT>
"DATA",811.8,7,100,413,0)
<![CDATA[
"DATA",811.8,7,100,414,0)
23^1
"DATA",811.8,7,100,415,0)
]]>
"DATA",811.8,7,100,416,0)
</IEN_ROOT>
"DATA",811.8,7,100,417,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,418,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,419,0)
<FILE_NAME>REMINDER COMPUTED FINDINGS</FILE_NAME>
"DATA",811.8,7,100,420,0)
<FILE_NUMBER>811.4</FILE_NUMBER>
"DATA",811.8,7,100,421,0)
<POINT_01>VA-PROJECT ARCH ELIGIBILITY</POINT_01>
"DATA",811.8,7,100,422,0)
<INTERNAL_ENTRY_NUMBER>79</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,423,0)
<CHECKSUM>1850631517</CHECKSUM>
"DATA",811.8,7,100,424,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,425,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,426,0)
<![CDATA[
"DATA",811.8,7,100,427,0)
811.4;+79,;.01~VA-PROJECT ARCH ELIGIBILITY
"DATA",811.8,7,100,428,0)
811.4;+79,;.02~PXRMARCH
"DATA",811.8,7,100,429,0)
811.4;+79,;.03~ELIG
"DATA",811.8,7,100,430,0)
811.4;+79,;.04~VA-ARCH Eligibility
"DATA",811.8,7,100,431,0)
811.4;+79,;1~WP-start~5
"DATA",811.8,7,100,432,0)
This multi-occurrence computing finding returns the patient's Project ARCH
"DATA",811.8,7,100,433,0)
eligibility status for instances in the ARCH dataset that are in the
"DATA",811.8,7,100,434,0)
date range defined by Beginning Date/Time and Ending Date/Time.
"DATA",811.8,7,100,435,0)

"DATA",811.8,7,100,436,0)

"DATA",811.8,7,100,437,0)
811.4;+79,;5~MULTIPLE
"DATA",811.8,7,100,438,0)
811.4;+79,;100~NATIONAL
"DATA",811.8,7,100,439,0)
811.42;+80,+79,;.01~12/14/2011@16:13:06
"DATA",811.8,7,100,440,0)
811.42;+80,+79,;2~WP-start~1
"DATA",811.8,7,100,441,0)
Exchange Stub
"DATA",811.8,7,100,442,0)
]]>
"DATA",811.8,7,100,443,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,444,0)
<IEN_ROOT>
"DATA",811.8,7,100,445,0)
<![CDATA[
"DATA",811.8,7,100,446,0)
80^1
"DATA",811.8,7,100,447,0)
]]>
"DATA",811.8,7,100,448,0)
</IEN_ROOT>
"DATA",811.8,7,100,449,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,450,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,451,0)
<FILE_NAME>REMINDER COMPUTED FINDINGS</FILE_NAME>
"DATA",811.8,7,100,452,0)
<FILE_NUMBER>811.4</FILE_NUMBER>
"DATA",811.8,7,100,453,0)
<POINT_01>VA-ARCH REMINDER CUSTOM DUE DATE</POINT_01>
"DATA",811.8,7,100,454,0)
<INTERNAL_ENTRY_NUMBER>13</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,455,0)
<CHECKSUM>2255537001</CHECKSUM>
"DATA",811.8,7,100,456,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,457,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,458,0)
<![CDATA[
"DATA",811.8,7,100,459,0)
811.4;+13,;.01~VA-ARCH REMINDER CUSTOM DUE DATE
"DATA",811.8,7,100,460,0)
811.4;+13,;.02~PXRMARCH
"DATA",811.8,7,100,461,0)
811.4;+13,;.03~ISDUE
"DATA",811.8,7,100,462,0)
811.4;+13,;.04~ARCH Reminder Custom Due Date
"DATA",811.8,7,100,463,0)
811.4;+13,;1~WP-start~4
"DATA",811.8,7,100,464,0)
This multi-occurrence computed finding returns the date the Project ARCH 
"DATA",811.8,7,100,465,0)
Reminder will be due based on the delay value for the Project ARCH
"DATA",811.8,7,100,466,0)
Clinical Reminder and the last time the patient declined or refused
"DATA",811.8,7,100,467,0)
services.
"DATA",811.8,7,100,468,0)
811.4;+13,;5~MULTIPLE
"DATA",811.8,7,100,469,0)
811.4;+13,;100~NATIONAL
"DATA",811.8,7,100,470,0)
811.4;+13,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,471,0)
811.42;+14,+13,;.01~12/14/2011@16:13:06
"DATA",811.8,7,100,472,0)
811.42;+14,+13,;2~WP-start~1
"DATA",811.8,7,100,473,0)
Exchange Stub
"DATA",811.8,7,100,474,0)
]]>
"DATA",811.8,7,100,475,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,476,0)
<IEN_ROOT>
"DATA",811.8,7,100,477,0)
<![CDATA[
"DATA",811.8,7,100,478,0)
14^1
"DATA",811.8,7,100,479,0)
]]>
"DATA",811.8,7,100,480,0)
</IEN_ROOT>
"DATA",811.8,7,100,481,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,482,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,483,0)
<FILE_NAME>REMINDER DEFINITION</FILE_NAME>
"DATA",811.8,7,100,484,0)
<FILE_NUMBER>811.9</FILE_NUMBER>
"DATA",811.8,7,100,485,0)
<POINT_01>VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY</POINT_01>
"DATA",811.8,7,100,486,0)
<INTERNAL_ENTRY_NUMBER>56</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,487,0)
<CHECKSUM>3066870734</CHECKSUM>
"DATA",811.8,7,100,488,0)
<SELECTED>YES</SELECTED>
"DATA",811.8,7,100,489,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,490,0)
<![CDATA[
"DATA",811.8,7,100,491,0)
811.9;+56,;.01~VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY
"DATA",811.8,7,100,492,0)
811.9;+56,;1.2~Project ARCH Pilot Eligible
"DATA",811.8,7,100,493,0)
811.9;+56,;2~WP-start~5
"DATA",811.8,7,100,494,0)
This reminder definition is used to identify patients who are eligible 
"DATA",811.8,7,100,495,0)
for the Access Received Closer to Home (ARCH) pilot program. Project ARCH
"DATA",811.8,7,100,496,0)
is a contract care pilot program designed to improve access to needed
"DATA",811.8,7,100,497,0)
health care through contracted providers that are closer to the Veteran's
"DATA",811.8,7,100,498,0)
residence.
"DATA",811.8,7,100,499,0)
811.9;+56,;30~FI(1)
"DATA",811.8,7,100,500,0)
811.9;+56,;31~FI(1)
"DATA",811.8,7,100,501,0)
811.9;+56,;32~1
"DATA",811.8,7,100,502,0)
811.9;+56,;33~1
"DATA",811.8,7,100,503,0)
811.9;+56,;34~FI(4)!FI(6)
"DATA",811.8,7,100,504,0)
811.9;+56,;35~FI(4)!FI(6)
"DATA",811.8,7,100,505,0)
811.9;+56,;36~2
"DATA",811.8,7,100,506,0)
811.9;+56,;37~4;6
"DATA",811.8,7,100,507,0)
811.9;+56,;40~0
"DATA",811.8,7,100,508,0)
811.9;+56,;42~3
"DATA",811.8,7,100,509,0)
811.9;+56,;43~2;3;5
"DATA",811.8,7,100,510,0)
811.9;+56,;45~RANK_DATE(2+0D)
"DATA",811.8,7,100,511,0)
811.9;+56,;46~RANK_DATE
"DATA",811.8,7,100,512,0)
811.9;+56,;47~1
"DATA",811.8,7,100,513,0)
811.9;+56,;51~VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY
"DATA",811.8,7,100,514,0)
811.9;+56,;61~WP-start~3
"DATA",811.8,7,100,515,0)
This reminder only applies to patients in VISNs 1, 6, 15, 18, and 19 who 
"DATA",811.8,7,100,516,0)
are determined to be eligible for the Project ARCH contract care pilot 
"DATA",811.8,7,100,517,0)
program.  This reminder is not useful outside of the listed VISNs.
"DATA",811.8,7,100,518,0)
811.9;+56,;62~0
"DATA",811.8,7,100,519,0)
811.9;+56,;63~3
"DATA",811.8,7,100,520,0)
811.9;+56,;67~0
"DATA",811.8,7,100,521,0)
811.9;+56,;68~0
"DATA",811.8,7,100,522,0)
811.9;+56,;72~0
"DATA",811.8,7,100,523,0)
811.9;+56,;73~0
"DATA",811.8,7,100,524,0)
811.9;+56,;77~0
"DATA",811.8,7,100,525,0)
811.9;+56,;78~0
"DATA",811.8,7,100,526,0)
811.9;+56,;100~NATIONAL
"DATA",811.8,7,100,527,0)
811.9;+56,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,528,0)
811.9;+56,;103~C*
"DATA",811.8,7,100,529,0)
811.9001;+57,+56,;.01~12/14/2011@16:13:07
"DATA",811.8,7,100,530,0)
811.9001;+57,+56,;2~WP-start~1
"DATA",811.8,7,100,531,0)
Exchange Stub
"DATA",811.8,7,100,532,0)
811.902;+58,+56,;.01~CF.VA-PROJECT ARCH ELIGIBILITY
"DATA",811.8,7,100,533,0)
811.902;+58,+56,;4~WP-start~2
"DATA",811.8,7,100,534,0)
This patient is identified as eligible to participate in the Project ARCH 
"DATA",811.8,7,100,535,0)
contract care pilot program.
"DATA",811.8,7,100,536,0)
811.902;+58,+56,;24~2
"DATA",811.8,7,100,537,0)
811.902;+58,+56,;25~0
"DATA",811.8,7,100,538,0)
811.902;+59,+56,;.01~CF.VA-ARCH REMINDER CUSTOM DUE DATE
"DATA",811.8,7,100,539,0)
811.902;+59,+56,;6~1
"DATA",811.8,7,100,540,0)
811.902;+59,+56,;7~AND
"DATA",811.8,7,100,541,0)
811.902;+59,+56,;24~0
"DATA",811.8,7,100,542,0)
811.902;+59,+56,;25~0
"DATA",811.8,7,100,543,0)
811.902;+60,+56,;.01~HF.ARCH-SERVICE NEEDED THIS VISIT CONSENTS
"DATA",811.8,7,100,544,0)
811.902;+60,+56,;11~0
"DATA",811.8,7,100,545,0)
811.902;+60,+56,;24~0
"DATA",811.8,7,100,546,0)
811.902;+60,+56,;25~0
"DATA",811.8,7,100,547,0)
811.902;+61,+56,;.01~HF.ARCH-SERVICE NEEDED THIS VISIT DECLINES
"DATA",811.8,7,100,548,0)
811.902;+61,+56,;7~AND
"DATA",811.8,7,100,549,0)
811.902;+61,+56,;11~0
"DATA",811.8,7,100,550,0)
811.902;+61,+56,;24~0
"DATA",811.8,7,100,551,0)
811.902;+61,+56,;25~0
"DATA",811.8,7,100,552,0)
811.902;+62,+56,;.01~HF.ARCH-NO SERVICE NEEDED THIS VISIT
"DATA",811.8,7,100,553,0)
811.902;+62,+56,;7~OR
"DATA",811.8,7,100,554,0)
811.902;+62,+56,;11~0
"DATA",811.8,7,100,555,0)
811.902;+62,+56,;24~0
"DATA",811.8,7,100,556,0)
811.902;+62,+56,;25~0
"DATA",811.8,7,100,557,0)
811.902;+63,+56,;.01~HF.ARCH-SERVICE NEEDED THIS VISIT REFUSES
"DATA",811.8,7,100,558,0)
811.902;+63,+56,;7~AND
"DATA",811.8,7,100,559,0)
811.902;+63,+56,;24~0
"DATA",811.8,7,100,560,0)
811.902;+63,+56,;25~0
"DATA",811.8,7,100,561,0)
811.948;+64,+56,;.01~2
"DATA",811.8,7,100,562,0)
811.948;+64,+56,;.02~0D
"DATA",811.8,7,100,563,0)
811.97;+65,+56,;.01~1D
"DATA",811.8,7,100,564,0)
811.97;+65,+56,;5~0
"DATA",811.8,7,100,565,0)
811.97;+65,+56,;6~0
"DATA",811.8,7,100,566,0)
]]>
"DATA",811.8,7,100,567,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,568,0)
<IEN_ROOT>
"DATA",811.8,7,100,569,0)
<![CDATA[
"DATA",811.8,7,100,570,0)
57^1
"DATA",811.8,7,100,571,0)
58^1
"DATA",811.8,7,100,572,0)
59^2
"DATA",811.8,7,100,573,0)
60^3
"DATA",811.8,7,100,574,0)
61^4
"DATA",811.8,7,100,575,0)
62^5
"DATA",811.8,7,100,576,0)
63^6
"DATA",811.8,7,100,577,0)
64^1
"DATA",811.8,7,100,578,0)
65^1
"DATA",811.8,7,100,579,0)
]]>
"DATA",811.8,7,100,580,0)
</IEN_ROOT>
"DATA",811.8,7,100,581,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,582,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,583,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,584,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,585,0)
<POINT_01>VA-TEXT BLANK LINE</POINT_01>
"DATA",811.8,7,100,586,0)
<INTERNAL_ENTRY_NUMBER>598000149</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,587,0)
<CHECKSUM>3556189925</CHECKSUM>
"DATA",811.8,7,100,588,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,589,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,590,0)
<![CDATA[
"DATA",811.8,7,100,591,0)
801.41;+598000149,;.01~VA-TEXT BLANK LINE
"DATA",811.8,7,100,592,0)
801.41;+598000149,;4~dialog element
"DATA",811.8,7,100,593,0)
801.41;+598000149,;23~YES
"DATA",811.8,7,100,594,0)
801.41;+598000149,;25~WP-start~1
"DATA",811.8,7,100,595,0)
________________________________________________
"DATA",811.8,7,100,596,0)
801.41;+598000149,;51~SUPPRESS
"DATA",811.8,7,100,597,0)
801.41;+598000149,;100~NATIONAL
"DATA",811.8,7,100,598,0)
801.41;+598000149,;101~Office of Quality & Performance
"DATA",811.8,7,100,599,0)
801.44;+598000150,+598000149,;.01~12/14/2011@16:13:07
"DATA",811.8,7,100,600,0)
801.44;+598000150,+598000149,;2~WP-start~1
"DATA",811.8,7,100,601,0)
Exchange Stub
"DATA",811.8,7,100,602,0)
]]>
"DATA",811.8,7,100,603,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,604,0)
<IEN_ROOT>
"DATA",811.8,7,100,605,0)
<![CDATA[
"DATA",811.8,7,100,606,0)
598000150^1
"DATA",811.8,7,100,607,0)
]]>
"DATA",811.8,7,100,608,0)
</IEN_ROOT>
"DATA",811.8,7,100,609,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,610,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,611,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,612,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,613,0)
<POINT_01>VA-ARCH SERVICE LIST</POINT_01>
"DATA",811.8,7,100,614,0)
<INTERNAL_ENTRY_NUMBER>1598</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,615,0)
<CHECKSUM>496383901</CHECKSUM>
"DATA",811.8,7,100,616,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,617,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,618,0)
<![CDATA[
"DATA",811.8,7,100,619,0)
801.41;+1598,;.01~VA-ARCH SERVICE LIST
"DATA",811.8,7,100,620,0)
801.41;+1598,;4~dialog element
"DATA",811.8,7,100,621,0)
801.41;+1598,;23~YES
"DATA",811.8,7,100,622,0)
801.41;+1598,;25~WP-start~1
"DATA",811.8,7,100,623,0)
{FLD:ARCH SERVICE LIST}
"DATA",811.8,7,100,624,0)
801.41;+1598,;51~SUPPRESS
"DATA",811.8,7,100,625,0)
801.41;+1598,;100~NATIONAL
"DATA",811.8,7,100,626,0)
801.41;+1598,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,627,0)
801.44;+1599,+1598,;.01~12/14/2011@16:13:07
"DATA",811.8,7,100,628,0)
801.44;+1599,+1598,;2~WP-start~1
"DATA",811.8,7,100,629,0)
Exchange Stub
"DATA",811.8,7,100,630,0)
]]>
"DATA",811.8,7,100,631,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,632,0)
<IEN_ROOT>
"DATA",811.8,7,100,633,0)
<![CDATA[
"DATA",811.8,7,100,634,0)
1599^1
"DATA",811.8,7,100,635,0)
]]>
"DATA",811.8,7,100,636,0)
</IEN_ROOT>
"DATA",811.8,7,100,637,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,638,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,639,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,640,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,641,0)
<POINT_01>VA-ARCH SERVICES GROUP</POINT_01>
"DATA",811.8,7,100,642,0)
<INTERNAL_ENTRY_NUMBER>1599</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,643,0)
<CHECKSUM>3688699892</CHECKSUM>
"DATA",811.8,7,100,644,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,645,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,646,0)
<![CDATA[
"DATA",811.8,7,100,647,0)
801.41;+1599,;.01~VA-ARCH SERVICES GROUP
"DATA",811.8,7,100,648,0)
801.41;+1599,;4~dialog group
"DATA",811.8,7,100,649,0)
801.41;+1599,;6~YES
"DATA",811.8,7,100,650,0)
801.41;+1599,;9~NO SELECTION REQUIRED
"DATA",811.8,7,100,651,0)
801.41;+1599,;23~YES
"DATA",811.8,7,100,652,0)
801.41;+1599,;50~SHOW
"DATA",811.8,7,100,653,0)
801.41;+1599,;51~SUPPRESS
"DATA",811.8,7,100,654,0)
801.41;+1599,;100~NATIONAL
"DATA",811.8,7,100,655,0)
801.41;+1599,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,656,0)
801.412;+1600,+1599,;.01~5
"DATA",811.8,7,100,657,0)
801.412;+1600,+1599,;2~VA-ARCH SERVICE LIST
"DATA",811.8,7,100,658,0)
801.44;+1601,+1599,;.01~12/14/2011@16:13:07
"DATA",811.8,7,100,659,0)
801.44;+1601,+1599,;2~WP-start~1
"DATA",811.8,7,100,660,0)
Exchange Stub
"DATA",811.8,7,100,661,0)
]]>
"DATA",811.8,7,100,662,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,663,0)
<IEN_ROOT>
"DATA",811.8,7,100,664,0)
<![CDATA[
"DATA",811.8,7,100,665,0)
1600^1
"DATA",811.8,7,100,666,0)
1601^1
"DATA",811.8,7,100,667,0)
]]>
"DATA",811.8,7,100,668,0)
</IEN_ROOT>
"DATA",811.8,7,100,669,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,670,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,671,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,672,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,673,0)
<POINT_01>VA-ARCH SVC NEEDED REFUSES</POINT_01>
"DATA",811.8,7,100,674,0)
<INTERNAL_ENTRY_NUMBER>2619</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,675,0)
<CHECKSUM>998301909</CHECKSUM>
"DATA",811.8,7,100,676,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,677,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,678,0)
<![CDATA[
"DATA",811.8,7,100,679,0)
801.41;+2619,;.01~VA-ARCH SVC NEEDED REFUSES
"DATA",811.8,7,100,680,0)
801.41;+2619,;4~dialog group
"DATA",811.8,7,100,681,0)
801.41;+2619,;6~YES
"DATA",811.8,7,100,682,0)
801.41;+2619,;8~NO
"DATA",811.8,7,100,683,0)
801.41;+2619,;9~NO SELECTION REQUIRED
"DATA",811.8,7,100,684,0)
801.41;+2619,;15~HF.ARCH-SERVICE NEEDED THIS VISIT REFUSES
"DATA",811.8,7,100,685,0)
801.41;+2619,;25~WP-start~2
"DATA",811.8,7,100,686,0)
ARCH: Needs service but refuses due to travel time to contracted non-VA
"DATA",811.8,7,100,687,0)
service exceeds travel time to VA facility
"DATA",811.8,7,100,688,0)
801.41;+2619,;50~SHOW
"DATA",811.8,7,100,689,0)
801.41;+2619,;100~NATIONAL
"DATA",811.8,7,100,690,0)
801.41;+2619,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Polig
"DATA",811.8,7,100,691,0)
801.44;+2620,+2619,;.01~12/14/2011@16:13:07
"DATA",811.8,7,100,692,0)
801.44;+2620,+2619,;2~WP-start~1
"DATA",811.8,7,100,693,0)
Exchange Stub
"DATA",811.8,7,100,694,0)
]]>
"DATA",811.8,7,100,695,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,696,0)
<IEN_ROOT>
"DATA",811.8,7,100,697,0)
<![CDATA[
"DATA",811.8,7,100,698,0)
2620^1
"DATA",811.8,7,100,699,0)
]]>
"DATA",811.8,7,100,700,0)
</IEN_ROOT>
"DATA",811.8,7,100,701,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,702,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,703,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,704,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,705,0)
<POINT_01>VA-ARCH NO SVC NEEDED</POINT_01>
"DATA",811.8,7,100,706,0)
<INTERNAL_ENTRY_NUMBER>1596</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,707,0)
<CHECKSUM>3641875182</CHECKSUM>
"DATA",811.8,7,100,708,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,709,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,710,0)
<![CDATA[
"DATA",811.8,7,100,711,0)
801.41;+1596,;.01~VA-ARCH NO SVC NEEDED
"DATA",811.8,7,100,712,0)
801.41;+1596,;4~dialog group
"DATA",811.8,7,100,713,0)
801.41;+1596,;6~YES
"DATA",811.8,7,100,714,0)
801.41;+1596,;15~HF.ARCH-NO SERVICE NEEDED THIS VISIT
"DATA",811.8,7,100,715,0)
801.41;+1596,;23~NO
"DATA",811.8,7,100,716,0)
801.41;+1596,;25~WP-start~1
"DATA",811.8,7,100,717,0)
ARCH: No pilot service needed this visit
"DATA",811.8,7,100,718,0)
801.41;+1596,;50~SHOW
"DATA",811.8,7,100,719,0)
801.41;+1596,;100~NATIONAL
"DATA",811.8,7,100,720,0)
801.41;+1596,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,721,0)
801.44;+1597,+1596,;.01~12/14/2011@16:13:07
"DATA",811.8,7,100,722,0)
801.44;+1597,+1596,;2~WP-start~1
"DATA",811.8,7,100,723,0)
Exchange Stub
"DATA",811.8,7,100,724,0)
]]>
"DATA",811.8,7,100,725,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,726,0)
<IEN_ROOT>
"DATA",811.8,7,100,727,0)
<![CDATA[
"DATA",811.8,7,100,728,0)
1597^1
"DATA",811.8,7,100,729,0)
]]>
"DATA",811.8,7,100,730,0)
</IEN_ROOT>
"DATA",811.8,7,100,731,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,732,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,733,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,734,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,735,0)
<POINT_01>ARCH COMMENT</POINT_01>
"DATA",811.8,7,100,736,0)
<INTERNAL_ENTRY_NUMBER>1593</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,737,0)
<CHECKSUM>1405626466</CHECKSUM>
"DATA",811.8,7,100,738,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,739,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,740,0)
<![CDATA[
"DATA",811.8,7,100,741,0)
801.41;+1593,;.01~ARCH COMMENT
"DATA",811.8,7,100,742,0)
801.41;+1593,;4~prompt
"DATA",811.8,7,100,743,0)
801.41;+1593,;46~COM
"DATA",811.8,7,100,744,0)
801.41;+1593,;100~LOCAL
"DATA",811.8,7,100,745,0)
801.41;+1593,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,746,0)
801.4145;+1594,+1593,;.01~1
"DATA",811.8,7,100,747,0)
801.4145;+1594,+1593,;2~VISN SERVICE 1
"DATA",811.8,7,100,748,0)
801.4145;+1595,+1593,;.01~2
"DATA",811.8,7,100,749,0)
801.4145;+1595,+1593,;2~VISN SERVICE 2
"DATA",811.8,7,100,750,0)
801.4145;+1596,+1593,;.01~3
"DATA",811.8,7,100,751,0)
801.4145;+1596,+1593,;2~VISN SERVICE 3
"DATA",811.8,7,100,752,0)
801.44;+1597,+1593,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,753,0)
801.44;+1597,+1593,;2~WP-start~1
"DATA",811.8,7,100,754,0)
Exchange Stub
"DATA",811.8,7,100,755,0)
]]>
"DATA",811.8,7,100,756,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,757,0)
<IEN_ROOT>
"DATA",811.8,7,100,758,0)
<![CDATA[
"DATA",811.8,7,100,759,0)
1594^1
"DATA",811.8,7,100,760,0)
1595^2
"DATA",811.8,7,100,761,0)
1596^3
"DATA",811.8,7,100,762,0)
1597^1
"DATA",811.8,7,100,763,0)
]]>
"DATA",811.8,7,100,764,0)
</IEN_ROOT>
"DATA",811.8,7,100,765,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,766,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,767,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,768,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,769,0)
<POINT_01>VA-ARCH SVC NEEDED DECLINES</POINT_01>
"DATA",811.8,7,100,770,0)
<INTERNAL_ENTRY_NUMBER>1595</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,771,0)
<CHECKSUM>69575718</CHECKSUM>
"DATA",811.8,7,100,772,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,773,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,774,0)
<![CDATA[
"DATA",811.8,7,100,775,0)
801.41;+1595,;.01~VA-ARCH SVC NEEDED DECLINES
"DATA",811.8,7,100,776,0)
801.41;+1595,;4~dialog element
"DATA",811.8,7,100,777,0)
801.41;+1595,;13~DONE AT ENCOUNTER
"DATA",811.8,7,100,778,0)
801.41;+1595,;15~HF.ARCH-SERVICE NEEDED THIS VISIT DECLINES
"DATA",811.8,7,100,779,0)
801.41;+1595,;25~WP-start~1
"DATA",811.8,7,100,780,0)
ARCH: Does NOT consent at this time
"DATA",811.8,7,100,781,0)
801.41;+1595,;100~NATIONAL
"DATA",811.8,7,100,782,0)
801.41;+1595,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,783,0)
801.412;+1596,+1595,;.01~5
"DATA",811.8,7,100,784,0)
801.412;+1596,+1595,;2~ARCH COMMENT
"DATA",811.8,7,100,785,0)
801.412;+1596,+1595,;6~Service(s) declined
"DATA",811.8,7,100,786,0)
801.412;+1596,+1595,;7~YES
"DATA",811.8,7,100,787,0)
801.412;+1596,+1595,;9~YES
"DATA",811.8,7,100,788,0)
801.44;+1597,+1595,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,789,0)
801.44;+1597,+1595,;2~WP-start~1
"DATA",811.8,7,100,790,0)
Exchange Stub
"DATA",811.8,7,100,791,0)
]]>
"DATA",811.8,7,100,792,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,793,0)
<IEN_ROOT>
"DATA",811.8,7,100,794,0)
<![CDATA[
"DATA",811.8,7,100,795,0)
1596^1
"DATA",811.8,7,100,796,0)
1597^1
"DATA",811.8,7,100,797,0)
]]>
"DATA",811.8,7,100,798,0)
</IEN_ROOT>
"DATA",811.8,7,100,799,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,800,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,801,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,802,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,803,0)
<POINT_01>CKBOX YES/NO</POINT_01>
"DATA",811.8,7,100,804,0)
<INTERNAL_ENTRY_NUMBER>1706</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,805,0)
<CHECKSUM>3087006645</CHECKSUM>
"DATA",811.8,7,100,806,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,807,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,808,0)
<![CDATA[
"DATA",811.8,7,100,809,0)
801.41;+1706,;.01~CKBOX YES/NO
"DATA",811.8,7,100,810,0)
801.41;+1706,;4~prompt
"DATA",811.8,7,100,811,0)
801.41;+1706,;46~COM
"DATA",811.8,7,100,812,0)
801.41;+1706,;100~LOCAL
"DATA",811.8,7,100,813,0)
801.4145;+1707,+1706,;.01~5
"DATA",811.8,7,100,814,0)
801.4145;+1707,+1706,;2~Yes
"DATA",811.8,7,100,815,0)
801.4145;+1708,+1706,;.01~10
"DATA",811.8,7,100,816,0)
801.4145;+1708,+1706,;2~No 
"DATA",811.8,7,100,817,0)
801.44;+1709,+1706,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,818,0)
801.44;+1709,+1706,;2~WP-start~1
"DATA",811.8,7,100,819,0)
Exchange Stub
"DATA",811.8,7,100,820,0)
]]>
"DATA",811.8,7,100,821,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,822,0)
<IEN_ROOT>
"DATA",811.8,7,100,823,0)
<![CDATA[
"DATA",811.8,7,100,824,0)
1707^5
"DATA",811.8,7,100,825,0)
1708^6
"DATA",811.8,7,100,826,0)
1709^1
"DATA",811.8,7,100,827,0)
]]>
"DATA",811.8,7,100,828,0)
</IEN_ROOT>
"DATA",811.8,7,100,829,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,830,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,831,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,832,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,833,0)
<POINT_01>ARCH PATIENT SIGNED CONSENT</POINT_01>
"DATA",811.8,7,100,834,0)
<INTERNAL_ENTRY_NUMBER>2618</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,835,0)
<CHECKSUM>1075850918</CHECKSUM>
"DATA",811.8,7,100,836,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,837,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,838,0)
<![CDATA[
"DATA",811.8,7,100,839,0)
801.41;+2618,;.01~ARCH PATIENT SIGNED CONSENT
"DATA",811.8,7,100,840,0)
801.41;+2618,;4~dialog element
"DATA",811.8,7,100,841,0)
801.41;+2618,;13~DONE AT ENCOUNTER
"DATA",811.8,7,100,842,0)
801.41;+2618,;25~WP-start~1
"DATA",811.8,7,100,843,0)
Patient signed consent form
"DATA",811.8,7,100,844,0)
801.41;+2618,;51~SUPPRESS
"DATA",811.8,7,100,845,0)
801.41;+2618,;100~NATIONAL
"DATA",811.8,7,100,846,0)
801.41;+2618,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Polig
"DATA",811.8,7,100,847,0)
801.412;+2619,+2618,;.01~5
"DATA",811.8,7,100,848,0)
801.412;+2619,+2618,;2~CKBOX YES/NO
"DATA",811.8,7,100,849,0)
801.412;+2619,+2618,;9~YES
"DATA",811.8,7,100,850,0)
801.44;+2620,+2618,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,851,0)
801.44;+2620,+2618,;2~WP-start~1
"DATA",811.8,7,100,852,0)
Exchange Stub
"DATA",811.8,7,100,853,0)
]]>
"DATA",811.8,7,100,854,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,855,0)
<IEN_ROOT>
"DATA",811.8,7,100,856,0)
<![CDATA[
"DATA",811.8,7,100,857,0)
2619^2
"DATA",811.8,7,100,858,0)
2620^1
"DATA",811.8,7,100,859,0)
]]>
"DATA",811.8,7,100,860,0)
</IEN_ROOT>
"DATA",811.8,7,100,861,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,862,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,863,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,864,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,865,0)
<POINT_01>ARCH LOCAL CONSULT</POINT_01>
"DATA",811.8,7,100,866,0)
<INTERNAL_ENTRY_NUMBER>1591</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,867,0)
<CHECKSUM>53839432</CHECKSUM>
"DATA",811.8,7,100,868,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,869,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,870,0)
<![CDATA[
"DATA",811.8,7,100,871,0)
801.41;+1591,;.01~ARCH LOCAL CONSULT
"DATA",811.8,7,100,872,0)
801.41;+1591,;4~dialog element
"DATA",811.8,7,100,873,0)
801.41;+1591,;13~ORDERED
"DATA",811.8,7,100,874,0)
801.41;+1591,;25~WP-start~1
"DATA",811.8,7,100,875,0)
Place order to ARCH program service
"DATA",811.8,7,100,876,0)
801.41;+1591,;100~LOCAL
"DATA",811.8,7,100,877,0)
801.41;+1591,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,878,0)
801.44;+1592,+1591,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,879,0)
801.44;+1592,+1591,;2~WP-start~1
"DATA",811.8,7,100,880,0)
Exchange Stub
"DATA",811.8,7,100,881,0)
]]>
"DATA",811.8,7,100,882,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,883,0)
<IEN_ROOT>
"DATA",811.8,7,100,884,0)
<![CDATA[
"DATA",811.8,7,100,885,0)
1592^1
"DATA",811.8,7,100,886,0)
]]>
"DATA",811.8,7,100,887,0)
</IEN_ROOT>
"DATA",811.8,7,100,888,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,889,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,890,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,891,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,892,0)
<POINT_01>VA-ARCH CONSENT URL</POINT_01>
"DATA",811.8,7,100,893,0)
<INTERNAL_ENTRY_NUMBER>1592</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,894,0)
<CHECKSUM>371298534</CHECKSUM>
"DATA",811.8,7,100,895,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,896,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,897,0)
<![CDATA[
"DATA",811.8,7,100,898,0)
801.41;+1592,;.01~VA-ARCH CONSENT URL
"DATA",811.8,7,100,899,0)
801.41;+1592,;4~dialog element
"DATA",811.8,7,100,900,0)
801.41;+1592,;23~YES
"DATA",811.8,7,100,901,0)
801.41;+1592,;25~WP-start~1
"DATA",811.8,7,100,902,0)
{FLD:ARCH CONSENT FORM URL}
"DATA",811.8,7,100,903,0)
801.41;+1592,;100~NATIONAL
"DATA",811.8,7,100,904,0)
801.41;+1592,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,905,0)
801.44;+1593,+1592,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,906,0)
801.44;+1593,+1592,;2~WP-start~1
"DATA",811.8,7,100,907,0)
Exchange Stub
"DATA",811.8,7,100,908,0)
]]>
"DATA",811.8,7,100,909,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,910,0)
<IEN_ROOT>
"DATA",811.8,7,100,911,0)
<![CDATA[
"DATA",811.8,7,100,912,0)
1593^1
"DATA",811.8,7,100,913,0)
]]>
"DATA",811.8,7,100,914,0)
</IEN_ROOT>
"DATA",811.8,7,100,915,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,916,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,917,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,918,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,919,0)
<POINT_01>VA-ARCH SVC NEEDED CONSENTS</POINT_01>
"DATA",811.8,7,100,920,0)
<INTERNAL_ENTRY_NUMBER>1594</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,921,0)
<CHECKSUM>1004055094</CHECKSUM>
"DATA",811.8,7,100,922,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,923,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,924,0)
<![CDATA[
"DATA",811.8,7,100,925,0)
801.41;+1594,;.01~VA-ARCH SVC NEEDED CONSENTS
"DATA",811.8,7,100,926,0)
801.41;+1594,;4~dialog group
"DATA",811.8,7,100,927,0)
801.41;+1594,;5~Service Needed and Consents
"DATA",811.8,7,100,928,0)
801.41;+1594,;6~YES
"DATA",811.8,7,100,929,0)
801.41;+1594,;13~DONE AT ENCOUNTER
"DATA",811.8,7,100,930,0)
801.41;+1594,;15~HF.ARCH-SERVICE NEEDED THIS VISIT CONSENTS
"DATA",811.8,7,100,931,0)
801.41;+1594,;23~NO
"DATA",811.8,7,100,932,0)
801.41;+1594,;25~WP-start~1
"DATA",811.8,7,100,933,0)
ARCH: Needs service & consents to program
"DATA",811.8,7,100,934,0)
801.41;+1594,;50~HIDE
"DATA",811.8,7,100,935,0)
801.41;+1594,;100~NATIONAL
"DATA",811.8,7,100,936,0)
801.41;+1594,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,937,0)
801.412;+1595,+1594,;.01~5
"DATA",811.8,7,100,938,0)
801.412;+1595,+1594,;2~ARCH COMMENT
"DATA",811.8,7,100,939,0)
801.412;+1595,+1594,;6~Service(s) accepted
"DATA",811.8,7,100,940,0)
801.412;+1595,+1594,;7~YES
"DATA",811.8,7,100,941,0)
801.412;+1595,+1594,;9~YES
"DATA",811.8,7,100,942,0)
801.412;+1596,+1594,;.01~10
"DATA",811.8,7,100,943,0)
801.412;+1596,+1594,;2~VA-ARCH CONSENT URL
"DATA",811.8,7,100,944,0)
801.412;+1597,+1594,;.01~15
"DATA",811.8,7,100,945,0)
801.412;+1597,+1594,;2~ARCH LOCAL CONSULT
"DATA",811.8,7,100,946,0)
801.412;+1598,+1594,;.01~11
"DATA",811.8,7,100,947,0)
801.412;+1598,+1594,;2~ARCH PATIENT SIGNED CONSENT
"DATA",811.8,7,100,948,0)
801.44;+1599,+1594,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,949,0)
801.44;+1599,+1594,;2~WP-start~1
"DATA",811.8,7,100,950,0)
Exchange Stub
"DATA",811.8,7,100,951,0)
]]>
"DATA",811.8,7,100,952,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,953,0)
<IEN_ROOT>
"DATA",811.8,7,100,954,0)
<![CDATA[
"DATA",811.8,7,100,955,0)
1595^1
"DATA",811.8,7,100,956,0)
1596^2
"DATA",811.8,7,100,957,0)
1597^3
"DATA",811.8,7,100,958,0)
1598^4
"DATA",811.8,7,100,959,0)
1599^1
"DATA",811.8,7,100,960,0)
]]>
"DATA",811.8,7,100,961,0)
</IEN_ROOT>
"DATA",811.8,7,100,962,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,963,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,964,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,965,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,966,0)
<POINT_01>VA-ARCH PREFERENCE</POINT_01>
"DATA",811.8,7,100,967,0)
<INTERNAL_ENTRY_NUMBER>1597</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,968,0)
<CHECKSUM>360533343</CHECKSUM>
"DATA",811.8,7,100,969,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,970,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,971,0)
<![CDATA[
"DATA",811.8,7,100,972,0)
801.41;+1597,;.01~VA-ARCH PREFERENCE
"DATA",811.8,7,100,973,0)
801.41;+1597,;4~dialog group
"DATA",811.8,7,100,974,0)
801.41;+1597,;5~Project ARCH Preferences
"DATA",811.8,7,100,975,0)
801.41;+1597,;6~YES
"DATA",811.8,7,100,976,0)
801.41;+1597,;9~ONE SELECTION ONLY
"DATA",811.8,7,100,977,0)
801.41;+1597,;51~SUPPRESS
"DATA",811.8,7,100,978,0)
801.41;+1597,;100~NATIONAL
"DATA",811.8,7,100,979,0)
801.41;+1597,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,980,0)
801.412;+1598,+1597,;.01~10
"DATA",811.8,7,100,981,0)
801.412;+1598,+1597,;2~VA-ARCH SVC NEEDED CONSENTS
"DATA",811.8,7,100,982,0)
801.412;+1599,+1597,;.01~7
"DATA",811.8,7,100,983,0)
801.412;+1599,+1597,;2~VA-ARCH SVC NEEDED DECLINES
"DATA",811.8,7,100,984,0)
801.412;+1600,+1597,;.01~4
"DATA",811.8,7,100,985,0)
801.412;+1600,+1597,;2~VA-ARCH NO SVC NEEDED
"DATA",811.8,7,100,986,0)
801.412;+1601,+1597,;.01~5
"DATA",811.8,7,100,987,0)
801.412;+1601,+1597,;2~VA-ARCH SVC NEEDED REFUSES
"DATA",811.8,7,100,988,0)
801.44;+1602,+1597,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,989,0)
801.44;+1602,+1597,;2~WP-start~1
"DATA",811.8,7,100,990,0)
Exchange Stub
"DATA",811.8,7,100,991,0)
]]>
"DATA",811.8,7,100,992,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,993,0)
<IEN_ROOT>
"DATA",811.8,7,100,994,0)
<![CDATA[
"DATA",811.8,7,100,995,0)
1598^1
"DATA",811.8,7,100,996,0)
1599^2
"DATA",811.8,7,100,997,0)
1600^3
"DATA",811.8,7,100,998,0)
1601^4
"DATA",811.8,7,100,999,0)
1602^1
"DATA",811.8,7,100,1000,0)
]]>
"DATA",811.8,7,100,1001,0)
</IEN_ROOT>
"DATA",811.8,7,100,1002,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,1003,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,1004,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,1005,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,1006,0)
<POINT_01>VA-ARCH OVERVIEW</POINT_01>
"DATA",811.8,7,100,1007,0)
<INTERNAL_ENTRY_NUMBER>1600</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,1008,0)
<CHECKSUM>174304418</CHECKSUM>
"DATA",811.8,7,100,1009,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,1010,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,1011,0)
<![CDATA[
"DATA",811.8,7,100,1012,0)
801.41;+1600,;.01~VA-ARCH OVERVIEW
"DATA",811.8,7,100,1013,0)
801.41;+1600,;4~dialog element
"DATA",811.8,7,100,1014,0)
801.41;+1600,;23~YES
"DATA",811.8,7,100,1015,0)
801.41;+1600,;25~WP-start~1
"DATA",811.8,7,100,1016,0)
{FLD:ARCH OVERVIEW TEXT}
"DATA",811.8,7,100,1017,0)
801.41;+1600,;51~SUPPRESS
"DATA",811.8,7,100,1018,0)
801.41;+1600,;100~NATIONAL
"DATA",811.8,7,100,1019,0)
801.41;+1600,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,1020,0)
801.44;+1601,+1600,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,1021,0)
801.44;+1601,+1600,;2~WP-start~1
"DATA",811.8,7,100,1022,0)
Exchange Stub
"DATA",811.8,7,100,1023,0)
]]>
"DATA",811.8,7,100,1024,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,1025,0)
<IEN_ROOT>
"DATA",811.8,7,100,1026,0)
<![CDATA[
"DATA",811.8,7,100,1027,0)
1601^1
"DATA",811.8,7,100,1028,0)
]]>
"DATA",811.8,7,100,1029,0)
</IEN_ROOT>
"DATA",811.8,7,100,1030,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,1031,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,1032,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,1033,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,1034,0)
<POINT_01>VA-ARCH FAQ URL</POINT_01>
"DATA",811.8,7,100,1035,0)
<INTERNAL_ENTRY_NUMBER>1590</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,1036,0)
<CHECKSUM>1615711023</CHECKSUM>
"DATA",811.8,7,100,1037,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,1038,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,1039,0)
<![CDATA[
"DATA",811.8,7,100,1040,0)
801.41;+1590,;.01~VA-ARCH FAQ URL
"DATA",811.8,7,100,1041,0)
801.41;+1590,;4~dialog element
"DATA",811.8,7,100,1042,0)
801.41;+1590,;23~YES
"DATA",811.8,7,100,1043,0)
801.41;+1590,;25~WP-start~1
"DATA",811.8,7,100,1044,0)
{FLD:ARCH FAQ URL}
"DATA",811.8,7,100,1045,0)
801.41;+1590,;51~SUPPRESS
"DATA",811.8,7,100,1046,0)
801.41;+1590,;100~NATIONAL
"DATA",811.8,7,100,1047,0)
801.41;+1590,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,1048,0)
801.44;+1591,+1590,;.01~12/14/2011@16:13:08
"DATA",811.8,7,100,1049,0)
801.44;+1591,+1590,;2~WP-start~1
"DATA",811.8,7,100,1050,0)
Exchange Stub
"DATA",811.8,7,100,1051,0)
]]>
"DATA",811.8,7,100,1052,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,1053,0)
<IEN_ROOT>
"DATA",811.8,7,100,1054,0)
<![CDATA[
"DATA",811.8,7,100,1055,0)
1591^1
"DATA",811.8,7,100,1056,0)
]]>
"DATA",811.8,7,100,1057,0)
</IEN_ROOT>
"DATA",811.8,7,100,1058,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,1059,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,1060,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,1061,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,1062,0)
<POINT_01>VA-ARCH CARE COORDINATOR</POINT_01>
"DATA",811.8,7,100,1063,0)
<INTERNAL_ENTRY_NUMBER>1589</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,1064,0)
<CHECKSUM>2289170911</CHECKSUM>
"DATA",811.8,7,100,1065,0)
<SELECTED>NO</SELECTED>
"DATA",811.8,7,100,1066,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,1067,0)
<![CDATA[
"DATA",811.8,7,100,1068,0)
801.41;+1589,;.01~VA-ARCH CARE COORDINATOR
"DATA",811.8,7,100,1069,0)
801.41;+1589,;4~dialog element
"DATA",811.8,7,100,1070,0)
801.41;+1589,;23~YES
"DATA",811.8,7,100,1071,0)
801.41;+1589,;25~WP-start~1
"DATA",811.8,7,100,1072,0)
{FLD:ARCH CARE COORDINATOR}
"DATA",811.8,7,100,1073,0)
801.41;+1589,;51~SUPPRESS
"DATA",811.8,7,100,1074,0)
801.41;+1589,;100~NATIONAL
"DATA",811.8,7,100,1075,0)
801.41;+1589,;101~VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning
"DATA",811.8,7,100,1076,0)
801.44;+1590,+1589,;.01~12/14/2011@16:13:09
"DATA",811.8,7,100,1077,0)
801.44;+1590,+1589,;2~WP-start~1
"DATA",811.8,7,100,1078,0)
Exchange Stub
"DATA",811.8,7,100,1079,0)
]]>
"DATA",811.8,7,100,1080,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,1081,0)
<IEN_ROOT>
"DATA",811.8,7,100,1082,0)
<![CDATA[
"DATA",811.8,7,100,1083,0)
1590^1
"DATA",811.8,7,100,1084,0)
]]>
"DATA",811.8,7,100,1085,0)
</IEN_ROOT>
"DATA",811.8,7,100,1086,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,1087,0)
<FILEMAN_FILE>
"DATA",811.8,7,100,1088,0)
<FILE_NAME>REMINDER DIALOG</FILE_NAME>
"DATA",811.8,7,100,1089,0)
<FILE_NUMBER>801.41</FILE_NUMBER>
"DATA",811.8,7,100,1090,0)
<POINT_01>VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY</POINT_01>
"DATA",811.8,7,100,1091,0)
<INTERNAL_ENTRY_NUMBER>1601</INTERNAL_ENTRY_NUMBER>
"DATA",811.8,7,100,1092,0)
<CHECKSUM>3720648</CHECKSUM>
"DATA",811.8,7,100,1093,0)
<SELECTED>YES</SELECTED>
"DATA",811.8,7,100,1094,0)
<FILEMAN_FDA>
"DATA",811.8,7,100,1095,0)
<![CDATA[
"DATA",811.8,7,100,1096,0)
801.41;+1601,;.01~VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY
"DATA",811.8,7,100,1097,0)
801.41;+1601,;2~VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY
"DATA",811.8,7,100,1098,0)
801.41;+1601,;3~NO
"DATA",811.8,7,100,1099,0)
801.41;+1601,;4~reminder dialog
"DATA",811.8,7,100,1100,0)
801.41;+1601,;100~NATIONAL
"DATA",811.8,7,100,1101,0)
801.412;+1602,+1601,;.01~20
"DATA",811.8,7,100,1102,0)
801.412;+1602,+1601,;2~VA-ARCH CARE COORDINATOR
"DATA",811.8,7,100,1103,0)
801.412;+1603,+1601,;.01~9.5
"DATA",811.8,7,100,1104,0)
801.412;+1603,+1601,;2~VA-ARCH PREFERENCE
"DATA",811.8,7,100,1105,0)
801.412;+1604,+1601,;.01~7
"DATA",811.8,7,100,1106,0)
801.412;+1604,+1601,;2~VA-ARCH SERVICES GROUP
"DATA",811.8,7,100,1107,0)
801.412;+1605,+1601,;.01~17
"DATA",811.8,7,100,1108,0)
801.412;+1605,+1601,;2~VA-TEXT BLANK LINE
"DATA",811.8,7,100,1109,0)
801.412;+1606,+1601,;.01~15
"DATA",811.8,7,100,1110,0)
801.412;+1606,+1601,;2~VA-ARCH FAQ URL
"DATA",811.8,7,100,1111,0)
801.412;+1607,+1601,;.01~5
"DATA",811.8,7,100,1112,0)
801.412;+1607,+1601,;2~VA-ARCH OVERVIEW
"DATA",811.8,7,100,1113,0)
801.44;+1608,+1601,;.01~12/14/2011@16:13:09
"DATA",811.8,7,100,1114,0)
801.44;+1608,+1601,;2~WP-start~1
"DATA",811.8,7,100,1115,0)
Exchange Stub
"DATA",811.8,7,100,1116,0)
]]>
"DATA",811.8,7,100,1117,0)
</FILEMAN_FDA>
"DATA",811.8,7,100,1118,0)
<IEN_ROOT>
"DATA",811.8,7,100,1119,0)
<![CDATA[
"DATA",811.8,7,100,1120,0)
1602^1
"DATA",811.8,7,100,1121,0)
1603^12
"DATA",811.8,7,100,1122,0)
1604^13
"DATA",811.8,7,100,1123,0)
1605^14
"DATA",811.8,7,100,1124,0)
1606^2
"DATA",811.8,7,100,1125,0)
1607^4
"DATA",811.8,7,100,1126,0)
1608^1
"DATA",811.8,7,100,1127,0)
]]>
"DATA",811.8,7,100,1128,0)
</IEN_ROOT>
"DATA",811.8,7,100,1129,0)
</FILEMAN_FILE>
"DATA",811.8,7,100,1130,0)
<INDEX>
"DATA",811.8,7,100,1131,0)
<NUMBER_OF_COMPONENTS>34</NUMBER_OF_COMPONENTS>
"DATA",811.8,7,100,1132,0)
<COMPONENT>
"DATA",811.8,7,100,1133,0)
<M_ROUTINE_START>20</M_ROUTINE_START>
"DATA",811.8,7,100,1134,0)
<ROUTINE_CODE_END>85</ROUTINE_CODE_END>
"DATA",811.8,7,100,1135,0)
<ROUTINE_CODE_START>25</ROUTINE_CODE_START>
"DATA",811.8,7,100,1136,0)
</COMPONENT>
"DATA",811.8,7,100,1137,0)
<COMPONENT>
"DATA",811.8,7,100,1138,0)
<FDA_END>134</FDA_END>
"DATA",811.8,7,100,1139,0)
<FDA_START>98</FDA_START>
"DATA",811.8,7,100,1140,0)
<FILE_START>89</FILE_START>
"DATA",811.8,7,100,1141,0)
</COMPONENT>
"DATA",811.8,7,100,1142,0)
<COMPONENT>
"DATA",811.8,7,100,1143,0)
<FDA_END>164</FDA_END>
"DATA",811.8,7,100,1144,0)
<FDA_START>147</FDA_START>
"DATA",811.8,7,100,1145,0)
<FILE_START>138</FILE_START>
"DATA",811.8,7,100,1146,0)
</COMPONENT>
"DATA",811.8,7,100,1147,0)
<COMPONENT>
"DATA",811.8,7,100,1148,0)
<FDA_END>199</FDA_END>
"DATA",811.8,7,100,1149,0)
<FDA_START>177</FDA_START>
"DATA",811.8,7,100,1150,0)
<FILE_START>168</FILE_START>
"DATA",811.8,7,100,1151,0)
</COMPONENT>
"DATA",811.8,7,100,1152,0)
<COMPONENT>
"DATA",811.8,7,100,1153,0)
<FDA_END>229</FDA_END>
"DATA",811.8,7,100,1154,0)
<FDA_START>212</FDA_START>
"DATA",811.8,7,100,1155,0)
<FILE_START>203</FILE_START>
"DATA",811.8,7,100,1156,0)
</COMPONENT>
"DATA",811.8,7,100,1157,0)
<COMPONENT>
"DATA",811.8,7,100,1158,0)
<FDA_END>259</FDA_END>
"DATA",811.8,7,100,1159,0)
<FDA_START>242</FDA_START>
"DATA",811.8,7,100,1160,0)
<FILE_START>233</FILE_START>
"DATA",811.8,7,100,1161,0)
</COMPONENT>
"DATA",811.8,7,100,1162,0)
<COMPONENT>
"DATA",811.8,7,100,1163,0)
<FDA_END>273</FDA_END>
"DATA",811.8,7,100,1164,0)
<FDA_START>272</FDA_START>
"DATA",811.8,7,100,1165,0)
<FILE_START>263</FILE_START>
"DATA",811.8,7,100,1166,0)
</COMPONENT>
"DATA",811.8,7,100,1167,0)
<COMPONENT>
"DATA",811.8,7,100,1168,0)
<FDA_END>290</FDA_END>
"DATA",811.8,7,100,1169,0)
<FDA_START>286</FDA_START>
"DATA",811.8,7,100,1170,0)
<FILE_START>277</FILE_START>
"DATA",811.8,7,100,1171,0)
</COMPONENT>
"DATA",811.8,7,100,1172,0)
<COMPONENT>
"DATA",811.8,7,100,1173,0)
<FDA_END>307</FDA_END>
"DATA",811.8,7,100,1174,0)
<FDA_START>303</FDA_START>
"DATA",811.8,7,100,1175,0)
<FILE_START>294</FILE_START>
"DATA",811.8,7,100,1176,0)
</COMPONENT>
"DATA",811.8,7,100,1177,0)
<COMPONENT>
"DATA",811.8,7,100,1178,0)
<FDA_END>324</FDA_END>
"DATA",811.8,7,100,1179,0)
<FDA_START>320</FDA_START>
"DATA",811.8,7,100,1180,0)
<FILE_START>311</FILE_START>
"DATA",811.8,7,100,1181,0)
</COMPONENT>
"DATA",811.8,7,100,1182,0)
<COMPONENT>
"DATA",811.8,7,100,1183,0)
<FDA_END>341</FDA_END>
"DATA",811.8,7,100,1184,0)
<FDA_START>337</FDA_START>
"DATA",811.8,7,100,1185,0)
<FILE_START>328</FILE_START>
"DATA",811.8,7,100,1186,0)
</COMPONENT>
"DATA",811.8,7,100,1187,0)
<COMPONENT>
"DATA",811.8,7,100,1188,0)
<FDA_END>358</FDA_END>
"DATA",811.8,7,100,1189,0)
<FDA_START>354</FDA_START>
"DATA",811.8,7,100,1190,0)
<FILE_START>345</FILE_START>
"DATA",811.8,7,100,1191,0)
<IEN_ROOT_END>363</IEN_ROOT_END>
"DATA",811.8,7,100,1192,0)
<IEN_ROOT_START>363</IEN_ROOT_START>
"DATA",811.8,7,100,1193,0)
</COMPONENT>
"DATA",811.8,7,100,1194,0)
<COMPONENT>
"DATA",811.8,7,100,1195,0)
<FDA_END>386</FDA_END>
"DATA",811.8,7,100,1196,0)
<FDA_START>376</FDA_START>
"DATA",811.8,7,100,1197,0)
<FILE_START>367</FILE_START>
"DATA",811.8,7,100,1198,0)
<IEN_ROOT_END>392</IEN_ROOT_END>
"DATA",811.8,7,100,1199,0)
<IEN_ROOT_START>391</IEN_ROOT_START>
"DATA",811.8,7,100,1200,0)
</COMPONENT>
"DATA",811.8,7,100,1201,0)
<COMPONENT>
"DATA",811.8,7,100,1202,0)
<FDA_END>409</FDA_END>
"DATA",811.8,7,100,1203,0)
<FDA_START>405</FDA_START>
"DATA",811.8,7,100,1204,0)
<FILE_START>396</FILE_START>
"DATA",811.8,7,100,1205,0)
<IEN_ROOT_END>414</IEN_ROOT_END>
"DATA",811.8,7,100,1206,0)
<IEN_ROOT_START>414</IEN_ROOT_START>
"DATA",811.8,7,100,1207,0)
</COMPONENT>
"DATA",811.8,7,100,1208,0)
<COMPONENT>
"DATA",811.8,7,100,1209,0)
<FDA_END>441</FDA_END>
"DATA",811.8,7,100,1210,0)
<FDA_START>427</FDA_START>
"DATA",811.8,7,100,1211,0)
<FILE_START>418</FILE_START>
"DATA",811.8,7,100,1212,0)
<IEN_ROOT_END>446</IEN_ROOT_END>
"DATA",811.8,7,100,1213,0)
<IEN_ROOT_START>446</IEN_ROOT_START>
"DATA",811.8,7,100,1214,0)
</COMPONENT>
"DATA",811.8,7,100,1215,0)
<COMPONENT>
"DATA",811.8,7,100,1216,0)
<FDA_END>473</FDA_END>
"DATA",811.8,7,100,1217,0)
<FDA_START>459</FDA_START>
"DATA",811.8,7,100,1218,0)
<FILE_START>450</FILE_START>
"DATA",811.8,7,100,1219,0)
<IEN_ROOT_END>478</IEN_ROOT_END>
"DATA",811.8,7,100,1220,0)
<IEN_ROOT_START>478</IEN_ROOT_START>
"DATA",811.8,7,100,1221,0)
</COMPONENT>
"DATA",811.8,7,100,1222,0)
<COMPONENT>
"DATA",811.8,7,100,1223,0)
<FDA_END>565</FDA_END>
"DATA",811.8,7,100,1224,0)
<FDA_START>491</FDA_START>
"DATA",811.8,7,100,1225,0)
<FILE_START>482</FILE_START>
"DATA",811.8,7,100,1226,0)
<IEN_ROOT_END>578</IEN_ROOT_END>
"DATA",811.8,7,100,1227,0)
<IEN_ROOT_START>570</IEN_ROOT_START>
"DATA",811.8,7,100,1228,0)
</COMPONENT>
"DATA",811.8,7,100,1229,0)
<COMPONENT>
"DATA",811.8,7,100,1230,0)
<FDA_END>601</FDA_END>
"DATA",811.8,7,100,1231,0)
<FDA_START>591</FDA_START>
"DATA",811.8,7,100,1232,0)
<FILE_START>582</FILE_START>
"DATA",811.8,7,100,1233,0)
<IEN_ROOT_END>606</IEN_ROOT_END>
"DATA",811.8,7,100,1234,0)
<IEN_ROOT_START>606</IEN_ROOT_START>
"DATA",811.8,7,100,1235,0)
</COMPONENT>
"DATA",811.8,7,100,1236,0)
<COMPONENT>
"DATA",811.8,7,100,1237,0)
<FDA_END>629</FDA_END>
"DATA",811.8,7,100,1238,0)
<FDA_START>619</FDA_START>
"DATA",811.8,7,100,1239,0)
<FILE_START>610</FILE_START>
"DATA",811.8,7,100,1240,0)
<IEN_ROOT_END>634</IEN_ROOT_END>
"DATA",811.8,7,100,1241,0)
<IEN_ROOT_START>634</IEN_ROOT_START>
"DATA",811.8,7,100,1242,0)
</COMPONENT>
"DATA",811.8,7,100,1243,0)
<COMPONENT>
"DATA",811.8,7,100,1244,0)
<FDA_END>660</FDA_END>
"DATA",811.8,7,100,1245,0)
<FDA_START>647</FDA_START>
"DATA",811.8,7,100,1246,0)
<FILE_START>638</FILE_START>
"DATA",811.8,7,100,1247,0)
<IEN_ROOT_END>666</IEN_ROOT_END>
"DATA",811.8,7,100,1248,0)
<IEN_ROOT_START>665</IEN_ROOT_START>
"DATA",811.8,7,100,1249,0)
</COMPONENT>
"DATA",811.8,7,100,1250,0)
<COMPONENT>
"DATA",811.8,7,100,1251,0)
<FDA_END>693</FDA_END>
"DATA",811.8,7,100,1252,0)
<FDA_START>679</FDA_START>
"DATA",811.8,7,100,1253,0)
<FILE_START>670</FILE_START>
"DATA",811.8,7,100,1254,0)
<IEN_ROOT_END>698</IEN_ROOT_END>
"DATA",811.8,7,100,1255,0)
<IEN_ROOT_START>698</IEN_ROOT_START>
"DATA",811.8,7,100,1256,0)
</COMPONENT>
"DATA",811.8,7,100,1257,0)
<COMPONENT>
"DATA",811.8,7,100,1258,0)
<FDA_END>723</FDA_END>
"DATA",811.8,7,100,1259,0)
<FDA_START>711</FDA_START>
"DATA",811.8,7,100,1260,0)
<FILE_START>702</FILE_START>
"DATA",811.8,7,100,1261,0)
<IEN_ROOT_END>728</IEN_ROOT_END>
"DATA",811.8,7,100,1262,0)
<IEN_ROOT_START>728</IEN_ROOT_START>
"DATA",811.8,7,100,1263,0)
</COMPONENT>
"DATA",811.8,7,100,1264,0)
<COMPONENT>
"DATA",811.8,7,100,1265,0)
<FDA_END>754</FDA_END>
"DATA",811.8,7,100,1266,0)
<FDA_START>741</FDA_START>
"DATA",811.8,7,100,1267,0)
<FILE_START>732</FILE_START>
"DATA",811.8,7,100,1268,0)
<IEN_ROOT_END>762</IEN_ROOT_END>
"DATA",811.8,7,100,1269,0)
<IEN_ROOT_START>759</IEN_ROOT_START>
"DATA",811.8,7,100,1270,0)
</COMPONENT>
"DATA",811.8,7,100,1271,0)
<COMPONENT>
"DATA",811.8,7,100,1272,0)
<FDA_END>790</FDA_END>
"DATA",811.8,7,100,1273,0)
<FDA_START>775</FDA_START>
"DATA",811.8,7,100,1274,0)
<FILE_START>766</FILE_START>
"DATA",811.8,7,100,1275,0)
<IEN_ROOT_END>796</IEN_ROOT_END>
"DATA",811.8,7,100,1276,0)
<IEN_ROOT_START>795</IEN_ROOT_START>
"DATA",811.8,7,100,1277,0)
</COMPONENT>
"DATA",811.8,7,100,1278,0)
<COMPONENT>
"DATA",811.8,7,100,1279,0)
<FDA_END>819</FDA_END>
"DATA",811.8,7,100,1280,0)
<FDA_START>809</FDA_START>
"DATA",811.8,7,100,1281,0)
<FILE_START>800</FILE_START>
"DATA",811.8,7,100,1282,0)
<IEN_ROOT_END>826</IEN_ROOT_END>
"DATA",811.8,7,100,1283,0)
<IEN_ROOT_START>824</IEN_ROOT_START>
"DATA",811.8,7,100,1284,0)
</COMPONENT>
"DATA",811.8,7,100,1285,0)
<COMPONENT>
"DATA",811.8,7,100,1286,0)
<FDA_END>852</FDA_END>
"DATA",811.8,7,100,1287,0)
<FDA_START>839</FDA_START>
"DATA",811.8,7,100,1288,0)
<FILE_START>830</FILE_START>
"DATA",811.8,7,100,1289,0)
<IEN_ROOT_END>858</IEN_ROOT_END>
"DATA",811.8,7,100,1290,0)
<IEN_ROOT_START>857</IEN_ROOT_START>
"DATA",811.8,7,100,1291,0)
</COMPONENT>
"DATA",811.8,7,100,1292,0)
<COMPONENT>
"DATA",811.8,7,100,1293,0)
<FDA_END>880</FDA_END>
"DATA",811.8,7,100,1294,0)
<FDA_START>871</FDA_START>
"DATA",811.8,7,100,1295,0)
<FILE_START>862</FILE_START>
"DATA",811.8,7,100,1296,0)
<IEN_ROOT_END>885</IEN_ROOT_END>
"DATA",811.8,7,100,1297,0)
<IEN_ROOT_START>885</IEN_ROOT_START>
"DATA",811.8,7,100,1298,0)
</COMPONENT>
"DATA",811.8,7,100,1299,0)
<COMPONENT>
"DATA",811.8,7,100,1300,0)
<FDA_END>907</FDA_END>
"DATA",811.8,7,100,1301,0)
<FDA_START>898</FDA_START>
"DATA",811.8,7,100,1302,0)
<FILE_START>889</FILE_START>
"DATA",811.8,7,100,1303,0)
<IEN_ROOT_END>912</IEN_ROOT_END>
"DATA",811.8,7,100,1304,0)
<IEN_ROOT_START>912</IEN_ROOT_START>
"DATA",811.8,7,100,1305,0)
</COMPONENT>
"DATA",811.8,7,100,1306,0)
<COMPONENT>
"DATA",811.8,7,100,1307,0)
<FDA_END>950</FDA_END>
"DATA",811.8,7,100,1308,0)
<FDA_START>925</FDA_START>
"DATA",811.8,7,100,1309,0)
<FILE_START>916</FILE_START>
"DATA",811.8,7,100,1310,0)
<IEN_ROOT_END>959</IEN_ROOT_END>
"DATA",811.8,7,100,1311,0)
<IEN_ROOT_START>955</IEN_ROOT_START>
"DATA",811.8,7,100,1312,0)
</COMPONENT>
"DATA",811.8,7,100,1313,0)
<COMPONENT>
"DATA",811.8,7,100,1314,0)
<FDA_END>990</FDA_END>
"DATA",811.8,7,100,1315,0)
<FDA_START>972</FDA_START>
"DATA",811.8,7,100,1316,0)
<FILE_START>963</FILE_START>
"DATA",811.8,7,100,1317,0)
<IEN_ROOT_END>999</IEN_ROOT_END>
"DATA",811.8,7,100,1318,0)
<IEN_ROOT_START>995</IEN_ROOT_START>
"DATA",811.8,7,100,1319,0)
</COMPONENT>
"DATA",811.8,7,100,1320,0)
<COMPONENT>
"DATA",811.8,7,100,1321,0)
<FDA_END>1022</FDA_END>
"DATA",811.8,7,100,1322,0)
<FDA_START>1012</FDA_START>
"DATA",811.8,7,100,1323,0)
<FILE_START>1003</FILE_START>
"DATA",811.8,7,100,1324,0)
<IEN_ROOT_END>1027</IEN_ROOT_END>
"DATA",811.8,7,100,1325,0)
<IEN_ROOT_START>1027</IEN_ROOT_START>
"DATA",811.8,7,100,1326,0)
</COMPONENT>
"DATA",811.8,7,100,1327,0)
<COMPONENT>
"DATA",811.8,7,100,1328,0)
<FDA_END>1050</FDA_END>
"DATA",811.8,7,100,1329,0)
<FDA_START>1040</FDA_START>
"DATA",811.8,7,100,1330,0)
<FILE_START>1031</FILE_START>
"DATA",811.8,7,100,1331,0)
<IEN_ROOT_END>1055</IEN_ROOT_END>
"DATA",811.8,7,100,1332,0)
<IEN_ROOT_START>1055</IEN_ROOT_START>
"DATA",811.8,7,100,1333,0)
</COMPONENT>
"DATA",811.8,7,100,1334,0)
<COMPONENT>
"DATA",811.8,7,100,1335,0)
<FDA_END>1078</FDA_END>
"DATA",811.8,7,100,1336,0)
<FDA_START>1068</FDA_START>
"DATA",811.8,7,100,1337,0)
<FILE_START>1059</FILE_START>
"DATA",811.8,7,100,1338,0)
<IEN_ROOT_END>1083</IEN_ROOT_END>
"DATA",811.8,7,100,1339,0)
<IEN_ROOT_START>1083</IEN_ROOT_START>
"DATA",811.8,7,100,1340,0)
</COMPONENT>
"DATA",811.8,7,100,1341,0)
<COMPONENT>
"DATA",811.8,7,100,1342,0)
<FDA_END>1115</FDA_END>
"DATA",811.8,7,100,1343,0)
<FDA_START>1096</FDA_START>
"DATA",811.8,7,100,1344,0)
<FILE_START>1087</FILE_START>
"DATA",811.8,7,100,1345,0)
<IEN_ROOT_END>1126</IEN_ROOT_END>
"DATA",811.8,7,100,1346,0)
<IEN_ROOT_START>1120</IEN_ROOT_START>
"DATA",811.8,7,100,1347,0)
</COMPONENT>
"DATA",811.8,7,100,1348,0)
</INDEX>
"DATA",811.8,7,100,1349,0)
</REMINDER_EXCHANGE_FILE_ENTRY>
"DATA",811.8,7,110,0)
^811.804^14^14
"DATA",811.8,7,110,1,0)
Source:      TOMLIN,BRIAN at SALT LAKE CITY
"DATA",811.8,7,110,2,0)
Date Packed: 12/14/2011@16:12:55
"DATA",811.8,7,110,3,0)
Package Version: 2.0P20
"DATA",811.8,7,110,4,0)

"DATA",811.8,7,110,5,0)
Description:
"DATA",811.8,7,110,6,0)
This reminder definition is used to identify patients who are eligible 
"DATA",811.8,7,110,7,0)
for the Access Received Closer to Home (ARCH) pilot program. Project ARCH
"DATA",811.8,7,110,8,0)
is a contract care pilot program designed to improve access to needed
"DATA",811.8,7,110,9,0)
health care through contracted providers that are closer to the Veteran's
"DATA",811.8,7,110,10,0)
residence.
"DATA",811.8,7,110,11,0)

"DATA",811.8,7,110,12,0)
Keywords:
"DATA",811.8,7,110,13,0)

"DATA",811.8,7,110,14,0)
Components:
"DATA",811.8,7,119)
7
"DATA",811.8,7,120,0)
^811.802A^34^34
"DATA",811.8,7,120,1,0)
ROUTINE^0^1
"DATA",811.8,7,120,1,1,0)
^811.8021A^1^1
"DATA",811.8,7,120,1,1,1,0)
PXRMARCH^25^85^^^1^0
"DATA",811.8,7,120,2,0)
TIU TEMPLATE FIELD^8927.1^5
"DATA",811.8,7,120,2,1,0)
^811.8021A^5^5
"DATA",811.8,7,120,2,1,1,0)
ARCH SERVICE LIST^98^134^^^1^0
"DATA",811.8,7,120,2,1,2,0)
ARCH CONSENT FORM URL^147^164^^^1^0
"DATA",811.8,7,120,2,1,3,0)
ARCH OVERVIEW TEXT^177^199^^^1^0
"DATA",811.8,7,120,2,1,4,0)
ARCH FAQ URL^212^229^^^1^0
"DATA",811.8,7,120,2,1,5,0)
ARCH CARE COORDINATOR^242^259^^^1^0
"DATA",811.8,7,120,3,0)
HEALTH FACTORS^9999999.64^5
"DATA",811.8,7,120,3,1,0)
^811.8021A^5^5
"DATA",811.8,7,120,3,1,1,0)
ARCH^272^273^^^1^0
"DATA",811.8,7,120,3,1,2,0)
ARCH-SERVICE NEEDED THIS VISIT REFUSES^286^290^^^1^0
"DATA",811.8,7,120,3,1,3,0)
ARCH-NO SERVICE NEEDED THIS VISIT^303^307^^^1^0
"DATA",811.8,7,120,3,1,4,0)
ARCH-SERVICE NEEDED THIS VISIT DECLINES^320^324^^^1^0
"DATA",811.8,7,120,3,1,5,0)
ARCH-SERVICE NEEDED THIS VISIT CONSENTS^337^341^^^1^0
"DATA",811.8,7,120,4,0)
REMINDER SPONSOR^811.6^3
"DATA",811.8,7,120,4,1,0)
^811.8021A^3^3
"DATA",811.8,7,120,4,1,1,0)
Office of Quality & Performance^354^358^363^363^1^0
"DATA",811.8,7,120,4,1,2,0)
VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning^376^386^391^392^1^0
"DATA",811.8,7,120,4,1,3,0)
VHA Office of the Assistant Deputy Under Secretary for Health for Polig^405^409^414^414^1^0
"DATA",811.8,7,120,5,0)
REMINDER COMPUTED FINDINGS^811.4^2
"DATA",811.8,7,120,5,1,0)
^811.8021A^2^2
"DATA",811.8,7,120,5,1,1,0)
VA-PROJECT ARCH ELIGIBILITY^427^441^446^446^1^0
"DATA",811.8,7,120,5,1,2,0)
VA-ARCH REMINDER CUSTOM DUE DATE^459^473^478^478^1^0
"DATA",811.8,7,120,6,0)
REMINDER DEFINITION^811.9^1
"DATA",811.8,7,120,6,1,0)
^811.8021A^1^1
"DATA",811.8,7,120,6,1,1,0)
VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY^491^565^570^578^1^1
"DATA",811.8,7,120,7,0)
REMINDER DIALOG^801.41^17
"DATA",811.8,7,120,7,1,0)
^811.8021A^17^17
"DATA",811.8,7,120,7,1,1,0)
VA-TEXT BLANK LINE^591^601^606^606^1^0
"DATA",811.8,7,120,7,1,2,0)
VA-ARCH SERVICE LIST^619^629^634^634^1^0
"DATA",811.8,7,120,7,1,3,0)
VA-ARCH SERVICES GROUP^647^660^665^666^1^0
"DATA",811.8,7,120,7,1,4,0)
VA-ARCH SVC NEEDED REFUSES^679^693^698^698^1^0
"DATA",811.8,7,120,7,1,5,0)
VA-ARCH NO SVC NEEDED^711^723^728^728^1^0
"DATA",811.8,7,120,7,1,6,0)
ARCH COMMENT^741^754^759^762^1^0
"DATA",811.8,7,120,7,1,7,0)
VA-ARCH SVC NEEDED DECLINES^775^790^795^796^1^0
"DATA",811.8,7,120,7,1,8,0)
CKBOX YES/NO^809^819^824^826^1^0
"DATA",811.8,7,120,7,1,9,0)
ARCH PATIENT SIGNED CONSENT^839^852^857^858^1^0
"DATA",811.8,7,120,7,1,10,0)
ARCH LOCAL CONSULT^871^880^885^885^1^0
"DATA",811.8,7,120,7,1,11,0)
VA-ARCH CONSENT URL^898^907^912^912^1^0
"DATA",811.8,7,120,7,1,12,0)
VA-ARCH SVC NEEDED CONSENTS^925^950^955^959^1^0
"DATA",811.8,7,120,7,1,13,0)
VA-ARCH PREFERENCE^972^990^995^999^1^0
"DATA",811.8,7,120,7,1,14,0)
VA-ARCH OVERVIEW^1012^1022^1027^1027^1^0
"DATA",811.8,7,120,7,1,15,0)
VA-ARCH FAQ URL^1040^1050^1055^1055^1^0
"DATA",811.8,7,120,7,1,16,0)
VA-ARCH CARE COORDINATOR^1068^1078^1083^1083^1^0
"DATA",811.8,7,120,7,1,17,0)
VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY^1096^1115^1120^1126^1^1
"DATA",811.8,7,130,0)
^811.803DA^1^1
"DATA",811.8,7,130,1,0)
3111215.104638^TOMLIN,BRIAN^INTERACTIVE
"DATA",811.8,7,130,1,1,0)
^811.8031A^17^17
"DATA",811.8,7,130,1,1,1,0)
1^ROUTINE^PXRMARCH^O^
"DATA",811.8,7,130,1,1,2,0)
2^TIU TEMPLATE FIELD^ARCH SERVICE LIST^S^
"DATA",811.8,7,130,1,1,3,0)
3^TIU TEMPLATE FIELD^ARCH CONSENT FORM URL^S^
"DATA",811.8,7,130,1,1,4,0)
4^TIU TEMPLATE FIELD^ARCH OVERVIEW TEXT^S^
"DATA",811.8,7,130,1,1,5,0)
5^TIU TEMPLATE FIELD^ARCH FAQ URL^S^
"DATA",811.8,7,130,1,1,6,0)
6^TIU TEMPLATE FIELD^ARCH CARE COORDINATOR^S^
"DATA",811.8,7,130,1,1,7,0)
7^HEALTH FACTORS^ARCH^S^
"DATA",811.8,7,130,1,1,8,0)
8^HEALTH FACTORS^ARCH-SERVICE NEEDED THIS VISIT REFUSES^S^
"DATA",811.8,7,130,1,1,9,0)
9^HEALTH FACTORS^ARCH-NO SERVICE NEEDED THIS VISIT^S^
"DATA",811.8,7,130,1,1,10,0)
10^HEALTH FACTORS^ARCH-SERVICE NEEDED THIS VISIT DECLINES^S^
"DATA",811.8,7,130,1,1,11,0)
11^HEALTH FACTORS^ARCH-SERVICE NEEDED THIS VISIT CONSENTS^S^
"DATA",811.8,7,130,1,1,12,0)
12^REMINDER SPONSOR^Office of Quality & Performance^S^
"DATA",811.8,7,130,1,1,13,0)
13^REMINDER SPONSOR^VHA Office of the Assistant Deputy Under Secretary for Health for Policy and Planning^S^
"DATA",811.8,7,130,1,1,14,0)
14^REMINDER SPONSOR^VHA Office of the Assistant Deputy Under Secretary for Health for Polig^S^
"DATA",811.8,7,130,1,1,15,0)
15^REMINDER COMPUTED FINDINGS^VA-PROJECT ARCH ELIGIBILITY^S^
"DATA",811.8,7,130,1,1,16,0)
16^REMINDER COMPUTED FINDINGS^VA-ARCH REMINDER CUSTOM DUE DATE^I^
"DATA",811.8,7,130,1,1,17,0)
17^REMINDER DEFINITION^VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY^O^
"DATA",811.8,7,130,1,1,17,1,0)
^811.80315A^2^2
"FIA",811.4)
REMINDER COMPUTED FINDINGS
"FIA",811.4,0)
^PXRMD(811.4,
"FIA",811.4,0,0)
811.4OI
"FIA",811.4,0,1)
n^y^f^^n^^y^o^n
"FIA",811.4,0,10)

"FIA",811.4,0,11)
I $$CFINC^PXRMP23I(Y)
"FIA",811.4,0,"RLRO")

"FIA",811.4,0,"VR")
2.0^PXRM
"FIA",811.4,811.4)
0
"FIA",811.4,811.41)
0
"FIA",811.4,811.42)
0
"FIA",811.4,811.422)
0
"FIA",811.8)
REMINDER EXCHANGE
"FIA",811.8,0)
^PXD(811.8,
"FIA",811.8,0,0)
811.8s
"FIA",811.8,0,1)
n^n^f^^n^^y^o^n
"FIA",811.8,0,10)

"FIA",811.8,0,11)
I $$EXFINC^PXRMEXSI(Y,"EXARRAY","PXRMP23E")
"FIA",811.8,0,"RLRO")

"FIA",811.8,0,"VR")
2.0^PXRM
"FIA",811.8,811.8)
0
"FIA",811.8,811.801)
0
"FIA",811.8,811.802)
0
"FIA",811.8,811.8021)
0
"FIA",811.8,811.803)
0
"FIA",811.8,811.8031)
0
"FIA",811.8,811.80315)
0
"FIA",811.8,811.804)
0
"INI")
PRE^PXRMP23I
"INIT")
POST^PXRMP23I
"IX",811.4,811.4,"B",0)
811.4^B^New style B cross-reference^R^^F^IR^I^811.4^^^^^LS
"IX",811.4,811.4,"B",1)
S ^PXRMD(811.4,"B",$E(X,1,64),DA)=""
"IX",811.4,811.4,"B",2)
K ^PXRMD(811.4,"B",$E(X,1,64),DA)
"IX",811.4,811.4,"B",2.5)
K ^PXRMD(811.4,"B")
"IX",811.4,811.4,"B",11.1,0)
^.114IA^1^1
"IX",811.4,811.4,"B",11.1,1,0)
1^F^811.4^.01^64^1^F
"IX",811.8,811.8,"B",0)
811.8^B^Uniqueness Index for Key 'A' of File #811.8^R^^R^IR^I^811.8^^^^^LS
"IX",811.8,811.8,"B",1)
S ^PXD(811.8,"B",X(1),X(2),DA)=""
"IX",811.8,811.8,"B",2)
K ^PXD(811.8,"B",X(1),X(2),DA)
"IX",811.8,811.8,"B",2.5)
K ^PXD(811.8,"B")
"IX",811.8,811.8,"B",11.1,0)
^.114IA^2^2
"IX",811.8,811.8,"B",11.1,1,0)
1^F^811.8^.01^^1
"IX",811.8,811.8,"B",11.1,2,0)
2^F^811.8^.03^^2
"IX",811.8,811.8,"D",0)
811.8^D^Cross-reference on date and time^R^^F^IR^I^811.8^^^^^LS
"IX",811.8,811.8,"D",1)
S ^PXD(811.8,"D",X,DA)=""
"IX",811.8,811.8,"D",2)
K ^PXD(811.8,"D",X,DA)
"IX",811.8,811.8,"D",2.5)
K ^PXD(811.8,"D")
"IX",811.8,811.8,"D",11.1,0)
^.114IA^1^1
"IX",811.8,811.8,"D",11.1,1,0)
1^F^811.8^.03^^1^F
"IX",811.8,811.8,"D",11.1,1,3)

"IX",811.8,811.803,"B",0)
811.803^B^New style B cross-reference^R^^F^IR^I^811.803^^^^^LS
"IX",811.8,811.803,"B",1)
S ^PXD(811.8,DA(1),130,"B",X,DA)=""
"IX",811.8,811.803,"B",2)
K ^PXD(811.8,DA(1),130,"B",X,DA)
"IX",811.8,811.803,"B",2.5)
K ^PXD(811.8,DA(1),130,"B")
"IX",811.8,811.803,"B",11.1,0)
^.114IA^1^1
"IX",811.8,811.803,"B",11.1,1,0)
1^F^811.803^.01^^1^F
"KEY",811.4,811.4,"A",0)
811.4^A^P^791
"KEY",811.4,811.4,"A",2,0)
^.312IA^1^1
"KEY",811.4,811.4,"A",2,1,0)
.01^811.4^1
"KEY",811.8,811.8,"A",0)
811.8^A^P^801
"KEY",811.8,811.8,"A",2,0)
^.312IA^2^2
"KEY",811.8,811.8,"A",2,1,0)
.01^811.8^1
"KEY",811.8,811.8,"A",2,2,0)
.03^811.8^2
"KEYPTR",811.4,811.4,"A")
811.4^B
"KEYPTR",811.8,811.8,"A")
811.8^B
"MBREQ")
1
"PKG",548,-1)
1^1
"PKG",548,0)
CLINICAL REMINDERS^PXRM^Clinical Reminders^^^3000614
"PKG",548,20,0)
^9.402P^^
"PKG",548,22,0)
^9.49I^1^1
"PKG",548,22,1,0)
2.0^3050204^3050322^66481
"PKG",548,22,1,"PAH",1,0)
23^3120306
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
3
"RTN","PXRMARCH")
0^1^B4665333
"RTN","PXRMARCH",1,0)
PXRMARCH ;SLC/PKR/BNT - Clinical Reminder ARCH routines. ;12/09/2011
"RTN","PXRMARCH",2,0)
 ;;2.0;CLINICAL REMINDERS;**20,23**;Feb 04, 2005;Build 3
"RTN","PXRMARCH",3,0)
 ;==========================================================
"RTN","PXRMARCH",4,0)
ELIG(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Multiple occurrence
"RTN","PXRMARCH",5,0)
 ;computed finding for ARCH eligibility.
"RTN","PXRMARCH",6,0)
 N ARCHDATA,IND,SDIR
"RTN","PXRMARCH",7,0)
 ;DBIA #5619
"RTN","PXRMARCH",8,0)
 S IND=$$ELIG^FBARCH0(DFN,BDT,EDT,.ARCHDATA)
"RTN","PXRMARCH",9,0)
 S SDIR=$S(NGET<0:-1,1:1)
"RTN","PXRMARCH",10,0)
 S NGET=$S(NGET<0:-NGET,1:NGET)
"RTN","PXRMARCH",11,0)
 S IND="",NFOUND=0
"RTN","PXRMARCH",12,0)
 F  S IND=$O(ARCHDATA(IND),SDIR) Q:(IND="")!(NFOUND=NGET)  D
"RTN","PXRMARCH",13,0)
 . S NFOUND=NFOUND+1
"RTN","PXRMARCH",14,0)
 . S TEST(NFOUND)=$P(ARCHDATA(IND),U,1)
"RTN","PXRMARCH",15,0)
 . S DATE(NFOUND)=$P(ARCHDATA(IND),U,2)
"RTN","PXRMARCH",16,0)
 . S TEXT(NFOUND)=""
"RTN","PXRMARCH",17,0)
 Q
"RTN","PXRMARCH",18,0)
 ;
"RTN","PXRMARCH",19,0)
 ;==========================================================
"RTN","PXRMARCH",20,0)
LIST(NGET,BDT,EDT,PLIST,PARAM) ;List computed finding for building a list
"RTN","PXRMARCH",21,0)
 ;of ARCH eligible patients.
"RTN","PXRMARCH",22,0)
 N CNT,DATE,DFN,IND,NL,TEMP
"RTN","PXRMARCH",23,0)
 ;DBIA #5619
"RTN","PXRMARCH",24,0)
 S NL=$$LIST^FBARCH0(BDT,EDT)
"RTN","PXRMARCH",25,0)
 F IND=1:1:NL D
"RTN","PXRMARCH",26,0)
 . S TEMP=^TMP($J,"ARCHFEE",IND)
"RTN","PXRMARCH",27,0)
 .;Check eligibility.
"RTN","PXRMARCH",28,0)
 . I '$P(TEMP,U,2) Q
"RTN","PXRMARCH",29,0)
 . S DFN=$P(TEMP,U,1),DATE=$P(TEMP,U,3)
"RTN","PXRMARCH",30,0)
 . S ^TMP($J,"TLIST",DFN,DATE)=""
"RTN","PXRMARCH",31,0)
 S DFN=""
"RTN","PXRMARCH",32,0)
 F  S DFN=$O(^TMP($J,"TLIST",DFN)) Q:DFN=""  D
"RTN","PXRMARCH",33,0)
 . S CNT=0,DATE=""
"RTN","PXRMARCH",34,0)
 . F  S DATE=$O(^TMP($J,"TLIST",DFN,DATE)) Q:(DATE="")!(CNT=NGET)  D
"RTN","PXRMARCH",35,0)
 .. S CNT=CNT+1,^TMP($J,PLIST,DFN,CNT)=U_DATE
"RTN","PXRMARCH",36,0)
 K ^TMP($J,"ARCHFEE"),^TMP($J,"TLIST")
"RTN","PXRMARCH",37,0)
 Q
"RTN","PXRMARCH",38,0)
 ;
"RTN","PXRMARCH",39,0)
 ;==========================================================
"RTN","PXRMARCH",40,0)
ISDUE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Multiple occurrence
"RTN","PXRMARCH",41,0)
 ; computed finding for a Project ARCH Reminder Custom Date Due.
"RTN","PXRMARCH",42,0)
 ; The $$GETDELAY^FBARCH0 API returns a site defined numeric value that represents
"RTN","PXRMARCH",43,0)
 ; the number of days to delay the reminder from being due again after 
"RTN","PXRMARCH",44,0)
 ; being declined or refused through one of the related health factors.
"RTN","PXRMARCH",45,0)
 ;
"RTN","PXRMARCH",46,0)
 ; $$GETDELAY^FBARCH0 Supported by IA 5619
"RTN","PXRMARCH",47,0)
 ;
"RTN","PXRMARCH",48,0)
 N X,HFID,ARCHVHF,ARCHDLAY
"RTN","PXRMARCH",49,0)
 S NFOUND=1
"RTN","PXRMARCH",50,0)
 S ARCHDLAY=$$GETDELAY^FBARCH0()
"RTN","PXRMARCH",51,0)
 S ARCHVHF($P($$NOW^PXRMDATE(),"."))=""
"RTN","PXRMARCH",52,0)
 ; Get DECLINES and REFUSES Health Factor ID and last date created
"RTN","PXRMARCH",53,0)
 F X="DECLINES","REFUSES" S HFID=$O(^AUTTHF("B","ARCH-SERVICE NEEDED THIS VISIT "_X,0)) D
"RTN","PXRMARCH",54,0)
 . Q:'$D(^PXRMINDX(9000010.23,"PI",DFN,HFID))
"RTN","PXRMARCH",55,0)
 . ; Get date and add delay value
"RTN","PXRMARCH",56,0)
 . S ARCHVHF($$FMADD^XLFDT($P($O(^PXRMINDX(9000010.23,"PI",DFN,HFID," "),-1),"."),ARCHDLAY))=""
"RTN","PXRMARCH",57,0)
 S TEST(NFOUND)=1
"RTN","PXRMARCH",58,0)
 S TEXT(NFOUND)=""
"RTN","PXRMARCH",59,0)
 S DATE(NFOUND)=$O(ARCHVHF(" "),-1)
"RTN","PXRMARCH",60,0)
 Q
"RTN","PXRMARCH",61,0)
 ;
"RTN","PXRMP23E")
0^2^B831621
"RTN","PXRMP23E",1,0)
PXRMP23E ;SLC/PKR/BNT - Exchange inits for PXRM*2.0*23 ;12/15/2011
"RTN","PXRMP23E",2,0)
 ;;2.0;CLINICAL REMINDERS;**23**;Feb 04, 2005;Build 3
"RTN","PXRMP23E",3,0)
 ;====================================================
"RTN","PXRMP23E",4,0)
EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
"RTN","PXRMP23E",5,0)
 ;MODE values: I for include in build, A for include action.
"RTN","PXRMP23E",6,0)
 N LN
"RTN","PXRMP23E",7,0)
 S LN=0
"RTN","PXRMP23E",8,0)
 ;
"RTN","PXRMP23E",9,0)
 S LN=LN+1
"RTN","PXRMP23E",10,0)
 S ARRAY(LN,1)="VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY"
"RTN","PXRMP23E",11,0)
 I MODE["I" S ARRAY(LN,2)="12/14/2011@16:12:55"
"RTN","PXRMP23E",12,0)
 I MODE["A" S ARRAY(LN,3)="O"
"RTN","PXRMP23E",13,0)
 ;
"RTN","PXRMP23E",14,0)
 I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
"RTN","PXRMP23E",15,0)
 Q
"RTN","PXRMP23E",16,0)
 ;
"RTN","PXRMP23I")
0^3^B4131496
"RTN","PXRMP23I",1,0)
PXRMP23I ;SLC/PKR/BNT - Inits for PXRM*2.0*23. ;12/15/2011
"RTN","PXRMP23I",2,0)
 ;;2.0;CLINICAL REMINDERS;**23**;Feb 04, 2005;Build 3
"RTN","PXRMP23I",3,0)
 Q
"RTN","PXRMP23I",4,0)
 ;==========================================
"RTN","PXRMP23I",5,0)
CFINC(Y) ;List of computed findings to include in the build.
"RTN","PXRMP23I",6,0)
 N CFLIST,CFNAME
"RTN","PXRMP23I",7,0)
 S CFLIST("VA-ARCH REMINDER CUSTOM DUE DATE")=""
"RTN","PXRMP23I",8,0)
 ;S CFLIST("")=""
"RTN","PXRMP23I",9,0)
 S CFNAME=$P($G(^PXRMD(811.4,Y,0)),U)
"RTN","PXRMP23I",10,0)
 Q $S($D(CFLIST(CFNAME)):1,1:0)
"RTN","PXRMP23I",11,0)
 ;
"RTN","PXRMP23I",12,0)
 ;==========================================
"RTN","PXRMP23I",13,0)
ENDIAG ;Make sure the dialog is enabled.
"RTN","PXRMP23I",14,0)
 N IEN
"RTN","PXRMP23I",15,0)
 S IEN=+$O(^PXRMD(801.41,"B","VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY",""))
"RTN","PXRMP23I",16,0)
 I IEN=0 Q
"RTN","PXRMP23I",17,0)
 S $P(^PXRMD(801.41,IEN,0),U,3)=0
"RTN","PXRMP23I",18,0)
 Q
"RTN","PXRMP23I",19,0)
 ;
"RTN","PXRMP23I",20,0)
 ;==========================================
"RTN","PXRMP23I",21,0)
PRE ;Pre-init
"RTN","PXRMP23I",22,0)
 ;Disable options and protocols
"RTN","PXRMP23I",23,0)
 D OPTION^PXRMUTIL("DISABLE")
"RTN","PXRMP23I",24,0)
 D PROTOCOL^PXRMUTIL("DISABLE")
"RTN","PXRMP23I",25,0)
 D DELEXE^PXRMEXSI("EXARRAY","PXRMP23E")
"RTN","PXRMP23I",26,0)
 Q
"RTN","PXRMP23I",27,0)
 ;
"RTN","PXRMP23I",28,0)
 ;==========================================
"RTN","PXRMP23I",29,0)
POST ;Post-init
"RTN","PXRMP23I",30,0)
 ;Enable options and protocols
"RTN","PXRMP23I",31,0)
 D OPTION^PXRMUTIL("ENABLE")
"RTN","PXRMP23I",32,0)
 D PROTOCOL^PXRMUTIL("ENABLE")
"RTN","PXRMP23I",33,0)
 D SETPVER^PXRMUTIL("2.0P23")
"RTN","PXRMP23I",34,0)
 ;Install Exchange File entries.
"RTN","PXRMP23I",35,0)
 D SMEXINS^PXRMEXSI("EXARRAY","PXRMP23E")
"RTN","PXRMP23I",36,0)
 D ENDIAG^PXRMP23I
"RTN","PXRMP23I",37,0)
 D SENDIM^PXRMP23I
"RTN","PXRMP23I",38,0)
 Q
"RTN","PXRMP23I",39,0)
 ;
"RTN","PXRMP23I",40,0)
 ;==========================================
"RTN","PXRMP23I",41,0)
SENDIM ;Send install message.
"RTN","PXRMP23I",42,0)
 N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
"RTN","PXRMP23I",43,0)
 S NODE="PXRM*2.0*23"
"RTN","PXRMP23I",44,0)
 K ^TMP(NODE,$J)
"RTN","PXRMP23I",45,0)
 ;DBIA #1131 for ^XMB("NETNAME")
"RTN","PXRMP23I",46,0)
 S FROM="PXRM*2.0*23 Install@"_^XMB("NETNAME")
"RTN","PXRMP23I",47,0)
 ;DBIA #2541
"RTN","PXRMP23I",48,0)
 S SYSTEM=$$KSP^XUPARAM("WHERE")
"RTN","PXRMP23I",49,0)
 I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@FORUM.VA.GOV")=""
"RTN","PXRMP23I",50,0)
 E  D
"RTN","PXRMP23I",51,0)
 . N MGIEN,MGROUP
"RTN","PXRMP23I",52,0)
 . S MGIEN=$G(^PXRM(800,1,"MGFE"))
"RTN","PXRMP23I",53,0)
 . S MGROUP=$S(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
"RTN","PXRMP23I",54,0)
 . S TO(MGROUP)=""
"RTN","PXRMP23I",55,0)
 S SUBJECT="Install of PXRM*2.0*23"
"RTN","PXRMP23I",56,0)
 S ^TMP(NODE,$J,1,0)="PXRM*2.0*23 has been installed."
"RTN","PXRMP23I",57,0)
 S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
"RTN","PXRMP23I",58,0)
 D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
"RTN","PXRMP23I",59,0)
 Q
"RTN","PXRMP23I",60,0)
 ;
"VER")
8.0^22.0
"^DD",811.4,811.4,0)
FIELD^^5^10
"^DD",811.4,811.4,0,"DDA")
N
"^DD",811.4,811.4,0,"DT")
3030813
"^DD",811.4,811.4,0,"ID",100)
W:$D(^(100)) "   ",@("$P($P($C(59)_$S($D(^DD(811.4,100,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(100),U,1)_"":"",2),$C(59),1)")
"^DD",811.4,811.4,0,"NM","REMINDER COMPUTED FINDINGS")

"^DD",811.4,811.4,0,"PT",810.31,.04)

"^DD",811.4,811.4,0,"PT",810.32,.01)

"^DD",811.4,811.4,0,"PT",811.52,.01)

"^DD",811.4,811.4,0,"PT",811.902,.01)

"^DD",811.4,811.4,0,"VRPK")
PXRM
"^DD",811.4,811.4,.01,0)
NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(.X)) X
"^DD",811.4,811.4,.01,1,0)
^.1^^0
"^DD",811.4,811.4,.01,3)
Answer must be 3-64 characters in length.
"^DD",811.4,811.4,.01,21,0)
^.001^2^2^3050117^^^^
"^DD",811.4,811.4,.01,21,1,0)
This is the name of the computed finding and is the name the User will
"^DD",811.4,811.4,.01,21,2,0)
use when adding a computed finding to a reminder definition or a term.
"^DD",811.4,811.4,.01,"DT")
3090529
"^DD",811.4,811.4,.02,0)
ROUTINE^F^^0;2^K:$L(X)>8!($L(X)<3) X
"^DD",811.4,811.4,.02,3)
Enter the M routine name.
"^DD",811.4,811.4,.02,8.5)
@
"^DD",811.4,811.4,.02,9)
@
"^DD",811.4,811.4,.02,21,0)
^.001^3^3^3050117^^^^
"^DD",811.4,811.4,.02,21,1,0)
This is the name of an M routine that contains the code for the
"^DD",811.4,811.4,.02,21,2,0)
computed finding. The entry point to use is specified in the ENTRY
"^DD",811.4,811.4,.02,21,3,0)
POINT field.
"^DD",811.4,811.4,.02,"DT")
2990526
"^DD",811.4,811.4,.03,0)
ENTRY POINT^F^^0;3^K:$L(X)>8!($L(X)<2) X
"^DD",811.4,811.4,.03,3)
Enter the entry point, must be 2-8 characters in length.
"^DD",811.4,811.4,.03,8.5)
@
"^DD",811.4,811.4,.03,9)
@
"^DD",811.4,811.4,.03,21,0)
^.001^2^2^3050117^^^^
"^DD",811.4,811.4,.03,21,1,0)
This is the entry point in the routine specified in the ROUTINE
"^DD",811.4,811.4,.03,21,2,0)
field.
"^DD",811.4,811.4,.03,"DT")
2990527
"^DD",811.4,811.4,.04,0)
PRINT NAME^F^^0;4^K:$L(X)>40!($L(X)<1) X
"^DD",811.4,811.4,.04,3)
Enter the PRINT NAME, up to 40 characters.
"^DD",811.4,811.4,.04,21,0)
^.001^2^2^3050117^^^
"^DD",811.4,811.4,.04,21,1,0)
The PRINT NAME will be displayed in the Clinical Maintenance output for
"^DD",811.4,811.4,.04,21,2,0)
computed findings.
"^DD",811.4,811.4,.04,"DT")
3000113
"^DD",811.4,811.4,1,0)
DESCRIPTION^811.41^^1;0
"^DD",811.4,811.4,1,21,0)
^.001^3^3^3080505^^^^
"^DD",811.4,811.4,1,21,1,0)
This is the description of the computed finding. It should explain its
"^DD",811.4,811.4,1,21,2,0)
purpose and how it is to be used including what data is returned for
"^DD",811.4,811.4,1,21,3,0)
use in a Condition.
"^DD",811.4,811.4,5,0)
TYPE^S^M:MULTIPLE;L:LIST;S:SINGLE;^0;5^Q
"^DD",811.4,811.4,5,21,0)
^^4^4^3050117^
"^DD",811.4,811.4,5,21,1,0)
This is the type of computed finding; the possible values are "S" for
"^DD",811.4,811.4,5,21,2,0)
single, "M" for multiple, and "L" for list. The default value is "S".
"^DD",811.4,811.4,5,21,3,0)
For a detailed explanation of the computed finding types see the
"^DD",811.4,811.4,5,21,4,0)
Clinical Reminder Manager manual.
"^DD",811.4,811.4,5,"DT")
3030129
"^DD",811.4,811.4,100,0)
CLASS^RSX^N:NATIONAL;V:VISN;L:LOCAL;^100;1^K:'$$VCLASS^PXRMINTR(X) X
"^DD",811.4,811.4,100,3)
Enter the class.
"^DD",811.4,811.4,100,21,0)
^.001^4^4^3050117^^^^
"^DD",811.4,811.4,100,21,1,0)
This is the class of computed finding. Possible values are "N" for
"^DD",811.4,811.4,100,21,2,0)
national, "V" for VISN, and "L" for local. National computed findings
"^DD",811.4,811.4,100,21,3,0)
will be  prefixed with VA- and cannot be edited. Local or VISN entry
"^DD",811.4,811.4,100,21,4,0)
names cannot  start with VA-.
"^DD",811.4,811.4,100,"DT")
3010518
"^DD",811.4,811.4,101,0)
SPONSOR^P811.6^PXRMD(811.6,^100;2^Q
"^DD",811.4,811.4,101,3)
Enter the sponsor.
"^DD",811.4,811.4,101,21,0)
^.001^1^1^3050117^^
"^DD",811.4,811.4,101,21,1,0)
This is the organization or group that sponsors this computed finding.
"^DD",811.4,811.4,101,"DT")
3010419
"^DD",811.4,811.4,102,0)
REVIEW DATE^D^^100;3^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",811.4,811.4,102,3)
Enter the review date.
"^DD",811.4,811.4,102,21,0)
^.001^4^4^3050117^^
"^DD",811.4,811.4,102,21,1,0)
The REVIEW DATE is used to determine when the computed finding should
"^DD",811.4,811.4,102,21,2,0)
be reviewed to verify that it is current with the latest standards and
"^DD",811.4,811.4,102,21,3,0)
guidelines. You can find all computed findings whose review date has
"^DD",811.4,811.4,102,21,4,0)
passed using the Reminder Review Date report.
"^DD",811.4,811.4,102,"DT")
3010419
"^DD",811.4,811.4,110,0)
EDIT HISTORY^811.42D^^110;0
"^DD",811.4,811.4,110,21,0)
^.001^2^2^3050117^^^^
"^DD",811.4,811.4,110,21,1,0)
This multiple is used to record a history of changes made to the
"^DD",811.4,811.4,110,21,2,0)
computed finding.
"^DD",811.4,811.41,0)
DESCRIPTION SUB-FIELD^^.01^1
"^DD",811.4,811.41,0,"DT")
3000405
"^DD",811.4,811.41,0,"NM","DESCRIPTION")

"^DD",811.4,811.41,0,"UP")
811.4
"^DD",811.4,811.41,.01,0)
DESCRIPTION^W^^0;1^Q
"^DD",811.4,811.41,.01,3)
Enter a description for this computed finding.
"^DD",811.4,811.41,.01,"DT")
3000405
"^DD",811.4,811.42,0)
EDIT HISTORY SUB-FIELD^^2^3
"^DD",811.4,811.42,0,"DT")
3010419
"^DD",811.4,811.42,0,"IX","B",811.42,.01)

"^DD",811.4,811.42,0,"NM","EDIT HISTORY")

"^DD",811.4,811.42,0,"UP")
811.4
"^DD",811.4,811.42,.01,0)
EDIT DATE^D^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",811.4,811.42,.01,1,0)
^.1
"^DD",811.4,811.42,.01,1,1,0)
811.42^B
"^DD",811.4,811.42,.01,1,1,1)
S ^PXRMD(811.4,DA(1),110,"B",$E(X,1,30),DA)=""
"^DD",811.4,811.42,.01,1,1,2)
K ^PXRMD(811.4,DA(1),110,"B",$E(X,1,30),DA)
"^DD",811.4,811.42,.01,21,0)
^.001^2^2^3050117^^
"^DD",811.4,811.42,.01,21,1,0)
This is the date and time when editing was done. This field is set
"^DD",811.4,811.42,.01,21,2,0)
automatically and should not be changed by the user.
"^DD",811.4,811.42,.01,"DT")
3010419
"^DD",811.4,811.42,1,0)
EDIT BY^P200'^VA(200,^0;2^Q
"^DD",811.4,811.42,1,21,0)
^.001^2^2^3050117^^
"^DD",811.4,811.42,1,21,1,0)
This is the person who did the editing. This field is set automatically
"^DD",811.4,811.42,1,21,2,0)
and should not be changed by the user.
"^DD",811.4,811.42,1,"DT")
3010419
"^DD",811.4,811.42,2,0)
EDIT COMMENTS^811.422^^1;0
"^DD",811.4,811.42,2,21,0)
^.001^2^2^3050117^^^
"^DD",811.4,811.42,2,21,1,0)
This word-processing field can be used to record the changes made
"^DD",811.4,811.42,2,21,2,0)
during the editing session.
"^DD",811.4,811.42,2,"DT")
3010425
"^DD",811.4,811.422,0)
EDIT COMMENTS SUB-FIELD^^.01^1
"^DD",811.4,811.422,0,"DT")
3010419
"^DD",811.4,811.422,0,"NM","EDIT COMMENTS")

"^DD",811.4,811.422,0,"UP")
811.42
"^DD",811.4,811.422,.01,0)
EDIT COMMENTS^W^^0;1^Q
"^DD",811.4,811.422,.01,3)
Enter your edit comments.
"^DD",811.4,811.422,.01,"DT")
3010425
"^DD",811.8,811.8,0)
FIELD^^130^8
"^DD",811.8,811.8,0,"DDA")
N
"^DD",811.8,811.8,0,"DT")
3080125
"^DD",811.8,811.8,0,"NM","REMINDER EXCHANGE")

"^DD",811.8,811.8,0,"SCR")
I 0>1
"^DD",811.8,811.8,0,"VRPK")
PXRM
"^DD",811.8,811.8,.01,0)
NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X
"^DD",811.8,811.8,.01,.1)

"^DD",811.8,811.8,.01,1,0)
^.1^^0
"^DD",811.8,811.8,.01,3)
Do not edit this field.
"^DD",811.8,811.8,.01,21,0)
^.001^2^2^3050124^^^^
"^DD",811.8,811.8,.01,21,1,0)
This is the name of the entry in the Exchange File. It will be the same
"^DD",811.8,811.8,.01,21,2,0)
as the name of the reminder definition that was packed.
"^DD",811.8,811.8,.01,"DT")
3010601
"^DD",811.8,811.8,.02,0)
SOURCE^F^^0;2^K:$L(X)>64!($L(X)<3) X
"^DD",811.8,811.8,.02,3)
Do not edit this field.
"^DD",811.8,811.8,.02,21,0)
^.001^3^3^3070313^^^
"^DD",811.8,811.8,.02,21,1,0)
This is the source of the packed reminder. It will contain the name of
"^DD",811.8,811.8,.02,21,2,0)
the person who packed it and their site.
"^DD",811.8,811.8,.02,21,3,0)

"^DD",811.8,811.8,.02,"DT")
3000706
"^DD",811.8,811.8,.03,0)
DATE PACKED^D^^0;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",811.8,811.8,.03,3)
Do not edit this field.
"^DD",811.8,811.8,.03,21,0)
^.001^3^3^3050124^^^
"^DD",811.8,811.8,.03,21,1,0)
This is the date and time the reminder was originally packed. When a
"^DD",811.8,811.8,.03,21,2,0)
packed reminder is put into the Exchange File from a MailMan message or
"^DD",811.8,811.8,.03,21,3,0)
a host file, this will reflect the original packing date and time.
"^DD",811.8,811.8,.03,"DT")
3000712
"^DD",811.8,811.8,100,0)
PACKED REMINDER^811.801A^^100;0
"^DD",811.8,811.8,100,9)
@
"^DD",811.8,811.8,100,21,0)
^.001^1^1^3050126^^^^
"^DD",811.8,811.8,100,21,1,0)
This multiple stores the packed reminder definition in XML format.
"^DD",811.8,811.8,100,"DT")
3030312
"^DD",811.8,811.8,110,0)
DESCRIPTION^811.804^^110;0
"^DD",811.8,811.8,110,21,0)
^.001^4^4^3050124^^^^
"^DD",811.8,811.8,110,21,1,0)
This contains formatted information about the Exchange File entry. It
"^DD",811.8,811.8,110,21,2,0)
includes source information, a brief description, and keywords. This
"^DD",811.8,811.8,110,21,3,0)
information will be displayed when an entry is selected for possible
"^DD",811.8,811.8,110,21,4,0)
installation.
"^DD",811.8,811.8,119,0)
NUMBER OF UNIQUE COMPONENTS^NJ6,0^^119;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
"^DD",811.8,811.8,119,3)
Do not edit this field.
"^DD",811.8,811.8,119,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8,119,21,1,0)
This is the number of unique components in the packed reminder.
"^DD",811.8,811.8,119,"DT")
3030609
"^DD",811.8,811.8,120,0)
COMPONENT LIST^811.802A^^120;0
"^DD",811.8,811.8,120,21,0)
^.001^1^1^3080206^^^^
"^DD",811.8,811.8,120,21,1,0)
This is a list of components that are included in the packed reminder.
"^DD",811.8,811.8,130,0)
INSTALLATION HISTORY^811.803DA^^130;0
"^DD",811.8,811.8,130,21,0)
^.001^2^2^3070808^^^^
"^DD",811.8,811.8,130,21,1,0)
This multiple is used to record a history of packed reminder
"^DD",811.8,811.8,130,21,2,0)
installations.
"^DD",811.8,811.801,0)
PACKED REMINDER SUB-FIELD^^.01^1
"^DD",811.8,811.801,0,"DT")
3030609
"^DD",811.8,811.801,0,"IX","B",811.801,.01)

"^DD",811.8,811.801,0,"NM","PACKED REMINDER")

"^DD",811.8,811.801,0,"UP")
811.8
"^DD",811.8,811.801,.01,0)
XML DATA^WL^^0;1^Q
"^DD",811.8,811.801,.01,1,0)
^.1
"^DD",811.8,811.801,.01,1,1,0)
811.801^B
"^DD",811.8,811.801,.01,1,1,1)
S ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA)=""
"^DD",811.8,811.801,.01,1,1,2)
K ^PXD(811.8,DA(1),100,"B",$E(X,1,30),DA)
"^DD",811.8,811.801,.01,1,1,"DT")
3030415
"^DD",811.8,811.801,.01,3)
Do not edit this field.
"^DD",811.8,811.801,.01,9)
@
"^DD",811.8,811.801,.01,21,0)
^.001^1^1^3050126^^^^
"^DD",811.8,811.801,.01,21,1,0)
This is a line of XML data.
"^DD",811.8,811.801,.01,"DT")
3030609
"^DD",811.8,811.802,0)
COMPONENT LIST SUB-FIELD^^1^4
"^DD",811.8,811.802,0,"DT")
3080125
"^DD",811.8,811.802,0,"NM","COMPONENT LIST")

"^DD",811.8,811.802,0,"UP")
811.8
"^DD",811.8,811.802,.01,0)
COMPONENT^F^^0;1^K:$L(X)>64!($L(X)<1) X
"^DD",811.8,811.802,.01,1,0)
^.1^^0
"^DD",811.8,811.802,.01,3)
Do not edit this field.
"^DD",811.8,811.802,.01,21,0)
^.001^1^1^3050124^^^
"^DD",811.8,811.802,.01,21,1,0)
This is the name of the component; for example, ROUTINE or EDUCATION TOPIC.
"^DD",811.8,811.802,.01,"DT")
3050112
"^DD",811.8,811.802,.02,0)
FILE NUMBER^NJ14,4X^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."5N.N) X
"^DD",811.8,811.802,.02,3)
Do not edit this field.
"^DD",811.8,811.802,.02,21,0)
^.001^2^2^3050126^^^^
"^DD",811.8,811.802,.02,21,1,0)
This is the file number of the component. If the component is a routine,
"^DD",811.8,811.802,.02,21,2,0)
then the file number will be 0.
"^DD",811.8,811.802,.02,"DT")
3050111
"^DD",811.8,811.802,.03,0)
NUMBER OF ITEMS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
"^DD",811.8,811.802,.03,3)
Do not edit this field.
"^DD",811.8,811.802,.03,21,0)
^.001^4^4^3050124^^^
"^DD",811.8,811.802,.03,21,1,0)
This is the number of this type of component that is included in the
"^DD",811.8,811.802,.03,21,2,0)
packed reminder. For example, if this particular component is Health
"^DD",811.8,811.802,.03,21,3,0)
Factors and there are three of them in the packed reminder, the NUMBER
"^DD",811.8,811.802,.03,21,4,0)
OF ITEMS would be 3.
"^DD",811.8,811.802,.03,"DT")
3001101
"^DD",811.8,811.802,1,0)
ITEM LIST^811.8021A^^1;0
"^DD",811.8,811.802,1,21,0)
^.001^3^3^3080206^^^^
"^DD",811.8,811.802,1,21,1,0)
This is the list of items of the component type. For example, if the
"^DD",811.8,811.802,1,21,2,0)
component type is Health Factors and there are three of them, the three
"^DD",811.8,811.802,1,21,3,0)
entries are specified in this list.
"^DD",811.8,811.8021,0)
ITEM LIST SUB-FIELD^^4^7
"^DD",811.8,811.8021,0,"DT")
3080125
"^DD",811.8,811.8021,0,"NM","ITEM LIST")

"^DD",811.8,811.8021,0,"UP")
811.802
"^DD",811.8,811.8021,.01,0)
ITEM^F^^0;1^K:$L(X)>64!($L(X)<1) X
"^DD",811.8,811.8021,.01,1,0)
^.1^^0
"^DD",811.8,811.8021,.01,3)
Do not edit this field.
"^DD",811.8,811.8021,.01,21,0)
^.001^1^1^3050124^^^
"^DD",811.8,811.8021,.01,21,1,0)
This is the name of the item.
"^DD",811.8,811.8021,.01,"DT")
3050112
"^DD",811.8,811.8021,.02,0)
START LINE^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X
"^DD",811.8,811.8021,.02,3)
Do not edit this field.
"^DD",811.8,811.8021,.02,21,0)
^.001^1^1^3050124^^^
"^DD",811.8,811.8021,.02,21,1,0)
This is the line in node 100 where the data for this item starts.
"^DD",811.8,811.8021,.02,"DT")
3050124
"^DD",811.8,811.8021,.03,0)
END LINE^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X
"^DD",811.8,811.8021,.03,3)
Do not edit this field.
"^DD",811.8,811.8021,.03,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8021,.03,21,1,0)
This is the line in node 100 where the data for this item ends.
"^DD",811.8,811.8021,.03,"DT")
3050124
"^DD",811.8,811.8021,1,0)
IEN ROOT START LINE^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X
"^DD",811.8,811.8021,1,3)
Do not edit this field.
"^DD",811.8,811.8021,1,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8021,1,21,1,0)
This is the line in node 100 where the ien root for this item starts.
"^DD",811.8,811.8021,1,"DT")
3050124
"^DD",811.8,811.8021,2,0)
IEN ROOT END LINE^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X
"^DD",811.8,811.8021,2,3)
Do not edit this field.
"^DD",811.8,811.8021,2,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8021,2,21,1,0)
This is the line in node 100 where the ien root ends.
"^DD",811.8,811.8021,2,"DT")
3050124
"^DD",811.8,811.8021,3,0)
OK TO INSTALL^S^0:NO;1:YES;^0;6^Q
"^DD",811.8,811.8021,3,21,0)
^^4^4^3080122^
"^DD",811.8,811.8021,3,21,1,0)
If this field is YES then the item can be installed. The value for
"^DD",811.8,811.8021,3,21,2,0)
this field is determined when the list of components and items in
"^DD",811.8,811.8021,3,21,3,0)
the Exchange File is built.
"^DD",811.8,811.8021,3,21,4,0)

"^DD",811.8,811.8021,3,"DT")
3080122
"^DD",811.8,811.8021,4,0)
SELECTABLE^S^0:NO;1:YES;^0;7^Q
"^DD",811.8,811.8021,4,21,0)
^.001^6^6^3080206^^
"^DD",811.8,811.8021,4,21,1,0)
If this field is marked YES then the item can be selected for
"^DD",811.8,811.8021,4,21,2,0)
installation. This will include all Clinical Reminder items selected
"^DD",811.8,811.8021,4,21,3,0)
for packing by the user, reminder dialogs that are linked to a reminder
"^DD",811.8,811.8021,4,21,4,0)
definition, and entries from files that are exchangeable.
"^DD",811.8,811.8021,4,21,5,0)

"^DD",811.8,811.8021,4,21,6,0)

"^DD",811.8,811.8021,4,"DT")
3080206
"^DD",811.8,811.803,0)
INSTALLATION HISTORY SUB-FIELD^^2^4
"^DD",811.8,811.803,0,"DT")
3070808
"^DD",811.8,811.803,0,"NM","INSTALLATION HISTORY")

"^DD",811.8,811.803,0,"UP")
811.8
"^DD",811.8,811.803,.01,0)
INSTALLATION DATE AND TIME^D^^0;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X
"^DD",811.8,811.803,.01,1,0)
^.1^^0
"^DD",811.8,811.803,.01,3)
Do not edit this field.
"^DD",811.8,811.803,.01,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.803,.01,21,1,0)
This is the date and time of the installation.
"^DD",811.8,811.803,.01,"DT")
3001121
"^DD",811.8,811.803,.02,0)
INSTALLED BY^F^^0;2^K:$L(X)>45!($L(X)<1) X
"^DD",811.8,811.803,.02,3)
Do not edit this field.
"^DD",811.8,811.803,.02,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.803,.02,21,1,0)
This is the person who did the installation.
"^DD",811.8,811.803,.02,"DT")
3001116
"^DD",811.8,811.803,1,0)
COMPONENT LIST^811.8031A^^1;0
"^DD",811.8,811.803,1,21,0)
^.001^2^2^3050124^^^
"^DD",811.8,811.803,1,21,1,0)
This multiple contains a list of the packed reminder components that
"^DD",811.8,811.803,1,21,2,0)
were selected as part of this installation.
"^DD",811.8,811.803,2,0)
INSTALLATION TYPE^F^^0;3^K:$L(X)>30!($L(X)<1) X
"^DD",811.8,811.803,2,3)
Answer must be 1-30 characters in length.
"^DD",811.8,811.803,2,21,0)
^.001^3^3^3070808^^
"^DD",811.8,811.803,2,21,1,0)
This field is used to store the installation type.
"^DD",811.8,811.803,2,21,2,0)

"^DD",811.8,811.803,2,21,3,0)

"^DD",811.8,811.803,2,"DT")
3070808
"^DD",811.8,811.8031,0)
COMPONENT LIST SUB-FIELD^^5^6
"^DD",811.8,811.8031,0,"DT")
3010313
"^DD",811.8,811.8031,0,"IX","B",811.8031,.01)

"^DD",811.8,811.8031,0,"NM","COMPONENT LIST")

"^DD",811.8,811.8031,0,"UP")
811.803
"^DD",811.8,811.8031,.01,0)
INDEX^NJ6,0^^0;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
"^DD",811.8,811.8031,.01,1,0)
^.1
"^DD",811.8,811.8031,.01,1,1,0)
811.8031^B
"^DD",811.8,811.8031,.01,1,1,1)
S ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",811.8,811.8031,.01,1,1,2)
K ^PXD(811.8,DA(2),130,DA(1),1,"B",$E(X,1,30),DA)
"^DD",811.8,811.8031,.01,3)
Do not edit this field.
"^DD",811.8,811.8031,.01,21,0)
^.001^2^2^3050124^^^
"^DD",811.8,811.8031,.01,21,1,0)
This number corresponds to the item number in the List Manager display
"^DD",811.8,811.8031,.01,21,2,0)
of the components in the Exchange File entry.
"^DD",811.8,811.8031,.01,"DT")
3001115
"^DD",811.8,811.8031,1,0)
COMPONENT^F^^0;2^K:$L(X)>64!($L(X)<1) X
"^DD",811.8,811.8031,1,3)
Do not edit this field.
"^DD",811.8,811.8031,1,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8031,1,21,1,0)
This is the type of component, Education Topic, Health Factor, etc.
"^DD",811.8,811.8031,1,"DT")
3001115
"^DD",811.8,811.8031,2,0)
ITEM^F^^0;3^K:$L(X)>64!($L(X)<1) X
"^DD",811.8,811.8031,2,3)
Do not edit this field.
"^DD",811.8,811.8031,2,21,0)
^.001^2^2^3050124^^
"^DD",811.8,811.8031,2,21,1,0)
This is the name of the component. For example, if the component is
"^DD",811.8,811.8031,2,21,2,0)
a Health Factor then this is the name of the Health Factor.
"^DD",811.8,811.8031,2,"DT")
3001115
"^DD",811.8,811.8031,3,0)
ACTION^F^^0;4^K:$L(X)>4!($L(X)<1) X
"^DD",811.8,811.8031,3,3)
Do not edit this field.
"^DD",811.8,811.8031,3,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8031,3,21,1,0)
This is the action that was taken with the item.
"^DD",811.8,811.8031,3,"DT")
3001115
"^DD",811.8,811.8031,4,0)
NEWNAME^F^^0;5^K:$L(X)>64!($L(X)<1) X
"^DD",811.8,811.8031,4,3)
Do not edit this field.
"^DD",811.8,811.8031,4,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.8031,4,21,1,0)
If the item was copied to a new name then the new name is stored here.
"^DD",811.8,811.8031,4,"DT")
3001115
"^DD",811.8,811.8031,5,0)
ADDITIONAL DETAILS^811.80315A^^1;0
"^DD",811.8,811.8031,5,21,0)
^.001^3^3^3050124^^^
"^DD",811.8,811.8031,5,21,1,0)
This multiple is used to store additional details about the
"^DD",811.8,811.8031,5,21,2,0)
installation. As an example, if a finding in a reminder definition is
"^DD",811.8,811.8031,5,21,3,0)
replaced with another finding that information is stored here.
"^DD",811.8,811.80315,0)
ADDITIONAL DETAILS SUB-FIELD^^.01^1
"^DD",811.8,811.80315,0,"DT")
3010313
"^DD",811.8,811.80315,0,"IX","B",811.80315,.01)

"^DD",811.8,811.80315,0,"NM","ADDITIONAL DETAILS")

"^DD",811.8,811.80315,0,"UP")
811.8031
"^DD",811.8,811.80315,.01,0)
ADDITIONAL DETAILS^F^^0;1^K:$L(X)>80!($L(X)<1) X
"^DD",811.8,811.80315,.01,1,0)
^.1
"^DD",811.8,811.80315,.01,1,1,0)
811.80315^B
"^DD",811.8,811.80315,.01,1,1,1)
S ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",811.8,811.80315,.01,1,1,2)
K ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
"^DD",811.8,811.80315,.01,3)
Do not edit this field.
"^DD",811.8,811.80315,.01,21,0)
^.001^1^1^3050124^^
"^DD",811.8,811.80315,.01,21,1,0)
This is a line of additional information.
"^DD",811.8,811.80315,.01,"DT")
3010313
"^DD",811.8,811.804,0)
DESCRIPTION SUB-FIELD^^.01^1
"^DD",811.8,811.804,0,"DT")
3001221
"^DD",811.8,811.804,0,"NM","DESCRIPTION")

"^DD",811.8,811.804,0,"UP")
811.8
"^DD",811.8,811.804,.01,0)
DESCRIPTION^W^^0;1^Q
"^DD",811.8,811.804,.01,3)
Do not edit this field.
"^DD",811.8,811.804,.01,"DT")
3001221
"^DIC",811.4,811.4,0)
REMINDER COMPUTED FINDINGS^811.4
"^DIC",811.4,811.4,0,"GL")
^PXRMD(811.4,
"^DIC",811.4,811.4,"%",0)
^1.005^^0
"^DIC",811.4,811.4,"%D",0)
^1.001^28^28^3050117^^^^
"^DIC",811.4,811.4,"%D",1,0)
When none of the standard Clinical Reminder finding types will work, a
"^DIC",811.4,811.4,"%D",2,0)
computed finding can be created. There are two steps in creating a
"^DIC",811.4,811.4,"%D",3,0)
computed finding. First a MUMPS routine must be written. Information
"^DIC",811.4,811.4,"%D",4,0)
about how to do this can be found in the Clinical Reminders Manager
"^DIC",811.4,811.4,"%D",5,0)
Manual. The second step is to make an entry in this file, which
"^DIC",811.4,811.4,"%D",6,0)
contains a list of reminder computed findings. There are four fields
"^DIC",811.4,811.4,"%D",7,0)
for each entry; they are:
"^DIC",811.4,811.4,"%D",8,0)
 
"^DIC",811.4,811.4,"%D",9,0)
NAME - this is the name of the computed finding. When adding a computed
"^DIC",811.4,811.4,"%D",10,0)
finding as finding to a reminder definition or term, it is done using
"^DIC",811.4,811.4,"%D",11,0)
the name. For example, you would type CF.VA-BMI to add the exported
"^DIC",811.4,811.4,"%D",12,0)
VA-BMI computed finding to your reminder definition.
"^DIC",811.4,811.4,"%D",13,0)
 
"^DIC",811.4,811.4,"%D",14,0)
ROUTINE - this is the name of the MUMPS routine.
"^DIC",811.4,811.4,"%D",15,0)
 
"^DIC",811.4,811.4,"%D",16,0)
ENTRY - this is the entry point in the MUMPS routine.
"^DIC",811.4,811.4,"%D",17,0)
 
"^DIC",811.4,811.4,"%D",18,0)
PRINT NAME - this will be displayed on the Clinical Maintenance
"^DIC",811.4,811.4,"%D",19,0)
component as the name of the computed finding. If it is blank, then NAME
"^DIC",811.4,811.4,"%D",20,0)
will be used.
"^DIC",811.4,811.4,"%D",21,0)

"^DIC",811.4,811.4,"%D",22,0)
TYPE - this is a set of codes that specifies what type of computed
"^DIC",811.4,811.4,"%D",23,0)
finding this is. "S" stands for single occurrence, "M" for multiple occurrence,
"^DIC",811.4,811.4,"%D",24,0)
and "L" for list. If it is blank, single will be assumed.
"^DIC",811.4,811.4,"%D",25,0)

"^DIC",811.4,811.4,"%D",26,0)
This file contains a combination of nationally distributed and local
"^DIC",811.4,811.4,"%D",27,0)
entries. Nationally distributed entries have their name prefixed with
"^DIC",811.4,811.4,"%D",28,0)
VA-. Local entry names cannot start with VA-.
"^DIC",811.4,"B","REMINDER COMPUTED FINDINGS",811.4)

"^DIC",811.8,811.8,0)
REMINDER EXCHANGE^811.8
"^DIC",811.8,811.8,0,"GL")
^PXD(811.8,
"^DIC",811.8,811.8,"%",0)
^1.005^^0
"^DIC",811.8,811.8,"%D",0)
^1.001^3^3^3050126^^^^
"^DIC",811.8,811.8,"%D",1,0)
The Reminder Exchange File is used to store packed reminder
"^DIC",811.8,811.8,"%D",2,0)
definitions. All the entries in this file are managed by the
"^DIC",811.8,811.8,"%D",3,0)
Reminder Exchange Utility and should never be edited by hand.
"^DIC",811.8,"B","REMINDER EXCHANGE",811.8)

**END**
**END**