Create DG1966.TXT

KIDS Distribution saved on Sep 29, 2014@21:29:39
DG*5.3*1966
**KIDS**:DG*5.3*1966^

**INSTALL NAME**
DG*5.3*1966
"BLD",9061,0)
DG*5.3*1966^REGISTRATION^0^3140929^y
"BLD",9061,1,0)
^^1^1^3140913^
"BLD",9061,1,1,0)
PRE-REGISTRATION MHV ENROLLMENT ENHANCEMENT
"BLD",9061,4,0)
^9.64PA^390.02^3
"BLD",9061,4,2,0)
2
"BLD",9061,4,2,222)
y^n^f^^^^n
"BLD",9061,4,390.01,0)
390.01
"BLD",9061,4,390.01,222)
y^y^f^^n^^y^o^y
"BLD",9061,4,390.02,0)
390.02
"BLD",9061,4,390.02,222)
y^y^f^^^^n
"BLD",9061,4,"B",2,2)

"BLD",9061,4,"B",390.01,390.01)

"BLD",9061,4,"B",390.02,390.02)

"BLD",9061,6.3)
19
"BLD",9061,"KRN",0)
^9.67PA^779.2^20
"BLD",9061,"KRN",.4,0)
.4
"BLD",9061,"KRN",.401,0)
.401
"BLD",9061,"KRN",.402,0)
.402
"BLD",9061,"KRN",.403,0)
.403
"BLD",9061,"KRN",.5,0)
.5
"BLD",9061,"KRN",.84,0)
.84
"BLD",9061,"KRN",3.6,0)
3.6
"BLD",9061,"KRN",3.8,0)
3.8
"BLD",9061,"KRN",9.2,0)
9.2
"BLD",9061,"KRN",9.8,0)
9.8
"BLD",9061,"KRN",9.8,"NM",0)
^9.68A^2^2
"BLD",9061,"KRN",9.8,"NM",1,0)
DGPREP1^^0^B39469818
"BLD",9061,"KRN",9.8,"NM",2,0)
DGMHV^^0^B11344968
"BLD",9061,"KRN",9.8,"NM","B","DGMHV",2)

"BLD",9061,"KRN",9.8,"NM","B","DGPREP1",1)

"BLD",9061,"KRN",19,0)
19
"BLD",9061,"KRN",19.1,0)
19.1
"BLD",9061,"KRN",101,0)
101
"BLD",9061,"KRN",101,"NM",0)
^9.68A^2^2
"BLD",9061,"KRN",101,"NM",1,0)
DG MHV EDIT^^0
"BLD",9061,"KRN",101,"NM",2,0)
DG MHV MENU^^0
"BLD",9061,"KRN",101,"NM","B","DG MHV EDIT",1)

"BLD",9061,"KRN",101,"NM","B","DG MHV MENU",2)

"BLD",9061,"KRN",409.61,0)
409.61
"BLD",9061,"KRN",409.61,"NM",0)
^9.68A^1^1
"BLD",9061,"KRN",409.61,"NM",1,0)
DG MHV^^0
"BLD",9061,"KRN",409.61,"NM","B","DG MHV",1)

"BLD",9061,"KRN",771,0)
771
"BLD",9061,"KRN",779.2,0)
779.2
"BLD",9061,"KRN",870,0)
870
"BLD",9061,"KRN",8989.51,0)
8989.51
"BLD",9061,"KRN",8989.52,0)
8989.52
"BLD",9061,"KRN",8994,0)
8994
"BLD",9061,"KRN","B",.4,.4)

"BLD",9061,"KRN","B",.401,.401)

"BLD",9061,"KRN","B",.402,.402)

"BLD",9061,"KRN","B",.403,.403)

"BLD",9061,"KRN","B",.5,.5)

"BLD",9061,"KRN","B",.84,.84)

"BLD",9061,"KRN","B",3.6,3.6)

"BLD",9061,"KRN","B",3.8,3.8)

"BLD",9061,"KRN","B",9.2,9.2)

"BLD",9061,"KRN","B",9.8,9.8)

"BLD",9061,"KRN","B",19,19)

"BLD",9061,"KRN","B",19.1,19.1)

"BLD",9061,"KRN","B",101,101)

"BLD",9061,"KRN","B",409.61,409.61)

"BLD",9061,"KRN","B",771,771)

"BLD",9061,"KRN","B",779.2,779.2)

"BLD",9061,"KRN","B",870,870)

"BLD",9061,"KRN","B",8989.51,8989.51)

"BLD",9061,"KRN","B",8989.52,8989.52)

"BLD",9061,"KRN","B",8994,8994)

"BLD",9061,"QDEF")
^^^^NO^^^^NO^^NO
"BLD",9061,"QUES",0)
^9.62^^
"BLD",9061,"REQB",0)
^9.611^^
"DATA",390.01,1,0)
Yes - I am already enrolled.
"DATA",390.01,1,1)
1
"DATA",390.01,1,1,0)
^390.011^1^1
"DATA",390.01,1,1,1,0)
Yes - I am already enrolled.
"DATA",390.01,1,2,0)
^390.12^3^3^3140929^^^^
"DATA",390.01,1,2,1,0)
That's great!  Are you aware you can access your medical records, refill 
"DATA",390.01,1,2,2,0)
your prescriptions, view appointments, and send secure messages to your 
"DATA",390.01,1,2,3,0)
provider?
"DATA",390.01,1,3)
Yes - I am already enrolled.
"DATA",390.01,2,0)
Yes - I would like to enroll.
"DATA",390.01,2,1)
2
"DATA",390.01,2,2,0)
^390.12^4^4^3140929^^^
"DATA",390.01,2,2,1,0)
A My HealtheVet account allows you to view your appointments, access your 
"DATA",390.01,2,2,2,0)
medical records and lab results, refill your prescriptions, and 
"DATA",390.01,2,2,3,0)
communicate securely with your Provider. We can assist you in creating 
"DATA",390.01,2,2,4,0)
your account today.
"DATA",390.01,2,3)
Yes - I would like to enroll.
"DATA",390.01,2,4)
D ACTIONS^DGMHV(.DGMSACT,.ACTSEL)
"DATA",390.01,3,0)
Yes - But I do not want to enroll right now.
"DATA",390.01,3,1)
3
"DATA",390.01,3,2,0)
^^8^8^3140929^
"DATA",390.01,3,2,1,0)
A MyHealtheVet account allows you to view your appointments, access your 
"DATA",390.01,3,2,2,0)
medical records, refill your prescriptions, and communicate securely with 
"DATA",390.01,3,2,3,0)
your Provider. 
"DATA",390.01,3,2,4,0)
 
"DATA",390.01,3,2,5,0)
I can give you some easy-to-follow instructions to take home and enroll 
"DATA",390.01,3,2,6,0)
or I can schedule a time for you to come into the clinic to enroll with a 
"DATA",390.01,3,2,7,0)
My HealtheVet coordinator. Once you have registered you will need to come 
"DATA",390.01,3,2,8,0)
back to the clinic to sign a Release of Information form.
"DATA",390.01,3,3)
Yes - But I do not want to enroll right now.
"DATA",390.01,3,4)
D ACTIONS^DGMHV(.DGMSACT,.ACTSEL)
"DATA",390.01,4,0)
No - No one has spoken to me/I don't know what MHV is.
"DATA",390.01,4,1)
4
"DATA",390.01,4,2,0)
^390.12^3^3^3140929^^
"DATA",390.01,4,2,1,0)
A My HealtheVet account allows you to view your appointments, access your 
"DATA",390.01,4,2,2,0)
medical records, refill your VA prescriptions, and communicate securely 
"DATA",390.01,4,2,3,0)
with your Provider.
"DATA",390.01,4,3)
No - No one has spoken to me.
"DATA",390.01,4,4)
D ACTIONS^DGMHV(.DGMSACT,.ACTSEL)
"DATA",390.01,5,0)
No - I am not interested in enrolling.
"DATA",390.01,5,1)
5
"DATA",390.01,5,2,0)
^^4^4^3140929^
"DATA",390.01,5,2,1,0)
Are you aware that a My HealtheVet account allows you to view your VA
"DATA",390.01,5,2,2,0)
appointments, Lab results, and access medical records? You can refill and
"DATA",390.01,5,2,3,0)
track prescription deliveries and communicate securely with your Health
"DATA",390.01,5,2,4,0)
care teams.
"DATA",390.01,5,3)
No - I am not interested in enrolling.
"DATA",390.01,5,4)
D NOFLW^DGMHV($G(DGSOCCOD))
"FIA",2)
PATIENT
"FIA",2,0)
^DPT(
"FIA",2,0,0)
2I
"FIA",2,0,1)
y^n^f^^^^n
"FIA",2,0,10)

"FIA",2,0,11)

"FIA",2,0,"RLRO")

"FIA",2,0,"VR")
5.3^DG
"FIA",2,2)
0
"FIA",2,2.001)
0
"FIA",2,2.01)
0
"FIA",2,2.011)
0
"FIA",2,2.02)
0
"FIA",2,2.0361)
0
"FIA",2,2.04)
0
"FIA",2,2.05)
0
"FIA",2,2.0534)
0
"FIA",2,2.0537026)
0
"FIA",2,2.06)
0
"FIA",2,2.0992)
0
"FIA",2,2.0993)
0
"FIA",2,2.101)
0
"FIA",2,2.11)
0
"FIA",2,2.12)
0
"FIA",2,2.13)
0
"FIA",2,2.141)
0
"FIA",2,2.16)
0
"FIA",2,2.312)
0
"FIA",2,2.31211)
0
"FIA",2,2.3129)
0
"FIA",2,2.3215)
0
"FIA",2,2.3216)
0
"FIA",2,2.322)
0
"FIA",2,2.3222)
0
"FIA",2,2.3226)
0
"FIA",2,2.3227)
0
"FIA",2,2.3228)
0
"FIA",2,2.3229)
0
"FIA",2,2.32291)
0
"FIA",2,2.32292)
0
"FIA",2,2.332)
0
"FIA",2,2.396)
0
"FIA",2,2.397)
0
"FIA",2,2.398)
0
"FIA",2,2.399)
0
"FIA",2,2.409)
0
"FIA",2,2.5370262)
0
"FIA",2,2.98)
0
"FIA",390.01)
MHV SOCIALIZATION
"FIA",390.01,0)
^DGMHV(390.01,
"FIA",390.01,0,0)
390.01
"FIA",390.01,0,1)
y^y^f^^n^^y^o^y
"FIA",390.01,0,10)

"FIA",390.01,0,11)

"FIA",390.01,0,"RLRO")

"FIA",390.01,0,"VR")
5.3^DG
"FIA",390.01,390.01)
0
"FIA",390.01,390.12)
0
"FIA",390.02)
MHV SOCIALIZATION ACTIONS
"FIA",390.02,0)
^DGMHV(390.02,
"FIA",390.02,0,0)
390.02
"FIA",390.02,0,1)
y^y^f^^^^n
"FIA",390.02,0,10)

"FIA",390.02,0,11)

"FIA",390.02,0,"RLRO")

"FIA",390.02,0,"VR")
5.3^DG
"FIA",390.02,390.02)
0
"IX",2,2,"ACVCOM",0)
2^ACVCOM^Update Combat Vet Eligibility End Date^MU^^R^^I^2^^^^^A
"IX",2,2,"ACVCOM",.1,0)
^^11^11^3030613^
"IX",2,2,"ACVCOM",.1,1,0)
This multi-level MUMPS x-ref will trigger an update to the Combat Vet 
"IX",2,2,"ACVCOM",.1,2,0)
Eligibility End Date field under the following conditions:
"IX",2,2,"ACVCOM",.1,3,0)
  1) Service Separation Date [Last] is precise and > 2981111 AND EITHER
"IX",2,2,"ACVCOM",.1,4,0)
  2) Combat To Date is after 11/11/98 OR
"IX",2,2,"ACVCOM",.1,5,0)
     Persian Gulf To Date is after 11/11/98 OR
"IX",2,2,"ACVCOM",.1,6,0)
     Somalia To Date is after 11/11/98 OR
"IX",2,2,"ACVCOM",.1,7,0)
     Yugoslavia To Date is after 11/11/98
"IX",2,2,"ACVCOM",.1,8,0)
 
"IX",2,2,"ACVCOM",.1,9,0)
The Combat vet field will be set to the Service Separation Date + 2 
"IX",2,2,"ACVCOM",.1,10,0)
years, and will only be updated if information in these fields has 
"IX",2,2,"ACVCOM",.1,11,0)
changed.
"IX",2,2,"ACVCOM",1)
N DGZ S DGZ=$S(X2(10):X2(10),1:X2(1)) D SETCV^DGCV(DA,DGZ)
"IX",2,2,"ACVCOM",1.4)
I '$P($G(^DPT(DA,.52)),"^",15) S X=$$CVELIG^DGCV(DA)
"IX",2,2,"ACVCOM",2)
Q
"IX",2,2,"ACVCOM",2.4)
Q
"IX",2,2,"ACVCOM",11.1,0)
^.114IA^10^10
"IX",2,2,"ACVCOM",11.1,1,0)
1^F^2^.327^^^F
"IX",2,2,"ACVCOM",11.1,2,0)
2^F^2^.5294^^^F
"IX",2,2,"ACVCOM",11.1,3,0)
3^F^2^.322021^^^F
"IX",2,2,"ACVCOM",11.1,4,0)
4^F^2^.322018^^^F
"IX",2,2,"ACVCOM",11.1,5,0)
5^F^2^.322012^^^F
"IX",2,2,"ACVCOM",11.1,6,0)
6^F^2^.5291^^^F
"IX",2,2,"ACVCOM",11.1,7,0)
7^F^2^.322019^^^F
"IX",2,2,"ACVCOM",11.1,8,0)
8^F^2^.322016^^^F
"IX",2,2,"ACVCOM",11.1,9,0)
9^F^2^.32201^^^F
"IX",2,2,"ACVCOM",11.1,10,0)
10^C
"IX",2,2,"ACVCOM",11.1,10,1.5)
S X=$P($$LAST^DGMSEUTL(DA),U,2)
"IX",2,2,"ACVCOM2",0)
2^ACVCOM2^Update Combat Veteran End Date^MU^^F^IR^W^2.3216^^^^^A
"IX",2,2,"ACVCOM2",.1,0)
^^3^3^3090811^^
"IX",2,2,"ACVCOM2",.1,1,0)
This MUMPS cross reference will trigger an update to the Combat Veteran
"IX",2,2,"ACVCOM2",.1,2,0)
End Date field #.5295 if the Service Separation Date for the
"IX",2,2,"ACVCOM2",.1,3,0)
last (most recent) military service episode is entered.
"IX",2,2,"ACVCOM2",1)
D SETCV^DGCV(DA(1),X2(2))
"IX",2,2,"ACVCOM2",1.4)
I '$P($G(^DPT(DA(1),.52)),U,15) S X=$$CVELIG^DGCV(DA(1))
"IX",2,2,"ACVCOM2",2)
Q
"IX",2,2,"ACVCOM2",11.1,0)
^.114IA^2^2
"IX",2,2,"ACVCOM2",11.1,1,0)
1^F^2.3216^.02^^^F
"IX",2,2,"ACVCOM2",11.1,2,0)
2^C
"IX",2,2,"ACVCOM2",11.1,2,1.5)
S X=$P($$LAST^DGMSEUTL(DA(1)),U,2)
"IX",2,2,"ADGFM27D01",0)
2^ADGFM27D01^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFM27D01",.1,0)
^^2^2^3060624^
"IX",2,2,"ADGFM27D01",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point if the 
"IX",2,2,"ADGFM27D01",.1,2,0)
CURRENT ENROLLMENT (#27.01) field changes.
"IX",2,2,"ADGFM27D01",1)
D FC^DGFCPROT(.DA,2,27.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFM27D01",2)
D FC^DGFCPROT(.DA,2,27.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFM27D01",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFM27D01",11.1,1,0)
1^F^2^27.01^^^F
"IX",2,2,"ADGFM27D01",11.1,1,3)

"IX",2,2,"ADGFM351",0)
2^ADGFM351^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFM351",.1,0)
^^5^5^3020624
"IX",2,2,"ADGFM351",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFM351",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFM351",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFM351",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFM351",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFM351",1)
D FC^DGFCPROT(.DA,2,.351,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFM351",2)
D FC^DGFCPROT(.DA,2,.351,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFM351",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFM351",11.1,1,0)
1^F^2^.351^^^F
"IX",2,2,"ADGFMD01",0)
2^ADGFMD01^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD01",.1,0)
^^5^5^3030311
"IX",2,2,"ADGFMD01",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD01",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD01",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD01",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD01",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD01",1)
D FC^DGFCPROT(.DA,2,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD01",2)
D FC^DGFCPROT(.DA,2,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD01",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD01",11.1,1,0)
1^F^2^.01^^^F
"IX",2,2,"ADGFMD02",0)
2^ADGFMD02^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD02",.1,0)
^^2^2^3060624^
"IX",2,2,"ADGFMD02",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point if the
"IX",2,2,"ADGFMD02",.1,2,0)
data in the SEX (.02) field changes.
"IX",2,2,"ADGFMD02",1)
D FC^DGFCPROT(.DA,2,.02,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD02",2)
D FC^DGFCPROT(.DA,2,.02,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD02",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD02",11.1,1,0)
1^F^2^.02^^^F
"IX",2,2,"ADGFMD02",11.1,1,3)

"IX",2,2,"ADGFMD03",0)
2^ADGFMD03^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD03",.1,0)
^^5^5^3021116
"IX",2,2,"ADGFMD03",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD03",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD03",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD03",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD03",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD03",1)
D FC^DGFCPROT(.DA,2,.03,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD03",2)
D FC^DGFCPROT(.DA,2,.03,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD03",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD03",11.1,1,0)
1^F^2^.03^^^F
"IX",2,2,"ADGFMD09",0)
2^ADGFMD09^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD09",.1,0)
^^5^5^3021118
"IX",2,2,"ADGFMD09",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD09",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD09",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD09",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD09",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD09",1)
D FC^DGFCPROT(.DA,2,.09,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD09",2)
D FC^DGFCPROT(.DA,2,.09,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD09",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD09",11.1,1,0)
1^F^2^.09^^^F
"IX",2,2,"ADGFMD097",0)
2^ADGFMD097^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD097",.1,0)
^^2^2^3060624^
"IX",2,2,"ADGFMD097",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point if field 
"IX",2,2,"ADGFMD097",.1,2,0)
DATE ENTERED INTO FILE (.097) is modified.
"IX",2,2,"ADGFMD097",1)
D FC^DGFCPROT(.DA,2,.097,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD097",2)
D FC^DGFCPROT(.DA,2,.097,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD097",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD097",11.1,1,0)
1^F^2^.097^^^F
"IX",2,2,"ADGFMD097",11.1,1,3)

"IX",2,2,"ADGFMD104",0)
2^ADGFMD104^x-ref calls the DG FIELD MONITOR event point.^MU^^F^^I^2^^^^^A
"IX",2,2,"ADGFMD104",.1,0)
^^2^2^3060624^
"IX",2,2,"ADGFMD104",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point if the 
"IX",2,2,"ADGFMD104",.1,2,0)
PROVIDER (.104) is modified.
"IX",2,2,"ADGFMD104",1)
D FC^DGFCPROT(.DA,2,.104,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD104",2)
D FC^DGFCPROT(.DA,2,.104,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD104",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD104",11.1,1,0)
1^F^2^.104^^^F
"IX",2,2,"ADGFMD104",11.1,1,3)

"IX",2,2,"ADGFMD111",0)
2^ADGFMD111^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD111",.1,0)
^^5^5^3030609
"IX",2,2,"ADGFMD111",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD111",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD111",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD111",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD111",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD111",1)
D FC^DGFCPROT(.DA,2,.111,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD111",2)
D FC^DGFCPROT(.DA,2,.111,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD111",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD111",11.1,1,0)
1^F^2^.111^^^F
"IX",2,2,"ADGFMD1112",0)
2^ADGFMD1112^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1112",.1,0)
^^5^5^3031113
"IX",2,2,"ADGFMD1112",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1112",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1112",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1112",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1112",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1112",1)
D FC^DGFCPROT(.DA,2,.1112,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1112",2)
D FC^DGFCPROT(.DA,2,.1112,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1112",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1112",11.1,1,0)
1^F^2^.1112^^^F
"IX",2,2,"ADGFMD112",0)
2^ADGFMD112^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD112",.1,0)
^^5^5^3030609
"IX",2,2,"ADGFMD112",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD112",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD112",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD112",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD112",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD112",1)
D FC^DGFCPROT(.DA,2,.112,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD112",2)
D FC^DGFCPROT(.DA,2,.112,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD112",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD112",11.1,1,0)
1^F^2^.112^^^F
"IX",2,2,"ADGFMD113",0)
2^ADGFMD113^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD113",.1,0)
^^5^5^3031113
"IX",2,2,"ADGFMD113",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD113",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD113",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD113",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD113",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD113",1)
D FC^DGFCPROT(.DA,2,.113,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD113",2)
D FC^DGFCPROT(.DA,2,.113,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD113",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD113",11.1,1,0)
1^F^2^.113^^^F
"IX",2,2,"ADGFMD114",0)
2^ADGFMD114^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD114",.1,0)
^^5^5^3030609
"IX",2,2,"ADGFMD114",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD114",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD114",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD114",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD114",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD114",1)
D FC^DGFCPROT(.DA,2,.114,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD114",2)
D FC^DGFCPROT(.DA,2,.114,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD114",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD114",11.1,1,0)
1^F^2^.114^^^F
"IX",2,2,"ADGFMD115",0)
2^ADGFMD115^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD115",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD115",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD115",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD115",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD115",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD115",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD115",1)
D FC^DGFCPROT(.DA,2,.115,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD115",2)
D FC^DGFCPROT(.DA,2,.115,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD115",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD115",11.1,1,0)
1^F^2^.115^^^F
"IX",2,2,"ADGFMD116",0)
2^ADGFMD116^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD116",.1,0)
^^5^5^3031113
"IX",2,2,"ADGFMD116",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD116",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD116",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD116",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD116",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD116",1)
D FC^DGFCPROT(.DA,2,.116,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD116",2)
D FC^DGFCPROT(.DA,2,.116,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD116",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD116",11.1,1,0)
1^F^2^.116^^^F
"IX",2,2,"ADGFMD1315",0)
2^ADGFMD1315^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1315",.1,0)
^^6^6^3080811^
"IX",2,2,"ADGFMD1315",.1,1,0)
This cross reference activates the DG FIELD MONITOR event
"IX",2,2,"ADGFMD1315",.1,2,0)
point. Applications that wish to monitor edit activity
"IX",2,2,"ADGFMD1315",.1,3,0)
related to this field may subscribe to that event point and
"IX",2,2,"ADGFMD1315",.1,4,0)
take action as indicated by the changes that occur.  Refer
"IX",2,2,"ADGFMD1315",.1,5,0)
to the DG FIELD MONITOR protocol for a description of the
"IX",2,2,"ADGFMD1315",.1,6,0)
information available at the time of the event.
"IX",2,2,"ADGFMD1315",1)
D FC^DGFCPROT(.DA,2,.1315,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1315",2)
D FC^DGFCPROT(.DA,2,.1315,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1315",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1315",11.1,1,0)
1^F^2^.1315^^^F
"IX",2,2,"ADGFMD14",0)
2^ADGFMD14^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD14",.1,0)
^^2^2^3060624^
"IX",2,2,"ADGFMD14",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point if the 
"IX",2,2,"ADGFMD14",.1,2,0)
field CURRENT MEANS TEST STATUS (#.14) is modified.
"IX",2,2,"ADGFMD14",1)
D FC^DGFCPROT(.DA,2,.14,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD14",2)
D FC^DGFCPROT(.DA,2,.14,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD14",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD14",11.1,1,0)
1^F^2^.14^^^F
"IX",2,2,"ADGFMD14",11.1,1,3)

"IX",2,2,"ADGFMD1411",0)
2^ADGFMD1411^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1411",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1411",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1411",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1411",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1411",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1411",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1411",1)
D FC^DGFCPROT(.DA,2,.1411,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1411",2)
D FC^DGFCPROT(.DA,2,.1411,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1411",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1411",11.1,1,0)
1^F^2^.1411^^^F
"IX",2,2,"ADGFMD1412",0)
2^ADGFMD1412^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1412",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1412",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1412",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1412",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1412",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1412",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1412",1)
D FC^DGFCPROT(.DA,2,.1412,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1412",2)
D FC^DGFCPROT(.DA,2,.1412,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1412",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1412",11.1,1,0)
1^F^2^.1412^^^F
"IX",2,2,"ADGFMD1413",0)
2^ADGFMD1413^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1413",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1413",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1413",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1413",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1413",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1413",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1413",1)
D FC^DGFCPROT(.DA,2,.1413,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1413",2)
D FC^DGFCPROT(.DA,2,.1413,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1413",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1413",11.1,1,0)
1^F^2^.1413^^^F
"IX",2,2,"ADGFMD1414",0)
2^ADGFMD1414^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1414",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1414",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1414",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1414",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1414",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1414",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1414",1)
D FC^DGFCPROT(.DA,2,.1414,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1414",2)
D FC^DGFCPROT(.DA,2,.1414,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1414",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1414",11.1,1,0)
1^F^2^.1414^^^F
"IX",2,2,"ADGFMD1415",0)
2^ADGFMD1415^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1415",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1415",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1415",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1415",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1415",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1415",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1415",1)
D FC^DGFCPROT(.DA,2,.1415,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1415",2)
D FC^DGFCPROT(.DA,2,.1415,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1415",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1415",11.1,1,0)
1^F^2^.1415^^^F
"IX",2,2,"ADGFMD1416",0)
2^ADGFMD1416^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1416",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1416",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1416",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1416",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1416",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1416",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1416",1)
D FC^DGFCPROT(.DA,2,.1416,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1416",2)
D FC^DGFCPROT(.DA,2,.1416,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1416",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1416",11.1,1,0)
1^F^2^.1416^^^F
"IX",2,2,"ADGFMD1417",0)
2^ADGFMD1417^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1417",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1417",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1417",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1417",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1417",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1417",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1417",1)
D FC^DGFCPROT(.DA,2,.1417,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1417",2)
D FC^DGFCPROT(.DA,2,.1417,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1417",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1417",11.1,1,0)
1^F^2^.1417^^^F
"IX",2,2,"ADGFMD1418",0)
2^ADGFMD1418^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD1418",.1,0)
^^5^5^3030702
"IX",2,2,"ADGFMD1418",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD1418",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD1418",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD1418",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD1418",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD1418",1)
D FC^DGFCPROT(.DA,2,.1418,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1418",2)
D FC^DGFCPROT(.DA,2,.1418,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD1418",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD1418",11.1,1,0)
1^F^2^.1418^^^F
"IX",2,2,"ADGFMD351",0)
2^ADGFMD351^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"ADGFMD351",.1,0)
^^5^5^3020820
"IX",2,2,"ADGFMD351",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"ADGFMD351",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"ADGFMD351",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"ADGFMD351",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"ADGFMD351",.1,5,0)
the information available at the time of the event.
"IX",2,2,"ADGFMD351",1)
D FC^DGFCPROT(.DA,2,.351,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD351",2)
D FC^DGFCPROT(.DA,2,.351,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD351",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD351",11.1,1,0)
1^F^2^.351^^^F
"IX",2,2,"ADGFMD361",0)
2^ADGFMD361^THhis x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^
A
"IX",2,2,"ADGFMD361",.1,0)
^^2^2^3060624^
"IX",2,2,"ADGFMD361",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point if the 
"IX",2,2,"ADGFMD361",.1,2,0)
PRIMARY ELIGIBILITY CODE (#.361)field changes.
"IX",2,2,"ADGFMD361",1)
D FC^DGFCPROT(.DA,2,.361,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD361",2)
D FC^DGFCPROT(.DA,2,.361,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"ADGFMD361",11.1,0)
^.114IA^1^1
"IX",2,2,"ADGFMD361",11.1,1,0)
1^F^2^.361^^^F
"IX",2,2,"ADTTM1",0)
2^ADTTM1^TEMPORARY ADDRESS Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM1",.1,0)
^^2^2^3050810
"IX",2,2,"ADTTM1",.1,1,0)
This cross-reference will update the TEMPORARY ADDRESS CHANGE DT/TM field
"IX",2,2,"ADTTM1",.1,2,0)
when the Temporary Address data changes for a patient.
"IX",2,2,"ADTTM1",1)
D TEMP^DGDDDTTM
"IX",2,2,"ADTTM1",2)
D TEMP^DGDDDTTM
"IX",2,2,"ADTTM1",11.1,0)
^.114IA^13^13
"IX",2,2,"ADTTM1",11.1,1,0)
1^F^2^.1211^^^F
"IX",2,2,"ADTTM1",11.1,2,0)
2^F^2^.1212^^^F
"IX",2,2,"ADTTM1",11.1,3,0)
3^F^2^.1213^^^F
"IX",2,2,"ADTTM1",11.1,4,0)
4^F^2^.1214^^^F
"IX",2,2,"ADTTM1",11.1,5,0)
5^F^2^.1215^^^F
"IX",2,2,"ADTTM1",11.1,6,0)
6^F^2^.1216^^^F
"IX",2,2,"ADTTM1",11.1,7,0)
7^F^2^.1217^^^F
"IX",2,2,"ADTTM1",11.1,8,0)
8^F^2^.1218^^^F
"IX",2,2,"ADTTM1",11.1,9,0)
9^F^2^.12105^^^F
"IX",2,2,"ADTTM1",11.1,10,0)
10^F^2^.12112^^^F
"IX",2,2,"ADTTM1",11.1,11,0)
11^F^2^.1221^^^F
"IX",2,2,"ADTTM1",11.1,11,3)

"IX",2,2,"ADTTM1",11.1,12,0)
12^F^2^.1222^^^F
"IX",2,2,"ADTTM1",11.1,12,3)

"IX",2,2,"ADTTM1",11.1,13,0)
13^F^2^.1223^^^F
"IX",2,2,"ADTTM1",11.1,13,3)

"IX",2,2,"ADTTM2",0)
2^ADTTM2^CONFIDENTIAL ADDRESS Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM2",.1,0)
^^2^2^3080811^^
"IX",2,2,"ADTTM2",.1,1,0)
This cross-reference will update the CONFIDENTIAL ADDR CHANGE DT/TM field
"IX",2,2,"ADTTM2",.1,2,0)
when the confidential address data changes for a patient.
"IX",2,2,"ADTTM2",1)
D CONF^DGDDDTTM
"IX",2,2,"ADTTM2",2)
D CONF^DGDDDTTM
"IX",2,2,"ADTTM2",11.1,0)
^.114IA^14^14
"IX",2,2,"ADTTM2",11.1,1,0)
1^F^2^.1411^^^F
"IX",2,2,"ADTTM2",11.1,2,0)
2^F^2^.1412^^^F
"IX",2,2,"ADTTM2",11.1,3,0)
3^F^2^.1413^^^F
"IX",2,2,"ADTTM2",11.1,4,0)
4^F^2^.1414^^^F
"IX",2,2,"ADTTM2",11.1,5,0)
5^F^2^.1415^^^F
"IX",2,2,"ADTTM2",11.1,6,0)
6^F^2^.1416^^^F
"IX",2,2,"ADTTM2",11.1,7,0)
7^F^2^.1417^^^F
"IX",2,2,"ADTTM2",11.1,8,0)
8^F^2^.1418^^^F
"IX",2,2,"ADTTM2",11.1,9,0)
9^F^2^.14105^^^F
"IX",2,2,"ADTTM2",11.1,10,0)
10^F^2^.14114^^^F
"IX",2,2,"ADTTM2",11.1,11,0)
11^F^2^.14115^^^F
"IX",2,2,"ADTTM2",11.1,12,0)
12^F^2^.14116^^^F
"IX",2,2,"ADTTM2",11.1,13,0)
13^F^2^.14111^^^F
"IX",2,2,"ADTTM2",11.1,14,0)
14^F^2^.1315^^^F
"IX",2,2,"ADTTM2",11.1,14,3)

"IX",2,2,"ADTTM3",0)
2^ADTTM3^PRIMARY NOK Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM3",.1,0)
^^2^2^3050813
"IX",2,2,"ADTTM3",.1,1,0)
This cross-reference will update the PRIMARY NOK CHANGE DATE/TIME field
"IX",2,2,"ADTTM3",.1,2,0)
when the Primary Next of Kin data changes for a patient.
"IX",2,2,"ADTTM3",1)
D PNOK^DGDDDTTM
"IX",2,2,"ADTTM3",2)
D PNOK^DGDDDTTM
"IX",2,2,"ADTTM3",11.1,0)
^.114IA^12^12
"IX",2,2,"ADTTM3",11.1,1,0)
1^F^2^.211^^^F
"IX",2,2,"ADTTM3",11.1,2,0)
2^F^2^.212^^^F
"IX",2,2,"ADTTM3",11.1,3,0)
3^F^2^.213^^^F
"IX",2,2,"ADTTM3",11.1,4,0)
4^F^2^.214^^^F
"IX",2,2,"ADTTM3",11.1,5,0)
5^F^2^.215^^^F
"IX",2,2,"ADTTM3",11.1,6,0)
6^F^2^.216^^^F
"IX",2,2,"ADTTM3",11.1,7,0)
7^F^2^.217^^^F
"IX",2,2,"ADTTM3",11.1,8,0)
8^F^2^.218^^^F
"IX",2,2,"ADTTM3",11.1,9,0)
9^F^2^.2125^^^F
"IX",2,2,"ADTTM3",11.1,10,0)
10^F^2^.2207^^^F
"IX",2,2,"ADTTM3",11.1,11,0)
11^F^2^.219^^^F
"IX",2,2,"ADTTM3",11.1,12,0)
12^F^2^.21011^^^F
"IX",2,2,"ADTTM4",0)
2^ADTTM4^SECONDARY NOK Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM4",.1,0)
^^2^2^3050830
"IX",2,2,"ADTTM4",.1,1,0)
This cross-reference will update the SECONDARY NOK CHANGE DATE/TIME field
"IX",2,2,"ADTTM4",.1,2,0)
when the Secondary Next of Kin data changes for a patient.
"IX",2,2,"ADTTM4",1)
D SNOK^DGDDDTTM
"IX",2,2,"ADTTM4",2)
D SNOK^DGDDDTTM
"IX",2,2,"ADTTM4",11.1,0)
^.114IA^12^12
"IX",2,2,"ADTTM4",11.1,1,0)
1^F^2^.2191^^^F
"IX",2,2,"ADTTM4",11.1,2,0)
2^F^2^.2192^^^F
"IX",2,2,"ADTTM4",11.1,3,0)
3^F^2^.2193^^^F
"IX",2,2,"ADTTM4",11.1,4,0)
4^F^2^.2194^^^F
"IX",2,2,"ADTTM4",11.1,5,0)
5^F^2^.2195^^^F
"IX",2,2,"ADTTM4",11.1,6,0)
6^F^2^.2196^^^F
"IX",2,2,"ADTTM4",11.1,7,0)
7^F^2^.2197^^^F
"IX",2,2,"ADTTM4",11.1,8,0)
8^F^2^.2198^^^F
"IX",2,2,"ADTTM4",11.1,9,0)
9^F^2^.21925^^^F
"IX",2,2,"ADTTM4",11.1,10,0)
10^F^2^.2203^^^F
"IX",2,2,"ADTTM4",11.1,11,0)
11^F^2^.2199^^^F
"IX",2,2,"ADTTM4",11.1,12,0)
12^F^2^.211011^^^F
"IX",2,2,"ADTTM5",0)
2^ADTTM5^E-CONTACT Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM5",.1,0)
^^2^2^3050813
"IX",2,2,"ADTTM5",.1,1,0)
This cross-reference will update the E-CONTACT CHANGE DATE/TIME field when
"IX",2,2,"ADTTM5",.1,2,0)
the Emergency Contact data changes for a patient.
"IX",2,2,"ADTTM5",1)
D ECON^DGDDDTTM
"IX",2,2,"ADTTM5",2)
D ECON^DGDDDTTM
"IX",2,2,"ADTTM5",11.1,0)
^.114IA^12^12
"IX",2,2,"ADTTM5",11.1,1,0)
1^F^2^.331^^^F
"IX",2,2,"ADTTM5",11.1,2,0)
2^F^2^.332^^^F
"IX",2,2,"ADTTM5",11.1,3,0)
3^F^2^.333^^^F
"IX",2,2,"ADTTM5",11.1,4,0)
4^F^2^.334^^^F
"IX",2,2,"ADTTM5",11.1,5,0)
5^F^2^.335^^^F
"IX",2,2,"ADTTM5",11.1,6,0)
6^F^2^.336^^^F
"IX",2,2,"ADTTM5",11.1,6,3)

"IX",2,2,"ADTTM5",11.1,7,0)
7^F^2^.337^^^F
"IX",2,2,"ADTTM5",11.1,8,0)
8^F^2^.338^^^F
"IX",2,2,"ADTTM5",11.1,9,0)
9^F^2^.3305^^^F
"IX",2,2,"ADTTM5",11.1,10,0)
10^F^2^.2201^^^F
"IX",2,2,"ADTTM5",11.1,11,0)
11^F^2^.339^^^F
"IX",2,2,"ADTTM5",11.1,11,3)

"IX",2,2,"ADTTM5",11.1,12,0)
12^F^2^.33011^^^F
"IX",2,2,"ADTTM5",11.1,12,3)

"IX",2,2,"ADTTM6",0)
2^ADTTM6^E2-CONTACT Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM6",.1,0)
^^2^2^3050830
"IX",2,2,"ADTTM6",.1,1,0)
This cross-reference will update the E2-CONTACT CHANGE DATE/TIME field
"IX",2,2,"ADTTM6",.1,2,0)
when the Secondary Emergency Contact data changes for a patient.
"IX",2,2,"ADTTM6",1)
D ECON2^DGDDDTTM
"IX",2,2,"ADTTM6",2)
D ECON2^DGDDDTTM
"IX",2,2,"ADTTM6",11.1,0)
^.114IA^11^11
"IX",2,2,"ADTTM6",11.1,1,0)
1^F^2^.3311^^^F
"IX",2,2,"ADTTM6",11.1,2,0)
2^F^2^.3312^^^F
"IX",2,2,"ADTTM6",11.1,3,0)
3^F^2^.3313^^^F
"IX",2,2,"ADTTM6",11.1,4,0)
4^F^2^.3314^^^F
"IX",2,2,"ADTTM6",11.1,5,0)
5^F^2^.3315^^^F
"IX",2,2,"ADTTM6",11.1,6,0)
6^F^2^.3316^^^F
"IX",2,2,"ADTTM6",11.1,7,0)
7^F^2^.3317^^^F
"IX",2,2,"ADTTM6",11.1,8,0)
8^F^2^.3318^^^F
"IX",2,2,"ADTTM6",11.1,9,0)
9^F^2^.2204^^^F
"IX",2,2,"ADTTM6",11.1,10,0)
10^F^2^.3319^^^F
"IX",2,2,"ADTTM6",11.1,11,0)
11^F^2^.331011^^^F
"IX",2,2,"ADTTM7",0)
2^ADTTM7^DESIGNEE Cross-Reference^MU^^R^^I^2^^^^^A
"IX",2,2,"ADTTM7",.1,0)
^^2^2^3050813
"IX",2,2,"ADTTM7",.1,1,0)
This cross-reference will update the DESIGNEE CHANGE DATE/TIME field when
"IX",2,2,"ADTTM7",.1,2,0)
the Designee data changes for a patient.
"IX",2,2,"ADTTM7",1)
D DESIG^DGDDDTTM
"IX",2,2,"ADTTM7",2)
D DESIG^DGDDDTTM
"IX",2,2,"ADTTM7",11.1,0)
^.114IA^12^12
"IX",2,2,"ADTTM7",11.1,1,0)
1^F^2^.341^^^F
"IX",2,2,"ADTTM7",11.1,2,0)
2^F^2^.342^^^F
"IX",2,2,"ADTTM7",11.1,3,0)
3^F^2^.343^^^F
"IX",2,2,"ADTTM7",11.1,4,0)
4^F^2^.344^^^F
"IX",2,2,"ADTTM7",11.1,5,0)
5^F^2^.345^^^F
"IX",2,2,"ADTTM7",11.1,6,0)
6^F^2^.346^^^F
"IX",2,2,"ADTTM7",11.1,7,0)
7^F^2^.347^^^F
"IX",2,2,"ADTTM7",11.1,8,0)
8^F^2^.348^^^F
"IX",2,2,"ADTTM7",11.1,9,0)
9^F^2^.3405^^^F
"IX",2,2,"ADTTM7",11.1,10,0)
10^F^2^.2202^^^F
"IX",2,2,"ADTTM7",11.1,11,0)
11^F^2^.349^^^F
"IX",2,2,"ADTTM7",11.1,12,0)
12^F^2^.34011^^^F
"IX",2,2,"AEAR",0)
2^AEAR^Contains YES entries^R^^F^IR^I^2^^^^^S
"IX",2,2,"AEAR",.1,0)
^^1^1^3080401^^
"IX",2,2,"AEAR",.1,1,0)
This cross reference contains 'yes' entries
"IX",2,2,"AEAR",1)
S ^DPT("AEAR",X,DA)=""
"IX",2,2,"AEAR",1.4)
S X=X(1)=1
"IX",2,2,"AEAR",2)
K ^DPT("AEAR",X,DA)
"IX",2,2,"AEAR",2.5)
K ^DPT("AEAR")
"IX",2,2,"AEAR",11.1,0)
^.114IA^1^1
"IX",2,2,"AEAR",11.1,1,0)
1^F^2^1010.159^^1^F
"IX",2,2,"AEAR",11.1,1,3)

"IX",2,2,"AMSEL",0)
2^AMSEL^DELETE MSE (LAST) FIELDS^MU^^F^^I^2^^^^^A
"IX",2,2,"AMSEL",1)
Q
"IX",2,2,"AMSEL",2)
D DELMSE^DGRPMS(DA,1)
"IX",2,2,"AMSEL",2.4)
S X=X2(1)=""
"IX",2,2,"AMSEL",11.1,0)
^.114IA^1^1
"IX",2,2,"AMSEL",11.1,1,0)
1^F^2^.325^^^F
"IX",2,2,"AMSEL",11.1,1,3)

"IX",2,2,"AMSENL",0)
2^AMSENL^DELETE MSE (NEXT TO LAST) FIELDS^MU^^F^^I^2^^^^^A
"IX",2,2,"AMSENL",1)
Q
"IX",2,2,"AMSENL",2)
D DELMSE^DGRPMS(DA,2)
"IX",2,2,"AMSENL",2.4)
S X=X2(1)=""
"IX",2,2,"AMSENL",11.1,0)
^.114IA^1^1
"IX",2,2,"AMSENL",11.1,1,0)
1^F^2^.3291^^^F
"IX",2,2,"AMSENNL",0)
2^AMSENNL^DELETE MSE (NEXT TO NEXT TO LAST) FIELDS^MU^^F^^I^2^^^^^A
"IX",2,2,"AMSENNL",1)
Q
"IX",2,2,"AMSENNL",2)
D DELMSE^DGRPMS(DA,3)
"IX",2,2,"AMSENNL",2.4)
S X=X2(1)=""
"IX",2,2,"AMSENNL",11.1,0)
^.114IA^1^1
"IX",2,2,"AMSENNL",11.1,1,0)
1^F^2^.3296^^^F
"IX",2,2,"AMSENNL",11.1,1,3)

"IX",2,2,"ANAM01",0)
2^ANAM01^This index keeps the NAME COMPONENTS file in synch with the .01 field.^
MU^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM01",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM01",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM01",.1,2,0)
COMPONENTS (#20) file record associated with the #.01 field synchronized
"IX",2,2,"ANAM01",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM01",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.01,.DG20NAME,1.01,+$P($G(^DPT(DA,"NAME")),U),"CL30") K DG2
0NAME Q
"IX",2,2,"ANAM01",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.01,1.01) Q
"IX",2,2,"ANAM01",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM01",11.1,1,0)
1^F^2^.01^^1^F
"IX",2,2,"ANAM1001",0)
2^ANAM1001^This index keeps the NAME COMPONENTS file in synch with field #30.^MU
^^F^IR^W^2.101^^^^^A
"IX",2,2,"ANAM1001",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM1001",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM1001",.1,2,0)
COMPONENTS (#20) file record associated with the #30 field synchronized
"IX",2,2,"ANAM1001",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM1001",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2.101,.DA,30,.DG20NAME,100.21,,"CL30") K DG20NAME Q
"IX",2,2,"ANAM1001",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) 
Q
"IX",2,2,"ANAM1001",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM1001",11.1,1,0)
1^F^2.101^30^^1^F
"IX",2,2,"ANAM201",0)
2^ANAM201^This index keeps the NAME COMPONENTS file in synch with the .01 field.
^MU^^F^IR^W^2.01^^^^^A
"IX",2,2,"ANAM201",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM201",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM201",.1,2,0)
COMPONENTS (#20) file record associated with the #.01 field synchronized
"IX",2,2,"ANAM201",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM201",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2.01,.DA,.01,.DG20NAME,100.03,,"CL30") K DG20NAME Q
"IX",2,2,"ANAM201",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) 
Q
"IX",2,2,"ANAM201",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM201",11.1,1,0)
1^F^2.01^.01^^1^F
"IX",2,2,"ANAM211",0)
2^ANAM211^This index keeps the NAME COMPONENTS file in synch with field #.211.^M
U^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM211",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM211",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM211",.1,2,0)
COMPONENTS (#20) file record associated with the #.211 field synchronized
"IX",2,2,"ANAM211",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM211",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.211,.DG20NAME,1.02,+$P($G(^DPT(DA,"NAME")),U,2),"CL35") K 
DG20NAME Q
"IX",2,2,"ANAM211",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.211,1.02) Q
"IX",2,2,"ANAM211",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM211",11.1,1,0)
1^F^2^.211^^1^F
"IX",2,2,"ANAM2191",0)
2^ANAM2191^This index keeps the NAME COMPONENTS file in synch with field #.2191.
^MU^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM2191",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM2191",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM2191",.1,2,0)
COMPONENTS (#20) file record associated with the #.2191 field synchronized
"IX",2,2,"ANAM2191",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM2191",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.2191,.DG20NAME,1.03,+$P($G(^DPT(DA,"NAME")),U,3),"CL35") K
 DG20NAME Q
"IX",2,2,"ANAM2191",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2191,1.03) Q
"IX",2,2,"ANAM2191",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM2191",11.1,1,0)
1^F^2^.2191^^1^F
"IX",2,2,"ANAM2401",0)
2^ANAM2401^This index keeps the NAME COMPONENTS file in synch with field #.2401.
^MU^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM2401",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM2401",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM2401",.1,2,0)
COMPONENTS (#20) file record associated with the #.2401 field synchronized
"IX",2,2,"ANAM2401",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM2401",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.2401,.DG20NAME,1.04,+$P($G(^DPT(DA,"NAME")),U,4),"CL35") K
 DG20NAME Q
"IX",2,2,"ANAM2401",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2401,1.04) Q
"IX",2,2,"ANAM2401",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM2401",11.1,1,0)
1^F^2^.2401^^1^F
"IX",2,2,"ANAM2402",0)
2^ANAM2402^This index keeps the NAME COMPONENTS file in synch with field #.2402.
^MU^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM2402",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM2402",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM2402",.1,2,0)
COMPONENTS (#20) file record associated with the #.2402 field synchronized
"IX",2,2,"ANAM2402",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM2402",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.2402,.DG20NAME,1.05,+$P($G(^DPT(DA,"NAME")),U,5),"CL35") K
 DG20NAME Q
"IX",2,2,"ANAM2402",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2402,1.05) Q
"IX",2,2,"ANAM2402",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM2402",11.1,1,0)
1^F^2^.2402^^1^F
"IX",2,2,"ANAM2403",0)
2^ANAM2403^This index keeps the NAME COMPONENTS file in synch with field #.2403.
^MU^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM2403",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM2403",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM2403",.1,2,0)
COMPONENTS (#20) file record associated with the #.2403 field synchronized
"IX",2,2,"ANAM2403",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM2403",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.2403,.DG20NAME,1.06,+$P($G(^DPT(DA,"NAME")),U,6),"CL35") K
 DG20NAME Q
"IX",2,2,"ANAM2403",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2403,1.06) Q
"IX",2,2,"ANAM2403",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM2403",11.1,1,0)
1^F^2^.2403^^1^F
"IX",2,2,"ANAM331",0)
2^ANAM331^This index keeps the NAME COMPONENTS file in synch with field #.331.^M
U^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM331",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM331",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM331",.1,2,0)
COMPONENTS (#20) file record associated with the #.331 field synchronized
"IX",2,2,"ANAM331",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM331",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.331,.DG20NAME,1.07,+$P($G(^DPT(DA,"NAME")),U,7),"CL35") K 
DG20NAME Q
"IX",2,2,"ANAM331",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.331,1.07) Q
"IX",2,2,"ANAM331",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM331",11.1,1,0)
1^F^2^.331^^1^F
"IX",2,2,"ANAM3311",0)
2^ANAM3311^This index keeps the NAME COMPONENTS file in synch with field #.3311.
^MU^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM3311",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM3311",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM3311",.1,2,0)
COMPONENTS (#20) file record associated with the #.3311 field synchronized
"IX",2,2,"ANAM3311",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM3311",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.3311,.DG20NAME,1.08,+$P($G(^DPT(DA,"NAME")),U,8),"CL35") K
 DG20NAME Q
"IX",2,2,"ANAM3311",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.3311,1.08) Q
"IX",2,2,"ANAM3311",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM3311",11.1,1,0)
1^F^2^.3311^^1^F
"IX",2,2,"ANAM341",0)
2^ANAM341^This index keeps the NAME COMPONENTS file in synch with field #.341.^M
U^^F^IR^I^2^^^^^A
"IX",2,2,"ANAM341",.1,0)
^^3^3^3050630
"IX",2,2,"ANAM341",.1,1,0)
This cross reference uses Kernel name standardization APIs to keep the NAME
"IX",2,2,"ANAM341",.1,2,0)
COMPONENTS (#20) file record associated with the #.341 field synchronized
"IX",2,2,"ANAM341",.1,3,0)
with the data value stored in that field.
"IX",2,2,"ANAM341",1)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UP
DCOMP^XLFNAME2(2,.DA,.341,.DG20NAME,1.09,+$P($G(^DPT(DA,"NAME")),U,9),"CL35") K 
DG20NAME Q
"IX",2,2,"ANAM341",2)
I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q
"IX",2,2,"ANAM341",11.1,0)
^.114IA^1^1
"IX",2,2,"ANAM341",11.1,1,0)
1^F^2^.341^^1^F
"IX",2,2,"APRFEVT",0)
2^APRFEVT^Record PRF HL7 event for new patients^MU^^F^^I^2^^^^^A
"IX",2,2,"APRFEVT",.1,0)
^^2^2^3050426^
"IX",2,2,"APRFEVT",.1,1,0)
This trigger creates an entry in the PRF HL7 EVENT (#26.21) file when no 
"IX",2,2,"APRFEVT",.1,2,0)
entry exists and a national ICN is filed.
"IX",2,2,"APRFEVT",1)
D EVENT^DGPFDD(DA)
"IX",2,2,"APRFEVT",2)
Q
"IX",2,2,"APRFEVT",11.1,0)
^.114IA^1^1
"IX",2,2,"APRFEVT",11.1,1,0)
1^F^2^991.01^^^F
"IX",2,2,"APTYPE",0)
2^APTYPE^Index TYPE OF PATIENT^R^^F^R^I^2^^^^^S
"IX",2,2,"APTYPE",1)
S ^DPT("APTYPE",X,DA)=""
"IX",2,2,"APTYPE",2)
K ^DPT("APTYPE",X,DA)
"IX",2,2,"APTYPE",2.5)
K ^DPT("APTYPE")
"IX",2,2,"APTYPE",11.1,0)
^.114IA^1^1
"IX",2,2,"APTYPE",11.1,1,0)
1^F^2^391^^1^F
"IX",2,2,"ASERLAST",0)
2^ASERLAST^Index LAST ENTRY and SEPARATION dates^MU^^R^R^I^2^^^^^A
"IX",2,2,"ASERLAST",.1,0)
^^5^5^3060323
"IX",2,2,"ASERLAST",.1,1,0)
This cross-reference indexes the LAST ENTRY and SEPARATION dates.
"IX",2,2,"ASERLAST",.1,2,0)
The form of the index is:
"IX",2,2,"ASERLAST",.1,3,0)
  ^DPT("ASERVICE",SEPARATION DATE,ENTRY DATE,DA,"LAST")
"IX",2,2,"ASERLAST",.1,4,0)

"IX",2,2,"ASERLAST",.1,5,0)
If one of the dates is missing the corresponding subscript is replaced by U_DA.
"IX",2,2,"ASERLAST",1)
D SSERV^DGSRVICE(.X,.DA,"LAST")
"IX",2,2,"ASERLAST",2)
D KSERV^DGSRVICE(.X,.DA,"LAST")
"IX",2,2,"ASERLAST",2.5)
K ^DPT("ASERVICE")
"IX",2,2,"ASERLAST",11.1,0)
^.114IA^2^2
"IX",2,2,"ASERLAST",11.1,1,0)
1^F^2^.326
"IX",2,2,"ASERLAST",11.1,2,0)
2^F^2^.327
"IX",2,2,"ASERNNTL",0)
2^ASERNNTL^Index NNTL ENTRY and SEPARATION dates^MU^^R^R^I^2^^^^^A
"IX",2,2,"ASERNNTL",.1,0)
^^5^5^3060323
"IX",2,2,"ASERNNTL",.1,1,0)
This cross-reference indexes the NNTL ENTRY and SEPARATION dates.
"IX",2,2,"ASERNNTL",.1,2,0)
The form of the index is:
"IX",2,2,"ASERNNTL",.1,3,0)
  ^DPT("ASERVICE",SEPARATION DATE,ENTRY DATE,DA,"NNTL")
"IX",2,2,"ASERNNTL",.1,4,0)

"IX",2,2,"ASERNNTL",.1,5,0)
If one of the dates is missing the corresponding subscript is replaced by U_DA.
"IX",2,2,"ASERNNTL",1)
D SSERV^DGSRVICE(.X,.DA,"NNTL")
"IX",2,2,"ASERNNTL",2)
D KSERV^DGSRVICE(.X,.DA,"NNTL")
"IX",2,2,"ASERNNTL",2.5)
K ^DPT("ASERVICE")
"IX",2,2,"ASERNNTL",11.1,0)
^.114IA^2^2
"IX",2,2,"ASERNNTL",11.1,1,0)
1^F^2^.3297
"IX",2,2,"ASERNNTL",11.1,2,0)
2^F^2^.3298
"IX",2,2,"ASERNTL",0)
2^ASERNTL^Index NTL ENTRY and SEPARATION dates^MU^^R^R^I^2^^^^^A
"IX",2,2,"ASERNTL",.1,0)
^^5^5^3060323
"IX",2,2,"ASERNTL",.1,1,0)
This cross-reference indexes the NTL ENTRY and SEPARATION dates.
"IX",2,2,"ASERNTL",.1,2,0)
The form of the index is:
"IX",2,2,"ASERNTL",.1,3,0)
  ^DPT("ASERVICE",SEPARATION DATE,ENTRY DATE,DA,"NTL")
"IX",2,2,"ASERNTL",.1,4,0)

"IX",2,2,"ASERNTL",.1,5,0)
If one of the dates is missing the corresponding subscript is replaced by U_DA.
"IX",2,2,"ASERNTL",1)
D SSERV^DGSRVICE(.X,.DA,"NTL")
"IX",2,2,"ASERNTL",2)
D KSERV^DGSRVICE(.X,.DA,"NTL")
"IX",2,2,"ASERNTL",2.5)
K ^DPT("ASERVICE")
"IX",2,2,"ASERNTL",11.1,0)
^.114IA^2^2
"IX",2,2,"ASERNTL",11.1,1,0)
1^F^2^.3292
"IX",2,2,"ASERNTL",11.1,2,0)
2^F^2^.3293
"IX",2,2,"AVAFC0906",0)
2^AVAFC0906^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"AVAFC0906",.1,0)
^^5^5^3070330^
"IX",2,2,"AVAFC0906",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.  
"IX",2,2,"AVAFC0906",.1,2,0)
Applications that wish to monitor edit activity related to this field may 
"IX",2,2,"AVAFC0906",.1,3,0)
subscribe to that event point and take action as indicated by the changes 
"IX",2,2,"AVAFC0906",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of 
"IX",2,2,"AVAFC0906",.1,5,0)
the information available at the time of the event.
"IX",2,2,"AVAFC0906",1)
D FC^DGFCPROT(.DA,2,.0906,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC0906",2)
D FC^DGFCPROT(.DA,2,.0906,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC0906",11.1,0)
^.114IA^1^1
"IX",2,2,"AVAFC0906",11.1,1,0)
1^F^2^.0906^^^F
"IX",2,2,"AVAFC0906",11.1,1,3)

"IX",2,2,"AVAFC121",0)
2^AVAFC121^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"AVAFC121",.1,0)
^^5^5^3090715
"IX",2,2,"AVAFC121",.1,1,0)
This cross-reference activates the DG FIELD MONITOR event point.
"IX",2,2,"AVAFC121",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"AVAFC121",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"AVAFC121",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"AVAFC121",.1,5,0)
the information available at the time of the event.
"IX",2,2,"AVAFC121",1)
D FC^DGFCPROT(.DA,2,.121,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC121",2)
D FC^DGFCPROT(.DA,2,.121,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC121",11.1,0)
^.114IA^1^1
"IX",2,2,"AVAFC121",11.1,1,0)
1^F^2^.121^^^F
"IX",2,2,"AVAFC133",0)
2^AVAFC133^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"AVAFC133",.1,0)
^^5^5^3090724
"IX",2,2,"AVAFC133",.1,1,0)
This cross-reference activates the DG FIELD MONITOR event point.
"IX",2,2,"AVAFC133",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"AVAFC133",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"AVAFC133",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"AVAFC133",.1,5,0)
the information available at the time of the event.
"IX",2,2,"AVAFC133",1)
D FC^DGFCPROT(.DA,2,.133,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC133",2)
D FC^DGFCPROT(.DA,2,.133,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC133",11.1,0)
^.114IA^1^1
"IX",2,2,"AVAFC133",11.1,1,0)
1^F^2^.133^^^F
"IX",2,2,"AVAFC134",0)
2^AVAFC134^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"AVAFC134",.1,0)
^^5^5^3090724
"IX",2,2,"AVAFC134",.1,1,0)
This cross-reference activates the DG FIELD MONITOR event point.
"IX",2,2,"AVAFC134",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"AVAFC134",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"AVAFC134",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"AVAFC134",.1,5,0)
the information available at the time of the event.
"IX",2,2,"AVAFC134",1)
D FC^DGFCPROT(.DA,2,.134,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC134",2)
D FC^DGFCPROT(.DA,2,.134,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC134",11.1,0)
^.114IA^1^1
"IX",2,2,"AVAFC134",11.1,1,0)
1^F^2^.134^^^F
"IX",2,2,"AVAFC525",0)
2^AVAFC525^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"AVAFC525",.1,0)
^^5^5^3060127
"IX",2,2,"AVAFC525",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"AVAFC525",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"AVAFC525",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"AVAFC525",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"AVAFC525",.1,5,0)
the information available at the time of the event.
"IX",2,2,"AVAFC525",1)
D FC^DGFCPROT(.DA,2,.525,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC525",2)
D FC^DGFCPROT(.DA,2,.525,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC525",11.1,0)
^.114IA^1^1
"IX",2,2,"AVAFC525",11.1,1,0)
1^F^2^.525^^^F
"IX",2,2,"AVAFC994",0)
2^AVAFC994^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A
"IX",2,2,"AVAFC994",.1,0)
^^5^5^3041115
"IX",2,2,"AVAFC994",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2,"AVAFC994",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2,"AVAFC994",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2,"AVAFC994",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2,"AVAFC994",.1,5,0)
the information available at the time of the event.
"IX",2,2,"AVAFC994",1)
D FC^DGFCPROT(.DA,2,994,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC994",2)
D FC^DGFCPROT(.DA,2,994,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2,"AVAFC994",11.1,0)
^.114IA^1^1
"IX",2,2,"AVAFC994",11.1,1,0)
1^F^2^994^^^F
"IX",2,2,"AX1171",0)
2^AX1171^This cross-reference is used to notify HEC of changes^MU^^F^R^I^2^^^^^A
"IX",2,2,"AX1171",.1,0)
^^4^4^3060213^
"IX",2,2,"AX1171",.1,1,0)
This cross-reference is used to notify HEC of changes that may affect
"IX",2,2,"AX1171",.1,2,0)
enrollment.  This cross reference is needed on this field because the 
"IX",2,2,"AX1171",.1,3,0)
update to the ADDRESS CHANGE DT/TM field does NOT trigger a message to 
"IX",2,2,"AX1171",.1,4,0)
the HEC.
"IX",2,2,"AX1171",1)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AX1171",2)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AX1171",11.1,0)
^.114IA^1^1
"IX",2,2,"AX1171",11.1,1,0)
1^F^2^.1171^^^F
"IX",2,2,"AX1172",0)
2^AX1172^This cross-reference is used to notify HEC of changes.^MU^^F^R^I^2^^^^^
A
"IX",2,2,"AX1172",.1,0)
^^3^3^3060210^
"IX",2,2,"AX1172",.1,1,0)
 This cross-reference is used to notify HEC of changes that may affect
"IX",2,2,"AX1172",.1,2,0)
enrollment.  This cross reference is necessary because the update of 
"IX",2,2,"AX1172",.1,3,0)
ADDRESS CHANGE DT/TM field does NOT trigger a message to the HEC.
"IX",2,2,"AX1172",1)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AX1172",2)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AX1172",11.1,0)
^.114IA^1^1
"IX",2,2,"AX1172",11.1,1,0)
1^F^2^.1172^^^F
"IX",2,2,"AX1173",0)
2^AX1173^This cross-reference is used to notify HEC of changes.^MU^^F^R^I^2^^^^^
A
"IX",2,2,"AX1173",.1,0)
^^4^4^3060213^
"IX",2,2,"AX1173",.1,1,0)
This cross-reference is used to notify HEC of changes that may affect
"IX",2,2,"AX1173",.1,2,0)
enrollment.  This cross reference is needed on this field because the
"IX",2,2,"AX1173",.1,3,0)
update to the ADDRESS CHANGE DT/TM field does NOT trigger a message to
"IX",2,2,"AX1173",.1,4,0)
the HEC.
"IX",2,2,"AX1173",1)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AX1173",2)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AX1173",11.1,0)
^.114IA^1^1
"IX",2,2,"AX1173",11.1,1,0)
1^F^2^.1173^^^F
"IX",2,2,"AX1173",11.1,1,3)

"IX",2,2,"AXCCNTRY",0)
2^AXCCNTRY^Clears country specific fields when triggered^MU^^F^R^I^2^^^^^A
"IX",2,2,"AXCCNTRY",.1,0)
^^8^8^3060210^
"IX",2,2,"AXCCNTRY",.1,1,0)
This cross reference is fired whenever the field CONFIDENTIAL ADDR  
"IX",2,2,"AXCCNTRY",.1,2,0)
COUNTRY is changed.  It will clear data in fields associated with
"IX",2,2,"AXCCNTRY",.1,3,0)
whether  the COUNTRY value is domestic or foreign.  In the case of a
"IX",2,2,"AXCCNTRY",.1,4,0)
foreign  address, this cross reference will clear the CONFIDENTIAL ADDR
"IX",2,2,"AXCCNTRY",.1,5,0)
STATE, CONFIDENTIAL ADDR COUNTY and CONFIDENTIAL ADDR ZIP+4 fields.  For a
"IX",2,2,"AXCCNTRY",.1,6,0)
domestic CONFIDENTIAL address, this cross reference will clear the
"IX",2,2,"AXCCNTRY",.1,7,0)
CONFIDENTIAL  PROVINCE and CONFIDENTIAL POSTAL CODE fields.  See routine
"IX",2,2,"AXCCNTRY",.1,8,0)
^DGCNTRY for  modifying which fields are cleared by this cross reference.
"IX",2,2,"AXCCNTRY",1)
I ($T(EN^DGCNTRY)'="") D EN^DGCNTRY(2,"CONF",.14116)
"IX",2,2,"AXCCNTRY",2)
Q
"IX",2,2,"AXCCNTRY",11.1,0)
^.114IA^1^1
"IX",2,2,"AXCCNTRY",11.1,1,0)
1^F^2^.14116^^^F
"IX",2,2,"AXCNTRY",0)
2^AXCNTRY^Trigger cross reference to clear related fields^MU^^F^R^I^2^^^^^A
"IX",2,2,"AXCNTRY",1)
I ($T(EN^DGCNTRY)'="") D EN^DGCNTRY(2,"PERM",.1173)
"IX",2,2,"AXCNTRY",2)
Q
"IX",2,2,"AXCNTRY",11.1,0)
^.114IA^1^1
"IX",2,2,"AXCNTRY",11.1,1,0)
1^F^2^.1173^^^F
"IX",2,2,"AXENR13",0)
2^AXENR13^TRIGGER A MESSAGE FOR ANY CHANGE TO THESE FIELDS^MU^^R^R^I^2^^^^^A
"IX",2,2,"AXENR13",.1,0)
^^2^2^3060213^
"IX",2,2,"AXENR13",.1,1,0)
This cross-reference will trigger a message to the HEC anytime one of the 
"IX",2,2,"AXENR13",.1,2,0)
related fields is changed.
"IX",2,2,"AXENR13",1)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AXENR13",2)
D EVENT^IVMPLOG(DA)
"IX",2,2,"AXENR13",11.1,0)
^.114IA^3^3
"IX",2,2,"AXENR13",11.1,1,0)
1^F^2^.133^^^F
"IX",2,2,"AXENR13",11.1,2,0)
2^F^2^.134^^^F
"IX",2,2,"AXENR13",11.1,3,0)
3^F^2^.135^^^F
"IX",2,2,"AXTCNTRY",0)
2^AXTCNTRY^Clear temporary addr fields when country changes^MU^^F^R^I^2^^^^^A
"IX",2,2,"AXTCNTRY",.1,0)
^^8^8^3060117^
"IX",2,2,"AXTCNTRY",.1,1,0)
 This cross reference is fired whenever the field TEMPORARY ADDRESS
"IX",2,2,"AXTCNTRY",.1,2,0)
COUNTRY is changed.  It will clear data in fields associated with whether 
"IX",2,2,"AXTCNTRY",.1,3,0)
the COUNTRY value is domestic or foreign.  In the case of a foreign 
"IX",2,2,"AXTCNTRY",.1,4,0)
address, this cross reference will clear the TEMPORARY ADDRESS STATE, 
"IX",2,2,"AXTCNTRY",.1,5,0)
TEMPORARY ADDRESS COUNTY and TEMPORARY ADDRESS ZIP+4 fields.  For a 
"IX",2,2,"AXTCNTRY",.1,6,0)
domestic temporary address, this cross reference will clear the TEMPORARY 
"IX",2,2,"AXTCNTRY",.1,7,0)
PROVINCE and TEMPORARY POSTAL CODE fields.  See routine ^DGCNTRY for 
"IX",2,2,"AXTCNTRY",.1,8,0)
modifying which fields are cleared by this cross reference.
"IX",2,2,"AXTCNTRY",1)
I ($T(EN^DGCNTRY)'="") D EN^DGCNTRY(2,"TEMP",.1223)
"IX",2,2,"AXTCNTRY",2)
Q
"IX",2,2,"AXTCNTRY",11.1,0)
^.114IA^1^1
"IX",2,2,"AXTCNTRY",11.1,1,0)
1^F^2^.1223^^^F
"IX",2,2,"AZIPLINK",0)
2^AZIPLINK^This x-ref will link the zip, city, state, and county fields^MU^^F^^I
^2^^^^^S
"IX",2,2,"AZIPLINK",1)
Q
"IX",2,2,"AZIPLINK",1.4)
I X1(1)'=X2(1)
"IX",2,2,"AZIPLINK",2)
K EASDO2
"IX",2,2,"AZIPLINK",2.4)
I X1(1)'=X2(1)
"IX",2,2,"AZIPLINK",11.1,0)
^.114IA^2^2
"IX",2,2,"AZIPLINK",11.1,1,0)
1^F^2^.1112^^^F
"IX",2,2,"AZIPLINK",11.1,2,0)
2^C
"IX",2,2,"AZIPLINK",11.1,2,1.5)
S:('$G(EASDO2)&($D(EASZIPLK))) X=$$ZIP^DGREGDD1(DA,X(1))
"IX",2,2,"AZIPLNK2",0)
2^AZIPLNK2^Update City, State, and County fields based on Zipcode^MU^^F^^I^2^^^^
^S
"IX",2,2,"AZIPLNK2",1)
Q
"IX",2,2,"AZIPLNK2",1.4)
I X1(1)'=X2(1)
"IX",2,2,"AZIPLNK2",2)
K EASDO2
"IX",2,2,"AZIPLNK2",2.4)
I X1(1)'=X2(1)
"IX",2,2,"AZIPLNK2",11.1,0)
^.114IA^2^2
"IX",2,2,"AZIPLNK2",11.1,1,0)
1^F^2^.116^^^F
"IX",2,2,"AZIPLNK2",11.1,2,0)
2^C
"IX",2,2,"AZIPLNK2",11.1,2,1.5)
S:'$G(EASDO2) X=$$ZIP^DGREGDD1(DA,X(1)),EASDO2=1
"IX",2,2,"NOP",0)
2^NOP^Index of standardized values that don't match .01 value.^R^^F^IR^I^2^^^^^L
S
"IX",2,2,"NOP",.1,0)
^^5^5^3050630
"IX",2,2,"NOP",.1,1,0)
This cross reference facilitates PATIENT file lookups by a standardized name
"IX",2,2,"NOP",.1,2,0)
value.  In addition to the standardization applied by Kernel name utilities,
"IX",2,2,"NOP",.1,3,0)
hyphens and apostrophes are also removed from the name value.  This cross
"IX",2,2,"NOP",.1,4,0)
reference is only set if the standardized name is different than the patient
"IX",2,2,"NOP",.1,5,0)
name value stored in the NAME (#.01) field.
"IX",2,2,"NOP",1)
S ^DPT("NOP",$E(X,1,30),DA)=""
"IX",2,2,"NOP",2)
K ^DPT("NOP",$E(X,1,30),DA)
"IX",2,2,"NOP",2.5)
K ^DPT("NOP")
"IX",2,2,"NOP",11.1,0)
^.114IA^1^1
"IX",2,2,"NOP",11.1,1,0)
1^F^2^.01^30^1^F
"IX",2,2,"NOP",11.1,1,2)
S X=$$NOP^XLFNAME7(X)
"IX",2,2,"NOP",11.1,1,4)
S X=$$NOP^XLFNAME7(X)
"IX",2,2.01,"AVAFC20101",0)
2.01^AVAFC20101^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.0
1^^^^^A
"IX",2,2.01,"AVAFC20101",.1,0)
^^5^5^3041115
"IX",2,2.01,"AVAFC20101",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2.01,"AVAFC20101",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2.01,"AVAFC20101",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2.01,"AVAFC20101",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2.01,"AVAFC20101",.1,5,0)
the information available at the time of the event.
"IX",2,2.01,"AVAFC20101",1)
D FC^DGFCPROT(.DA,2.01,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.01,"AVAFC20101",2)
D FC^DGFCPROT(.DA,2.01,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.01,"AVAFC20101",11.1,0)
^.114IA^1^1
"IX",2,2.01,"AVAFC20101",11.1,1,0)
1^F^2.01^.01^^^F
"IX",2,2.02,"AVAFC20201",0)
2.02^AVAFC20201^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.0
2^^^^^A
"IX",2,2.02,"AVAFC20201",.1,0)
^^5^5^3041115
"IX",2,2.02,"AVAFC20201",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2.02,"AVAFC20201",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2.02,"AVAFC20201",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2.02,"AVAFC20201",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2.02,"AVAFC20201",.1,5,0)
the information available at the time of the event.
"IX",2,2.02,"AVAFC20201",1)
D FC^DGFCPROT(.DA,2.02,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.02,"AVAFC20201",2)
D FC^DGFCPROT(.DA,2.02,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.02,"AVAFC20201",11.1,0)
^.114IA^1^1
"IX",2,2.02,"AVAFC20201",11.1,1,0)
1^F^2.02^.01^^^F
"IX",2,2.04,"ARD",0)
2.04^ARD^Rated Disabilities modification^MU^^F^^I^2.04^^^^^A
"IX",2,2.04,"ARD",1)
S DGRDCHG=1
"IX",2,2.04,"ARD",1.4)
I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
"IX",2,2.04,"ARD",2)
S DGRDCHG=1
"IX",2,2.04,"ARD",2.4)
I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
"IX",2,2.04,"ARD",2.5)
S DGRDCHG=1
"IX",2,2.04,"ARD",11.1,0)
^.114IA^3^3
"IX",2,2.04,"ARD",11.1,1,0)
1^F^2.04^.01^^^F
"IX",2,2.04,"ARD",11.1,2,0)
2^F^2.04^2^^^F
"IX",2,2.04,"ARD",11.1,3,0)
3^F^2.04^3^^^F
"IX",2,2.06,"AONLYONE",0)
2.06^AONLYONE^Only one entry allowed in multiple^MU^^F^^I^2.06^^^^^A
"IX",2,2.06,"AONLYONE",.1,0)
^^3^3^3020709^
"IX",2,2.06,"AONLYONE",.1,1,0)
Cross reference deletes all entries in the multiple EXCEPT the one just
"IX",2,2.06,"AONLYONE",.1,2,0)
added.  This has the net affect of only allowing one entry to exist in the
"IX",2,2.06,"AONLYONE",.1,3,0)
multiple.
"IX",2,2.06,"AONLYONE",1)
N DGFDA,DGMSG,DGD0,DGD1,DGLOOP S DGD0=DA(1),DGD1=DA S DGLOOP=0 F  S DGLOOP=$O(^D
PT(DGD0,.06,DGLOOP)) Q:'DGLOOP  I DGLOOP'=DGD1 S DGFDA(2.06,DGLOOP_","_DGD0_",",
.01)="@" D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
"IX",2,2.06,"AONLYONE",2)
Q
"IX",2,2.06,"AONLYONE",11.1,0)
^.114IA^1^1
"IX",2,2.06,"AONLYONE",11.1,1,0)
1^F^2.06^.01^^^F
"IX",2,2.06,"AVAFC20601",0)
2.06^AVAFC20601^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.0
6^^^^^A
"IX",2,2.06,"AVAFC20601",.1,0)
^^5^5^3041115
"IX",2,2.06,"AVAFC20601",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2.06,"AVAFC20601",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2.06,"AVAFC20601",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2.06,"AVAFC20601",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2.06,"AVAFC20601",.1,5,0)
the information available at the time of the event.
"IX",2,2.06,"AVAFC20601",1)
D FC^DGFCPROT(.DA,2.06,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.06,"AVAFC20601",2)
D FC^DGFCPROT(.DA,2.06,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.06,"AVAFC20601",11.1,0)
^.114IA^1^1
"IX",2,2.06,"AVAFC20601",11.1,1,0)
1^F^2.06^.01^^^F
"IX",2,2.141,"ACEE141",0)
2.141^ACEE141^TRIGGER A Z07 ON E/E CHANGES^MU^^R^R^I^2.141^^^^^A
"IX",2,2.141,"ACEE141",.1,0)
^^3^3^3060501^
"IX",2,2.141,"ACEE141",.1,1,0)
This cross reference will trigger a Z07 message whenever changes are made
"IX",2,2.141,"ACEE141",.1,2,0)
to the E/E CONFIDENTIAL ADDRESS CATEGORY.  This includes add, changes,
"IX",2,2.141,"ACEE141",.1,3,0)
and deletes.
"IX",2,2.141,"ACEE141",1)
D CONF^DGDDDTTM I ($T(EECHG^DGRPCTRG)'="") D EECHG^DGRPCTRG
"IX",2,2.141,"ACEE141",2)
D CONF^DGDDDTTM I ($T(EECHG^DGRPCTRG)'="") D EECHG^DGRPCTRG
"IX",2,2.141,"ACEE141",11.1,0)
^.114IA^2^2
"IX",2,2.141,"ACEE141",11.1,1,0)
1^F^2.141^.01^^^F
"IX",2,2.141,"ACEE141",11.1,1,3)

"IX",2,2.141,"ACEE141",11.1,2,0)
2^F^2.141^1^^^F
"IX",2,2.141,"ACEE141",11.1,2,3)

"IX",2,2.141,"ADGFM1",0)
2.141^ADGFM1^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.141^
^^^^A
"IX",2,2.141,"ADGFM1",.1,0)
^^5^5^3030702
"IX",2,2.141,"ADGFM1",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2.141,"ADGFM1",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2.141,"ADGFM1",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2.141,"ADGFM1",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2.141,"ADGFM1",.1,5,0)
the information available at the time of the event.
"IX",2,2.141,"ADGFM1",1)
D FC^DGFCPROT(.DA,2.141,1,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.141,"ADGFM1",2)
D FC^DGFCPROT(.DA,2.141,1,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.141,"ADGFM1",11.1,0)
^.114IA^1^1
"IX",2,2.141,"ADGFM1",11.1,1,0)
1^F^2.141^1^^^F
"IX",2,2.141,"ADGFMD01",0)
2.141^ADGFMD01^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.14
1^^^^^A
"IX",2,2.141,"ADGFMD01",.1,0)
^^5^5^3030702
"IX",2,2.141,"ADGFMD01",.1,1,0)
This cross reference activates the DG FIELD MONITOR event point.
"IX",2,2.141,"ADGFMD01",.1,2,0)
Applications that wish to monitor edit activity related to this field may
"IX",2,2.141,"ADGFMD01",.1,3,0)
subscribe to that event point and take action as indicated by the changes
"IX",2,2.141,"ADGFMD01",.1,4,0)
that occur.  Refer to the DG FIELD MONITOR protocol for a description of
"IX",2,2.141,"ADGFMD01",.1,5,0)
the information available at the time of the event.
"IX",2,2.141,"ADGFMD01",1)
D FC^DGFCPROT(.DA,2.141,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.141,"ADGFMD01",2)
D FC^DGFCPROT(.DA,2.141,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
"IX",2,2.141,"ADGFMD01",11.1,0)
^.114IA^1^1
"IX",2,2.141,"ADGFMD01",11.1,1,0)
1^F^2.141^.01^^^F
"IX",2,2.3215,"ACVCOM1",0)
2.3215^ACVCOM1^Set CV End Date based on OEF/OIF fields^MU^^F^^I^2.3215^^^^^A
"IX",2,2.3215,"ACVCOM1",.1,0)
^^8^8^3061010^^^^
"IX",2,2.3215,"ACVCOM1",.1,1,0)
This MUMPS x-ref will trigger an update to the Combat Vet Eligibility End
"IX",2,2.3215,"ACVCOM1",.1,2,0)
Date field under the following conditions:
"IX",2,2.3215,"ACVCOM1",.1,3,0)
  If the COMBAT VETERAN END DATE (#.5295) of the PATIENT file (#2) is null
"IX",2,2.3215,"ACVCOM1",.1,4,0)
 AND either
"IX",2,2.3215,"ACVCOM1",.1,5,0)
        The SERVICE SEPARATION DATE [LAST] (#.327) is missing
"IX",2,2.3215,"ACVCOM1",.1,6,0)
                          OR
"IX",2,2.3215,"ACVCOM1",.1,7,0)
        The SERVICE SEPARATION DATE [LAST] (#.327) is less than the
"IX",2,2.3215,"ACVCOM1",.1,8,0)
           OEF/OIF TO DATE - #.03 in subfile 2.3215
"IX",2,2.3215,"ACVCOM1",1)
N DGZ S DGZ=$S(X2(3)'<X2(2):X2(3),1:X2(2)) D SETCV^DGCV(DA(1),DGZ)
"IX",2,2.3215,"ACVCOM1",1.4)
I '$P($G(^DPT(DA(1),.52)),"^",15) S X=$$CVELIG^DGCV(DA(1))
"IX",2,2.3215,"ACVCOM1",2)
Q
"IX",2,2.3215,"ACVCOM1",11.1,0)
^.114IA^3^3
"IX",2,2.3215,"ACVCOM1",11.1,1,0)
1^F^2.3215^.03^^^F
"IX",2,2.3215,"ACVCOM1",11.1,2,0)
2^C
"IX",2,2.3215,"ACVCOM1",11.1,2,1.5)
S X=$P($$LAST^DGENOEIF(DA(1)),U)
"IX",2,2.3215,"ACVCOM1",11.1,3,0)
3^C
"IX",2,2.3215,"ACVCOM1",11.1,3,1.5)
S X=$S($D(^DPT(DA(1),.3216)):$P($$LAST^DGMSEUTL(DA(1)),U,2),1:$P($G(^DPT(DA(1),.
32)),U,7))
"IX",2,2.3215,"ALOEIF",0)
2.3215^ALOEIF^Sets the latest OIF/ OEF/ UNKNOWN OEF/OIF episode in a cross refer
ence^MU^^R^IR^I^2.3215^^^^^A
"IX",2,2.3215,"ALOEIF",.1,0)
^^10^10^3060105^^^^
"IX",2,2.3215,"ALOEIF",.1,1,0)
Cross reference is:
"IX",2,2.3215,"ALOEIF",.1,2,0)
  ^DPT("ALOEIF",TO DATE,FROM DATE,OIF/ OEF/ UNKNOWN OEF/OIF indicator,
"IX",2,2.3215,"ALOEIF",.1,3,0)
                DA(1),DA)=""
"IX",2,2.3215,"ALOEIF",.1,4,0)
 
"IX",2,2.3215,"ALOEIF",.1,5,0)
Subscripts are:
"IX",2,2.3215,"ALOEIF",.1,6,0)
  TO DATE = latest conflict to date for OIF/ OEF/ UNKNOWN OEF/OIF
"IX",2,2.3215,"ALOEIF",.1,7,0)
  FROM DATE = corresponding from date for TO DATE value
"IX",2,2.3215,"ALOEIF",.1,8,0)
  OIF/ OEF/ UNKNOWN OEF/OIF indicator = "OIF" "OEF" "UNK"
"IX",2,2.3215,"ALOEIF",.1,9,0)
 
"IX",2,2.3215,"ALOEIF",.1,10,0)
 DA(1) = entry in patient file      DA = entry in OEF/OIF subfile
"IX",2,2.3215,"ALOEIF",1)
D UPDLAST^DGENOEIF(.DA,.X2,1)
"IX",2,2.3215,"ALOEIF",2)
D UPDLAST^DGENOEIF(.DA,.X1,0)
"IX",2,2.3215,"ALOEIF",2.5)

"IX",2,2.3215,"ALOEIF",11.1,0)
^.114IA^4^3
"IX",2,2.3215,"ALOEIF",11.1,2,0)
1^F^2.3215^.03^^^F
"IX",2,2.3215,"ALOEIF",11.1,2,3)

"IX",2,2.3215,"ALOEIF",11.1,3,0)
3^F^2.3215^.02^^^F
"IX",2,2.3215,"ALOEIF",11.1,4,0)
2^F^2.3215^.01^^^F
"IX",2,2.3215,"ALSTUP",0)
2.3215^ALSTUP^TRIGGER THE DATE/TIME OF LAST CHANGE WHEN ANY PERTINENT FIELDS CHA
NGE^MU^^R^IR^I^2.3215^^^^^A
"IX",2,2.3215,"ALSTUP",1)
N DATA,DGENDA S DATA(.05)=$$NOW^XLFDT,DGENDA=DA,DGENDA(1)=DA(1) I $$UPD^DGENDBS(
2.3215,.DGENDA,.DATA)
"IX",2,2.3215,"ALSTUP",1.4)
S X=$S($G(X2(1))'=""&($G(X1(1))'=$G(X2(1))):1,$G(X1(2))'=$G(X2(2)):1,$G(X1(3))'=
$G(X2(3)):1,1:0)
"IX",2,2.3215,"ALSTUP",2)
N DATA,DGENDA S DATA(.05)=$$NOW^XLFDT,DGENDA=DA,DGENDA(1)=DA(1) I $$UPD^DGENDBS(
2.3215,.DGENDA,.DATA)
"IX",2,2.3215,"ALSTUP",11.1,0)
^.114IA^3^3
"IX",2,2.3215,"ALSTUP",11.1,1,0)
1^F^2.3215^.01^^^F
"IX",2,2.3215,"ALSTUP",11.1,2,0)
2^F^2.3215^.02^^^F
"IX",2,2.3215,"ALSTUP",11.1,3,0)
3^F^2.3215^.03^^^F
"KRN",101,6088,-1)
0^2
"KRN",101,6088,0)
DG MHV MENU^MHV ENROLLMENT MENU^^M^^^^^^^^REGISTRATION
"KRN",101,6088,10,0)
^101.01PA^1^1
"KRN",101,6088,10,1,0)
6089^ED^10^
"KRN",101,6088,10,1,"^")
DG MHV EDIT
"KRN",101,6088,99)
63442,43478
"KRN",101,6089,-1)
0^1
"KRN",101,6089,0)
DG MHV EDIT^EDIT^^A^^^^^^^^REGISTRATION
"KRN",101,6089,99)
63442,42853
"KRN",409.61,801,-1)
0^1
"KRN",409.61,801,0)
DG MHV^1^1^80^6^20^1^1^DG MHV ENROLLMENT^DG MHV MENU^MHV Enrollment^1^^1
"KRN",409.61,801,"ARRAY")
 TMP("DGRP61",$J)
"MBREQ")
0
"ORD",15,101)
101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA
"ORD",15,101,0)
PROTOCOL
"ORD",17,409.61)
409.61;17;1;;;;LME1^XPDIA1;;;LMDEL^XPDIA1
"ORD",17,409.61,0)
LIST TEMPLATE
"PKG",114,-1)
1^1
"PKG",114,0)
REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER 
"PKG",114,22,0)
^9.49I^1^1
"PKG",114,22,1,0)
5.3^2930813^2930821
"PKG",114,22,1,"PAH",1,0)
1966^3140929
"PKG",114,22,1,"PAH",1,1,0)
^^1^1^3140929
"PKG",114,22,1,"PAH",1,1,1,0)
PRE-REGISTRATION MHV ENROLLMENT ENHANCEMENT
"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")
2
"RTN","DGMHV")
0^2^B11344968
"RTN","DGMHV",1,0)
DGMHV ;ALB/SCK - Display Pre-Registration MHV Enrollment ; 12/9/03 3:22pm
"RTN","DGMHV",2,0)
 ;;5.3;Registration;**1966**;Aug 13, 1993;Build 19
"RTN","DGMHV",3,0)
 Q
"RTN","DGMHV",4,0)
EN(DFN) ; Main Entry Point for MHV socialization questions
"RTN","DGMHV",5,0)
 D CLEAR,ALERT,CONT
"RTN","DGMHV",6,0)
 D CLEAR,DSPLACT(DFN),CLEAR
"RTN","DGMHV",7,0)
 D SOCIAL^DGMHV
"RTN","DGMHV",8,0)
 Q
"RTN","DGMHV",9,0)
CHKMHV(DPTFN) ; Check MHV multiple in PATIENT file
"RTN","DGMHV",10,0)
 N DPTMHVDT,DGSOCIEN,DGACTIEN,DGSOCDT,DGSOCEVN,DGMHVOK
"RTN","DGMHV",11,0)
 S DGMHVOK=0
"RTN","DGMHV",12,0)
 S DGSOCEVN=$O(^DPT(DPTFN,1,"A"),-1) I DGSOCEVN S DGSOCIEN=$G(^DPT(DPTFN,1,DGSOC
EVN,0)),DGSOCDT=+DGSOCIEN,DGSOCIEN=$P(DGSOCIEN,"^",2) I DGSOCIEN D
"RTN","DGMHV",13,0)
 .N DIC,X,Y S DIC(0)="QZ",DIC="^DGMHV(390.01,",X=+DGSOCIEN D ^DIC
"RTN","DGMHV",14,0)
 .;I $G(Y)["I am not interested in enrolling" I $$FMDIFF^XLFDT($$NOW^XLFDT,DGSOC
DT,1)<180 S DGMHVOK=1
"RTN","DGMHV",15,0)
 Q DGMHVOK
"RTN","DGMHV",16,0)
 Q:'$G(DPTFN) 0  Q:'($G(^DPT(DPTFN,0))]"") ""
"RTN","DGMHV",17,0)
 Q $O(^DPT(DPTFN,1,"B",""),-1) ; Already enrolled in MHV
"RTN","DGMHV",18,0)
 ;
"RTN","DGMHV",19,0)
SOCIAL ; Talking points
"RTN","DGMHV",20,0)
 N DGMHV,I,DGDIR0,DGDPTSOC,DGTAB,DGREADTX S DGDPTSOC="" K DIRUT
"RTN","DGMHV",21,0)
 S DGREADTX="Please read the following to the patient"
"RTN","DGMHV",22,0)
 D GTSOCODS(.DGDIR0) S DGDIR0="SO^",I="" F  S I=$O(DGDIR0(I)) Q:'I  S DGDIR0=DGD
IR0_I_":"_DGDIR0(I)_";"
"RTN","DGMHV",23,0)
 F  Q:$G(DGMHVOUT)!$G(DGMHV("SOCIAL"))  D
"RTN","DGMHV",24,0)
 .D CLEAR W !!,DGREADTX
"RTN","DGMHV",25,0)
 .;K DIR W !!,"Please read the following to the Patient: ",!!?8,"""Has a health 
care team member encouraged you"
"RTN","DGMHV",26,0)
 .K DIR W !!?8,"""Has a health care team member encouraged you"
"RTN","DGMHV",27,0)
 .W !?10,"to enroll online for My HealtheVet?"""
"RTN","DGMHV",28,0)
 .S DIR("A")="Patient response"
"RTN","DGMHV",29,0)
 .S DIR(0)=DGDIR0
"RTN","DGMHV",30,0)
 .S DIR("??")="D CLEAR" D ^DIR I $E($G(Y))="^" S DGMHVOUT=1 Q
"RTN","DGMHV",31,0)
 .I Y="" W !!,"My HealtheVet enrollment information is required to continue with
 this patient",!! D CONT Q
"RTN","DGMHV",32,0)
 .S DGMHV("SOCIAL")=$G(DGDIR0(Y,"IEN"))
"RTN","DGMHV",33,0)
 Q:$G(DGMHVOUT)
"RTN","DGMHV",34,0)
 D FILSOC(DFN,+DGMHV("SOCIAL"),$$NOW^XLFDT,.DGDPTSOC)
"RTN","DGMHV",35,0)
 Q:'$G(DGMHV("SOCIAL"))  D CLEAR W !!,DGREADTX W !! D CANNED(DGMHV("SOCIAL")) D 
CONT
"RTN","DGMHV",36,0)
 N FLWUP,RTST S DGAR1=DGDPTSOC S FLWUP=$G(^DGMHV(390.01,DGMHV("SOCIAL"),4)) S RT
ST=$P(FLWUP,"^",2),RTST=$P(RTST,"(") I RTST]"" I $T(@RTST)]"" X FLWUP D CONT
"RTN","DGMHV",37,0)
 Q
"RTN","DGMHV",38,0)
 ;
"RTN","DGMHV",39,0)
ALERT(DPTDFN) ; This function checks if the 'MHV Enrollment Information Missing'
 ; message is to be displayed.  Message displays only for DG and SD
"RTN","DGMHV",40,0)
 ; menu options
"RTN","DGMHV",41,0)
 ;
"RTN","DGMHV",42,0)
 Q:'$D(XQY0)
"RTN","DGMHV",43,0)
 ;
"RTN","DGMHV",44,0)
 N X,Y,IORVON,IORVOFF,DIR,DIRUT
"RTN","DGMHV",45,0)
 S X="IORVON;IORVOFF"
"RTN","DGMHV",46,0)
 D ENDR^%ZISS
"RTN","DGMHV",47,0)
 W !!!!!!!?4,$CHAR(7) W:$D(IORVON) IORVON W "** PATIENT NEEDS TO ANSWER My Healt
heVet ENROLLMENT QUESTIONS **" W:$D(IORVOFF) IORVOFF
"RTN","DGMHV",48,0)
 W !!?4,"Patient is missing required My HealtheVet Enrollment information",!!!!!
!
"RTN","DGMHV",49,0)
 Q
"RTN","DGMHV",50,0)
 ;
"RTN","DGMHV",51,0)
FILSOC(DFN,RSPNT,RSPDT,DGDPTSOC) ; File MHV Socialization Information
"RTN","DGMHV",52,0)
 ;    DFN = PATIENT IEN
"RTN","DGMHV",53,0)
 ;  RSPNT = RESPONSE POINTER TO FILE 390.01
"RTN","DGMHV",54,0)
 ;  RPSDT = RESPONSE DATE/TIME
"RTN","DGMHV",55,0)
 ;
"RTN","DGMHV",56,0)
 N DIE,DA,DR,DO,DGMHVND K DIE,DA,DR,DO
"RTN","DGMHV",57,0)
 S DIC(0)="EZ",DIC="^DPT(DFN,1,",DA(2)=DFN,DA(1)=+$O(^DPT(DFN,1,"A"),-1)+1,DGDPT
SOC=DA(1)
"RTN","DGMHV",58,0)
 S DGMHVND=DA(1),DINUM=DA(1),X=RSPDT,DIC("DR")=".01////"_RSPDT_";1////"_RSPNT D 
FILE^DICN
"RTN","DGMHV",59,0)
 K DIE,DIC,DA S DIE="^DPT(DFN,1,",DA(1)=DFN,DA=DGMHVND
"RTN","DGMHV",60,0)
 S DR=".01////"_RSPDT_";1////"_RSPNT D ^DIE
"RTN","DGMHV",61,0)
 Q
"RTN","DGMHV",62,0)
 ;
"RTN","DGMHV",63,0)
CANNED(SCRIPT)
"RTN","DGMHV",64,0)
 Q:'$G(SCRIPT)
"RTN","DGMHV",65,0)
 N DGMHVLIN,DGLINCNT,DGMHVOUT S DGMHVLIN=$P($G(^DGMHV(390.01,SCRIPT,2,0)),"^",3)
,DGMHVOUT=0
"RTN","DGMHV",66,0)
 S DGLINCNT=0 F  S DGLINCNT=$O(^DGMHV(390.01,SCRIPT,2,DGLINCNT)) Q:'DGLINCNT!(DG
LINCNT>DGMHVLIN)  D
"RTN","DGMHV",67,0)
 .W !?2 W:DGLINCNT=1 """" W ^DGMHV(390.01,SCRIPT,2,DGLINCNT,0) S DGMHVOUT=1
"RTN","DGMHV",68,0)
 W:$G(DGMHVOUT) """" W !
"RTN","DGMHV",69,0)
 Q
"RTN","DGMHV",70,0)
 ;
"RTN","DGMHV",71,0)
GTSOCODS(DGSOCCOD) ; Get array of socialization codes and display sequences.
"RTN","DGMHV",72,0)
 K DGSOCCOD,DGSOCIEN,DGSOCSEQ S DGSOCSEQ="",DGSOCCOD="",DGSOCIEN="" N I,TEXT S I
=0,TEXT=""
"RTN","DGMHV",73,0)
 F  S DGSOCSEQ=$O(^DGMHV(390.01,"C",DGSOCSEQ)) Q:'DGSOCSEQ  D
"RTN","DGMHV",74,0)
 .S DGSOCIEN="" F  S DGSOCIEN=$O(^DGMHV(390.01,"C",DGSOCSEQ,DGSOCIEN)) Q:DGSOCIE
N=""  D
"RTN","DGMHV",75,0)
 ..N TEXT D FIND^DIC(390.01,"","@;.01","A",DGSOCIEN,1,"","","","TEXT")
"RTN","DGMHV",76,0)
 ..S I=I+1 S DGSOCCOD(I)=TEXT("DILIST","ID",1,".01"),DGSOCCOD(I,"IEN")=DGSOCIEN
"RTN","DGMHV",77,0)
 Q
"RTN","DGMHV",78,0)
 ;
"RTN","DGMHV",79,0)
NOFLW(DGSOCCOD) ; Perform followup dialog for patient that does not wish to enro
ll
"RTN","DGMHV",80,0)
 N DIR,DIC,DA,DGAR1,DGAR2 S DGAR1="",DGAR2=""
"RTN","DGMHV",81,0)
 W !! S DIR("A",1)="   How does the patient feel now about enrolling in My Healt
heVet?"
"RTN","DGMHV",82,0)
 S DIR("A",2)=" ",DIR("A",3)="          a) Patient is not interested."
"RTN","DGMHV",83,0)
 S DIR("A",4)="          b) Patient is interested.",DIR("A",5)=" "
"RTN","DGMHV",84,0)
 S DIR(0)="SA^a:Patient is not interested;b:Patient is interested",DIR("A")="Sel
ect a response: "
"RTN","DGMHV",85,0)
 ;S DIR("?")="   Help Text ......",DIR("??")="    More Help Text...."
"RTN","DGMHV",86,0)
 D ^DIR Q:$G(Y)="a"
"RTN","DGMHV",87,0)
 D ACTIONS(.DGAR1,DGAR2)
"RTN","DGMHV",88,0)
 Q
"RTN","DGMHV",89,0)
 ;
"RTN","DGMHV",90,0)
ACTIONS(DGMSACT,ACTSEL) ; Display MHV Socialization actions, allow selection, re
turn selected actions
"RTN","DGMHV",91,0)
 ;
"RTN","DGMHV",92,0)
 K DIR,DGMSACT,ACTSEL D CLEAR
"RTN","DGMHV",93,0)
 ;D DSPLACT(DFN)
"RTN","DGMHV",94,0)
 N DIR,ACTCNT,DGACDONE,DGSTAY,DGACSAVE,DGACCNT S DGACDONE=0,DGACSAVE=0
"RTN","DGMHV",95,0)
 D GETACTS(.DGMSACT) S DGACCNT=+$O(DGMSACT(""),-1)
"RTN","DGMHV",96,0)
 S DIR(0)="L^1:"_+DGACCNT_":0^" S ACTCNT=0 F  S ACTCNT=$O(DGMSACT(ACTCNT)) Q:'AC
TCNT  S DIR(0)=DIR(0)_ACTCNT_":"_DGMSACT(ACTCNT)_";"
"RTN","DGMHV",97,0)
 S $P(DIR(0),"^",3)="D ACTRNSFM^DGMHV"
"RTN","DGMHV",98,0)
 F  Q:$G(DGACDONE)  D ACTLOOP(.DIR,.DGMSACT,.ACTSEL)
"RTN","DGMHV",99,0)
 I $G(DGACSAVE),$D(ACTSEL)>1 D  Q
"RTN","DGMHV",100,0)
 .N DGSEL,DGAIEN,DGMHVND,DGPLURAL S DGSEL=0 F DGPLURAL=1:1 S DGSEL=$O(ACTSEL(DGS
EL)) Q:'DGSEL  D
"RTN","DGMHV",101,0)
 ..N DIE,DA,DIC S DGAIEN=$G(ACTSEL(DGSEL,"IEN")),DIC(0)="EZ",DIC="^DPT("_DFN_",1
,"_DGDPTSOC_",1,",DA(3)=DFN,DA(2)=DGDPTSOC
"RTN","DGMHV",102,0)
 ..S DA(1)=$O(^DPT(DFN,1,DA(2),1,"A"),-1)+1,DINUM=DA(1),X=DGAIEN,DGMHVND=DA(1),D
IC("DR")=".01////"_DGAIEN D FILE^DICN
"RTN","DGMHV",103,0)
 ..N DA,DIE,DIC K DIE,DIC,DA S DIE="^DPT("_DFN_",1,"_DGDPTSOC_",1,",DA(2)=DFN,DA
(1)=DGDPTSOC,DA=$O(^DPT(DFN,1,DGDPTSOC,1,"A"),-1)
"RTN","DGMHV",104,0)
 ..S DR=".01////"_DGAIEN D ^DIE
"RTN","DGMHV",105,0)
 .W !,$S($G(DGPLURAL)=1:"Action",1:"Actions")," Filed...",!
"RTN","DGMHV",106,0)
 S DGMHVOUT=1
"RTN","DGMHV",107,0)
 Q
"RTN","DGMHV",108,0)
 ;
"RTN","DGMHV",109,0)
ACTLOOP(DIR,DGMSACT,ACTSEL)
"RTN","DGMHV",110,0)
 ;
"RTN","DGMHV",111,0)
 D CLEAR
"RTN","DGMHV",112,0)
 S DGSTAY=1
"RTN","DGMHV",113,0)
 W !?2,"Action(s) to assist patient enrollment in My HealtheVet."
"RTN","DGMHV",114,0)
 ;W !?4,"ACTIONS TAKEN TODAY TO ASSIST PATIENT ENROLLMENT IN My HealtheVet."
"RTN","DGMHV",115,0)
 W !?2,"-----------------------------------------------------------------------"
"RTN","DGMHV",116,0)
 D ^DIR
"RTN","DGMHV",117,0)
 I Y="^"!$G(DIRUT) W !! N DGREALQ S DGREALQ=1 D  Q
"RTN","DGMHV",118,0)
 .N DIR,Y S DIR(0)="Y",DIR("A",1)="My HealtheVet enrollment questions is require
d to continue with this patient."
"RTN","DGMHV",119,0)
 .S DIR("A")="Are you sure you want to quit " D ^DIR I $G(Y) S DGMHVOUT=1,DGACDO
NE=1,DGACSAVE=0,DGSTAY=0 Q
"RTN","DGMHV",120,0)
 .S DGSTAY=1
"RTN","DGMHV",121,0)
 ;I $G(DIRUT) S DGACDONE=1 Q
"RTN","DGMHV",122,0)
 I $G(Y)>0 N DGSELL F DGSELL=1:1:$L(Y,",") N DGSELIT S DGSELIT=$P(Y,",",DGSELL) 
I DGSELIT]"" M ACTSEL(DGSELIT)=DGMSACT(DGSELIT)
"RTN","DGMHV",123,0)
 F  Q:'$G(DGSTAY)  D
"RTN","DGMHV",124,0)
 .D CLEAR N DIR,SELAC,DGCNT,DGII S DGCNT=1,DGSTAY=0
"RTN","DGMHV",125,0)
 .;S DIR("?")="HELP",DIR("?",1)="HELP"
"RTN","DGMHV",126,0)
 .S DIR("A",DGCNT)="",DGCNT=DGCNT+1
"RTN","DGMHV",127,0)
 .S DIR("A",DGCNT)="Actions Selected:"
"RTN","DGMHV",128,0)
 .S DGCNT=DGCNT+1,DIR("A",DGCNT)=" " ;"-----------------------------------------
------------------------------"
"RTN","DGMHV",129,0)
 .S SELAC="" F DGII=1:1 S SELAC=$O(ACTSEL(SELAC)) Q:'SELAC  D
"RTN","DGMHV",130,0)
 ..N SELACSUB,MARX S SELACSUB=0 D TXT(ACTSEL(SELAC),60) F  S SELACSUB=$O(MARX(SE
LACSUB)) Q:'SELACSUB  D
"RTN","DGMHV",131,0)
 ...;S DGCNT=DGCNT+1 S DIR("A",DGCNT)=" "_$S(SELACSUB=1:DGII_" - ",1:"    ")_" "
_MARX(SELACSUB)
"RTN","DGMHV",132,0)
 ...S DGCNT=DGCNT+1 S DIR("A",DGCNT)=" "_$S(SELACSUB=1:SELAC_" - ",1:"    ")_" "
_MARX(SELACSUB)
"RTN","DGMHV",133,0)
 .S DGCNT=DGCNT+1 S DIR("A",DGCNT)=""
"RTN","DGMHV",134,0)
 .;S DIR("?")="HELP",DIR("?",1)="HELP"
"RTN","DGMHV",135,0)
 .S DIR("A")="  (A)dd another, (D)elete an action, or <RET> to save and exit: ",
DIR(0)="SAO^A:Add an Action;D:Delete an Action" D ^DIR W !
"RTN","DGMHV",136,0)
 .Q:Y="A"
"RTN","DGMHV",137,0)
 .I Y="D" S DGSTAY=1 D DELETE(.ACTSEL) Q
"RTN","DGMHV",138,0)
 .I Y="^" W !! N DGREALQ S DGREALQ=1 D  Q
"RTN","DGMHV",139,0)
 ..N DIR,Y S DIR(0)="Y",DIR("A",1)="My HealtheVet enrollment information is requ
ired to continue with this patient."
"RTN","DGMHV",140,0)
 ..S DIR("A")="Are you sure you want to quit " D ^DIR I $G(Y) S DGMHVOUT=1,DGACD
ONE=1,DGACSAVE=0,DGSTAY=0 Q
"RTN","DGMHV",141,0)
 ..S DGSTAY=1
"RTN","DGMHV",142,0)
 .S DGACDONE=1,DGACSAVE=1
"RTN","DGMHV",143,0)
 Q
"RTN","DGMHV",144,0)
 ;
"RTN","DGMHV",145,0)
GETACTS(DGMSACT)
"RTN","DGMHV",146,0)
 N ACTIEN,ACTCNT,ACTTXT,SELCNT S ACTCNT=0,SELCNT=0
"RTN","DGMHV",147,0)
 S ACTIEN=0 F  S ACTIEN=$O(^DGMHV(390.02,ACTIEN)) Q:'ACTIEN  S ACTTXT=$G(^DGMHV(
390.02,ACTIEN,0)) I ACTTXT]"" D
"RTN","DGMHV",148,0)
 .S ACTCNT=ACTCNT+1,SELCNT=SELCNT+1,DGMSACT(ACTCNT)=ACTTXT,DGMSACT(ACTCNT,"IEN")
=ACTIEN
"RTN","DGMHV",149,0)
 .N MARX,ACTLINE D TXT(ACTTXT,60) S ACTLINE=0 F  S ACTLINE=$O(MARX(ACTLINE)) Q:'
ACTLINE  D
"RTN","DGMHV",150,0)
 ..S DIR("A",SELCNT)="  "_$S(ACTLINE=1:ACTCNT_"  -  ",1:"      ")_"  "_MARX(ACTL
INE) S SELCNT=SELCNT+1
"RTN","DGMHV",151,0)
 S DIR("A",SELCNT+1)=" "
"RTN","DGMHV",152,0)
 ;I $G(DGACTHLP)=1 S DGACTHLP=2,DIR("A",SELCNT+2)="   Select one or more actions
",DIR("A",SELCNT+3)=" "
"RTN","DGMHV",153,0)
 ;S DIR("A")=" Select action(s) taken to assist patient "
"RTN","DGMHV",154,0)
 S DIR("A")=" Select one or more actions"
"RTN","DGMHV",155,0)
 ;S DIR("?")="HELP",DIR("?",1)="HELP"
"RTN","DGMHV",156,0)
 ;S DIR("PRE")="I X[""?"" S X="""" S DGACTHLP=1"
"RTN","DGMHV",157,0)
 S DIR("PRE")="D PRE^DGMHV"
"RTN","DGMHV",158,0)
 Q
"RTN","DGMHV",159,0)
 ;
"RTN","DGMHV",160,0)
DELETE(DGACTD) ; Delete one previously selected action
"RTN","DGMHV",161,0)
 K DGDELDIR,DIR N DGDELAR,II,DGCNT S DGCNT=0
"RTN","DGMHV",162,0)
 ;S ZZ=0 F II=1:1 S ZZ=$O(DGACTD(ZZ)) Q:'ZZ  M DGDELAR(II)=DGACTD(ZZ)
"RTN","DGMHV",163,0)
 M DGDELAR=DGACTD
"RTN","DGMHV",164,0)
 ;
"RTN","DGMHV",165,0)
 K DGACTD M DGACTD=DGDELAR
"RTN","DGMHV",166,0)
 ;
"RTN","DGMHV",167,0)
 S DIR(0)="SAO^" S ZZ=0 F II=1:1 S ZZ=$O(DGDELAR(ZZ)) Q:'ZZ  S DIR(0)=DIR(0)_ZZ_
":"_DGDELAR(ZZ)_";"
"RTN","DGMHV",168,0)
 ;N SELAC S SELAC="" F II=1:1 S SELAC=$O(DGDELAR(SELAC)) Q:'SELAC  D
"RTN","DGMHV",169,0)
 ;.N SELACSUB,MARX S SELACSUB=0 D TXT(DGDELAR(SELAC),60) F  S SELACSUB=$O(MARX(S
ELACSUB)) Q:'SELACSUB  D
"RTN","DGMHV",170,0)
 ;..S DGCNT=DGCNT+1 S DGDELDIR("A",DGCNT)=" "_$S(SELACSUB=1:II_" - ",1:"    ")_"
 "_MARX(SELACSUB)
"RTN","DGMHV",171,0)
 ;M DIR("A")=DGDELDIR("A")
"RTN","DGMHV",172,0)
 S DIR("A")="Select an action to delete: " D ^DIR I $G(Y)>0,$D(DGACTD(+Y)) K DGA
CTD(Y)
"RTN","DGMHV",173,0)
 W ! D CONT I '$D(DGACTD) S DGSTAY=0 D CLEAR
"RTN","DGMHV",174,0)
 Q
"RTN","DGMHV",175,0)
 ;
"RTN","DGMHV",176,0)
REVERSE(PAD,DGREVTXT) ; Display DGREVTXT in reverse video
"RTN","DGMHV",177,0)
 N X,Y,IORVON,IORVOFF,DIR,DIRUT
"RTN","DGMHV",178,0)
 S X="IORVON;IORVOFF" S PAD=+$G(PAD)
"RTN","DGMHV",179,0)
 D ENDR^%ZISS
"RTN","DGMHV",180,0)
 W $CHAR(7) W ?PAD W:$D(IORVON) IORVON W DGREVTXT W:$D(IORVOFF) IORVOFF
"RTN","DGMHV",181,0)
 Q
"RTN","DGMHV",182,0)
 ;
"RTN","DGMHV",183,0)
TXT(TXT,LEN) ; Split long string into multiple LEN length lines
"RTN","DGMHV",184,0)
 ;* Input: TXT = TXT string
"RTN","DGMHV",185,0)
 ;*        LEN = format length
"RTN","DGMHV",186,0)
 ;* Output: MARX array.
"RTN","DGMHV",187,0)
 ;*
"RTN","DGMHV",188,0)
 NEW OLD,X1,Y D SPLIT K MARX
"RTN","DGMHV",189,0)
 S X=0,X1=1,Y="" F  S X=$O(OLD(X)) Q:'X  D
"RTN","DGMHV",190,0)
 . I $L(Y_OLD(X))>LEN S MARX(X1)=Y,X1=X1+1,Y="" D
"RTN","DGMHV",191,0)
 .. I $E(MARX(X1-1),$L(MARX(X1-1)))'=" " Q
"RTN","DGMHV",192,0)
 .. S MARX(X1-1)=$E(MARX(X1-1),1,$L(MARX(X1-1))-1)
"RTN","DGMHV",193,0)
 . S Y=Y_OLD(X)
"RTN","DGMHV",194,0)
 S:Y]"" MARX(X1)=Y
"RTN","DGMHV",195,0)
 S MARX=X1
"RTN","DGMHV",196,0)
 Q
"RTN","DGMHV",197,0)
 ;
"RTN","DGMHV",198,0)
SPLIT ; * Split a word string into individual words.
"RTN","DGMHV",199,0)
 ;* Output: OLD(X)
"RTN","DGMHV",200,0)
 ;*
"RTN","DGMHV",201,0)
 NEW BSD,NEW,X,X1,Y
"RTN","DGMHV",202,0)
 S OLD(1)=TXT Q:$L(TXT)<LEN
"RTN","DGMHV",203,0)
 F BSD=" ","/","-" S:'$O(OLD(0)) OLD(1)=TXT D:TXT[BSD DELIM(BSD)
"RTN","DGMHV",204,0)
 I '$O(OLD(1)),($L(TXT)>LEN) D LEN(1,TXT) K OLD D
"RTN","DGMHV",205,0)
 . F X=0:0 S X=$O(NEW(X)) Q:'X  S OLD(X)=NEW(X)
"RTN","DGMHV",206,0)
 Q
"RTN","DGMHV",207,0)
 ;
"RTN","DGMHV",208,0)
LEN(X1,OLD) ;* Wrap word around if it doesn't fit the display length
"RTN","DGMHV",209,0)
 NEW X
"RTN","DGMHV",210,0)
 Q:$L(OLD)'>LEN
"RTN","DGMHV",211,0)
 S X=$E(OLD,1,($L(OLD)-1)) I X["/"!(X["-") Q
"RTN","DGMHV",212,0)
 I $L(OLD)>LEN F X=1:1 S NEW(X1)=$E(OLD,((LEN*X)-LEN+1),(LEN*X)),X1=X1+1 Q:($L(O
LD)'>(LEN*X))
"RTN","DGMHV",213,0)
 Q
"RTN","DGMHV",214,0)
 ;
"RTN","DGMHV",215,0)
DELIM(BSD) ;* BSD=" ","/","-"
"RTN","DGMHV",216,0)
 K NEW
"RTN","DGMHV",217,0)
 S X=0,X1=0 F  S X=$O(OLD(X)) Q:'X  F Y=1:1:$L(OLD(X),BSD) D
"RTN","DGMHV",218,0)
 . S X1=X1+1
"RTN","DGMHV",219,0)
 . S NEW(X1)=$P(OLD(X),BSD,Y)
"RTN","DGMHV",220,0)
 . I $L(OLD(X),BSD)>1,(Y<$L(OLD(X),BSD)) S NEW(X1)=NEW(X1)_BSD
"RTN","DGMHV",221,0)
 . D LEN(.X1,NEW(X1))
"RTN","DGMHV",222,0)
 K OLD F X=0:0 S X=$O(NEW(X)) Q:'X  S OLD(X)=NEW(X)
"RTN","DGMHV",223,0)
 Q
"RTN","DGMHV",224,0)
 ;
"RTN","DGMHV",225,0)
CLEAR ;Exit code
"RTN","DGMHV",226,0)
 D CLEAR^VALM1
"RTN","DGMHV",227,0)
 D FULL^VALM1
"RTN","DGMHV",228,0)
 S VALMBCK="R"
"RTN","DGMHV",229,0)
 Q
"RTN","DGMHV",230,0)
 ;
"RTN","DGMHV",231,0)
CONT ; Continue
"RTN","DGMHV",232,0)
 N DIR S DIR(0)="E",DIR("A")="Press RETURN to continue" D ^DIR
"RTN","DGMHV",233,0)
 Q
"RTN","DGMHV",234,0)
 ;
"RTN","DGMHV",235,0)
ACTRNSFM ; Transform action prompt input
"RTN","DGMHV",236,0)
 ;
"RTN","DGMHV",237,0)
 Q
"RTN","DGMHV",238,0)
DSPLACT(DFN) ; Display last actions and date
"RTN","DGMHV",239,0)
 N TMPDT,LASTDT,DGACTDT,NXT1,NXT2,I,J,DGLACTS,DIC,DA S DGLACTS=""
"RTN","DGMHV",240,0)
 D GETLACT(DFN,.DGLACTS)
"RTN","DGMHV",241,0)
 W !,"History of actions taken by VistA Clerks "
"RTN","DGMHV",242,0)
 W !,"--------------------------------------------------------------------------
--"
"RTN","DGMHV",243,0)
 I '$O(DGLACTS(0)) W !?3,"None",!! D CONT Q
"RTN","DGMHV",244,0)
 S LASTDT="" F  S LASTDT=$O(DGLACTS(LASTDT)) Q:'LASTDT  D
"RTN","DGMHV",245,0)
 .;S DGACTDT=$$FMTE^XLFDT($P($G(DGLACTS("DT",LASTIEN)),"."),2)
"RTN","DGMHV",246,0)
 .S DGACTDT=$$FMTE^XLFDT($P(LASTDT,"."),2)
"RTN","DGMHV",247,0)
 .S NXT1=0 F I=1:1 S NXT1=$O(DGLACTS(LASTDT,NXT1)) Q:'NXT1  D
"RTN","DGMHV",248,0)
 ..;W !?2,I_") ",$G(DGLACTS(NXT1,"TXT"))
"RTN","DGMHV",249,0)
 ..;S NXT2="" F J=1:1 S NXT2=$O(DGLACTS(LASTDT,NXT1,"TXT",NXT2)) Q:'NXT2  W !,$S
(J=1:$G(DGACTDT)_"  #"_$G(DGLACTS(LASTDT,NXT1,"IEN"))_" ",1:"            "),$G(D
GLACTS(LASTDT,NXT1,"TXT",NXT2))
"RTN","DGMHV",250,0)
 ..S NXT2="" F J=1:1 S NXT2=$O(DGLACTS(LASTDT,NXT1,"TXT",NXT2)) Q:'NXT2  W ! D
"RTN","DGMHV",251,0)
 ...W $S(($P($G(TMPDT),".")'=$P(LASTDT,".")):DGACTDT,1:"       ") W $S((J=1):"  
#"_$G(DGLACTS(LASTDT,NXT1,"IEN"))_" ",1:"     "),$G(DGLACTS(LASTDT,NXT1,"TXT",NX
T2))
"RTN","DGMHV",252,0)
 ...S TMPDT=LASTDT
"RTN","DGMHV",253,0)
 W ! D CONT W !
"RTN","DGMHV",254,0)
 Q
"RTN","DGMHV",255,0)
GETLACT(DFN,DGLACTS) ; Get last actions and date
"RTN","DGMHV",256,0)
 N DGOT,LASTCNT,ACTCNT,X,X1,Y,LASTDT,LASTACT,LASTIEN,ACTCNT,FNDACT,LIENOK S (LAS
TACT,LASTIEN,DGLACTS,LASTCNT)=""
"RTN","DGMHV",257,0)
 S LASTDT="" F LASTCNT=1:1 S LASTDT=$O(^DPT(DFN,1,"B",LASTDT),-1) Q:'LASTDT!($G(
DGOT)>4)  D
"RTN","DGMHV",258,0)
 .F  S LASTIEN=$O(^DPT(DFN,1,"B",LASTDT,LASTIEN)) Q:'LASTIEN  D
"RTN","DGMHV",259,0)
 ..Q:'$O(^DPT(DFN,1,LASTIEN,1,0))  S ACTCNT("DT",LASTIEN)=LASTDT,FNDACT=1,LIENOK
=LASTIEN,DGOT=$G(DGOT)+1
"RTN","DGMHV",260,0)
 Q:'$G(LIENOK)
"RTN","DGMHV",261,0)
 S LIENOK="" F  S LIENOK=$O(ACTCNT("DT",LIENOK)) Q:'LIENOK  N LASTDT S LASTDT=$G
(ACTCNT("DT",LIENOK)) D
"RTN","DGMHV",262,0)
 .S ACTCNT=0 F  S ACTCNT=$O(^DPT(DFN,1,LIENOK,1,ACTCNT)) Q:'ACTCNT  S ACTCNT(LAS
TDT,ACTCNT)=^DPT(DFN,1,LIENOK,1,ACTCNT,0) D
"RTN","DGMHV",263,0)
 ..N DIC,X S DIC="^DGMHV(390.02,",DIC(0)="NUX",X=ACTCNT(LASTDT,ACTCNT) D ^DIC I 
Y>0 S ACTCNT(LASTDT,ACTCNT,"TXT")=$P(Y,"^",2) D
"RTN","DGMHV",264,0)
 ...S ACTCNT(LASTDT,ACTCNT,"IEN")=ACTCNT(LASTDT,ACTCNT)
"RTN","DGMHV",265,0)
 ...N MARX D TXT(ACTCNT(LASTDT,ACTCNT,"TXT"),64) M ACTCNT(LASTDT,ACTCNT,"TXT")=M
ARX
"RTN","DGMHV",266,0)
 S LASTDT=$O(ACTCNT(0)) I $O(ACTCNT(0)) M DGLACTS=ACTCNT
"RTN","DGMHV",267,0)
 Q
"RTN","DGMHV",268,0)
ACTHLP ; Help at action prompt
"RTN","DGMHV",269,0)
 W !?5,"Please select one of the listed actions that most closely describes"
"RTN","DGMHV",270,0)
 W !?5,"the actions taken today to help this patient enroll in My HealtheVet."
"RTN","DGMHV",271,0)
 Q
"RTN","DGMHV",272,0)
 ;
"RTN","DGMHV",273,0)
PRE ;
"RTN","DGMHV",274,0)
 Q:X'["?"
"RTN","DGMHV",275,0)
 I X["?" S X="" S DGACTHLP=$G(DGACTHLP)+1
"RTN","DGMHV",276,0)
 I $G(DGACTHLP)=1 S DGACTHLP=$G(DGACTHLP)+1 N DGAPPEND S DGAPPEND=$O(DIR("A","")
,-1)+2 D
"RTN","DGMHV",277,0)
 .S DIR("A",DGAPPEND)="  Select a single item, individual items separated by com
mas (1,2,3),"
"RTN","DGMHV",278,0)
 .S DIR("A",DGAPPEND+1)="   a range of items separated by a dash (1-3), or both 
(1-3,5).",DIR("A",DGAPPEND+2)=""
"RTN","DGMHV",279,0)
 Q
"RTN","DGPREP1")
0^1^B39469818
"RTN","DGPREP1",1,0)
DGPREP1 ;ALB/SCK - Program to Display Pre-Registration List Cont. 1 ; 12/9/03 3:
22pm
"RTN","DGPREP1",2,0)
 ;;5.3;Registration;**109,136,574,1966**;Aug 13, 1993;Build 19
"RTN","DGPREP1",3,0)
 Q
"RTN","DGPREP1",4,0)
EH ; Edit call log information
"RTN","DGPREP1",5,0)
 ;   Variables
"RTN","DGPREP1",6,0)
 ;     PTIFN - Patients IEN returned form the SELPAT procedure 
"RTN","DGPREP1",7,0)
 ;
"RTN","DGPREP1",8,0)
 N PTIFN,D,X,DA,DR
"RTN","DGPREP1",9,0)
 S PTIFN=""
"RTN","DGPREP1",10,0)
 D SELPAT
"RTN","DGPREP1",11,0)
 Q:'$D(PTIFN)
"RTN","DGPREP1",12,0)
 S DIC="^DGS(41.43,",DIC(0)="EQZ"
"RTN","DGPREP1",13,0)
 S X=PTIFN,D="C"
"RTN","DGPREP1",14,0)
 S DIC("A")="Select LOG ENTRY: "
"RTN","DGPREP1",15,0)
 S DIC("S")="I $P(^(0),U,2)=PTIFN"
"RTN","DGPREP1",16,0)
 ;
"RTN","DGPREP1",17,0)
 D IX^DIC K DIC
"RTN","DGPREP1",18,0)
 ;
"RTN","DGPREP1",19,0)
 I Y>0 D
"RTN","DGPREP1",20,0)
 . S DA=+Y
"RTN","DGPREP1",21,0)
 . S DIE="^DGS(41.43,"
"RTN","DGPREP1",22,0)
 . S DR="3;2///^S X=$P(^VA(200,DUZ,0),U)"
"RTN","DGPREP1",23,0)
 . D ^DIE K DIE
"RTN","DGPREP1",24,0)
 . I '$D(Y) D
"RTN","DGPREP1",25,0)
 .. S DGPDFN=PTIFN
"RTN","DGPREP1",26,0)
 .. D BLDHIST^DGPREP0
"RTN","DGPREP1",27,0)
 .. S X=$$SETSTR^VALM1(^TMP("DGPRERG",$J,DGPCH,0),"",1,110)
"RTN","DGPREP1",28,0)
 .. S X=$$SETFLD^VALM1(DGPTAT,X,"HIST")
"RTN","DGPREP1",29,0)
 .. S ^TMP("DGPRERG",$J,DGPCH,0)=X
"RTN","DGPREP1",30,0)
 S VALMBCK="R"
"RTN","DGPREP1",31,0)
 Q
"RTN","DGPREP1",32,0)
 ;
"RTN","DGPREP1",33,0)
SELPAT ;  Select patient if no patient is passed in
"RTN","DGPREP1",34,0)
 N VALMI,VALMAT,VALMY,X
"RTN","DGPREP1",35,0)
 D FULL^VALM1
"RTN","DGPREP1",36,0)
 D EN^VALM2(XQORNOD(0),"S") S VALMI=0
"RTN","DGPREP1",37,0)
 I '$D(VALMY) S VALMBCK="R" Q
"RTN","DGPREP1",38,0)
 S DGPN1="",DGPCH=$O(VALMY(DGPN1))
"RTN","DGPREP1",39,0)
 S PTIFN="",PTIFN=$O(^TMP("DGPRERG",$J,"DFN",DGPCH,PTIFN))
"RTN","DGPREP1",40,0)
 Q
"RTN","DGPREP1",41,0)
 ;
"RTN","DGPREP1",42,0)
EDIT ;  Edit Patient Information
"RTN","DGPREP1",43,0)
 ;  Variables
"RTN","DGPREP1",44,0)
 ;   DGPDIV    - Division IEN from ^TMP
"RTN","DGPREP1",45,0)
 ;   DGPSTMP   - Date/Time stamp from UPDLOG function
"RTN","DGPREP1",46,0)
 ;   DGPIFN    - Patients IEN from ^TMP
"RTN","DGPREP1",47,0)
 ;   DGPP1-3,5 - Local Var's for $O
"RTN","DGPREP1",48,0)
 ;   DGPNEW    - 
"RTN","DGPREP1",49,0)
 ;   DGPFLG    - Flag used to indicate a connect status of 'C'
"RTN","DGPREP1",50,0)
 ;   DGPST     - Call status returned by SELST function
"RTN","DGPREP1",51,0)
 ;   DGPDA     - IEN of Call log entry returned from UPDLOG function
"RTN","DGPREP1",52,0)
 ;   DGPCH     - Entry in the VALMY, selected entries, array
"RTN","DGPREP1",53,0)
 ;   
"RTN","DGPREP1",54,0)
 N VALMI,VALMAT,VALMY,X,DGPN5,DGPDIV,DGPSTMP,DGPIFN,DGPP1,DGPP2,DGPP3,DGPNEW,DGP
FLG
"RTN","DGPREP1",55,0)
 ;
"RTN","DGPREP1",56,0)
 D FULL^VALM1
"RTN","DGPREP1",57,0)
 D EN^VALM2(XQORNOD(0),"S") S VALMI=0
"RTN","DGPREP1",58,0)
 I '$D(VALMY) S VALMBCK="R" Q
"RTN","DGPREP1",59,0)
 S DGPN1="",DGPCH=$O(VALMY(DGPN1))
"RTN","DGPREP1",60,0)
 S DGPIFN="",DGPIFN=$O(^TMP("DGPRERG",$J,"DFN",DGPCH,DGPIFN))
"RTN","DGPREP1",61,0)
 S DGPDIV="",DGPDIV=$O(^TMP("DGPRERG",$J,"DIV",DGPCH,DGPDIV))
"RTN","DGPREP1",62,0)
 S DGNEW=0,DGPFLG=0
"RTN","DGPREP1",63,0)
 ;
"RTN","DGPREP1",64,0)
 ; *** Check patient sensitivity before proceeding
"RTN","DGPREP1",65,0)
 S DIC=2,DIC(0)="ENQ",X=DGPIFN D ^DIC K DIC
"RTN","DGPREP1",66,0)
 Q:Y<0
"RTN","DGPREP1",67,0)
 ;
"RTN","DGPREP1",68,0)
 ; *** Check lock status before continuing
"RTN","DGPREP1",69,0)
 S DGPN5="",DGPN5=$O(^DGS(41.42,"B",DGPIFN,DGPN5))
"RTN","DGPREP1",70,0)
 I DGPN5]"" L +^DGS(41.42,DGPN5):2 I '$T W *7,!,"Another User is Editing this Pa
tient" S VALMBCK="R" Q
"RTN","DGPREP1",71,0)
 ;
"RTN","DGPREP1",72,0)
 S (DA,DFN)=DGPIFN
"RTN","DGPREP1",73,0)
 ;
"RTN","DGPREP1",74,0)
 S DGPFLG=1
"RTN","DGPREP1",75,0)
 S DGPSTMP=""
"RTN","DGPREP1",76,0)
 D INITLE(.DGPSTMP)
"RTN","DGPREP1",77,0)
 ;
"RTN","DGPREP1",78,0)
 I DGPCH]""&(DGPFLG) D
"RTN","DGPREP1",79,0)
 . S X=$$SETSTR^VALM1(^TMP("DGPRERG",$J,DGPCH,0),"",1,110)
"RTN","DGPREP1",80,0)
 . ;S X=$$SETSTR^VALM1("*",X,8,1)
"RTN","DGPREP1",81,0)
 . I $G(DGPSTMP)]"" S X=$$SETSTR^VALM1($$FMTE^XLFDT(DGPSTMP,"2D"),X,70,8)
"RTN","DGPREP1",82,0)
 . S ^TMP("DGPRERG",$J,DGPCH,0)=X
"RTN","DGPREP1",83,0)
 . S DIE="^DGS(41.42,",DA=DGPN5
"RTN","DGPREP1",84,0)
 . S DR="4///Y" I DGPSTMP]"" S DR=DR_";3///^S X=DGPSTMP"
"RTN","DGPREP1",85,0)
 . D ^DIE K DIE
"RTN","DGPREP1",86,0)
 L -^DGS(41.42,DGPN5)
"RTN","DGPREP1",87,0)
 K DGPENT,DGPN1,DGPCH,DGPLOC,DGPST,DGPN5,DGPFLG
"RTN","DGPREP1",88,0)
 Q
"RTN","DGPREP1",89,0)
 ;
"RTN","DGPREP1",90,0)
INITLE(DGPY) ; Initialize for Load/Edit
"RTN","DGPREP1",91,0)
 ;   Variables
"RTN","DGPREP1",92,0)
 ;     Input:
"RTN","DGPREP1",93,0)
 ;        DGPY - Null value
"RTN","DGPREP1",94,0)
 ;
"RTN","DGPREP1",95,0)
 ;     Returns:
"RTN","DGPREP1",96,0)
 ;        DGPY - Returns the date/time stamp entered into ^DGS(41.41,.
"RTN","DGPREP1",97,0)
 ;
"RTN","DGPREP1",98,0)
 ;     Local:
"RTN","DGPREP1",99,0)
 ;        DGPRFLG - This flag is used by the Patient Load/Edit routines
"RTN","DGPREP1",100,0)
 ;                  to indicate they were called by preregistration
"RTN","DGPREP1",101,0)
 ;        DGPLOC  - Flag used by DG10 to indicate preselection of a patient
"RTN","DGPREP1",102,0)
 ;
"RTN","DGPREP1",103,0)
 N DGPRFLG
"RTN","DGPREP1",104,0)
 S (DGPRFLG,DGPLOC)=1
"RTN","DGPREP1",105,0)
 W !!
"RTN","DGPREP1",106,0)
 D ^DG10
"RTN","DGPREP1",107,0)
 Q:$G(DGPFLG)&($G(DGRPOUT))
"RTN","DGPREP1",108,0)
 ;
"RTN","DGPREP1",109,0)
 S DGPST=$$SELST
"RTN","DGPREP1",110,0)
 I DGPST']"" S VALMBCK="R" Q
"RTN","DGPREP1",111,0)
 ;
"RTN","DGPREP1",112,0)
 I DGPST'="L" D
"RTN","DGPREP1",113,0)
 . S DGPDA=$$UPDLOG(DGPIFN,DGPST,DGPDIV) Q:DGPDA'>0
"RTN","DGPREP1",114,0)
 . I '$G(DGMODE),$P($G(^DGS(41.43,DGPDA,0)),U,4)]"" D
"RTN","DGPREP1",115,0)
 .. S X=$$SETSTR^VALM1(^TMP("DGPRERG",$J,DGPCH,0),"",1,110)
"RTN","DGPREP1",116,0)
 .. S DGPP1=$E(X,1,34),DGPP2=$E(X,35,38),DGPP3=$E(X,39,110)
"RTN","DGPREP1",117,0)
 .. S DGPP2=$P(^DGS(41.43,DGPDA,0),U,4)_DGPP2
"RTN","DGPREP1",118,0)
 .. S X=DGPP1_$E(DGPP2,1,4)_DGPP3
"RTN","DGPREP1",119,0)
 .. S ^TMP("DGPRERG",$J,DGPCH,0)=X
"RTN","DGPREP1",120,0)
 ;
"RTN","DGPREP1",121,0)
 W !
"RTN","DGPREP1",122,0)
 S DIR(0)="YA",DIR("A")="Date/Time stamp this patient? ",DIR("B")="YES"
"RTN","DGPREP1",123,0)
 D ^DIR K DIR
"RTN","DGPREP1",124,0)
 W !
"RTN","DGPREP1",125,0)
 I Y D
"RTN","DGPREP1",126,0)
 . K DD,DO
"RTN","DGPREP1",127,0)
 . S DGPY=$$NOW^XLFDT
"RTN","DGPREP1",128,0)
 . S DIC="^DGS(41.41,",DIC(0)="EQZ",X=DFN
"RTN","DGPREP1",129,0)
 . S DIC("DR")="1///^S X=DGPY;2////^S X=DUZ"
"RTN","DGPREP1",130,0)
 . D FILE^DICN
"RTN","DGPREP1",131,0)
 . K DIC
"RTN","DGPREP1",132,0)
 ;
"RTN","DGPREP1",133,0)
 Q
"RTN","DGPREP1",134,0)
STAT ; Display call history
"RTN","DGPREP1",135,0)
 K PTIFN D SELPAT
"RTN","DGPREP1",136,0)
 I $D(PTIFN) D
"RTN","DGPREP1",137,0)
 . D EN^DGPREP2
"RTN","DGPREP1",138,0)
 K PTIFN
"RTN","DGPREP1",139,0)
 Q
"RTN","DGPREP1",140,0)
 ;
"RTN","DGPREP1",141,0)
SELST() ;  Function to select status for call log
"RTN","DGPREP1",142,0)
 ;   Returns:
"RTN","DGPREP1",143,0)
 ;       Status code as a SOC
"RTN","DGPREP1",144,0)
 ;
"RTN","DGPREP1",145,0)
 K DIRUT
"RTN","DGPREP1",146,0)
 N DIR
"RTN","DGPREP1",147,0)
 W !!
"RTN","DGPREP1",148,0)
 S DIR(0)="41.43,3"
"RTN","DGPREP1",149,0)
 S DIR("A")="STATUS OF CALL",DIR("B")="CONNECTED"
"RTN","DGPREP1",150,0)
 S DIR("?",1)="Enter the status of the current call from the list below."
"RTN","DGPREP1",151,0)
 S DIR("?")="Entries must be in uppercase, and match on of these codes."
"RTN","DGPREP1",152,0)
 D ^DIR K DIR
"RTN","DGPREP1",153,0)
 Q $G(Y)
"RTN","DGPREP1",154,0)
 ;
"RTN","DGPREP1",155,0)
UPDLOG(DFN,DGPS,DGPDV) ;  Update PRE-REGISTRATION CALL LOG File, #41.43
"RTN","DGPREP1",156,0)
 ;
"RTN","DGPREP1",157,0)
 ;  Variables
"RTN","DGPREP1",158,0)
 ;    Input:
"RTN","DGPREP1",159,0)
 ;       DFN   - The IEN of the patient being called
"RTN","DGPREP1",160,0)
 ;       DGPS  - Status of the call attempt
"RTN","DGPREP1",161,0)
 ;       DGPDV - Division IEN (used for sorting)
"RTN","DGPREP1",162,0)
 ;
"RTN","DGPREP1",163,0)
 ;    Returns:
"RTN","DGPREP1",164,0)
 ;        The IEN of the CALL LOG, File #41.43, entry that was added. 
"RTN","DGPREP1",165,0)
 ;        0 is returned if the user ^'s out.
"RTN","DGPREP1",166,0)
 ;
"RTN","DGPREP1",167,0)
 K DD,DO
"RTN","DGPREP1",168,0)
 S DIC="^DGS(41.43,"
"RTN","DGPREP1",169,0)
 S DIC(0)="L"
"RTN","DGPREP1",170,0)
 S X=$$NOW^XLFDT
"RTN","DGPREP1",171,0)
 D FILE^DICN
"RTN","DGPREP1",172,0)
 I Y<0 W *7,"Problem adding to file - PRE-REGISTRATION CALL LOG"
"RTN","DGPREP1",173,0)
 I Y'<0 D
"RTN","DGPREP1",174,0)
 . S DIE="^DGS(41.43,"
"RTN","DGPREP1",175,0)
 . S DR="1////^S X=DFN;2////^S X=DUZ;3///^S X=DGPS;5////^S X=$S(+DGPDV>0:DGPDV,1
:"""")"
"RTN","DGPREP1",176,0)
 . S DA=+Y
"RTN","DGPREP1",177,0)
 . D ^DIE K DIE
"RTN","DGPREP1",178,0)
 . I $D(Y) D 
"RTN","DGPREP1",179,0)
 .. S DIK="^DGS(41.43," D ^DIK K DIK
"RTN","DGPREP1",180,0)
 Q +$G(DA)
"RTN","DGPREP1",181,0)
 ;
"RTN","DGPREP1",182,0)
DIREDT ;  Direct edit of a patient in the PRE-REGISTRATION CALL LIST, bypassing 
the call list.
"RTN","DGPREP1",183,0)
 ;
"RTN","DGPREP1",184,0)
 ;  Variables
"RTN","DGPREP1",185,0)
 ;    DFN    - Patients IEN, set for Load/Edit
"RTN","DGPREP1",186,0)
 ;    DGPDIV - Division IEN from File #41.42
"RTN","DGPREP1",187,0)
 ;    DGPST  - Call Status
"RTN","DGPREP1",188,0)
 ;    DGPIDX - Call List IEN, File #41.42
"RTN","DGPREP1",189,0)
 ;    DGPFLG - Flag for direct patient edit, used for setting 'called' status
"RTN","DGPREP1",190,0)
 ;    DGPSTMP - Date/time stamp
"RTN","DGPREP1",191,0)
 ;
"RTN","DGPREP1",192,0)
 N DFN,DGPDIV,DGPST,DGPIDX,DGPFLG,DGNEW,DGPXX,DGPSTMP,DGPX,DGPIFN,DGMODE
"RTN","DGPREP1",193,0)
 N DGRPOUT,DGMHVOUT
"RTN","DGPREP1",194,0)
 ;
"RTN","DGPREP1",195,0)
 K DTOUT,DUOUT,DIC
"RTN","DGPREP1",196,0)
 S DIC=2,DIC(0)="AEQZM"
"RTN","DGPREP1",197,0)
 S DIC("A")="Select Patient to Preregister: "
"RTN","DGPREP1",198,0)
 S DIC("?")="Select a patient whose preregistration information you want to edit
."
"RTN","DGPREP1",199,0)
 D ^DIC K DIC
"RTN","DGPREP1",200,0)
 I $D(DTOUT)!($D(DUOUT))!(Y<0) Q
"RTN","DGPREP1",201,0)
 ;
"RTN","DGPREP1",202,0)
 S (DFN,DGPIFN)=+Y,DGPIDX=""
"RTN","DGPREP1",203,0)
 I $D(^DGS(41.42,"B",DFN)) D  Q:$G(DGPX)
"RTN","DGPREP1",204,0)
 . S DGPIDX=$O(^DGS(41.42,"B",DFN,DGPIDX))
"RTN","DGPREP1",205,0)
 . S DGPDIV=$P($G(^DGS(41.42,DGPIDX,0)),U,2)
"RTN","DGPREP1",206,0)
 . I DGPIDX]"" L +^DGS(41.42,DGPIDX):2 I '$T W *7,!,"Another user is editing thi
s patient." S DGPX=1
"RTN","DGPREP1",207,0)
 ;
"RTN","DGPREP1",208,0)
 N DGMHVOUT I '$$CHKMHV^DGMHV(DFN) D  I $G(DGMHVOUT) W !!,"My HealtheVet enrollm
ent information is required to continue with this patient",!! S DGMHVOUT=0 Q
"RTN","DGPREP1",209,0)
 .D EN^DGMHV(DFN)
"RTN","DGPREP1",210,0)
 ;
"RTN","DGPREP1",211,0)
 S DGNEW=0,DGPFLG=1,DGPSTMP="",DGMODE=1
"RTN","DGPREP1",212,0)
 ;
"RTN","DGPREP1",213,0)
 ;  ** Since this is a direct call for a patient, and the particular appt. is no
t known, set DGPDIV to primary medical center division.
"RTN","DGPREP1",214,0)
 I $G(DGPDIV)']"" D
"RTN","DGPREP1",215,0)
 . S DGPDIV=$$PRIM^VASITE
"RTN","DGPREP1",216,0)
 ;
"RTN","DGPREP1",217,0)
 D INITLE(.DGPSTMP)
"RTN","DGPREP1",218,0)
 ;
"RTN","DGPREP1",219,0)
 I $G(DGRPOUT) G UNLCK
"RTN","DGPREP1",220,0)
 ;
"RTN","DGPREP1",221,0)
 I $G(DGPFLG),DGPIDX]"" D
"RTN","DGPREP1",222,0)
 . S DA=DGPIDX
"RTN","DGPREP1",223,0)
 . S DIE="^DGS(41.42,"
"RTN","DGPREP1",224,0)
 . S DR="4///Y" I DGPSTMP]"" S DR=DR_";3///^S X=DGPSTMP"
"RTN","DGPREP1",225,0)
 . D ^DIE K DIE
"RTN","DGPREP1",226,0)
 ;
"RTN","DGPREP1",227,0)
UNLCK I $G(DGPIDX)]"" L -^DGS(41.42,DGPIDX)
"RTN","DGPREP1",228,0)
 Q
"SEC","^DIC",390.01,390.01,0,"AUDIT")
@
"SEC","^DIC",390.01,390.01,0,"DD")
@
"SEC","^DIC",390.01,390.01,0,"DEL")
@
"SEC","^DIC",390.01,390.01,0,"LAYGO")
@
"SEC","^DIC",390.01,390.01,0,"RD")
@
"SEC","^DIC",390.01,390.01,0,"WR")
@
"SEC","^DIC",390.02,390.02,0,"AUDIT")
@
"SEC","^DIC",390.02,390.02,0,"DD")
@
"SEC","^DIC",390.02,390.02,0,"DEL")
@
"SEC","^DIC",390.02,390.02,0,"LAYGO")
@
"SEC","^DIC",390.02,390.02,0,"RD")
@
"SEC","^DIC",390.02,390.02,0,"WR")
@
"VER")
8.0^22.0
"^DD",2,2,0)
FIELD^NL^537026^470
"^DD",2,2,0,"ACT")
I $G(DIC(0))'["I" D ^DGSEC
"^DD",2,2,0,"DDA")
N
"^DD",2,2,0,"DIC")
DPTLK
"^DD",2,2,0,"DT")
3140915
"^DD",2,2,0,"ID",.02)
W ""
"^DD",2,2,0,"ID",.03)
D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),"/","-"),,"?$X+2")
"^DD",2,2,0,"ID",.09)
D EN^DDIOL($$SSN^DPTLK1(Y),,"?$X+2")
"^DD",2,2,0,"ID",.301)
W:$D(^(.3)) "   ",@("$P($P($C(59)_$S($D(^DD(2,.301,0)):$P(^(0),U,3),1:0)_$E("_DI
C_"Y,0),0),$C(59)_$P(^(.3),U,1)_"":"",2),$C(59),1)")
"^DD",2,2,0,"ID",391)
S %I=Y,Y=$S('$D(^("TYPE")):"",$D(^DG(391,+$P(^("TYPE"),U,1),0))#2:$P(^(0),U,1),1
:""),C=$P(^DD(391,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y
=%I K %I
"^DD",2,2,0,"ID",404.01)
S %I=Y,Y=$S('$D(^("PC")):"",$D(^VA(200,+$P(^("PC"),U,1),0))#2:$P(^(0),U,1),1:"")
,C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I 
K %I
"^DD",2,2,0,"ID",994)
I $$GET1^DIQ(2,Y_",",994,"I")="Y" D EN^DDIOL($$GET1^DIQ(2,Y_",",994),"","?$X+2")
"^DD",2,2,0,"ID",1901)
W ""
"^DD",2,2,0,"ID","AFJX NETWORK ID")
D EN^DDIOL($$GET1^DIQ(2,Y_",",537025),"","?0")
"^DD",2,2,0,"ID","NETWORK ID")
W:$D(^(537025)) "   ",$P(^(537025),U,1)
"^DD",2,2,0,"ID","WRITE")
N X S X=$$OUTPTPR^SDUTL3(Y) D:X EN^DDIOL("  "_$P(X,U,2),"","?2") S X=$$OUTPTTM^S
DUTL3(Y) D:X EN^DDIOL("  "_$P(X,U,2),"","?2")
"^DD",2,2,0,"IX","AAICN",2.0992,.01)

"^DD",2,2,0,"IX","AAP",2,.1041)

"^DD",2,2,0,"IX","AB",2.312,.01)

"^DD",2,2,0,"IX","ABUL",2,.01)

"^DD",2,2,0,"IX","AC",2.011,3)

"^DD",2,2,0,"IX","ACA",2,.105)

"^DD",2,2,0,"IX","ACB",2,.31)

"^DD",2,2,0,"IX","ACFL4",2,.314)

"^DD",2,2,0,"IX","ACIVZIP",2,.2928)

"^DD",2,2,0,"IX","ACIVZIP4",2,.290012)

"^DD",2,2,0,"IX","ACMOR",2,991.03)

"^DD",2,2,0,"IX","ACMORS",2,991.06)

"^DD",2,2,0,"IX","ACN",2,.1)

"^DD",2,2,0,"IX","ACOL",2,.3601)

"^DD",2,2,0,"IX","ACP",2,.302)

"^DD",2,2,0,"IX","ACS",2,.14)

"^DD",2,2,0,"IX","AD",2,.09)

"^DD",2,2,0,"IX","AD1ZIP",2,.348)

"^DD",2,2,0,"IX","AD1ZIP4",2,.2202)

"^DD",2,2,0,"IX","ADA",2.101,50)

"^DD",2,2,0,"IX","ADEP",2,.351)

"^DD",2,2,0,"IX","ADGDBUL",2,.351)

"^DD",2,2,0,"IX","ADGRU01",2,.01)

"^DD",2,2,0,"IX","ADGRU02",2,.02)

"^DD",2,2,0,"IX","ADGRU03",2,.03)

"^DD",2,2,0,"IX","ADGRU05",2,.05)

"^DD",2,2,0,"IX","ADGRU06",2,.06)

"^DD",2,2,0,"IX","ADGRU07",2,.07)

"^DD",2,2,0,"IX","ADGRU08",2,.08)

"^DD",2,2,0,"IX","ADGRU09",2,.09)

"^DD",2,2,0,"IX","ADGRU092",2,.092)

"^DD",2,2,0,"IX","ADGRU093",2,.093)

"^DD",2,2,0,"IX","ADGRU111",2,.111)

"^DD",2,2,0,"IX","ADGRU1112",2,.1112)

"^DD",2,2,0,"IX","ADGRU112",2,.112)

"^DD",2,2,0,"IX","ADGRU113",2,.113)

"^DD",2,2,0,"IX","ADGRU114",2,.114)

"^DD",2,2,0,"IX","ADGRU115",2,.115)

"^DD",2,2,0,"IX","ADGRU131",2,.131)

"^DD",2,2,0,"IX","ADGRU132",2,.132)

"^DD",2,2,0,"IX","ADGRU1901",2,1901)

"^DD",2,2,0,"IX","ADGRU211",2,.211)

"^DD",2,2,0,"IX","ADGRU212",2,.212)

"^DD",2,2,0,"IX","ADGRU213",2,.213)

"^DD",2,2,0,"IX","ADGRU214",2,.214)

"^DD",2,2,0,"IX","ADGRU216",2,.216)

"^DD",2,2,0,"IX","ADGRU217",2,.217)

"^DD",2,2,0,"IX","ADGRU219",2,.219)

"^DD",2,2,0,"IX","ADGRU301",2,.301)

"^DD",2,2,0,"IX","ADGRU302",2,.302)

"^DD",2,2,0,"IX","ADGRU326",2,.326)

"^DD",2,2,0,"IX","ADGRU327",2,.327)

"^DD",2,2,0,"IX","ADGRU351",2,.351)

"^DD",2,2,0,"IX","ADGRU383",2,.383)

"^DD",2,2,0,"IX","ADI",2.101,.01)

"^DD",2,2,0,"IX","ADIS",2.101,.01)

"^DD",2,2,0,"IX","ADIS4",2.101,5)

"^DD",2,2,0,"IX","ADOB",2,.03)

"^DD",2,2,0,"IX","AE",2,.326)

"^DD",2,2,0,"IX","AEACL",2,1010.1511)

"^DD",2,2,0,"IX","AEB",2.011,.01)

"^DD",2,2,0,"IX","AEC1ZIP",2,.338)

"^DD",2,2,0,"IX","AEC1ZIP4",2,.2201)

"^DD",2,2,0,"IX","AEC2ZIP4",2,.2204)

"^DD",2,2,0,"IX","AEL",2,.361)

"^DD",2,2,0,"IX","AEL1",2.0361,.01)

"^DD",2,2,0,"IX","AEM1ZIP",2,.3118)

"^DD",2,2,0,"IX","AEM1ZIP4",2,.2205)

"^DD",2,2,0,"IX","AENR01",2.0361,.01)

"^DD",2,2,0,"IX","AENR02",2,.02)

"^DD",2,2,0,"IX","AENR05",2,.05)

"^DD",2,2,0,"IX","AENR10101511",2,1010.1511)

"^DD",2,2,0,"IX","AENR1010159",2,1010.159)

"^DD",2,2,0,"IX","AENR111",2,.111)

"^DD",2,2,0,"IX","AENR1112",2,.1112)

"^DD",2,2,0,"IX","AENR112",2,.112)

"^DD",2,2,0,"IX","AENR113",2,.113)

"^DD",2,2,0,"IX","AENR114",2,.114)

"^DD",2,2,0,"IX","AENR115",2,.115)

"^DD",2,2,0,"IX","AENR117",2,.117)

"^DD",2,2,0,"IX","AENR118",2,.118)

"^DD",2,2,0,"IX","AENR121",2,.121)

"^DD",2,2,0,"IX","AENR12111",2,.12111)

"^DD",2,2,0,"IX","AENR12113",2,.12113)

"^DD",2,2,0,"IX","AENR1219",2,.1219)

"^DD",2,2,0,"IX","AENR131",2,.131)

"^DD",2,2,0,"IX","AENR132",2,.132)

"^DD",2,2,0,"IX","AENR14111",2,.14111)

"^DD",2,2,0,"IX","AENR14112",2,.14112)

"^DD",2,2,0,"IX","AENR152",2,.152)

"^DD",2,2,0,"IX","AENR1656",2,.1656)

"^DD",2,2,0,"IX","AENR181",2,.181)

"^DD",2,2,0,"IX","AENR1901",2,1901)

"^DD",2,2,0,"IX","AENR21012",2,.21012)

"^DD",2,2,0,"IX","AENR211012",2,.211012)

"^DD",2,2,0,"IX","AENR2702",2,27.02)

"^DD",2,2,0,"IX","AENR293",2,.293)

"^DD",2,2,0,"IX","AENR301",2,.301)

"^DD",2,2,0,"IX","AENR3013",2,.3013)

"^DD",2,2,0,"IX","AENR302",2,.302)

"^DD",2,2,0,"IX","AENR3025",2,.3025)

"^DD",2,2,0,"IX","AENR304",2,.304)

"^DD",2,2,0,"IX","AENR305",2,.305)

"^DD",2,2,0,"IX","AENR307",2,.307)

"^DD",2,2,0,"IX","AENR3111",2,.3111)

"^DD",2,2,0,"IX","AENR31115",2,.31115)

"^DD",2,2,0,"IX","AENR312",2,.312)

"^DD",2,2,0,"IX","AENR313",2,.313)

"^DD",2,2,0,"IX","AENR3192",2,.3192)

"^DD",2,2,0,"IX","AENR32101",2,.32101)

"^DD",2,2,0,"IX","AENR32102",2,.32102)

"^DD",2,2,0,"IX","AENR32103",2,.32103)

"^DD",2,2,0,"IX","AENR32104",2,.32104)

"^DD",2,2,0,"IX","AENR32105",2,.32105)

"^DD",2,2,0,"IX","AENR32115",2,.32115)

"^DD",2,2,0,"IX","AENR3212",2,.3212)

"^DD",2,2,0,"IX","AENR3213",2,.3213)

"^DD",2,2,0,"IX","AENR3214",2,.3214)

"^DD",2,2,0,"IX","AENR32201",2,.32201)

"^DD",2,2,0,"IX","AENR322011",2,.322011)

"^DD",2,2,0,"IX","AENR322012",2,.322012)

"^DD",2,2,0,"IX","AENR322013",2,.322013)

"^DD",2,2,0,"IX","AENR322016",2,.322016)

"^DD",2,2,0,"IX","AENR322017",2,.322017)

"^DD",2,2,0,"IX","AENR322018",2,.322018)

"^DD",2,2,0,"IX","AENR322019",2,.322019)

"^DD",2,2,0,"IX","AENR32202",2,.32202)

"^DD",2,2,0,"IX","AENR322021",2,.322021)

"^DD",2,2,0,"IX","AENR3221",2,.3221)

"^DD",2,2,0,"IX","AENR3222",2,.3222)

"^DD",2,2,0,"IX","AENR3223",2,.3223)

"^DD",2,2,0,"IX","AENR3224",2,.3224)

"^DD",2,2,0,"IX","AENR3225",2,.3225)

"^DD",2,2,0,"IX","AENR3226",2,.3226)

"^DD",2,2,0,"IX","AENR3227",2,.3227)

"^DD",2,2,0,"IX","AENR3228",2,.3228)

"^DD",2,2,0,"IX","AENR3229",2,.3229)

"^DD",2,2,0,"IX","AENR323",2,.323)

"^DD",2,2,0,"IX","AENR324",2,.324)

"^DD",2,2,0,"IX","AENR325",2,.325)

"^DD",2,2,0,"IX","AENR326",2,.326)

"^DD",2,2,0,"IX","AENR327",2,.327)

"^DD",2,2,0,"IX","AENR328",2,.328)

"^DD",2,2,0,"IX","AENR329",2,.329)

"^DD",2,2,0,"IX","AENR3291",2,.3291)

"^DD",2,2,0,"IX","AENR32911",2,.32911)

"^DD",2,2,0,"IX","AENR32912",2,.32912)

"^DD",2,2,0,"IX","AENR32913",2,.32913)

"^DD",2,2,0,"IX","AENR3292",2,.3292)

"^DD",2,2,0,"IX","AENR3293",2,.3293)

"^DD",2,2,0,"IX","AENR3294",2,.3294)

"^DD",2,2,0,"IX","AENR3295",2,.3295)

"^DD",2,2,0,"IX","AENR3296",2,.3296)

"^DD",2,2,0,"IX","AENR3297",2,.3297)

"^DD",2,2,0,"IX","AENR3298",2,.3298)

"^DD",2,2,0,"IX","AENR3299",2,.3299)

"^DD",2,2,0,"IX","AENR33012",2,.33012)

"^DD",2,2,0,"IX","AENR33112",2,.33112)

"^DD",2,2,0,"IX","AENR3412",2,.3412)

"^DD",2,2,0,"IX","AENR351",2,.351)

"^DD",2,2,0,"IX","AENR353",2,.353)

"^DD",2,2,0,"IX","AENR354",2,.354)

"^DD",2,2,0,"IX","AENR3602",2,.3602)

"^DD",2,2,0,"IX","AENR3603",2,.3603)

"^DD",2,2,0,"IX","AENR361",2,.361)

"^DD",2,2,0,"IX","AENR3611",2,.3611)

"^DD",2,2,0,"IX","AENR3612",2,.3612)

"^DD",2,2,0,"IX","AENR3615",2,.3615)

"^DD",2,2,0,"IX","AENR3617",2,.3617)

"^DD",2,2,0,"IX","AENR3618",2,.3618)

"^DD",2,2,0,"IX","AENR362",2,.362)

"^DD",2,2,0,"IX","AENR36205",2,.36205)

"^DD",2,2,0,"IX","AENR36215",2,.36215)

"^DD",2,2,0,"IX","AENR36235",2,.36235)

"^DD",2,2,0,"IX","AENR36295",2,.36295)

"^DD",2,2,0,"IX","AENR381",2,.381)

"^DD",2,2,0,"IX","AENR382",2,.382)

"^DD",2,2,0,"IX","AENR3851",2,.3851)

"^DD",2,2,0,"IX","AENR3852",2,.3852)

"^DD",2,2,0,"IX","AENR391",2,.391)

"^DD",2,2,0,"IX","AENR392",2,.392)

"^DD",2,2,0,"IX","AENR393",2,.393)

"^DD",2,2,0,"IX","AENR394",2,.394)

"^DD",2,2,0,"IX","AENR395",2,.395)

"^DD",2,2,0,"IX","AENR3951",2,.3951)

"^DD",2,2,0,"IX","AENR3952",2,.3952)

"^DD",2,2,0,"IX","AENR3953",2,.3953)

"^DD",2,2,0,"IX","AENR4105",2,.14105)

"^DD",2,2,0,"IX","AENR525",2,.525)

"^DD",2,2,0,"IX","AENR526",2,.526)

"^DD",2,2,0,"IX","AENR527",2,.527)

"^DD",2,2,0,"IX","AENR528",2,.528)

"^DD",2,2,0,"IX","AENR5291",2,.5291)

"^DD",2,2,0,"IX","AENR5292",2,.5292)

"^DD",2,2,0,"IX","AENR5293",2,.5293)

"^DD",2,2,0,"IX","AENR5294",2,.5294)

"^DD",2,2,0,"IX","AENR5295",2,.5295)

"^DD",2,2,0,"IX","AENR52951",2,.5295)

"^DD",2,2,0,"IX","AENR531",2,.531)

"^DD",2,2,0,"IX","AENR532",2,.532)

"^DD",2,2,0,"IX","AENR533",2,.533)

"^DD",2,2,0,"IX","AENRC",2,27.01)

"^DD",2,2,0,"IX","AENRL525",2,.525)

"^DD",2,2,0,"IX","AERI",2,.181)

"^DD",2,2,0,"IX","AEXP",2,.351)

"^DD",2,2,0,"IX","AEXP1",2,.351)

"^DD",2,2,0,"IX","AF",2,.3292)

"^DD",2,2,0,"IX","AFV1",2,.325)

"^DD",2,2,0,"IX","AFV2",2,.3291)

"^DD",2,2,0,"IX","AFV3",2,.3296)

"^DD",2,2,0,"IX","AG",2,.361)

"^DD",2,2,0,"IX","AGU1",2,.1217)

"^DD",2,2,0,"IX","AH",2,.362)

"^DD",2,2,0,"IX","AHCMOR",2,991.03)

"^DD",2,2,0,"IX","AHICN",2,991.01)

"^DD",2,2,0,"IX","AHL7",2,.363)

"^DD",2,2,0,"IX","AI",2,.32102)

"^DD",2,2,0,"IX","AI",2,.5291)

"^DD",2,2,0,"IX","AICN",2,991.01)

"^DD",2,2,0,"IX","AICNL",2,991.04)

"^DD",2,2,0,"IX","AJ",2,.36205)

"^DD",2,2,0,"IX","AK",2,.32103)

"^DD",2,2,0,"IX","AK",2,.5294)

"^DD",2,2,0,"IX","AL",2,.36215)

"^DD",2,2,0,"IX","AM",2,.36235)

"^DD",2,2,0,"IX","AMHEN",2,.541)

"^DD",2,2,0,"IX","AMHMT",2,.541)

"^DD",2,2,0,"IX","AMPIMIS",2,.01)

"^DD",2,2,0,"IX","AMT",2,.381)

"^DD",2,2,0,"IX","AMTR",2,.525)

"^DD",2,2,0,"IX","AN",2,1901)

"^DD",2,2,0,"IX","AN1",2,1901)

"^DD",2,2,0,"IX","ANEW",2,.083)

"^DD",2,2,0,"IX","ANK1ZIP",2,.218)

"^DD",2,2,0,"IX","ANK1ZIP4",2,.2207)

"^DD",2,2,0,"IX","ANK2ZIP",2,.2198)

"^DD",2,2,0,"IX","ANK2ZIP4",2,.2203)

"^DD",2,2,0,"IX","ANURS",2,.1)

"^DD",2,2,0,"IX","AO",2.0361,.01)

"^DD",2,2,0,"IX","AODS1",2,.09)

"^DD",2,2,0,"IX","AODS111",2,.111)

"^DD",2,2,0,"IX","AODS112",2,.112)

"^DD",2,2,0,"IX","AODS113",2,.113)

"^DD",2,2,0,"IX","AODS114",2,.114)

"^DD",2,2,0,"IX","AODS115",2,.115)

"^DD",2,2,0,"IX","AODS116",2,.116)

"^DD",2,2,0,"IX","AODS117",2,.117)

"^DD",2,2,0,"IX","AODS2",2,.01)

"^DD",2,2,0,"IX","AODS3",2,.03)

"^DD",2,2,0,"IX","AODS4",2,.325)

"^DD",2,2,0,"IX","AODS5",2,11500.03)

"^DD",2,2,0,"IX","AODS6",2,11500.02)

"^DD",2,2,0,"IX","AODS7",2,401.3)

"^DD",2,2,0,"IX","AODSR",2.101,11500.02)

"^DD",2,2,0,"IX","AOERR",2,.351)

"^DD",2,2,0,"IX","APOS",2,.323)

"^DD",2,2,0,"IX","APR",2,.104)

"^DD",2,2,0,"IX","APSJD",2,.351)

"^DD",2,2,0,"IX","APSOD",2,.351)

"^DD",2,2,0,"IX","AQ",2,.36295)

"^DD",2,2,0,"IX","AR",2,.302)

"^DD",2,2,0,"IX","AR",2,991.01)

"^DD",2,2,0,"IX","ARCDTH",2,.351)

"^DD",2,2,0,"IX","AS",2,401.3)

"^DD",2,2,0,"IX","ASADM",2.98,20)

"^DD",2,2,0,"IX","ASCN",2,991.05)

"^DD",2,2,0,"IX","ASCN2",2,991.05)

"^DD",2,2,0,"IX","ASCP",2,.302)

"^DD",2,2,0,"IX","ASDCN",2.98,3)

"^DD",2,2,0,"IX","ASP1ZIP",2,.257)

"^DD",2,2,0,"IX","ASP1ZIP4",2,.2206)

"^DD",2,2,0,"IX","ASX",2,.02)

"^DD",2,2,0,"IX","AT",2,.305)

"^DD",2,2,0,"IX","ATEST",2,.6)

"^DD",2,2,0,"IX","ATP",2,.09)

"^DD",2,2,0,"IX","ATR",2,.103)

"^DD",2,2,0,"IX","ATZIP",2,.1216)

"^DD",2,2,0,"IX","ATZIP4",2,.12112)

"^DD",2,2,0,"IX","AU",2,.3603)

"^DD",2,2,0,"IX","AUFFP",2,1100.01)

"^DD",2,2,0,"IX","AV",2,.3602)

"^DD",2,2,0,"IX","AVADPT6",2,.09)

"^DD",2,2,0,"IX","AVAFC01",2,.01)

"^DD",2,2,0,"IX","AVAFC02",2,.02)

"^DD",2,2,0,"IX","AVAFC03",2,.03)

"^DD",2,2,0,"IX","AVAFC05",2,.05)

"^DD",2,2,0,"IX","AVAFC06",2,.06)

"^DD",2,2,0,"IX","AVAFC08",2,.08)

"^DD",2,2,0,"IX","AVAFC09",2,.09)

"^DD",2,2,0,"IX","AVAFC092",2,.092)

"^DD",2,2,0,"IX","AVAFC093",2,.093)

"^DD",2,2,0,"IX","AVAFC111",2,.111)

"^DD",2,2,0,"IX","AVAFC1112",2,.1112)

"^DD",2,2,0,"IX","AVAFC112",2,.112)

"^DD",2,2,0,"IX","AVAFC113",2,.113)

"^DD",2,2,0,"IX","AVAFC114",2,.114)

"^DD",2,2,0,"IX","AVAFC115",2,.115)

"^DD",2,2,0,"IX","AVAFC117",2,.117)

"^DD",2,2,0,"IX","AVAFC131",2,.131)

"^DD",2,2,0,"IX","AVAFC132",2,.132)

"^DD",2,2,0,"IX","AVAFC1901",2,1901)

"^DD",2,2,0,"IX","AVAFC211",2,.211)

"^DD",2,2,0,"IX","AVAFC219",2,.219)

"^DD",2,2,0,"IX","AVAFC2403",2,.2403)

"^DD",2,2,0,"IX","AVAFC301",2,.301)

"^DD",2,2,0,"IX","AVAFC302",2,.302)

"^DD",2,2,0,"IX","AVAFC31115",2,.31115)

"^DD",2,2,0,"IX","AVAFC313",2,.313)

"^DD",2,2,0,"IX","AVAFC323",2,.323)

"^DD",2,2,0,"IX","AVAFC351",2,.351)

"^DD",2,2,0,"IX","AVAFC391",2,391)

"^DD",2,2,0,"IX","AVAZIP",2,.2918)

"^DD",2,2,0,"IX","AVAZIP4",2,.29013)

"^DD",2,2,0,"IX","AVCDMT",2,.39)

"^DD",2,2,0,"IX","AXFFP",2,1100.01)

"^DD",2,2,0,"IX","AXR",2,.211)

"^DD",2,2,0,"IX","AXR1",2,.2191)

"^DD",2,2,0,"IX","AXR10",2,.32945)

"^DD",2,2,0,"IX","AXR11",2,.12105)

"^DD",2,2,0,"IX","AXR12",2,.1211)

"^DD",2,2,0,"IX","AXR13",2,.1212)

"^DD",2,2,0,"IX","AXR14",2,.213)

"^DD",2,2,0,"IX","AXR15",2,.214)

"^DD",2,2,0,"IX","AXR16",2,.2193)

"^DD",2,2,0,"IX","AXR17",2,.2194)

"^DD",2,2,0,"IX","AXR18",2,.252)

"^DD",2,2,0,"IX","AXR19",2,.253)

"^DD",2,2,0,"IX","AXR2",2,.251)

"^DD",2,2,0,"IX","AXR20",2,.3113)

"^DD",2,2,0,"IX","AXR21",2,.3114)

"^DD",2,2,0,"IX","AXR22",2,.3313)

"^DD",2,2,0,"IX","AXR23",2,.3314)

"^DD",2,2,0,"IX","AXR24",2,.333)

"^DD",2,2,0,"IX","AXR25",2,.334)

"^DD",2,2,0,"IX","AXR26",2,.343)

"^DD",2,2,0,"IX","AXR27",2,.344)

"^DD",2,2,0,"IX","AXR28",2,.361)

"^DD",2,2,0,"IX","AXR29",2,.111)

"^DD",2,2,0,"IX","AXR3",2,.3111)

"^DD",2,2,0,"IX","AXR30",2,.112)

"^DD",2,2,0,"IX","AXR31",2,.14105)

"^DD",2,2,0,"IX","AXR32",2,.1411)

"^DD",2,2,0,"IX","AXR33",2,.1412)

"^DD",2,2,0,"IX","AXR34",2,.325)

"^DD",2,2,0,"IX","AXR35",2,.3291)

"^DD",2,2,0,"IX","AXR36",2,.3296)

"^DD",2,2,0,"IX","AXR4",2,.331)

"^DD",2,2,0,"IX","AXR5",2,.3311)

"^DD",2,2,0,"IX","AXR6",2,.341)

"^DD",2,2,0,"IX","AXR7",2,.152)

"^DD",2,2,0,"IX","AXR8",2,.153)

"^DD",2,2,0,"IX","AXR9",2,.3285)

"^DD",2,2,0,"IX","AZIP",2,.116)

"^DD",2,2,0,"IX","AZIP4",2,.1112)

"^DD",2,2,0,"IX","B",2,.01)

"^DD",2,2,0,"IX","B",2.01,.01)

"^DD",2,2,0,"IX","BS",2,.09)

"^DD",2,2,0,"IX","BS5",2,.01)

"^DD",2,2,0,"IX","BS5",2,.09)

"^DD",2,2,0,"IX","C",2,.02)

"^DD",2,2,0,"IX","C",2,.532)

"^DD",2,2,0,"IX","CHK1",2,.36205)

"^DD",2,2,0,"IX","CHK2",2,.36215)

"^DD",2,2,0,"IX","CHK3",2,.36235)

"^DD",2,2,0,"IX","CHK4",2,.3025)

"^DD",2,2,0,"IX","CN",2,.1)

"^DD",2,2,0,"IX","D",2,.531)

"^DD",2,2,0,"IX","DG714",2,.351)

"^DD",2,2,0,"IX","E",2,.5296)

"^DD",2,2,0,"IX","F",2,.131)

"^DD",2,2,0,"IX","IVM01",2,.01)

"^DD",2,2,0,"IX","IVM02",2,.02)

"^DD",2,2,0,"IX","IVM03",2,.03)

"^DD",2,2,0,"IX","IVM09",2,.09)

"^DD",2,2,0,"IX","IVM111",2,.111)

"^DD",2,2,0,"IX","IVM1112",2,.1112)

"^DD",2,2,0,"IX","IVM112",2,.112)

"^DD",2,2,0,"IX","IVM113",2,.113)

"^DD",2,2,0,"IX","IVM114",2,.114)

"^DD",2,2,0,"IX","IVM115",2,.115)

"^DD",2,2,0,"IX","IVM117",2,.117)

"^DD",2,2,0,"IX","IVM131",2,.131)

"^DD",2,2,0,"IX","IVM132",2,.132)

"^DD",2,2,0,"IX","IVM351",2,.351)

"^DD",2,2,0,"IX","LD",2,.107)

"^DD",2,2,0,"IX","PID",2.0361,.03)

"^DD",2,2,0,"IX","PX09",2,.09)

"^DD",2,2,0,"IX","RM",2,.101)

"^DD",2,2,0,"IX","SSN",2,.09)

"^DD",2,2,0,"IX","VCD",2,.39)

"^DD",2,2,0,"IX","ZEC2ZIP",2,.3318)

"^DD",2,2,0,"NM","PATIENT")

"^DD",2,2,0,"PT",2,.082)

"^DD",2,2,0,"PT",2,.3601)

"^DD",2,2,0,"PT",15,.01)

"^DD",2,2,0,"PT",15,.02)

"^DD",2,2,0,"PT",15,999999903)

"^DD",2,2,0,"PT",15.4,.01)

"^DD",2,2,0,"PT",15.4,.02)

"^DD",2,2,0,"PT",26.13,.01)

"^DD",2,2,0,"PT",26.21,.01)

"^DD",2,2,0,"PT",27.11,.02)

"^DD",2,2,0,"PT",27.12,.01)

"^DD",2,2,0,"PT",27.14,.03)

"^DD",2,2,0,"PT",28.11,.01)

"^DD",2,2,0,"PT",29.11,2)

"^DD",2,2,0,"PT",38.1,.01)

"^DD",2,2,0,"PT",38.5,.01)

"^DD",2,2,0,"PT",39.13,.01)

"^DD",2,2,0,"PT",39.4,.03)

"^DD",2,2,0,"PT",39.6,.02)

"^DD",2,2,0,"PT",40.1,.01)

"^DD",2,2,0,"PT",40.15,.01)

"^DD",2,2,0,"PT",41.1,.01)

"^DD",2,2,0,"PT",41.2,.01)

"^DD",2,2,0,"PT",41.41,.01)

"^DD",2,2,0,"PT",41.42,.01)

"^DD",2,2,0,"PT",41.43,1)

"^DD",2,2,0,"PT",42.51,.01)

"^DD",2,2,0,"PT",43,213)

"^DD",2,2,0,"PT",43.5,.05)

"^DD",2,2,0,"PT",44.003,.01)

"^DD",2,2,0,"PT",44.007,.01)

"^DD",2,2,0,"PT",45,.01)

"^DD",2,2,0,"PT",45.5,1)

"^DD",2,2,0,"PT",45.85,.01)

"^DD",2,2,0,"PT",45.87,.09)

"^DD",2,2,0,"PT",45.9,.01)

"^DD",2,2,0,"PT",46.14,.01)

"^DD",2,2,0,"PT",50.0731,7)

"^DD",2,2,0,"PT",50.801,.01)

"^DD",2,2,0,"PT",50.806,.01)

"^DD",2,2,0,"PT",52,2)

"^DD",2,2,0,"PT",52.11,.01)

"^DD",2,2,0,"PT",52.4,1)

"^DD",2,2,0,"PT",52.41,1)

"^DD",2,2,0,"PT",52.43,9)

"^DD",2,2,0,"PT",52.5,.03)

"^DD",2,2,0,"PT",52.51,2)

"^DD",2,2,0,"PT",52.8,1)

"^DD",2,2,0,"PT",52.87,3)

"^DD",2,2,0,"PT",52.9001,.01)

"^DD",2,2,0,"PT",52.91,.01)

"^DD",2,2,0,"PT",53.1,.5)

"^DD",2,2,0,"PT",53.401,.01)

"^DD",2,2,0,"PT",53.4102,.01)

"^DD",2,2,0,"PT",53.43011,.01)

"^DD",2,2,0,"PT",53.4401,.01)

"^DD",2,2,0,"PT",53.51,.01)

"^DD",2,2,0,"PT",53.68,.11)

"^DD",2,2,0,"PT",53.69,.12)

"^DD",2,2,0,"PT",53.77,.02)

"^DD",2,2,0,"PT",53.78,.01)

"^DD",2,2,0,"PT",53.79,.01)

"^DD",2,2,0,"PT",55,.01)

"^DD",2,2,0,"PT",55.06,.5)

"^DD",2,2,0,"PT",58.81,73)

"^DD",2,2,0,"PT",58.85,22)

"^DD",2,2,0,"PT",58.86,18)

"^DD",2,2,0,"PT",59.9,.02)

"^DD",2,2,0,"PT",64.03,2)

"^DD",2,2,0,"PT",64.1111,9)

"^DD",2,2,0,"PT",65.03,.07)

"^DD",2,2,0,"PT",67,2)

"^DD",2,2,0,"PT",67,3)

"^DD",2,2,0,"PT",69.3,.06)

"^DD",2,2,0,"PT",70,.01)

"^DD",2,2,0,"PT",70.2,.01)

"^DD",2,2,0,"PT",74,2)

"^DD",2,2,0,"PT",75.1,.01)

"^DD",2,2,0,"PT",79.3,.03)

"^DD",2,2,0,"PT",90,.01)

"^DD",2,2,0,"PT",99,.01)

"^DD",2,2,0,"PT",100,.02)

"^DD",2,2,0,"PT",100.2,.01)

"^DD",2,2,0,"PT",100.2101,.01)

"^DD",2,2,0,"PT",100.99,3.05)

"^DD",2,2,0,"PT",100.9903,.01)

"^DD",2,2,0,"PT",101.52,19)

"^DD",2,2,0,"PT",102.3,3)

"^DD",2,2,0,"PT",103,.01)

"^DD",2,2,0,"PT",115,14)

"^DD",2,2,0,"PT",115.701,.01)

"^DD",2,2,0,"PT",119.01,101)

"^DD",2,2,0,"PT",120.5,.02)

"^DD",2,2,0,"PT",120.8,.01)

"^DD",2,2,0,"PT",120.85,.02)

"^DD",2,2,0,"PT",120.86,.01)

"^DD",2,2,0,"PT",123,.02)

"^DD",2,2,0,"PT",124.3,.02)

"^DD",2,2,0,"PT",126,.01)

"^DD",2,2,0,"PT",130,.01)

"^DD",2,2,0,"PT",133.801,.01)

"^DD",2,2,0,"PT",139.5,.01)

"^DD",2,2,0,"PT",154,.01)

"^DD",2,2,0,"PT",154.1,.01)

"^DD",2,2,0,"PT",154.991,2)

"^DD",2,2,0,"PT",160,.01)

"^DD",2,2,0,"PT",161,.01)

"^DD",2,2,0,"PT",161.26,.01)

"^DD",2,2,0,"PT",161.5,2)

"^DD",2,2,0,"PT",161.83,.01)

"^DD",2,2,0,"PT",161.9,.01)

"^DD",2,2,0,"PT",162,.01)

"^DD",2,2,0,"PT",162.2,3)

"^DD",2,2,0,"PT",162.4,2)

"^DD",2,2,0,"PT",162.7,2)

"^DD",2,2,0,"PT",162.7,23)

"^DD",2,2,0,"PT",183.21,.01)

"^DD",2,2,0,"PT",183.31,.01)

"^DD",2,2,0,"PT",190,.01)

"^DD",2,2,0,"PT",190,9)

"^DD",2,2,0,"PT",194.31,.01)

"^DD",2,2,0,"PT",213.51,.01)

"^DD",2,2,0,"PT",214,.01)

"^DD",2,2,0,"PT",214.6,.02)

"^DD",2,2,0,"PT",214.7,.02)

"^DD",2,2,0,"PT",220,.01)

"^DD",2,2,0,"PT",221,3)

"^DD",2,2,0,"PT",228.1,.02)

"^DD",2,2,0,"PT",228.2,.02)

"^DD",2,2,0,"PT",228.5,.04)

"^DD",2,2,0,"PT",228.6,.01)

"^DD",2,2,0,"PT",228.7,.03)

"^DD",2,2,0,"PT",230,.06)

"^DD",2,2,0,"PT",230.1,.06)

"^DD",2,2,0,"PT",234,2)

"^DD",2,2,0,"PT",301.5,.01)

"^DD",2,2,0,"PT",301.61,.02)

"^DD",2,2,0,"PT",301.62,.01)

"^DD",2,2,0,"PT",301.63,.08)

"^DD",2,2,0,"PT",301.7,1)

"^DD",2,2,0,"PT",340,.01)

"^DD",2,2,0,"PT",344.01,.03)

"^DD",2,2,0,"PT",348.41,.02)

"^DD",2,2,0,"PT",348.43,.01)

"^DD",2,2,0,"PT",350,.02)

"^DD",2,2,0,"PT",350.9,4.02)

"^DD",2,2,0,"PT",351,.02)

"^DD",2,2,0,"PT",351.1,.01)

"^DD",2,2,0,"PT",351.2,.01)

"^DD",2,2,0,"PT",351.5,.02)

"^DD",2,2,0,"PT",351.6,.01)

"^DD",2,2,0,"PT",351.81,.02)

"^DD",2,2,0,"PT",354,.01)

"^DD",2,2,0,"PT",354.7,.01)

"^DD",2,2,0,"PT",355.3,.1)

"^DD",2,2,0,"PT",355.33,60.01)

"^DD",2,2,0,"PT",355.5,.02)

"^DD",2,2,0,"PT",355.7,.02)

"^DD",2,2,0,"PT",355.8,.01)

"^DD",2,2,0,"PT",355.81,.01)

"^DD",2,2,0,"PT",356,.02)

"^DD",2,2,0,"PT",356.2,.05)

"^DD",2,2,0,"PT",356.25,.02)

"^DD",2,2,0,"PT",356.26,.02)

"^DD",2,2,0,"PT",357.96,.02)

"^DD",2,2,0,"PT",359.3,.02)

"^DD",2,2,0,"PT",364.2,.07)

"^DD",2,2,0,"PT",365,.02)

"^DD",2,2,0,"PT",365.1,.02)

"^DD",2,2,0,"PT",366.141,.03)

"^DD",2,2,0,"PT",366.141,.14)

"^DD",2,2,0,"PT",373,.03)

"^DD",2,2,0,"PT",375,.03)

"^DD",2,2,0,"PT",390,2)

"^DD",2,2,0,"PT",391.31,1)

"^DD",2,2,0,"PT",391.71,.03)

"^DD",2,2,0,"PT",391.71,.05)

"^DD",2,2,0,"PT",391.91,.01)

"^DD",2,2,0,"PT",391.98,.01)

"^DD",2,2,0,"PT",392,2)

"^DD",2,2,0,"PT",392.2,2)

"^DD",2,2,0,"PT",392.7,2)

"^DD",2,2,0,"PT",392.9,.01)

"^DD",2,2,0,"PT",393,.01)

"^DD",2,2,0,"PT",394,8)

"^DD",2,2,0,"PT",394.4,5)

"^DD",2,2,0,"PT",394.61,.03)

"^DD",2,2,0,"PT",394.87,10)

"^DD",2,2,0,"PT",395.5,.01)

"^DD",2,2,0,"PT",395.7,.01)

"^DD",2,2,0,"PT",396,.01)

"^DD",2,2,0,"PT",396.17,.01)

"^DD",2,2,0,"PT",396.2,.01)

"^DD",2,2,0,"PT",396.3,.01)

"^DD",2,2,0,"PT",396.9,4)

"^DD",2,2,0,"PT",399,.02)

"^DD",2,2,0,"PT",403.5,.01)

"^DD",2,2,0,"PT",403.56,.01)

"^DD",2,2,0,"PT",404.41,.01)

"^DD",2,2,0,"PT",404.42,.01)

"^DD",2,2,0,"PT",404.471,.02)

"^DD",2,2,0,"PT",404.48,.02)

"^DD",2,2,0,"PT",405,.03)

"^DD",2,2,0,"PT",408.12,.01)

"^DD",2,2,0,"PT",408.12,.03)

"^DD",2,2,0,"PT",408.22,.01)

"^DD",2,2,0,"PT",408.31,.02)

"^DD",2,2,0,"PT",408.41,.04)

"^DD",2,2,0,"PT",409.3,.01)

"^DD",2,2,0,"PT",409.39,.01)

"^DD",2,2,0,"PT",409.48,.11)

"^DD",2,2,0,"PT",409.5,2)

"^DD",2,2,0,"PT",409.55,.02)

"^DD",2,2,0,"PT",409.68,.02)

"^DD",2,2,0,"PT",409.69,.01)

"^DD",2,2,0,"PT",409.74,.02)

"^DD",2,2,0,"PT",409.77,.03)

"^DD",2,2,0,"PT",430,7)

"^DD",2,2,0,"PT",440.2,.01)

"^DD",2,2,0,"PT",445.3,129)

"^DD",2,2,0,"PT",446.1,2)

"^DD",2,2,0,"PT",470,.01)

"^DD",2,2,0,"PT",513.8,.01)

"^DD",2,2,0,"PT",550.215,.03)

"^DD",2,2,0,"PT",600.71,1)

"^DD",2,2,0,"PT",601.2,.01)

"^DD",2,2,0,"PT",601.4,.01)

"^DD",2,2,0,"PT",601.84,1)

"^DD",2,2,0,"PT",601.94,1)

"^DD",2,2,0,"PT",603.01,1)

"^DD",2,2,0,"PT",604,.02)

"^DD",2,2,0,"PT",615,.01)

"^DD",2,2,0,"PT",615.2,.02)

"^DD",2,2,0,"PT",617.01,.01)

"^DD",2,2,0,"PT",618.04,.01)

"^DD",2,2,0,"PT",618.4,1)

"^DD",2,2,0,"PT",627.8,.02)

"^DD",2,2,0,"PT",631,.01)

"^DD",2,2,0,"PT",632,.01)

"^DD",2,2,0,"PT",634.1,.01)

"^DD",2,2,0,"PT",634.2,.01)

"^DD",2,2,0,"PT",634.3,.01)

"^DD",2,2,0,"PT",634.5,.01)

"^DD",2,2,0,"PT",650,7)

"^DD",2,2,0,"PT",655,.01)

"^DD",2,2,0,"PT",655.2,.01)

"^DD",2,2,0,"PT",665,.01)

"^DD",2,2,0,"PT",665.1,1)

"^DD",2,2,0,"PT",665.4,.01)

"^DD",2,2,0,"PT",665.72319,.01)

"^DD",2,2,0,"PT",668,1)

"^DD",2,2,0,"PT",690,.01)

"^DD",2,2,0,"PT",702,.01)

"^DD",2,2,0,"PT",703.1,.02)

"^DD",2,2,0,"PT",704.002,.06)

"^DD",2,2,0,"PT",704.005,.01)

"^DD",2,2,0,"PT",704.107,.08)

"^DD",2,2,0,"PT",704.1122,.03)

"^DD",2,2,0,"PT",704.115,.02)

"^DD",2,2,0,"PT",704.117,.08)

"^DD",2,2,0,"PT",704.121,.04)

"^DD",2,2,0,"PT",704.201,.01)

"^DD",2,2,0,"PT",704.202,.02)

"^DD",2,2,0,"PT",712,3.4)

"^DD",2,2,0,"PT",713.1,.01)

"^DD",2,2,0,"PT",714.5,.01)

"^DD",2,2,0,"PT",721,1)

"^DD",2,2,0,"PT",727.802,4)

"^DD",2,2,0,"PT",727.804,4)

"^DD",2,2,0,"PT",727.805,4)

"^DD",2,2,0,"PT",727.806,4)

"^DD",2,2,0,"PT",727.808,4)

"^DD",2,2,0,"PT",727.809,4)

"^DD",2,2,0,"PT",727.81,4)

"^DD",2,2,0,"PT",727.811,4)

"^DD",2,2,0,"PT",727.812,4)

"^DD",2,2,0,"PT",727.814,4)

"^DD",2,2,0,"PT",727.815,4)

"^DD",2,2,0,"PT",727.817,4)

"^DD",2,2,0,"PT",727.819,4)

"^DD",2,2,0,"PT",727.823,4)

"^DD",2,2,0,"PT",727.824,4)

"^DD",2,2,0,"PT",727.825,4)

"^DD",2,2,0,"PT",727.826,4)

"^DD",2,2,0,"PT",727.827,4)

"^DD",2,2,0,"PT",727.829,4)

"^DD",2,2,0,"PT",727.832,4)

"^DD",2,2,0,"PT",727.833,4)

"^DD",2,2,0,"PT",741,.01)

"^DD",2,2,0,"PT",742,.01)

"^DD",2,2,0,"PT",743.1,.01)

"^DD",2,2,0,"PT",745.1,2)

"^DD",2,2,0,"PT",783,.03)

"^DD",2,2,0,"PT",790,.01)

"^DD",2,2,0,"PT",790.08,.02)

"^DD",2,2,0,"PT",798.3,.01)

"^DD",2,2,0,"PT",798.4,.01)

"^DD",2,2,0,"PT",798.74,3)

"^DD",2,2,0,"PT",801.55,.01)

"^DD",2,2,0,"PT",810.16,.01)

"^DD",2,2,0,"PT",810.31,.01)

"^DD",2,2,0,"PT",810.3316,.01)

"^DD",2,2,0,"PT",810.53,.01)

"^DD",2,2,0,"PT",815,201)

"^DD",2,2,0,"PT",860.1,.01)

"^DD",2,2,0,"PT",984.9,.04)

"^DD",2,2,0,"PT",987.5,18)

"^DD",2,2,0,"PT",991.12,3)

"^DD",2,2,0,"PT",991.8,18)

"^DD",2,2,0,"PT",991.8,30)

"^DD",2,2,0,"PT",991.8,103)

"^DD",2,2,0,"PT",991.8,108)

"^DD",2,2,0,"PT",991.8,113)

"^DD",2,2,0,"PT",991.8,118)

"^DD",2,2,0,"PT",1927.09,4)

"^DD",2,2,0,"PT",1927.4,1)

"^DD",2,2,0,"PT",2005,5)

"^DD",2,2,0,"PT",2005.1,5)

"^DD",2,2,0,"PT",2005.6,3)

"^DD",2,2,0,"PT",2005.66,4)

"^DD",2,2,0,"PT",2006.1867,.01)

"^DD",2,2,0,"PT",2006.5,2)

"^DD",2,2,0,"PT",2006.552,.001)

"^DD",2,2,0,"PT",2006.562,2)

"^DD",2,2,0,"PT",2006.563,97)

"^DD",2,2,0,"PT",2006.565,15)

"^DD",2,2,0,"PT",2006.82,5)

"^DD",2,2,0,"PT",2006.9421,3)

"^DD",2,2,0,"PT",2006.95,7)

"^DD",2,2,0,"PT",2006.961,.01)

"^DD",2,2,0,"PT",2040,.01)

"^DD",2,2,0,"PT",2048,.01)

"^DD",2,2,0,"PT",2275,.01)

"^DD",2,2,0,"PT",6002.01,9)

"^DD",2,2,0,"PT",6002.03,1)

"^DD",2,2,0,"PT",8925.5,1.03)

"^DD",2,2,0,"PT",8925.5,1.04)

"^DD",2,2,0,"PT",8992.01,3.02)

"^DD",2,2,0,"PT",8992.1,.04)

"^DD",2,2,0,"PT",11500.1,.12)

"^DD",2,2,0,"PT",19617,.01)

"^DD",2,2,0,"PT",19620,.01)

"^DD",2,2,0,"PT",19620.12,.03)

"^DD",2,2,0,"PT",19620.92,.01)

"^DD",2,2,0,"PT",19620.92,.08)

"^DD",2,2,0,"PT",19620.98,.01)

"^DD",2,2,0,"PT",19625,.01)

"^DD",2,2,0,"PT",19625.11,.03)

"^DD",2,2,0,"PT",19625.3,.01)

"^DD",2,2,0,"PT",509850.2,.01)

"^DD",2,2,0,"PT",509850.9,.02)

"^DD",2,2,0,"PT",791810,.04)

"^DD",2,2,0,"PT",9000001,.01)

"^DD",2,2,0,"PT",9002313.31,903)

"^DD",2,2,0,"PT",9002313.57,5)

"^DD",2,2,0,"PT",9002313.59,5)

"^DD",2,2,0,"PT",9002313.77,1.15)

"^DD",2,2,0,"PT",9009032.4,.02)

"^DD",2,2,0,"W")
W ?44,$P(^(0),U,9)
"^DD",2,2,.01,0)
NAME^RFXa^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT
^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X
"^DD",2,2,.01,.1)

"^DD",2,2,.01,1,0)
^.1^^-1
"^DD",2,2,.01,1,1,0)
2^B
"^DD",2,2,.01,1,1,1)
S ^DPT("B",$E(X,1,30),DA)=""
"^DD",2,2,.01,1,1,2)
K ^DPT("B",$E(X,1,30),DA)
"^DD",2,2,.01,1,2,0)
2^BS5^MUMPS
"^DD",2,2,.01,1,2,1)
Q:$P(^DPT(DA,0),U,9)']""  S ^DPT("BS5",$E(X,1)_$E($P(^(0),U,9),6,9),DA)=""
"^DD",2,2,.01,1,2,2)
Q:$P(^DPT(DA,0),U,9)']""  K ^DPT("BS5",$E(X,1)_$E($P(^(0),U,9),6,9),DA)
"^DD",2,2,.01,1,4,0)
2^AODS2^MUMPS
"^DD",2,2,.01,1,4,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.01,1,4,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.01,1,5,0)
2^ABUL^MUMPS
"^DD",2,2,.01,1,5,1)
K DGNEWVAL Q
"^DD",2,2,.01,1,5,2)
S DFN=DA D ^DGPATN K DGNEWVAL Q
"^DD",2,2,.01,1,5,"%D",0)
^^2^2^2950110^
"^DD",2,2,.01,1,5,"%D",1,0)
This cross-reference will generate a mail message when a patient is deleted
"^DD",2,2,.01,1,5,"%D",2,0)
or the patient's name is changed.
"^DD",2,2,.01,1,5,"DT")
2950110
"^DD",2,2,.01,1,301,0)
2^IVM01^MUMPS
"^DD",2,2,.01,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.01,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.01,1,301,"%D",0)
^^5^5^2930513^
"^DD",2,2,.01,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.01,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.01,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.01,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.01,1,301,"DT")
2930513
"^DD",2,2,.01,1,991,0)
2^AVAFC01^MUMPS
"^DD",2,2,.01,1,991,1)
I '$D(DFN),($T(AVAFC^VAFCDD01)'="") S VAFCF=".01;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.01,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".01;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.01,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.01,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.01,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.01,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.01,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.01,1,991,"%D",5,0)
 
"^DD",2,2,.01,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.01,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.01,1,991,"%D",8,0)
process.
"^DD",2,2,.01,1,991,"%D",9,0)
 
"^DD",2,2,.01,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.01,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.01,1,991,"%D",12,0)
 
"^DD",2,2,.01,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.01,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.01,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.01,1,991,"DT")
2970825
"^DD",2,2,.01,1,992,0)
2^AMPIMIS^MUMPS
"^DD",2,2,.01,1,992,1)
I $T(SET^VAFCMIS)'=""&('$D(VAFCNO)) D SET^VAFCMIS(DA)
"^DD",2,2,.01,1,992,2)
I $T(KILL^VAFCMIS)'=""&('$D(VAFCNO)) D KILL^VAFCMIS(DA)
"^DD",2,2,.01,1,992,"%D",0)
^^4^4^2980114^^^^
"^DD",2,2,.01,1,992,"%D",1,0)
Temporary cross reference that lets the MPI Missing ICN job know that a
"^DD",2,2,.01,1,992,"%D",2,0)
patient was added to the Patient file, via another package other than
"^DD",2,2,.01,1,992,"%D",3,0)
PIMS, and needs to get an ICN.  Once the ICN is assigned (local or
"^DD",2,2,.01,1,992,"%D",4,0)
national) the cross reference is killed.
"^DD",2,2,.01,1,992,"DT")
3031113
"^DD",2,2,.01,1,993,0)
2^ADGRU01^MUMPS
"^DD",2,2,.01,1,993,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.01,1,993,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.01,1,993,"%D",0)
^^9^9^3000208^
"^DD",2,2,.01,1,993,"%D",1,0)
This cross reference is used to remember that changes were made to a
"^DD",2,2,.01,1,993,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.01,1,993,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create an
"^DD",2,2,.01,1,993,"%D",4,0)
entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.01,1,993,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.01,1,993,"%D",6,0)
interface.
"^DD",2,2,.01,1,993,"%D",7,0)
 
"^DD",2,2,.01,1,993,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is not
"^DD",2,2,.01,1,993,"%D",9,0)
to be executed as part of a re-indexing.
"^DD",2,2,.01,1,993,"DT")
3000208
"^DD",2,2,.01,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in leng
th.
"^DD",2,2,.01,7.5)
D INPUT^DGRPDD1
"^DD",2,2,.01,20,0)
^.3LA^1^1
"^DD",2,2,.01,20,1,0)
DEMOG^
"^DD",2,2,.01,21,0)
^^4^4^2990208^^^^
"^DD",2,2,.01,21,1,0)
Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.01,21,2,0)
This value must be 3-30 characters in length and may contain only uppercase
"^DD",2,2,.01,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.01,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.01,"AUDIT")
y
"^DD",2,2,.01,"AX")
I 1
"^DD",2,2,.01,"DEL",100,0)
I $D(^OR(100,"ACT",DA_";DPT(")) D EN^DDIOL("Patient orders must be deleted first
.","","!?0")
"^DD",2,2,.01,"DEL",401,0)
I $O(^DGPM("C",DA,0)) W *7,!,"Delete Patient Movements First",!
"^DD",2,2,.01,"DEL",1900,0)
I $N(^DPT(DA,"S",DT))+1 W *7,!,"APPOINTMENT(S) PENDING!"
"^DD",2,2,.01,"DEL",3000,0)
I $N(^PS(55,DA,"P",0))+1 W *7,!,"PATIENT HAS OUTPATIENT PRESCRIPTIONS"
"^DD",2,2,.01,"DEL",999999,0)
D DEL^DPTLK2
"^DD",2,2,.01,"DT")
3060919
"^DD",2,2,.02,0)
SEX^RSa^M:MALE;F:FEMALE;^0;2^Q
"^DD",2,2,.02,1,0)
^.1^^-1
"^DD",2,2,.02,1,1,0)
2^ASX
"^DD",2,2,.02,1,1,1)
S ^DPT("ASX",$E(X,1,30),DA)=""
"^DD",2,2,.02,1,1,2)
K ^DPT("ASX",$E(X,1,30),DA)
"^DD",2,2,.02,1,2,0)
2^AENR02^MUMPS
"^DD",2,2,.02,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.02,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.02,1,2,3)
DO NOT DELETE
"^DD",2,2,.02,1,2,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.02,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.02,1,2,"%D",2,0)
enrollment. 
"^DD",2,2,.02,1,2,"DT")
2971007
"^DD",2,2,.02,1,301,0)
2^IVM02^MUMPS
"^DD",2,2,.02,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.02,1,301,2)
S IVMX=X,IVMKILL=2,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
,IVMKILL
"^DD",2,2,.02,1,301,"%D",0)
^^8^8^2991027^
"^DD",2,2,.02,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.02,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.02,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.02,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.02,1,301,"%D",5,0)
 
"^DD",2,2,.02,1,301,"%D",6,0)
Also, if this field is edited, this cross-reference will check to see if the
"^DD",2,2,.02,1,301,"%D",7,0)
patient requires a financial query to be sent to the IVM Center (Data
"^DD",2,2,.02,1,301,"%D",8,0)
Collection Division (DCD).
"^DD",2,2,.02,1,301,"DT")
2991027
"^DD",2,2,.02,1,991,0)
2^AVAFC02^MUMPS
"^DD",2,2,.02,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".02;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.02,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".02;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.02,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.02,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.02,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.02,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.02,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.02,1,991,"%D",5,0)
 
"^DD",2,2,.02,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.02,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.02,1,991,"%D",8,0)
process.
"^DD",2,2,.02,1,991,"%D",9,0)
 
"^DD",2,2,.02,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.02,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.02,1,991,"%D",12,0)
  
"^DD",2,2,.02,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.02,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.02,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.02,1,991,"DT")
2970825
"^DD",2,2,.02,1,992,0)
2^ADGRU02^MUMPS
"^DD",2,2,.02,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.02,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.02,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.02,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.02,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.02,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.02,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.02,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.02,1,992,"%D",6,0)
interface.
"^DD",2,2,.02,1,992,"%D",7,0)
 
"^DD",2,2,.02,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.02,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.02,1,992,"DT")
2990920
"^DD",2,2,.02,3)
Enter 'M' for MALE, or 'F' for FEMALE.
"^DD",2,2,.02,20,0)
^.3LA^1^1
"^DD",2,2,.02,20,1,0)
DEMOG^
"^DD",2,2,.02,21,0)
^^1^1^2920721^^^
"^DD",2,2,.02,21,1,0)
Enter 'M' if this applicant is a male, or 'F' if female.
"^DD",2,2,.02,"AUDIT")
y
"^DD",2,2,.02,"DT")
3060624
"^DD",2,2,.03,0)
DATE OF BIRTH^RDXOa^^0;3^S %DT="EP" D ^%DT S X=Y K:1701231>X!(DT<X) X I $D(X) D 
BIRTH^DGLOCK
"^DD",2,2,.03,.1)
DOB
"^DD",2,2,.03,1,0)
^.1
"^DD",2,2,.03,1,1,0)
2^ADOB
"^DD",2,2,.03,1,1,1)
S ^DPT("ADOB",$E(X,1,30),DA)=""
"^DD",2,2,.03,1,1,2)
K ^DPT("ADOB",$E(X,1,30),DA)
"^DD",2,2,.03,1,2,0)
^^TRIGGER^2^.083
"^DD",2,2,.03,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,
20),X=X S DIU=X K Y S X=DIV S X="1" S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(0),U,2
0)=DIV,DIH=2,DIG=.083 D ^DICR
"^DD",2,2,.03,1,2,2)
Q
"^DD",2,2,.03,1,2,"CREATE VALUE")
"1"
"^DD",2,2,.03,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.03,1,2,"DT")
3080310
"^DD",2,2,.03,1,2,"FIELD")
#.083
"^DD",2,2,.03,1,3,0)
2^AODS3^MUMPS
"^DD",2,2,.03,1,3,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.03,1,3,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.03,1,301,0)
2^IVM03^MUMPS
"^DD",2,2,.03,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.03,1,301,2)
S IVMX=X,IVMKILL=3,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
,IVMKILL
"^DD",2,2,.03,1,301,"%D",0)
^^8^8^2991027^
"^DD",2,2,.03,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.03,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.03,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.03,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.03,1,301,"%D",5,0)
 
"^DD",2,2,.03,1,301,"%D",6,0)
Also, if this field is edited, this cross-reference will check to see if the
"^DD",2,2,.03,1,301,"%D",7,0)
patient requires a financial query to be sent to the IVM Center (Data
"^DD",2,2,.03,1,301,"%D",8,0)
Collection Division (DCD).
"^DD",2,2,.03,1,301,"DT")
2991027
"^DD",2,2,.03,1,991,0)
2^AVAFC03^MUMPS
"^DD",2,2,.03,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".03;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.03,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".03;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.03,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.03,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.03,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.03,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.03,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.03,1,991,"%D",5,0)
 
"^DD",2,2,.03,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.03,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.03,1,991,"%D",8,0)
process.
"^DD",2,2,.03,1,991,"%D",9,0)
 
"^DD",2,2,.03,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.03,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.03,1,991,"%D",12,0)
  
"^DD",2,2,.03,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.03,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.03,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.03,1,991,"DT")
2980501
"^DD",2,2,.03,1,992,0)
2^ADGRU03^MUMPS
"^DD",2,2,.03,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.03,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.03,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.03,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.03,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.03,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.03,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.03,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.03,1,992,"%D",6,0)
interface.
"^DD",2,2,.03,1,992,"%D",7,0)
 
"^DD",2,2,.03,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.03,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.03,1,992,"DT")
2990920
"^DD",2,2,.03,2)
S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3)) S Y=X
"^DD",2,2,.03,2.1)
NUMDATE4(DOB)
"^DD",2,2,.03,3)
Enter the patient's DATE OF BIRTH which must be later than 12/31/1870.  DATE OF 
BIRTH cannot be a date after the beneficiary 'Ineligible Date' or a date after t
he 'Enrollment Application Date'.
"^DD",2,2,.03,20,0)
^.3LA^1^1
"^DD",2,2,.03,20,1,0)
DEMOG^
"^DD",2,2,.03,21,0)
^.001^3^3^3101213^^^^
"^DD",2,2,.03,21,1,0)
Enter the patient's DATE OF BIRTH which must be later than 12/31/1870.  
"^DD",2,2,.03,21,2,0)
DATE OF BIRTH cannot be a date after the beneficiary 'Ineligible Date' 
"^DD",2,2,.03,21,3,0)
or a date after the 'Enrollment Application Date'.
"^DD",2,2,.03,"AUDIT")
y
"^DD",2,2,.03,"DT")
3090904
"^DD",2,2,.033,0)
AGE^CJ3X,0^^ ; ^X ^DD(2,.033,9.5) S X=$E(Y(2,.033,15),Y(2,.033,16),X) S Y=X,X=Y(
2,.033,13),X=X<Y,Y=X,X=Y(2,.033,8),X=X-Y
"^DD",2,2,.033,3)
Computed field which determines patients age based on DOB and todays date.
"^DD",2,2,.033,9)
^
"^DD",2,2,.033,9.01)
2^.03
"^DD",2,2,.033,9.1)
$E(TODAY,1,3)-$E(INTERNAL(DOB),1,3)-($E(TODAY,4,7)<$E(INTERNAL(DOB),4,7))
"^DD",2,2,.033,9.2)
S Y(2,.033,5)=$S($D(^DPT(D0,0)):^(0),1:""),X=$S($G(^DPT(D0,.35)):+^(.35),1:DT) S
 X=X,Y(2,.033,1)=X S X=1,Y(2,.033,2)=X S X=3,X=$E(Y(2,.033,1),Y(2,.033,2),X),Y(2
,.033,3)=X,Y(2,.033,4)=X
"^DD",2,2,.033,9.3)
X ^DD(2,.033,9.2) S X=$P(Y(2,.033,5),U,3),X=X S X=X,Y(2,.033,6)=X S X=1,Y(2,.033
,7)=X S X=3,X=$E(Y(2,.033,6),Y(2,.033,7),X) S Y=X,X=Y(2,.033,3),X=X-Y
"^DD",2,2,.033,9.4)
X ^DD(2,.033,9.3) S Y(2,.033,8)=X,Y(2,.033,9)=X,Y(2,.033,10)=X,X=$S($G(^DPT(D0,.
35)):+^(.35),1:DT) S X=X,Y(2,.033,11)=X S X=4,Y(2,.033,12)=X S X=7,X=$E(Y(2,.033
,11),Y(2,.033,12),X)
"^DD",2,2,.033,9.5)
X ^DD(2,.033,9.4) S Y(2,.033,13)=X,Y(2,.033,14)=X S X=$P(Y(2,.033,5),U,3),X=X S 
X=X,Y(2,.033,15)=X S X=4,Y(2,.033,16)=X S X=7
"^DD",2,2,.033,21,0)
^^3^3^2980306^^^^
"^DD",2,2,.033,21,1,0)
A computer field which, based on today's date (or the patient's date 
"^DD",2,2,.033,21,2,0)
of death, if applicable) and the patient's date of birth, will arrive 
"^DD",2,2,.033,21,3,0)
at his/her age.
"^DD",2,2,.033,"DT")
2980306
"^DD",2,2,.05,0)
MARITAL STATUS^RP11'a^DIC(11,^0;5^Q
"^DD",2,2,.05,1,0)
^.1
"^DD",2,2,.05,1,991,0)
2^AVAFC05^MUMPS
"^DD",2,2,.05,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".05;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.05,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".05;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.05,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.05,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.05,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.05,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.05,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.05,1,991,"%D",5,0)
 
"^DD",2,2,.05,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.05,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.05,1,991,"%D",8,0)
process.
"^DD",2,2,.05,1,991,"%D",9,0)
 
"^DD",2,2,.05,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.05,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.05,1,991,"%D",12,0)
  
"^DD",2,2,.05,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.05,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.05,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.05,1,991,"DT")
2970825
"^DD",2,2,.05,1,992,0)
2^ADGRU05^MUMPS
"^DD",2,2,.05,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.05,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.05,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.05,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.05,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.05,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.05,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.05,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.05,1,992,"%D",6,0)
interface.
"^DD",2,2,.05,1,992,"%D",7,0)
 
"^DD",2,2,.05,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.05,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.05,1,992,"DT")
2990920
"^DD",2,2,.05,1,993,0)
2^AENR05^MUMPS
"^DD",2,2,.05,1,993,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.05,1,993,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.05,1,993,3)
 DO NOT DELETE
"^DD",2,2,.05,1,993,"%D",0)
^.101^2^2^3050609^^^^
"^DD",2,2,.05,1,993,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.05,1,993,"%D",2,0)
enrollment.
"^DD",2,2,.05,1,993,"DT")
3050609
"^DD",2,2,.05,3)
Select from the available listing this patients current marital status.
"^DD",2,2,.05,20,0)
^.3LA^1^1
"^DD",2,2,.05,20,1,0)
DEMOG^
"^DD",2,2,.05,21,0)
^^2^2^2870403^^^
"^DD",2,2,.05,21,1,0)
Select from the available listing this applicant's current
"^DD",2,2,.05,21,2,0)
marital status.
"^DD",2,2,.05,"AUDIT")
y
"^DD",2,2,.05,"DT")
3060802
"^DD",2,2,.06,0)
RACE^P10'IX^DIC(10,^0;6^K X D EN^DDIOL("** THIS FIELD IS FOR HISTORICAL PURPOSES
 ONLY - ENTRY OF DATA NOT ALLOWED **",,"!")
"^DD",2,2,.06,1,0)
^.1
"^DD",2,2,.06,1,991,0)
2^AVAFC06^MUMPS
"^DD",2,2,.06,1,991,1)
D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)
"^DD",2,2,.06,1,991,2)
D:($T(AVAFC^VAFCDD01)'="") AVAFC^VAFCDD01(DA)
"^DD",2,2,.06,1,991,"%D",0)
^^11^11^2990920^^
"^DD",2,2,.06,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.06,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.06,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.06,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.06,1,991,"%D",5,0)
 
"^DD",2,2,.06,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.06,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.06,1,991,"%D",8,0)
process.
"^DD",2,2,.06,1,991,"%D",9,0)
 
"^DD",2,2,.06,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.06,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.06,1,991,"DT")
2970609
"^DD",2,2,.06,1,992,0)
2^ADGRU06^MUMPS
"^DD",2,2,.06,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.06,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.06,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.06,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.06,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.06,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.06,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.06,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.06,1,992,"%D",6,0)
interface.
"^DD",2,2,.06,1,992,"%D",7,0)
 
"^DD",2,2,.06,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.06,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.06,1,992,"DT")
2990920
"^DD",2,2,.06,3)
This field is for historical purposes only.  Please do not enter data into it.
"^DD",2,2,.06,20,0)
^.3LA^1^1
"^DD",2,2,.06,20,1,0)
DEMOG^
"^DD",2,2,.06,21,0)
^.001^2^2^3030224^^^
"^DD",2,2,.06,21,1,0)
This field is no longer being populated and the values that are on file
"^DD",2,2,.06,21,2,0)
were collected prior to installation of patch DG*5.3*415.
"^DD",2,2,.06,"DT")
3030311
"^DD",2,2,.07,0)
OCCUPATION^F^^0;7^K:$L(X)>30!($L(X)<1) X
"^DD",2,2,.07,1,0)
^.1
"^DD",2,2,.07,1,992,0)
2^ADGRU07^MUMPS
"^DD",2,2,.07,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.07,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.07,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.07,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.07,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.07,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.07,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.07,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.07,1,992,"%D",6,0)
interface.
"^DD",2,2,.07,1,992,"%D",7,0)
 
"^DD",2,2,.07,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.07,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.07,1,992,"DT")
2990921
"^DD",2,2,.07,3)
Enter the patient's occupation [1-30 characters].
"^DD",2,2,.07,20,0)
^.3LA^1^1
"^DD",2,2,.07,20,1,0)
EM1
"^DD",2,2,.07,21,0)
^^2^2^2920604^^^
"^DD",2,2,.07,21,1,0)
If applicable, enter this applicant's current occupation
"^DD",2,2,.07,21,2,0)
[1-30 characters].
"^DD",2,2,.07,"DT")
2990921
"^DD",2,2,.08,0)
RELIGIOUS PREFERENCE^P13'a^DIC(13,^0;8^Q
"^DD",2,2,.08,.1)
RELIGION
"^DD",2,2,.08,1,0)
^.1
"^DD",2,2,.08,1,991,0)
2^AVAFC08^MUMPS
"^DD",2,2,.08,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".08;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.08,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".08;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.08,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.08,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.08,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.08,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.08,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.08,1,991,"%D",5,0)
 
"^DD",2,2,.08,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.08,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.08,1,991,"%D",8,0)
process.
"^DD",2,2,.08,1,991,"%D",9,0)
 
"^DD",2,2,.08,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.08,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.08,1,991,"%D",12,0)
  
"^DD",2,2,.08,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.08,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.08,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.08,1,991,"DT")
2970825
"^DD",2,2,.08,1,992,0)
2^ADGRU08^MUMPS
"^DD",2,2,.08,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.08,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.08,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.08,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.08,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.08,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.08,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.08,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.08,1,992,"%D",6,0)
interface.
"^DD",2,2,.08,1,992,"%D",7,0)
 
"^DD",2,2,.08,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.08,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.08,1,992,"DT")
2990920
"^DD",2,2,.08,3)
Select from the available list this patients religious preference.
"^DD",2,2,.08,20,0)
^.3LA^1^1
"^DD",2,2,.08,20,1,0)
DEMOG
"^DD",2,2,.08,21,0)
^^2^2^2861117^^
"^DD",2,2,.08,21,1,0)
Select from the available listing the religious preference of this
"^DD",2,2,.08,21,2,0)
applicant.
"^DD",2,2,.08,"AUDIT")
y
"^DD",2,2,.08,"DT")
2970825
"^DD",2,2,.081,0)
DUPLICATE STATUS^S^0:NO UNRESOLVED DUPLICATES;1:CHECK DUPLICATE RECORDS FILE;^0;
18^Q
"^DD",2,2,.081,21,0)
^^4^4^2930127^^
"^DD",2,2,.081,21,1,0)
This field is currently not being utilized.  It will be active when
"^DD",2,2,.081,21,2,0)
Patient Merge/Purge options are available to the user.  Duplicate
"^DD",2,2,.081,21,3,0)
Status field will be defined at that time.
"^DD",2,2,.081,21,4,0)
|
"^DD",2,2,.081,"DT")
2870325
"^DD",2,2,.082,0)
PATIENT MERGED TO^P2'^DPT(^0;19^Q
"^DD",2,2,.082,21,0)
^^4^4^2930127^^
"^DD",2,2,.082,21,1,0)
This field is currently not being utilized.  It will be active when
"^DD",2,2,.082,21,2,0)
Patient Merge/Purge options are available to the user.  Patient Merged
"^DD",2,2,.082,21,3,0)
To: field will be defined at that time.
"^DD",2,2,.082,21,4,0)
|
"^DD",2,2,.082,"DT")
2870325
"^DD",2,2,.083,0)
CHECK FOR DUPLICATE^S^1:YES;^0;20^Q
"^DD",2,2,.083,1,0)
^.1
"^DD",2,2,.083,1,1,0)
2^ANEW^MUMPS
"^DD",2,2,.083,1,1,1)
S ^DPT("ANEW",DA)=""
"^DD",2,2,.083,1,1,2)
K ^DPT("ANEW",DA)
"^DD",2,2,.083,5,1,0)
2^.03^2
"^DD",2,2,.083,5,2,0)
2^.09^2
"^DD",2,2,.083,21,0)
^^4^4^2930127^^
"^DD",2,2,.083,21,1,0)
This field is currently not being utilized.  It will be active when
"^DD",2,2,.083,21,2,0)
Patient Merge/Purge options are available to the user.  Check for
"^DD",2,2,.083,21,3,0)
Duplicate field will be defined at that time.
"^DD",2,2,.083,21,4,0)
|
"^DD",2,2,.083,"DT")
2870325
"^DD",2,2,.09,0)
SOCIAL SECURITY NUMBER^RFXa^^0;9^K:X[""""!($A(X)=45) X I $D(X) S:'$D(DPTX) DFN=D
A D SSN^DGINP Q  I $L(X)>10
"^DD",2,2,.09,.1)
SSN
"^DD",2,2,.09,1,0)
^.1^^-1
"^DD",2,2,.09,1,1,0)
2^BS^MUMPS
"^DD",2,2,.09,1,1,1)
S ^DPT("BS",$E(X,6,9),DA)=""
"^DD",2,2,.09,1,1,2)
K:$E(X,6,9)'="" ^DPT("BS",$E(X,6,9),DA)
"^DD",2,2,.09,1,2,0)
^^TRIGGER^2^.083
"^DD",2,2,.09,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,
20),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(2,.09,1,2,1.4)
"^DD",2,2,.09,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,19,99))  S
 DIH=DIH_U" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%
]"":U_%,1:""),DIH=2,DIG=.083 D ^DICR
"^DD",2,2,.09,1,2,2)
Q
"^DD",2,2,.09,1,2,"CREATE VALUE")
"1"
"^DD",2,2,.09,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.09,1,2,"FIELD")
#.083
"^DD",2,2,.09,1,3,0)
2^BS5^MUMPS
"^DD",2,2,.09,1,3,1)
S ^DPT("BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)=""
"^DD",2,2,.09,1,3,2)
K ^DPT("BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)
"^DD",2,2,.09,1,4,0)
2^AODS1^MUMPS
"^DD",2,2,.09,1,4,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.09,1,4,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.09,1,5,0)
2^ATP^MUMPS
"^DD",2,2,.09,1,5,1)
I $E(X,1,5)="00000" D SET^DGREGDD1(DA,.6,0,21,1)
"^DD",2,2,.09,1,5,2)
D KILL^DGREGDD1(DA,.6,0,21,0)
"^DD",2,2,.09,1,5,"%D",0)
^^2^2^2951026^^^^
"^DD",2,2,.09,1,5,"%D",1,0)
This cross reference is used to indentify test patients. Test patients are
"^DD",2,2,.09,1,5,"%D",2,0)
designated by five leading zeros in the SSN.
"^DD",2,2,.09,1,5,"DT")
2951026
"^DD",2,2,.09,1,7,0)
2^SSN
"^DD",2,2,.09,1,7,1)
S ^DPT("SSN",$E(X,1,30),DA)=""
"^DD",2,2,.09,1,7,2)
K ^DPT("SSN",$E(X,1,30),DA)
"^DD",2,2,.09,1,8,0)
2^AVADPT6^MUMPS
"^DD",2,2,.09,1,8,1)
S VADFN=DA D SET^VADPT6 K VADFN
"^DD",2,2,.09,1,8,2)
S VADFN=DA D KILL^VADPT6 K VADFN
"^DD",2,2,.09,1,9,0)
2^AD^MUMPS
"^DD",2,2,.09,1,9,1)
S PPP=X,X="PPPFMX" X ^%ZOSF("TEST") D:$T SNSSN^PPPFMX S X=PPP K PPP
"^DD",2,2,.09,1,9,2)
S PPP=X,X="PPPFMX" X ^%ZOSF("TEST") D:$T KNSSN^PPPFMX S X=PPP K PPP
"^DD",2,2,.09,1,9,"%D",0)
^.101^2^2^3010423^^
"^DD",2,2,.09,1,9,"%D",1,0)
This cross-reference is used to add a new SSN to the Prescription
"^DD",2,2,.09,1,9,"%D",2,0)
Practices Files when a new patient is added to the patient file.
"^DD",2,2,.09,1,9,"DT")
2920611
"^DD",2,2,.09,1,10,0)
^^TRIGGER^2^.0906
"^DD",2,2,.09,1,10,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'["P" I X S X=DIV S Y(1)=$S($D(^D
PT(D0,"SSN")):^("SSN"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.09
,1,10,1.4)
"^DD",2,2,.09,1,10,1.4)
S DIH=$G(^DPT(DIV(0),"SSN")),DIV=X S $P(^("SSN"),U,1)=DIV,DIH=2,DIG=.0906 D ^DIC
R
"^DD",2,2,.09,1,10,2)
Q
"^DD",2,2,.09,1,10,"%D",0)
^^1^1^3051128^
"^DD",2,2,.09,1,10,"%D",1,0)
Pseudo SSN Reason will have a value only if SSN is a Pseudo SSN. 
"^DD",2,2,.09,1,10,"CREATE CONDITION")
#.09'["P"
"^DD",2,2,.09,1,10,"CREATE VALUE")
@
"^DD",2,2,.09,1,10,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.09,1,10,"DT")
3051003
"^DD",2,2,.09,1,10,"FIELD")
PSEUDO SSN REAS
"^DD",2,2,.09,1,301,0)
2^IVM09^MUMPS
"^DD",2,2,.09,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.09,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.09,1,301,"%D",0)
^.101^4^4^3010423^^
"^DD",2,2,.09,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.09,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.09,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.09,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.09,1,301,"DT")
2930605
"^DD",2,2,.09,1,800,0)
2^PX09^MUMPS
"^DD",2,2,.09,1,800,1)
S PX=X,X="PXXDPT" X ^%ZOSF("TEST") D:$T SETSSN^PXXDPT S X=PX K PX
"^DD",2,2,.09,1,800,2)
S PX=X,X="PXXDPT" X ^%ZOSF("TEST") D:$T KILLSSN^PXXDPT S X=PX K PX
"^DD",2,2,.09,1,800,"%D",0)
^^2^2^2960624^^^
"^DD",2,2,.09,1,800,"%D",1,0)
This cross-reference is used to add a new SSN to the 9000001 IHS Patient
"^DD",2,2,.09,1,800,"%D",2,0)
File when a new patient is added to the Patient File.
"^DD",2,2,.09,1,800,"DT")
2930908
"^DD",2,2,.09,1,991,0)
2^AVAFC09^MUMPS
"^DD",2,2,.09,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".09;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.09,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".09;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.09,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.09,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.09,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.09,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.09,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.09,1,991,"%D",5,0)
 
"^DD",2,2,.09,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.09,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.09,1,991,"%D",8,0)
process.
"^DD",2,2,.09,1,991,"%D",9,0)
 
"^DD",2,2,.09,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.09,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.09,1,991,"%D",12,0)
  
"^DD",2,2,.09,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.09,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.09,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.09,1,991,"DT")
2970825
"^DD",2,2,.09,1,992,0)
2^ADGRU09^MUMPS
"^DD",2,2,.09,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.09,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.09,1,992,"%D",0)
^^9^9^3000202^^^^
"^DD",2,2,.09,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.09,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.09,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.09,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.09,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.09,1,992,"%D",6,0)
interface.
"^DD",2,2,.09,1,992,"%D",7,0)
 
"^DD",2,2,.09,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.09,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.09,1,992,"DT")
3000202
"^DD",2,2,.09,2)
S Y(0)=Y S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)
"^DD",2,2,.09,2.1)
S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)
"^DD",2,2,.09,3)
Enter 9-digit SSN or 'P' for pseudo-SSN.
"^DD",2,2,.09,10)
10/10 FORM
"^DD",2,2,.09,11,0)
^.2LAP^^0
"^DD",2,2,.09,11,1,0)
1^
"^DD",2,2,.09,11,2,0)
2^
"^DD",2,2,.09,20,0)
^.3LA^1^1
"^DD",2,2,.09,20,1,0)
DEMOG^
"^DD",2,2,.09,21,0)
^^14^14^3081021^
"^DD",2,2,.09,21,1,0)
Answer with the individual's social security number.  Answer must be 9 
"^DD",2,2,.09,21,2,0)
numbers in length. The SSN will be sent to the SSA for verification.  
"^DD",2,2,.09,21,3,0)
This will be displayed next to the SSN.  Once an SSN has received a
"^DD",2,2,.09,21,4,0)
status of Verified, it is locked from user updating and a "VERIFIED"
"^DD",2,2,.09,21,5,0)
will be displayed by the SSN field.  Only the Identity Management Data
"^DD",2,2,.09,21,6,0)
QUality Team are able to change a beneficiary's (veteran/non veteran)
"^DD",2,2,.09,21,7,0)
SSN.  If an Invalid per SSA status is received for the SSN, then an
"^DD",2,2,.09,21,8,0)
"INVALID" will appear next to the invalid SSN of the individual.
"^DD",2,2,.09,21,9,0)
Facilities should make every effort to obtain the accurate SSN from the
"^DD",2,2,.09,21,10,0)
individual for any invalid or pseudo SSN entry.
"^DD",2,2,.09,21,11,0)
 
"^DD",2,2,.09,21,12,0)
If a valid SSN is not known, then a "P" will be entered at the SSN
"^DD",2,2,.09,21,13,0)
prompt for the system to automatically assign a Pseudo-SSN.  If a
"^DD",2,2,.09,21,14,0)
Pseudo SSN is entered, a Reason for entering it will be required.
"^DD",2,2,.09,"AUDIT")
y
"^DD",2,2,.09,"DT")
3051006
"^DD",2,2,.0901,0)
TERMINAL DIGIT OF SSN^CJ9^^ ; ^S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""),X=$E(%,8
,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)
"^DD",2,2,.0901,.1)

"^DD",2,2,.0901,3)
Computed field which determines last four digits of SSN.
"^DD",2,2,.0901,9)
^
"^DD",2,2,.0901,9.01)

"^DD",2,2,.0901,9.1)
S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,
3)
"^DD",2,2,.0901,21,0)
^^6^6^2920130^^^
"^DD",2,2,.0901,21,1,0)
This is a computed field which returns the terminal digit value of the
"^DD",2,2,.0901,21,2,0)
patient's social security number.  This value is computed to be the
"^DD",2,2,.0901,21,3,0)
last 2 digits of the social security number concatenated with the sixth
"^DD",2,2,.0901,21,4,0)
and seventh digits of the social security number concatenated with the
"^DD",2,2,.0901,21,5,0)
forth and fifth pieces of the social security number concatenated with the
"^DD",2,2,.0901,21,6,0)
first 3 digits of the social security number.
"^DD",2,2,.0901,"DT")
2951107
"^DD",2,2,.0905,0)
1U4N^CXJ5^^ ; ^X ^DD(2,.0905,9.2) S X=$E(Y(.0905,4),Y(.0905,5),X) S Y=X,X=Y(.090
5,3),X=X_Y
"^DD",2,2,.0905,3)
Computed field which determines first characters of last name and last four digi
ts of SSN, i.e., 'L1234'.
"^DD",2,2,.0905,7)
S:X?1U4N DS="I ^(0)?1"""_$E(X,1)_""".E",X=$E(X,2,5) D 7^DICM
"^DD",2,2,.0905,9)
^
"^DD",2,2,.0905,9.1)
$E(NAME,1)_$E(SSN,6,9)
"^DD",2,2,.0905,9.2)
S Y(.0905,1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(.0905,1),U,1),Y(.0905,2)=X S 
X=1,X=$E(Y(.0905,2),X),Y(.0905,3)=X S X=$P(Y(.0905,1),U,9),Y(.0905,4)=X S X=6,Y(
.0905,5)=X S X=9
"^DD",2,2,.0905,21,0)
^^4^4^2911214^
"^DD",2,2,.0905,21,1,0)
This is a computed field used to display the first character of the
"^DD",2,2,.0905,21,2,0)
patient's last name concatenated with the last four digits of the patient's
"^DD",2,2,.0905,21,3,0)
social security number.  This combination of characters can be used to
"^DD",2,2,.0905,21,4,0)
look-up a patient in DHCP.
"^DD",2,2,.0906,0)
PSEUDO SSN REASON^S^R:REFUSED TO PROVIDE;S:SSN UNKNOWN/FOLLOW-UP REQUIRED;N:NO S
SN ASSIGNED;^SSN;1^Q
"^DD",2,2,.0906,1,0)
^.1^^0
"^DD",2,2,.0906,5,1,0)
2^.09^10
"^DD",2,2,.0906,21,0)
^^17^17^3060919^
"^DD",2,2,.0906,21,1,0)
This field is used to document the reason the individual was assigned a 
"^DD",2,2,.0906,21,2,0)
pseudo SSN.  Based on your selection, the Pseudo SSN Report (Patient) 
"^DD",2,2,.0906,21,3,0)
option located in the Registration Menu can provide you a current 
"^DD",2,2,.0906,21,4,0)
report of the reasons entered at this prompt.  The following reasons
"^DD",2,2,.0906,21,5,0)
are available for selection:
"^DD",2,2,.0906,21,6,0)
 
"^DD",2,2,.0906,21,7,0)
Refused to Provide - use this reason when the individual was asked for 
"^DD",2,2,.0906,21,8,0)
his/her SSN and refused to provide the number.
"^DD",2,2,.0906,21,9,0)
 
"^DD",2,2,.0906,21,10,0)
SSN Unknown/Follow-up required - use this reason when the individual
"^DD",2,2,.0906,21,11,0)
is not available to ask/answer the request for SSN.  The facility
"^DD",2,2,.0906,21,12,0)
should initiate Follow-up activity to obtain the SSN.
"^DD",2,2,.0906,21,13,0)
 
"^DD",2,2,.0906,21,14,0)
No SSN Assigned - use this reason when the individual has not been
"^DD",2,2,.0906,21,15,0)
assigned an SSN. This generally applies to spouse or dependents of
"^DD",2,2,.0906,21,16,0)
veterans who are not US citizens and infrequently, non-citizen
"^DD",2,2,.0906,21,17,0)
beneficiaries.
"^DD",2,2,.0906,"DT")
3070330
"^DD",2,2,.0907,0)
SSN VERIFICATION STATUS^S^4:VERIFIED;2:INVALID;^SSN;2^Q
"^DD",2,2,.0907,21,0)
^^3^3^3060406^
"^DD",2,2,.0907,21,1,0)
This field designates whether or not the SSN has been verified. This field
"^DD",2,2,.0907,21,2,0)
will be received in the HL7 record.  It is not editable by the user.  Once
"^DD",2,2,.0907,21,3,0)
the SSN is verified by the SSA, it is no longer editable. 
"^DD",2,2,.0907,"DT")
3060406
"^DD",2,2,.091,0)
REMARKS^F^^0;10^K:$L(X)>60!($L(X)<3) X
"^DD",2,2,.091,3)
Enter remarks concerning this patient for general display [3-60 characters].
"^DD",2,2,.091,5,1,0)
2^.152^1
"^DD",2,2,.091,5,2,0)
2^.351^1
"^DD",2,2,.091,21,0)
^^4^4^2861117^^^
"^DD",2,2,.091,21,1,0)
If so desired, you may enter a short remark about this applicant between
"^DD",2,2,.091,21,2,0)
3-60 characters.  The remark entered should be significant and tact should
"^DD",2,2,.091,21,3,0)
be exercised since this field is viewable to virtually all other users who
"^DD",2,2,.091,21,4,0)
have the ability to 'call up' a patient for any purpose.
"^DD",2,2,.092,0)
PLACE OF BIRTH [CITY]^F^^0;11^K:$L(X)>20!($L(X)<2) X
"^DD",2,2,.092,.1)
POB CITY
"^DD",2,2,.092,1,0)
^.1
"^DD",2,2,.092,1,991,0)
2^AVAFC092^MUMPS
"^DD",2,2,.092,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".092;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.092,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".092;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.092,1,991,"%D",0)
^^15^15^3021010^
"^DD",2,2,.092,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.092,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.092,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.092,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.092,1,991,"%D",5,0)
  
"^DD",2,2,.092,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.092,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.092,1,991,"%D",8,0)
process.
"^DD",2,2,.092,1,991,"%D",9,0)
  
"^DD",2,2,.092,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.092,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.092,1,991,"%D",12,0)
  
"^DD",2,2,.092,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.092,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.092,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.092,1,991,"DT")
3021010
"^DD",2,2,.092,1,992,0)
2^ADGRU092^MUMPS
"^DD",2,2,.092,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.092,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.092,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.092,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.092,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.092,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.092,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.092,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.092,1,992,"%D",6,0)
interface.
"^DD",2,2,.092,1,992,"%D",7,0)
 
"^DD",2,2,.092,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.092,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.092,1,992,"DT")
2990920
"^DD",2,2,.092,3)
Enter city in which patient was born (or foreign country) [2-20 characters].
"^DD",2,2,.092,21,0)
^^2^2^2861007^
"^DD",2,2,.092,21,1,0)
Enter the city in which this applicant was born (or foreign
"^DD",2,2,.092,21,2,0)
country if born outside the U.S.) [2-20 characters].
"^DD",2,2,.092,"DT")
3021010
"^DD",2,2,.093,0)
PLACE OF BIRTH [STATE]^P5'^DIC(5,^0;12^Q
"^DD",2,2,.093,.1)
POB STATE
"^DD",2,2,.093,1,0)
^.1
"^DD",2,2,.093,1,991,0)
2^AVAFC093^MUMPS
"^DD",2,2,.093,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".093;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.093,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".093;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.093,1,991,"%D",0)
^^15^15^3021010^
"^DD",2,2,.093,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.093,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.093,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.093,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.093,1,991,"%D",5,0)
  
"^DD",2,2,.093,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.093,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.093,1,991,"%D",8,0)
process.
"^DD",2,2,.093,1,991,"%D",9,0)
  
"^DD",2,2,.093,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.093,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.093,1,991,"%D",12,0)
  
"^DD",2,2,.093,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.093,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.093,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.093,1,991,"DT")
3021010
"^DD",2,2,.093,1,992,0)
2^ADGRU093^MUMPS
"^DD",2,2,.093,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.093,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.093,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.093,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.093,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.093,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.093,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.093,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.093,1,992,"%D",6,0)
interface.
"^DD",2,2,.093,1,992,"%D",7,0)
 
"^DD",2,2,.093,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.093,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.093,1,992,"DT")
2990920
"^DD",2,2,.093,3)
If born in US enter the state in which this patient was born.
"^DD",2,2,.093,21,0)
^^2^2^2861007^
"^DD",2,2,.093,21,1,0)
If the applicant was born within the U.S. select from the
"^DD",2,2,.093,21,2,0)
available listing the state in which s/he was born.
"^DD",2,2,.093,"DT")
3021010
"^DD",2,2,.096,0)
WHO ENTERED PATIENT^P200'I^VA(200,^0;15^Q
"^DD",2,2,.096,3)
The name of the user who entered this patient into the PATIENT file.
"^DD",2,2,.096,8.5)
^
"^DD",2,2,.096,9)
^
"^DD",2,2,.096,21,0)
^^2^2^2861117^^
"^DD",2,2,.096,21,1,0)
The name of the user who first entered this applicant into the patient
"^DD",2,2,.096,21,2,0)
file.
"^DD",2,2,.096,"DT")
2901006
"^DD",2,2,.097,0)
DATE ENTERED INTO FILE^DI^^0;16^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.097,3)
The date this patient record was established in the patient file.
"^DD",2,2,.097,8.5)
^
"^DD",2,2,.097,9)
^
"^DD",2,2,.097,21,0)
^.001^3^3^3080122^^
"^DD",2,2,.097,21,1,0)
This field stores the date this patient was initially stored into the
"^DD",2,2,.097,21,2,0)
PATIENT file.  This is filled in automatically once a patient is
"^DD",2,2,.097,21,3,0)
successfully added to the database.
"^DD",2,2,.097,"DT")
3080122
"^DD",2,2,.098,0)
HOW WAS PATIENT ENTERED?^S^1:10-10T REGISTRATION;^0;17^Q
"^DD",2,2,.098,21,0)
^^1^1^2970130^^
"^DD",2,2,.098,21,1,0)
How was the patient entered into the system.
"^DD",2,2,.098,"DT")
2961220
"^DD",2,2,.1,0)
WARD LOCATION^FX^^.1;E1,30^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.1,1,0)
^.1^^-1
"^DD",2,2,.1,1,1,0)
2^CN^MUMPS
"^DD",2,2,.1,1,1,1)
D CN^DGPMDDCN
"^DD",2,2,.1,1,1,2)
K ^DPT("CN",X,DA)
"^DD",2,2,.1,1,2,0)
2^ACN
"^DD",2,2,.1,1,2,1)
S ^DPT("ACN",$E(X,1,30),DA)=""
"^DD",2,2,.1,1,2,2)
K ^DPT("ACN",$E(X,1,30),DA)
"^DD",2,2,.1,1,3,0)
2^ANURS^MUMPS
"^DD",2,2,.1,1,3,1)
S %X=X,X="NURSCPL" X ^%ZOSF("TEST") S X=%X D:$T EN1^NURSCPL
"^DD",2,2,.1,1,3,2)
S %X=X,X="NURSCPL" X ^%ZOSF("TEST") S X=%X D:$T EN2^NURSCPL
"^DD",2,2,.1,3)
The ward on which this patient is currently residing [2-30 characters].
"^DD",2,2,.1,9)
^
"^DD",2,2,.1,21,0)
^^2^2^2900405^^^
"^DD",2,2,.1,21,1,0)
The ward location on which this patient is currently residing if an 
"^DD",2,2,.1,21,2,0)
inpatient [2-30 characters].
"^DD",2,2,.1,"DT")
2941123
"^DD",2,2,.101,0)
ROOM-BED^F^^.101;1^K:$L(X)>15!($L(X)<3) X
"^DD",2,2,.101,1,0)
^.1
"^DD",2,2,.101,1,1,0)
2^RM
"^DD",2,2,.101,1,1,1)
S ^DPT("RM",$E(X,1,30),DA)=""
"^DD",2,2,.101,1,1,2)
K ^DPT("RM",$E(X,1,30),DA)
"^DD",2,2,.101,3)
Answer must be 3-15 characters in length.
"^DD",2,2,.101,4)

"^DD",2,2,.101,9)
^
"^DD",2,2,.101,21,0)
^^2^2^2861117^^
"^DD",2,2,.101,21,1,0)
If desired, for this inpatient, enter the room and bed indicator to which
"^DD",2,2,.101,21,2,0)
s/he is assigned in 'ROOM-BED' format.
"^DD",2,2,.101,"DT")
2901022
"^DD",2,2,.102,0)
CURRENT MOVEMENT^*P405'^DGPM(^.102;1^S DIC("S")="I $P(^(0),U,3)=DA" D ^DIC K DIC
 S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.102,1,0)
^.1^^0
"^DD",2,2,.102,9)
^
"^DD",2,2,.102,12)
Allows only movements for patient
"^DD",2,2,.102,12.1)
S DIC("S")="I $P(^(0),U,3)=DA"
"^DD",2,2,.102,21,0)
^^6^6^2911214^
"^DD",2,2,.102,21,1,0)
This field contains the internal entry number of the PATIENT MOVEMENT
"^DD",2,2,.102,21,2,0)
file denoting the most recent movement for an inpatient.  This field
"^DD",2,2,.102,21,3,0)
is only stored for current inpatients.  It must NOT be edited as this
"^DD",2,2,.102,21,4,0)
could affect the integrity of many options within MAS and other packages.
"^DD",2,2,.102,21,5,0)
When displaying this field, the date/time of the most recent movement
"^DD",2,2,.102,21,6,0)
will display.
"^DD",2,2,.102,"DT")
2891218
"^DD",2,2,.103,0)
TREATING SPECIALTY^P45.7'^DIC(45.7,^.103;1^Q
"^DD",2,2,.103,1,0)
^.1
"^DD",2,2,.103,1,1,0)
2^ATR
"^DD",2,2,.103,1,1,1)
S ^DPT("ATR",$E(X,1,30),DA)=""
"^DD",2,2,.103,1,1,2)
K ^DPT("ATR",$E(X,1,30),DA)
"^DD",2,2,.103,3)
The treating specialty to which this inpatient applicant is currently assigned.
"^DD",2,2,.103,9)
^
"^DD",2,2,.103,21,0)
^^2^2^2861117^
"^DD",2,2,.103,21,1,0)
From the available listing choose the treating specialty to which this
"^DD",2,2,.103,21,2,0)
inpatient is currently assigned.
"^DD",2,2,.103,"DT")
2840328
"^DD",2,2,.104,0)
PROVIDER^*P200'^VA(200,^.104;1^S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K 
DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.104,1,0)
^.1
"^DD",2,2,.104,1,1,0)
2^APR
"^DD",2,2,.104,1,1,1)
S ^DPT("APR",$E(X,1,30),DA)=""
"^DD",2,2,.104,1,1,2)
K ^DPT("APR",$E(X,1,30),DA)
"^DD",2,2,.104,3)
The provider currently assigned to this inpatient applicant.
"^DD",2,2,.104,4)
D HELP^DGPMDD(DA,DT)
"^DD",2,2,.104,9)
^
"^DD",2,2,.104,12)
Allow only active providers.
"^DD",2,2,.104,12.1)
S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
"^DD",2,2,.104,21,0)
^^2^2^2930330^^^^
"^DD",2,2,.104,21,1,0)
From the available listing select the provider who is currently treating
"^DD",2,2,.104,21,2,0)
this patient.
"^DD",2,2,.104,"DT")
3060624
"^DD",2,2,.1041,0)
ATTENDING PHYSICIAN^*P200'^VA(200,^.1041;1^S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT
)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.1041,1,0)
^.1
"^DD",2,2,.1041,1,1,0)
2^AAP
"^DD",2,2,.1041,1,1,1)
S ^DPT("AAP",$E(X,1,30),DA)=""
"^DD",2,2,.1041,1,1,2)
K ^DPT("AAP",$E(X,1,30),DA)
"^DD",2,2,.1041,1,1,"%D",0)
^^2^2^2911125^
"^DD",2,2,.1041,1,1,"%D",1,0)
This cross-reference contains all current inpatients, stored by their
"^DD",2,2,.1041,1,1,"%D",2,0)
current attending physician.
"^DD",2,2,.1041,1,1,"DT")
2911125
"^DD",2,2,.1041,3)
This field should contain the attending physician currently responsible for this
 patient's care.
"^DD",2,2,.1041,4)
D HELP^DGPMDD(DA,DT)
"^DD",2,2,.1041,9)
^
"^DD",2,2,.1041,12)
Allow only active providers.
"^DD",2,2,.1041,12.1)
S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
"^DD",2,2,.1041,21,0)
^^4^4^2930330^^^
"^DD",2,2,.1041,21,1,0)
This field contains the attending physician currently responsible for the
"^DD",2,2,.1041,21,2,0)
care of this patient.  This field is maintained automatically for all
"^DD",2,2,.1041,21,3,0)
inpatients and must not be edited.  Once a patient is discharged, the
"^DD",2,2,.1041,21,4,0)
data in this field is removed.
"^DD",2,2,.1041,"DT")
2941207
"^DD",2,2,.105,0)
CURRENT ADMISSION^*P405'^DGPM(^.105;1^S DIC("S")="I $P(^(0),U,3)=DA,$P(^(0),U,2)
=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.105,1,0)
^.1
"^DD",2,2,.105,1,1,0)
2^ACA
"^DD",2,2,.105,1,1,1)
S ^DPT("ACA",$E(X,1,30),DA)=""
"^DD",2,2,.105,1,1,2)
K ^DPT("ACA",$E(X,1,30),DA)
"^DD",2,2,.105,9)
^
"^DD",2,2,.105,12)
Allows only admissions for patient.
"^DD",2,2,.105,12.1)
S DIC("S")="I $P(^(0),U,3)=DA,$P(^(0),U,2)=1"
"^DD",2,2,.105,21,0)
^^6^6^2911214^
"^DD",2,2,.105,21,1,0)
This field contains the internal entry number of the PATIENT MOVEMENT file
"^DD",2,2,.105,21,2,0)
denoting the current admission for an inpatient.  This field is only
"^DD",2,2,.105,21,3,0)
stored for current inpatients.  It must NOT be edited as this could affect
"^DD",2,2,.105,21,4,0)
the integrity of many options within MAS and other DHCP packages.  When
"^DD",2,2,.105,21,5,0)
displaying this field, the date/time of the current admission will be
"^DD",2,2,.105,21,6,0)
displayed.
"^DD",2,2,.105,"DT")
2891214
"^DD",2,2,.106,0)
LAST DMMS EPISODE NUMBER^NJ5,0^^.106;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
"^DD",2,2,.106,3)
Type a Number between 1 and 99999, 0 Decimal Digits
"^DD",2,2,.106,21,0)
^^2^2^2911214^
"^DD",2,2,.106,21,1,0)
This field was added at the request of the DMMS package developed at the
"^DD",2,2,.106,21,2,0)
Birmingham ISC.  It will be utilized in a future release of that package.
"^DD",2,2,.106,"DT")
2900215
"^DD",2,2,.107,0)
LODGER WARD LOCATION^F^^.107;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2
) X
"^DD",2,2,.107,1,0)
^.1
"^DD",2,2,.107,1,1,0)
2^LD^MUMPS
"^DD",2,2,.107,1,1,1)
D LD^DGPMDDLD
"^DD",2,2,.107,1,1,2)
K ^DPT("LD",X,DA)
"^DD",2,2,.107,3)
If the patient is a lodger, this is the ward on which the patient resides (2-30 
characters).
"^DD",2,2,.107,21,0)
^^1^1^2900228^
"^DD",2,2,.107,21,1,0)
The ward on which the patient currently resides if the patient is a lodger.
"^DD",2,2,.107,"DT")
2900409
"^DD",2,2,.108,0)
CURRENT ROOM^P405.4'^DG(405.4,^.108;1^Q
"^DD",2,2,.108,21,0)
^^5^5^2911214^
"^DD",2,2,.108,21,1,0)
This field contains a pointer to the ROOM-BED file denoting the current
"^DD",2,2,.108,21,2,0)
room-bed in which this inpatient resides.  This field is filled in only
"^DD",2,2,.108,21,3,0)
for inpatients.  It must NOT be edited as editing could adversely affect
"^DD",2,2,.108,21,4,0)
the operation of the MAS package as well as other DHCP packages.  This
"^DD",2,2,.108,21,5,0)
field is filled in automatically by the module.
"^DD",2,2,.108,"DT")
2900322
"^DD",2,2,.109,0)
EXCLUDE FROM FACILITY DIR^S^0:NO;1:YES;^.109;1^Q
"^DD",2,2,.109,21,0)
^^4^4^3030218^
"^DD",2,2,.109,21,1,0)
Denotes whether or not the patient wished to be excluded from the 
"^DD",2,2,.109,21,2,0)
Facility Directory for current admission.  This field is only stored for 
"^DD",2,2,.109,21,3,0)
current inpatients.  It must NOT be edited as this could affect the 
"^DD",2,2,.109,21,4,0)
integrity of many options within PIMS and other packages.
"^DD",2,2,.109,"DT")
3030218
"^DD",2,2,.111,0)
STREET ADDRESS [LINE 1]^Fa^^.11;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X
)<3) X
"^DD",2,2,.111,.1)

"^DD",2,2,.111,1,0)
^.1
"^DD",2,2,.111,1,1,0)
2^AXR29^MUMPS
"^DD",2,2,.111,1,1,1)
Q
"^DD",2,2,.111,1,1,2)
S DGXRF=.111 D ^DGDDC Q
"^DD",2,2,.111,1,2,0)
2^AODS111^MUMPS
"^DD",2,2,.111,1,2,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.111,1,2,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.111,1,3,0)
2^AENR111^MUMPS
"^DD",2,2,.111,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.111,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.111,1,3,3)
DO NOT DELETE
"^DD",2,2,.111,1,3,"%D",0)
^^2^2^2971007^^^^
"^DD",2,2,.111,1,3,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.111,1,3,"%D",2,0)
enrollment. 
"^DD",2,2,.111,1,3,"DT")
2971007
"^DD",2,2,.111,1,4,0)
^^TRIGGER^2^.118
"^DD",2,2,.111,1,4,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.111,1,4,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.111,1,4,"%D",0)
^^2^2^3020703^
"^DD",2,2,.111,1,4,"%D",1,0)
This cross-reference will be used to update the Date/Time stamp for an 
"^DD",2,2,.111,1,4,"%D",2,0)
Address Change.
"^DD",2,2,.111,1,4,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.111,1,4,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.111,1,4,"DT")
3020703
"^DD",2,2,.111,1,4,"FIELD")
ADDRESS CHANGE DT/TM
"^DD",2,2,.111,1,301,0)
2^IVM111^MUMPS
"^DD",2,2,.111,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.111,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.111,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.111,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.111,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.111,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.111,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.111,1,301,"DT")
2930605
"^DD",2,2,.111,1,991,0)
2^AVAFC111^MUMPS
"^DD",2,2,.111,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.111,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.111,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.111,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.111,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.111,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.111,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.111,1,991,"%D",5,0)
 
"^DD",2,2,.111,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.111,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.111,1,991,"%D",8,0)
process.
"^DD",2,2,.111,1,991,"%D",9,0)
 
"^DD",2,2,.111,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.111,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.111,1,991,"%D",12,0)
  
"^DD",2,2,.111,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.111,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.111,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.111,1,991,"DT")
2970825
"^DD",2,2,.111,1,992,0)
2^ADGRU111^MUMPS
"^DD",2,2,.111,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.111,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.111,1,992,"%D",0)
^^9^9^2990920^^
"^DD",2,2,.111,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.111,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.111,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.111,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.111,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.111,1,992,"%D",6,0)
interface.
"^DD",2,2,.111,1,992,"%D",7,0)
 
"^DD",2,2,.111,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.111,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.111,1,992,"DT")
2990917
"^DD",2,2,.111,3)
Enter the first line of this applicant's residence street address [3-35 characte
rs].
"^DD",2,2,.111,20,0)
^.3LA^2^1
"^DD",2,2,.111,20,1,0)
ADR^
"^DD",2,2,.111,20,2,0)
DEMOG^
"^DD",2,2,.111,21,0)
^^2^2^2910501^^^^
"^DD",2,2,.111,21,1,0)
Enter the first line of this applicant's residence street address
"^DD",2,2,.111,21,2,0)
[3-35 characters].
"^DD",2,2,.111,"AUDIT")
y
"^DD",2,2,.111,"DT")
3060802
"^DD",2,2,.1112,0)
ZIP+4^FXOa^^.11;12^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) 
D ZIPIN^VAFADDR
"^DD",2,2,.1112,1,0)
^.1
"^DD",2,2,.1112,1,1,0)
2^AZIP4^MUMPS
"^DD",2,2,.1112,1,1,1)
D SET^DGREGDD1(DA,.116,.11,6,$E(X,1,5))
"^DD",2,2,.1112,1,1,2)
D KILL^DGREGDD1(DA,.116,.11,6,$E(X,1,5))
"^DD",2,2,.1112,1,1,"%D",0)
2
"^DD",2,2,.1112,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of
"^DD",2,2,.1112,1,1,"%D",2,0)
this field.
"^DD",2,2,.1112,1,1,"DT")
2930505
"^DD",2,2,.1112,1,2,0)
2^AENR1112^MUMPS
"^DD",2,2,.1112,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.1112,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.1112,1,2,3)
DO NOT DELETE
"^DD",2,2,.1112,1,2,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.1112,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.1112,1,2,"%D",2,0)
enrollment. 
"^DD",2,2,.1112,1,2,"DT")
2971007
"^DD",2,2,.1112,1,3,0)
^^TRIGGER^2^.118
"^DD",2,2,.1112,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1112,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1112,1,3,"%D",0)
^^2^2^3020703^
"^DD",2,2,.1112,1,3,"%D",1,0)
This cross-reference will update the Address Change DT/TM field when 
"^DD",2,2,.1112,1,3,"%D",2,0)
address data changes for a patient.
"^DD",2,2,.1112,1,3,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1112,1,3,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1112,1,3,"DT")
3020703
"^DD",2,2,.1112,1,3,"FIELD")
address change dt
"^DD",2,2,.1112,1,301,0)
2^IVM1112^MUMPS
"^DD",2,2,.1112,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.1112,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.1112,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.1112,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.1112,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.1112,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.1112,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.1112,1,301,"DT")
2930605
"^DD",2,2,.1112,1,991,0)
2^AVAFC1112^MUMPS
"^DD",2,2,.1112,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1112;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.1112,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1112;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.1112,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.1112,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.1112,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.1112,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.1112,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.1112,1,991,"%D",5,0)
 
"^DD",2,2,.1112,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.1112,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.1112,1,991,"%D",8,0)
process.
"^DD",2,2,.1112,1,991,"%D",9,0)
 
"^DD",2,2,.1112,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.1112,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.1112,1,991,"%D",12,0)
  
"^DD",2,2,.1112,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.1112,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.1112,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.1112,1,991,"DT")
2970825
"^DD",2,2,.1112,1,992,0)
2^ADGRU1112^MUMPS
"^DD",2,2,.1112,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.1112,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.1112,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.1112,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.1112,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.1112,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.1112,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.1112,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.1112,1,992,"%D",6,0)
interface.
"^DD",2,2,.1112,1,992,"%D",7,0)
 
"^DD",2,2,.1112,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.1112,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.1112,1,992,"DT")
2990920
"^DD",2,2,.1112,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.1112,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.1112,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.1112,20,0)
^.3LA^1^1
"^DD",2,2,.1112,20,1,0)
DEMOG
"^DD",2,2,.1112,21,0)
^^2^2^2930603^^^^
"^DD",2,2,.1112,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.1112,21,2,0)
format (e.g. 12345-6789 or 123456789).
"^DD",2,2,.1112,23,0)
^^2^2^2930603^^^^
"^DD",2,2,.1112,23,1,0)
Related to other address fields on this node.  This field 'triggers'
"^DD",2,2,.1112,23,2,0)
the ZIP CODE (#.116) field, using the first 5 digits of this field.
"^DD",2,2,.1112,"AUDIT")
y
"^DD",2,2,.1112,"DT")
3031113
"^DD",2,2,.112,0)
STREET ADDRESS [LINE 2]^Fa^^.11;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X
)<3) X D:$D(X) UP^DGHELP
"^DD",2,2,.112,.1)

"^DD",2,2,.112,1,0)
^.1
"^DD",2,2,.112,1,1,0)
2^AXR30^MUMPS
"^DD",2,2,.112,1,1,1)
Q
"^DD",2,2,.112,1,1,2)
S DGXRF=.112 D ^DGDDC Q
"^DD",2,2,.112,1,2,0)
2^AODS112^MUMPS
"^DD",2,2,.112,1,2,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.112,1,2,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.112,1,3,0)
2^AENR112^MUMPS
"^DD",2,2,.112,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.112,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.112,1,3,3)
DO NOT DELETE
"^DD",2,2,.112,1,3,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.112,1,3,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.112,1,3,"%D",2,0)
enrollment. 
"^DD",2,2,.112,1,3,"DT")
2971007
"^DD",2,2,.112,1,4,0)
^^TRIGGER^2^.118
"^DD",2,2,.112,1,4,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.112,1,4,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.112,1,4,"%D",0)
^^2^2^3020703^
"^DD",2,2,.112,1,4,"%D",1,0)
This cross-reference will update the Address Change DT/TM field when 
"^DD",2,2,.112,1,4,"%D",2,0)
address data changes for a patient.
"^DD",2,2,.112,1,4,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.112,1,4,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.112,1,4,"DT")
3020703
"^DD",2,2,.112,1,4,"FIELD")
ADDRESS CHANGE DT
"^DD",2,2,.112,1,301,0)
2^IVM112^MUMPS
"^DD",2,2,.112,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.112,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.112,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.112,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.112,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.112,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.112,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.112,1,301,"DT")
2930605
"^DD",2,2,.112,1,991,0)
2^AVAFC112^MUMPS
"^DD",2,2,.112,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".112;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.112,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".112;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.112,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.112,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.112,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.112,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.112,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.112,1,991,"%D",5,0)
 
"^DD",2,2,.112,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.112,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.112,1,991,"%D",8,0)
process.
"^DD",2,2,.112,1,991,"%D",9,0)
 
"^DD",2,2,.112,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.112,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.112,1,991,"%D",12,0)
  
"^DD",2,2,.112,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.112,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.112,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.112,1,991,"DT")
2970825
"^DD",2,2,.112,1,992,0)
2^ADGRU112^MUMPS
"^DD",2,2,.112,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.112,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.112,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.112,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.112,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.112,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.112,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.112,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.112,1,992,"%D",6,0)
interface.
"^DD",2,2,.112,1,992,"%D",7,0)
 
"^DD",2,2,.112,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.112,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.112,1,992,"DT")
2990920
"^DD",2,2,.112,3)
If necessary, enter the second line of this applicant's street address [3-30 cha
racters].
"^DD",2,2,.112,20,0)
^.3LA^1^1
"^DD",2,2,.112,20,1,0)
DEMOG
"^DD",2,2,.112,21,0)
^^3^3^2861007^
"^DD",2,2,.112,21,1,0)
Enter the second line of this applicant's residence street address
"^DD",2,2,.112,21,2,0)
[3-30 characters] if the space provided in 'street address' was
"^DD",2,2,.112,21,3,0)
not sufficient.
"^DD",2,2,.112,"AUDIT")
y
"^DD",2,2,.112,"DT")
3060802
"^DD",2,2,.113,0)
STREET ADDRESS [LINE 3]^Fa^^.11;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X
)<3) X
"^DD",2,2,.113,.1)

"^DD",2,2,.113,1,0)
^.1
"^DD",2,2,.113,1,1,0)
2^AODS113^MUMPS
"^DD",2,2,.113,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.113,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.113,1,2,0)
2^AENR113^MUMPS
"^DD",2,2,.113,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.113,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.113,1,2,3)
DO NOT DELETE
"^DD",2,2,.113,1,2,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.113,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.113,1,2,"%D",2,0)
enrollment. 
"^DD",2,2,.113,1,2,"DT")
2971007
"^DD",2,2,.113,1,3,0)
^^TRIGGER^2^.118
"^DD",2,2,.113,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.113,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.113,1,3,"%D",0)
^^2^2^3020703^
"^DD",2,2,.113,1,3,"%D",1,0)
This cross-reference will update the Address Change DT/TM field when 
"^DD",2,2,.113,1,3,"%D",2,0)
address data changes for a patient.
"^DD",2,2,.113,1,3,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.113,1,3,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.113,1,3,"DT")
3020703
"^DD",2,2,.113,1,3,"FIELD")
ADDRESS CHANGE DT
"^DD",2,2,.113,1,301,0)
2^IVM113^MUMPS
"^DD",2,2,.113,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.113,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.113,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.113,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.113,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.113,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.113,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.113,1,301,"DT")
2930605
"^DD",2,2,.113,1,991,0)
2^AVAFC113^MUMPS
"^DD",2,2,.113,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".113;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.113,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".113;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.113,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.113,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.113,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.113,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.113,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.113,1,991,"%D",5,0)
 
"^DD",2,2,.113,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.113,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.113,1,991,"%D",8,0)
process.
"^DD",2,2,.113,1,991,"%D",9,0)
 
"^DD",2,2,.113,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.113,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.113,1,991,"%D",12,0)
  
"^DD",2,2,.113,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.113,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.113,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.113,1,991,"DT")
2970825
"^DD",2,2,.113,1,992,0)
2^ADGRU113^MUMPS
"^DD",2,2,.113,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.113,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.113,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.113,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.113,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.113,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.113,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.113,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.113,1,992,"%D",6,0)
interface.
"^DD",2,2,.113,1,992,"%D",7,0)
 
"^DD",2,2,.113,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.113,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.113,1,992,"DT")
2990920
"^DD",2,2,.113,3)
If necessary, enter a third line of this applicant's street address [3-30 charac
ters].
"^DD",2,2,.113,20,0)
^.3LA^1^1
"^DD",2,2,.113,20,1,0)
DEMOG
"^DD",2,2,.113,21,0)
^^3^3^2861007^
"^DD",2,2,.113,21,1,0)
Enter the third line of this applicant's residence street address
"^DD",2,2,.113,21,2,0)
[3-30 characters] if the space provided in 'street address' and
"^DD",2,2,.113,21,3,0)
'street address 2' was not sufficient.
"^DD",2,2,.113,"AUDIT")
y
"^DD",2,2,.113,"DT")
3031113
"^DD",2,2,.114,0)
CITY^Fa^^.11;4^K:$L(X)>15!($L(X)<2) X
"^DD",2,2,.114,1,0)
^.1
"^DD",2,2,.114,1,1,0)
2^AODS114^MUMPS
"^DD",2,2,.114,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.114,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.114,1,2,0)
2^AENR114^MUMPS
"^DD",2,2,.114,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.114,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.114,1,2,3)
DO NOT DELETE
"^DD",2,2,.114,1,2,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.114,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.114,1,2,"%D",2,0)
enrollment. 
"^DD",2,2,.114,1,2,"DT")
2971007
"^DD",2,2,.114,1,3,0)
^^TRIGGER^2^.118
"^DD",2,2,.114,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.114,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.114,1,3,"%D",0)
^^2^2^3020703^
"^DD",2,2,.114,1,3,"%D",1,0)
This cross-reference will update the Address Change DT/TM field when 
"^DD",2,2,.114,1,3,"%D",2,0)
address data changes for a patient.
"^DD",2,2,.114,1,3,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.114,1,3,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.114,1,3,"DT")
3020703
"^DD",2,2,.114,1,3,"FIELD")
ADDRESS CHANGE DT
"^DD",2,2,.114,1,301,0)
2^IVM114^MUMPS
"^DD",2,2,.114,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.114,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.114,1,301,"%D",0)
^^4^4^2971107^^
"^DD",2,2,.114,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.114,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.114,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.114,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.114,1,301,"DT")
2930605
"^DD",2,2,.114,1,991,0)
2^AVAFC114^MUMPS
"^DD",2,2,.114,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".114;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.114,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".114;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.114,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.114,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.114,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.114,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.114,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.114,1,991,"%D",5,0)
 
"^DD",2,2,.114,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.114,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.114,1,991,"%D",8,0)
process.
"^DD",2,2,.114,1,991,"%D",9,0)
 
"^DD",2,2,.114,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.114,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.114,1,991,"%D",12,0)
  
"^DD",2,2,.114,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.114,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.114,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.114,1,991,"DT")
2970825
"^DD",2,2,.114,1,992,0)
2^ADGRU114^MUMPS
"^DD",2,2,.114,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.114,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.114,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.114,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.114,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.114,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.114,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.114,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.114,1,992,"%D",6,0)
interface.
"^DD",2,2,.114,1,992,"%D",7,0)
 
"^DD",2,2,.114,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.114,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.114,1,992,"DT")
2990920
"^DD",2,2,.114,3)
Answer must be 2-15 characters in length
"^DD",2,2,.114,20,0)
^.3LA^1^1
"^DD",2,2,.114,20,1,0)
DEMOG
"^DD",2,2,.114,21,0)
^^3^3^2870130^^
"^DD",2,2,.114,21,1,0)
Enter the city in which this applicant resides [2-15 characters].
"^DD",2,2,.114,21,2,0)
If the space provided is not sufficient please abbreviate the
"^DD",2,2,.114,21,3,0)
city to the best of your ability.
"^DD",2,2,.114,"AUDIT")
y
"^DD",2,2,.114,"DT")
3060802
"^DD",2,2,.115,0)
STATE^*P5'a^DIC(5,^.11;5^S DIC("S")="I $P(^DIC(5,Y,0),U,6)=1" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
"^DD",2,2,.115,1,0)
^.1^^-1
"^DD",2,2,.115,1,1,0)
^^TRIGGER^2^.117
"^DD",2,2,.115,1,1,1)
Q
"^DD",2,2,.115,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:""),Y=$P(Y(1),
U,7) X:$D(^DD(2,.117,2)) ^(2) S X=Y S DIU=X K Y S X=DIV S X="" X ^DD(2,.115,1,1,
2.4)
"^DD",2,2,.115,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.11)):^(.11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))
  S DIH=DIH_U" S %=$P(DIH,U,8,999),^(.11)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),
DIH=2,DIG=.117 D ^DICR
"^DD",2,2,.115,1,1,"CREATE VALUE")
NO EFFECT
"^DD",2,2,.115,1,1,"DELETE VALUE")
@
"^DD",2,2,.115,1,1,"FIELD")
COUNTY
"^DD",2,2,.115,1,2,0)
2^AODS115^MUMPS
"^DD",2,2,.115,1,2,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.115,1,2,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.115,1,3,0)
2^AENR115^MUMPS
"^DD",2,2,.115,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.115,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.115,1,3,3)
DO NOT DELETE
"^DD",2,2,.115,1,3,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.115,1,3,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.115,1,3,"%D",2,0)
enrollment. 
"^DD",2,2,.115,1,3,"DT")
2971007
"^DD",2,2,.115,1,4,0)
^^TRIGGER^2^.118
"^DD",2,2,.115,1,4,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.115,1,4,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^DPT(DIV(0),.11)),DIV=X
 S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.115,1,4,"%D",0)
^^2^2^3020703^
"^DD",2,2,.115,1,4,"%D",1,0)
This cross-reference will update the Address Change DT/TM field when 
"^DD",2,2,.115,1,4,"%D",2,0)
address data changes for a patient.
"^DD",2,2,.115,1,4,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.115,1,4,"DELETE VALUE")
S X=$$NOW^XLFDT
"^DD",2,2,.115,1,4,"DT")
3020703
"^DD",2,2,.115,1,4,"FIELD")
ADDRESS CHANGE DT
"^DD",2,2,.115,1,301,0)
2^IVM115^MUMPS
"^DD",2,2,.115,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.115,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.115,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.115,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.115,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.115,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.115,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.115,1,301,"DT")
2930605
"^DD",2,2,.115,1,991,0)
2^AVAFC115^MUMPS
"^DD",2,2,.115,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".115;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.115,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".115;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.115,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.115,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.115,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.115,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.115,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.115,1,991,"%D",5,0)
 
"^DD",2,2,.115,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.115,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.115,1,991,"%D",8,0)
process.
"^DD",2,2,.115,1,991,"%D",9,0)
 
"^DD",2,2,.115,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.115,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.115,1,991,"%D",12,0)
  
"^DD",2,2,.115,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.115,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.115,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.115,1,991,"DT")
2970825
"^DD",2,2,.115,1,992,0)
2^ADGRU115^MUMPS
"^DD",2,2,.115,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.115,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.115,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.115,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.115,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.115,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.115,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.115,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.115,1,992,"%D",6,0)
interface.
"^DD",2,2,.115,1,992,"%D",7,0)
 
"^DD",2,2,.115,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.115,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.115,1,992,"DT")
2990920
"^DD",2,2,.115,3)
Select from the available listing the state in which this applicant resides.
"^DD",2,2,.115,12)
This screen prevents selection of entires that are valid US states or possession
s.
"^DD",2,2,.115,12.1)
S DIC("S")="I $P(^DIC(5,Y,0),U,6)=1"
"^DD",2,2,.115,20,0)
^.3LA^1^1
"^DD",2,2,.115,20,1,0)
DEMOG
"^DD",2,2,.115,21,0)
^.001^2^2^3070626^^^^
"^DD",2,2,.115,21,1,0)
From the available listing choose the state in which this applicant
"^DD",2,2,.115,21,2,0)
resides.
"^DD",2,2,.115,"AUDIT")
y
"^DD",2,2,.115,"DT")
3070626
"^DD",2,2,.116,0)
ZIP CODE^F^^.11;6^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
"^DD",2,2,.116,1,0)
^.1
"^DD",2,2,.116,1,1,0)
2^AODS116^MUMPS
"^DD",2,2,.116,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.116,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.116,1,2,0)
2^AZIP^MUMPS
"^DD",2,2,.116,1,2,1)
D SET^DGREGDD1(DA,.1112,.11,12,X)
"^DD",2,2,.116,1,2,2)
D KILL^DGREGDD1(DA,.1112,.11,12,X)
"^DD",2,2,.116,1,2,"%D",0)
^^2^2^2930603^^^^
"^DD",2,2,.116,1,2,"%D",1,0)
This sets the corresponding zip+4 field to be equal to the zip field
"^DD",2,2,.116,1,2,"%D",2,0)
after the zip is edited.
"^DD",2,2,.116,1,2,"DT")
2930413
"^DD",2,2,.116,1,3,0)
^^TRIGGER^2^.118
"^DD",2,2,.116,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.116,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.116,1,3,"%D",0)
^^2^2^3020703^
"^DD",2,2,.116,1,3,"%D",1,0)
This cross-reference will update the Address Change DT/TM field when 
"^DD",2,2,.116,1,3,"%D",2,0)
address data changes for a patient.
"^DD",2,2,.116,1,3,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.116,1,3,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.116,1,3,"DT")
3020703
"^DD",2,2,.116,1,3,"FIELD")
ADDRESS CHANGE DT
"^DD",2,2,.116,3)
Enter the zip code for the city in which this applicant resides.
"^DD",2,2,.116,20,0)
^.3LA^1^1
"^DD",2,2,.116,20,1,0)
DEMOG
"^DD",2,2,.116,21,0)
^^2^2^2951026^^^^
"^DD",2,2,.116,21,1,0)
Enter the zip code [5 numerics] for the city in which this applicant
"^DD",2,2,.116,21,2,0)
resides.
"^DD",2,2,.116,23,0)
^^4^4^2951026^^
"^DD",2,2,.116,23,1,0)
This field will become un-editable in a later release.  Programmers
"^DD",2,2,.116,23,2,0)
should modify code from this field (.116) to the ZIP+4 field (.1112)
"^DD",2,2,.116,23,3,0)
Currently, modifications to this field will create an entry in the
"^DD",2,2,.116,23,4,0)
ZIP+4 field (without the +4 of course).
"^DD",2,2,.116,"DT")
3031113
"^DD",2,2,.117,0)
COUNTY^NJ3,0XOa^^.11;7^S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),"^",5),1:0) K:'Z0 X Q
:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0
 X K Z0,DIC
"^DD",2,2,.117,1,0)
^.1^^-1
"^DD",2,2,.117,1,1,0)
2^AODS117^MUMPS
"^DD",2,2,.117,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.117,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.117,1,2,0)
2^AENR117^MUMPS
"^DD",2,2,.117,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.117,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.117,1,2,3)
DO NOT DELETE
"^DD",2,2,.117,1,2,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.117,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.117,1,2,"%D",2,0)
enrollment. 
"^DD",2,2,.117,1,2,"DT")
2971007
"^DD",2,2,.117,1,301,0)
2^IVM117^MUMPS
"^DD",2,2,.117,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.117,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.117,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.117,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.117,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.117,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.117,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.117,1,301,"DT")
2930605
"^DD",2,2,.117,1,991,0)
2^AVAFC117^MUMPS
"^DD",2,2,.117,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".117;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.117,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".117;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.117,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.117,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.117,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.117,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.117,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.117,1,991,"%D",5,0)
 
"^DD",2,2,.117,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.117,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.117,1,991,"%D",8,0)
process.
"^DD",2,2,.117,1,991,"%D",9,0)
 
"^DD",2,2,.117,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.117,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.117,1,991,"%D",12,0)
  
"^DD",2,2,.117,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.117,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.117,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.117,1,991,"DT")
2970825
"^DD",2,2,.117,2)
S Y(0)=Y Q:Y']""  S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),"^",5),1:"") Q:'Z0  S Y=$P
($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
"^DD",2,2,.117,2.1)
Q:Y']""  S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),"^",5),1:"") Q:'Z0  S Y=$P($S($D(^D
IC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
"^DD",2,2,.117,3)
Enter the county in which this applicant resides.
"^DD",2,2,.117,4)
S ZD=D,X="?",Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),U,5),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0
))  S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
"^DD",2,2,.117,5,1,0)
2^.115^1
"^DD",2,2,.117,20,0)
^.3LA^1^1
"^DD",2,2,.117,20,1,0)
DEMOG
"^DD",2,2,.117,21,0)
3^^3^3^2920305^^
"^DD",2,2,.117,21,1,0)
If a state of residence is entered select from the available
"^DD",2,2,.117,21,2,0)
listing the county in which this applicant resides.  If no
"^DD",2,2,.117,21,3,0)
state (or a non-state) is entered no selection is possible.
"^DD",2,2,.117,"AUDIT")
y
"^DD",2,2,.117,"DT")
2980520
"^DD",2,2,.1171,0)
PROVINCE^Fa^^.11;8^K:$L(X)>20!($L(X)<1) X
"^DD",2,2,.1171,1,0)
^.1
"^DD",2,2,.1171,1,1,0)
^^TRIGGER^2^.118
"^DD",2,2,.1171,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1171,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1171,1,1,"%D",0)
^^2^2^3060117^
"^DD",2,2,.1171,1,1,"%D",1,0)
This cross-reference will be used to update the Date/Time stamp for an 
"^DD",2,2,.1171,1,1,"%D",2,0)
Address Change.
"^DD",2,2,.1171,1,1,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1171,1,1,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1171,1,1,"FIELD")
#.118
"^DD",2,2,.1171,3)
Answer must be 1-20 characters in length.
"^DD",2,2,.1171,21,0)
^^4^4^3060405^
"^DD",2,2,.1171,21,1,0)
Enter a Province if the patient has provided one for his/her foreign
"^DD",2,2,.1171,21,2,0)
address.  
"^DD",2,2,.1171,21,3,0)
 
"^DD",2,2,.1171,21,4,0)
The entry can be alphanumeric and up to 20 characters in length.
"^DD",2,2,.1171,"AUDIT")
y
"^DD",2,2,.1171,"DT")
3060210
"^DD",2,2,.1172,0)
POSTAL CODE^Fa^^.11;9^K:$L(X)>10!($L(X)<1) X
"^DD",2,2,.1172,1,0)
^.1
"^DD",2,2,.1172,1,1,0)
^^TRIGGER^2^.118
"^DD",2,2,.1172,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1172,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1172,1,1,"%D",0)
^^2^2^3060117^
"^DD",2,2,.1172,1,1,"%D",1,0)
This cross-reference will be used to update the Date/Time stamp for an 
"^DD",2,2,.1172,1,1,"%D",2,0)
Address Change.
"^DD",2,2,.1172,1,1,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1172,1,1,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1172,1,1,"FIELD")
#.118
"^DD",2,2,.1172,3)
Answer must be 1-10 characters in length.
"^DD",2,2,.1172,21,0)
^^4^4^3060405^
"^DD",2,2,.1172,21,1,0)
Enter with patient's postal code if the patient has provided one for
"^DD",2,2,.1172,21,2,0)
his/her foreign address.
"^DD",2,2,.1172,21,3,0)
 
"^DD",2,2,.1172,21,4,0)
The entry can be alphanumeric and up to 10 characters in length.
"^DD",2,2,.1172,"AUDIT")
y
"^DD",2,2,.1172,"DT")
3060210
"^DD",2,2,.1173,0)
COUNTRY^P779.004'a^HL(779.004,^.11;10^Q
"^DD",2,2,.1173,1,0)
^.1^^-1
"^DD",2,2,.1173,1,2,0)
^^TRIGGER^2^.118
"^DD",2,2,.1173,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1173,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.1173,1,2,"%D",0)
^^2^2^3060117^
"^DD",2,2,.1173,1,2,"%D",1,0)
This cross-reference will be used to update the Date/Time stamp for an 
"^DD",2,2,.1173,1,2,"%D",2,0)
Address Change.
"^DD",2,2,.1173,1,2,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1173,1,2,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.1173,1,2,"DT")
3060113
"^DD",2,2,.1173,1,2,"FIELD")
#.118
"^DD",2,2,.1173,21,0)
^.001^4^4^3070816^^^^
"^DD",2,2,.1173,21,1,0)
Enter the country where the patient's permanent address is located.
"^DD",2,2,.1173,21,2,0)
 
"^DD",2,2,.1173,21,3,0)
If entering an Army/Air Force Post Office (APO) or a Fleet Post Office 
"^DD",2,2,.1173,21,4,0)
(FPO) address select United States as the country.
"^DD",2,2,.1173,"AUDIT")
y
"^DD",2,2,.1173,"DT")
3070816
"^DD",2,2,.118,0)
ADDRESS CHANGE DT/TM^D^^.11;13^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.118,1,0)
^.1
"^DD",2,2,.118,1,1,0)
^^TRIGGER^2^.119
"^DD",2,2,.118,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,14),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P
(^(.11),U,14)=DIV,DIH=2,DIG=.119 D ^DICR
"^DD",2,2,.118,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,14),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P
(^(.11),U,14)=DIV,DIH=2,DIG=.119 D ^DICR
"^DD",2,2,.118,1,1,"%D",0)
^.101^5^5^3030605^^^
"^DD",2,2,.118,1,1,"%D",1,0)
This cross-reference will update the Address Source field when 
"^DD",2,2,.118,1,1,"%D",2,0)
address data changes for a patient.  The source will be set to 'VAMC', 
"^DD",2,2,.118,1,1,"%D",3,0)
and should be overwritten for instances where the Address source is 
"^DD",2,2,.118,1,1,"%D",4,0)
something different.  The incoming Z05 process has been updated to 
"^DD",2,2,.118,1,1,"%D",5,0)
overwrite this field as appropriate.
"^DD",2,2,.118,1,1,"CREATE VALUE")
S X="VAMC"
"^DD",2,2,.118,1,1,"DELETE VALUE")
S X="VAMC"
"^DD",2,2,.118,1,1,"FIELD")
ADDRESS CHANGE SOURCE
"^DD",2,2,.118,1,2,0)
^^TRIGGER^2^.122
"^DD",2,2,.118,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,17),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $
P(^(.11),U,17)=DIV,DIH=2,DIG=.122 D ^DICR
"^DD",2,2,.118,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,17),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $
P(^(.11),U,17)=DIV,DIH=2,DIG=.122 D ^DICR
"^DD",2,2,.118,1,2,"%D",0)
^^2^2^3030605^
"^DD",2,2,.118,1,2,"%D",1,0)
This cross-reference will record the user who has just changed the 
"^DD",2,2,.118,1,2,"%D",2,0)
patient's primary address.
"^DD",2,2,.118,1,2,"CREATE VALUE")
S X=$G(DUZ)
"^DD",2,2,.118,1,2,"DELETE VALUE")
S X=$G(DUZ)
"^DD",2,2,.118,1,2,"DT")
3030605
"^DD",2,2,.118,1,2,"FIELD")
ADDRESS CHANGE USER
"^DD",2,2,.118,1,3,0)
2^AENR118^MUMPS
"^DD",2,2,.118,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.118,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.118,1,3,3)
 DO NOT DELETE
"^DD",2,2,.118,1,3,"%D",0)
^.101^2^2^3050613^^^^
"^DD",2,2,.118,1,3,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.118,1,3,"%D",2,0)
enrollment.
"^DD",2,2,.118,1,3,"DT")
3050613
"^DD",2,2,.118,3)
(No range limit on date)
"^DD",2,2,.118,5,1,0)
2^.111^4
"^DD",2,2,.118,5,2,0)
2^.1112^3
"^DD",2,2,.118,5,3,0)
2^.112^4
"^DD",2,2,.118,5,4,0)
2^.113^3
"^DD",2,2,.118,5,5,0)
2^.114^3
"^DD",2,2,.118,5,6,0)
2^.115^4
"^DD",2,2,.118,5,7,0)
2^.116^3
"^DD",2,2,.118,5,8,0)
2^.121^2
"^DD",2,2,.118,5,9,0)
2^.1171^1
"^DD",2,2,.118,5,10,0)
2^.1172^1
"^DD",2,2,.118,5,11,0)
2^.1173^2
"^DD",2,2,.118,9)
^
"^DD",2,2,.118,21,0)
^.001^1^1^3061006^^
"^DD",2,2,.118,21,1,0)
This field will hold the date and time of the last Address Update.
"^DD",2,2,.118,"DT")
3061024
"^DD",2,2,.119,0)
ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;NCOA:NCOA;BVA:BVA;VAINS:VAIN
S;USPS:USPS;LACS:LACS;VOA:VOA;^.11;14^Q
"^DD",2,2,.119,1,0)
^.1
"^DD",2,2,.119,1,1,0)
^^TRIGGER^2^.12
"^DD",2,2,.119,1,1,1)
X ^DD(2,.119,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P
(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DI
C(4,"D",X,"")) X ^DD(2,.119,1,1,1.4)
"^DD",2,2,.119,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.119,0)),U,3) S
 X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
"^DD",2,2,.119,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR
"^DD",2,2,.119,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.119,0)),U,3) S
 X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.1
1)):^(.11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(2,.119,1,1,2.4)
"^DD",2,2,.119,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR
"^DD",2,2,.119,1,1,"%D",0)
^^5^5^3130514^
"^DD",2,2,.119,1,1,"%D",1,0)
This cross-reference will trigger the population of the 
"^DD",2,2,.119,1,1,"%D",2,0)
ADDRESS CHANGE SITE field with the appropriate station 
"^DD",2,2,.119,1,1,"%D",3,0)
number if the ADDRESS CHANGE SOURCE equals "VAMC".  The 
"^DD",2,2,.119,1,1,"%D",4,0)
ADDRESS CHANGE SITE field should be overwritten for cases 
"^DD",2,2,.119,1,1,"%D",5,0)
where the site would be incorrect (i.e. uploading Z05 message).
"^DD",2,2,.119,1,1,"CREATE CONDITION")
ADDRESS CHANGE SOURCE="VAMC"
"^DD",2,2,.119,1,1,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.119,1,1,"DELETE CONDITION")
OLD ADDRESS CHANGE SOURCE="VAMC"
"^DD",2,2,.119,1,1,"DELETE VALUE")
@
"^DD",2,2,.119,1,1,"DT")
3130514
"^DD",2,2,.119,1,1,"FIELD")
ADDRESS CHANGE SITE
"^DD",2,2,.119,3)
Please enter the source of the address change.
"^DD",2,2,.119,5,1,0)
2^.118^1
"^DD",2,2,.119,9)
^
"^DD",2,2,.119,21,0)
^.001^1^1^3130509^^^^
"^DD",2,2,.119,21,1,0)
This field will hold the source of the Last address change.
"^DD",2,2,.119,"DT")
3130514
"^DD",2,2,.12,0)
ADDRESS CHANGE SITE^P4'^DIC(4,^.11;15^Q
"^DD",2,2,.12,3)
Please enter the site that last changed this patient's address.
"^DD",2,2,.12,5,1,0)
2^.119^1
"^DD",2,2,.12,9)
^
"^DD",2,2,.12,21,0)
^^2^2^3020703^
"^DD",2,2,.12,21,1,0)
This field will hold the Site that last changed this patient's address.  
"^DD",2,2,.12,21,2,0)
This field is only populated when the Address Source is listed as VAMC.
"^DD",2,2,.12,"DT")
3020703
"^DD",2,2,.121,0)
BAD ADDRESS INDICATOR^*S^1:UNDELIVERABLE;2:HOMELESS;3:OTHER;4:ADDRESS NOT FOUND;
^.11;16^Q
"^DD",2,2,.121,1,0)
^.1
"^DD",2,2,.121,1,1,0)
2^AENR121^MUMPS
"^DD",2,2,.121,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.121,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.121,1,1,3)
DO NOT DELETE
"^DD",2,2,.121,1,1,"%D",0)
^^2^2^3060911^
"^DD",2,2,.121,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.121,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.121,1,1,"DT")
3060911
"^DD",2,2,.121,1,2,0)
^^TRIGGER^2^.118
"^DD",2,2,.121,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.121,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV
=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR
"^DD",2,2,.121,1,2,"%D",0)
^.101^2^2^3061030^^
"^DD",2,2,.121,1,2,"%D",1,0)
This cross-reference will be used to update the Date/Time stamp for an  
"^DD",2,2,.121,1,2,"%D",2,0)
Address Change.
"^DD",2,2,.121,1,2,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.121,1,2,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.121,1,2,"DT")
3061010
"^DD",2,2,.121,1,2,"FIELD")
#.118
"^DD",2,2,.121,3)
Please enter 1 if the address is 'UNDELIVERABLE', 2 if the patient is 'HOMELESS'
, or 3 for 'OTHER' bad address reasons.
"^DD",2,2,.121,12)
Only 1-3 may be selected.
"^DD",2,2,.121,12.1)
S DIC("S")="I Y'=4"
"^DD",2,2,.121,21,0)
^.001^14^14^3060712^^
"^DD",2,2,.121,21,1,0)
The Bad Address Indicator field applies to the address at which the patient
"^DD",2,2,.121,21,2,0)
resides.  This field should be set as follows (if applicable):
"^DD",2,2,.121,21,3,0)
 
"^DD",2,2,.121,21,4,0)
    "UNDELIVERABLE" - Bad Address based on returned mail.
"^DD",2,2,.121,21,5,0)
    "HOMELESS" - Patient is known to be homeless.
"^DD",2,2,.121,21,6,0)
    "OTHER" - Other Bad Address Reason
"^DD",2,2,.121,21,7,0)
 
"^DD",2,2,.121,21,8,0)
Setting this field will prevent a Bad Address from being shared with HEC
"^DD",2,2,.121,21,9,0)
and other VAMC facilities. It will also be used to block Means Test 
"^DD",2,2,.121,21,10,0)
Renewal Letters from being sent.
"^DD",2,2,.121,21,11,0)
 
"^DD",2,2,.121,21,12,0)
Once the Bad Address Indicator is set, incoming "newer" addresses will
"^DD",2,2,.121,21,13,0)
automatically remove the Bad Address Indicator, and allow the "updated"
"^DD",2,2,.121,21,14,0)
address to be transmitted to HEC and other VAMC facilities.
"^DD",2,2,.121,23,0)
^.001^9^9^3060712^^^^
"^DD",2,2,.121,23,1,0)
This field is being used in conjunction with Patient Address fields
"^DD",2,2,.121,23,2,0)
.111, .1112, .112, .113, .114, .115, .116, and .117, which are located
"^DD",2,2,.121,23,3,0)
in the Patient (#2) file.
"^DD",2,2,.121,23,4,0)

"^DD",2,2,.121,23,5,0)
A programmer API, $$BADADR^DGUTL3(DFN) will allow the return of the Bad
"^DD",2,2,.121,23,6,0)
Address Indicator.  The following parameters are used:
"^DD",2,2,.121,23,7,0)

"^DD",2,2,.121,23,8,0)
Input Parameter: DFN - internal entry number for the Patient file (#2)
"^DD",2,2,.121,23,9,0)
   Return value: internal value of the Bad Address Indicator or <null>
"^DD",2,2,.121,"AUDIT")

"^DD",2,2,.121,"DT")
3061010
"^DD",2,2,.12105,0)
TEMPORARY ADDRESS ACTIVE?^RSX^Y:YES;N:NO;^.121;9^S DFN=DA I X="N" D TADD^DGLOCK
"^DD",2,2,.12105,.1)
WANT TO ENTER TEMP ADDR
"^DD",2,2,.12105,1,0)
^.1^^-1
"^DD",2,2,.12105,1,1,0)
2^AXR11^MUMPS
"^DD",2,2,.12105,1,1,1)
Q
"^DD",2,2,.12105,1,1,2)
S DGXRF=.12105 D ^DGDDC Q
"^DD",2,2,.12105,1,7,0)
^^TRIGGER^2^.1217
"^DD",2,2,.12105,1,7,1)
X ^DD(2,.12105,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.121)):^(.121),1:"") S 
X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(2,.12105,1,7,1.4)
"^DD",2,2,.12105,1,7,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.12105,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.12105,1,7,1.4)
S DIH=$S($D(^DPT(DIV(0),.121)):^(.121),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99
))  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(.121)=$P(DIH,U,1,6)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.1217 D ^DICR
"^DD",2,2,.12105,1,7,2)
Q
"^DD",2,2,.12105,1,7,"CREATE CONDITION")
WANT TO ENTER TEMP ADDR="NO"
"^DD",2,2,.12105,1,7,"CREATE VALUE")
@
"^DD",2,2,.12105,1,7,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.12105,1,7,"FIELD")
START DATE OF TEMP ADDRESS
"^DD",2,2,.12105,1,8,0)
^^TRIGGER^2^.1218
"^DD",2,2,.12105,1,8,1)
X ^DD(2,.12105,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.121)):^(.121),1:"") S 
X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(2,.12105,1,8,1.4)
"^DD",2,2,.12105,1,8,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.12105,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.12105,1,8,1.4)
S DIH=$S($D(^DPT(DIV(0),.121)):^(.121),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99
))  S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(.121)=$P(DIH,U,1,7)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.1218 D ^DICR
"^DD",2,2,.12105,1,8,2)
Q
"^DD",2,2,.12105,1,8,"CREATE CONDITION")
WANT TO ENTER TEMP ADDR="NO"
"^DD",2,2,.12105,1,8,"CREATE VALUE")
@
"^DD",2,2,.12105,1,8,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.12105,1,8,"FIELD")
END DATE OF TEMP ADDRESS
"^DD",2,2,.12105,3)
Enter 'Y' if you want to enter/edit Temporary address data, 'N' if not.
"^DD",2,2,.12105,20,0)
^.3LA^1^1
"^DD",2,2,.12105,20,1,0)
TAD
"^DD",2,2,.12105,21,0)
^^5^5^2930511^^^^
"^DD",2,2,.12105,21,1,0)
Enter 'Y' if you wish to enter a temporary address for this applicant at
"^DD",2,2,.12105,21,2,0)
this time, or 'N' if not.  A 'NO' response will cause the temporary
"^DD",2,2,.12105,21,3,0)
address 'Start Date' and 'End Date' fields to be automatically deleted
"^DD",2,2,.12105,21,4,0)
while all other temporary address data will remain on file for future
"^DD",2,2,.12105,21,5,0)
use.
"^DD",2,2,.12105,"DT")
2930419
"^DD",2,2,.1211,0)
TEMPORARY STREET [LINE 1]^FX^^.121;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($
L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
"^DD",2,2,.1211,.1)

"^DD",2,2,.1211,1,0)
^.1
"^DD",2,2,.1211,1,1,0)
2^AXR12^MUMPS
"^DD",2,2,.1211,1,1,1)
Q
"^DD",2,2,.1211,1,1,2)
S DGXRF=.1211 D ^DGDDC Q
"^DD",2,2,.1211,3)
Enter the first line of this applicants temporary address [2-30 characters].
"^DD",2,2,.1211,20,0)
^.3LA^1^1
"^DD",2,2,.1211,20,1,0)
TAD
"^DD",2,2,.1211,21,0)
^^5^5^2870728^^^^
"^DD",2,2,.1211,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1211,21,2,0)
enter the first line of the temporary street address for this
"^DD",2,2,.1211,21,3,0)
applicant [2-30 characters] otherwise nothing may be entered.  This
"^DD",2,2,.1211,21,4,0)
field cannot be deleted as long as the need for a temporary address
"^DD",2,2,.1211,21,5,0)
is indicated.
"^DD",2,2,.1211,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.1211,"DT")
2890115
"^DD",2,2,.12111,0)
TEMPORARY ADDRESS COUNTY^NJ3,0XO^^.121;11^S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),
"^",5),1:0) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0))  S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^
DIC S X=+Y K:Y'>0 X K Z0,DIC
"^DD",2,2,.12111,1,0)
^.1
"^DD",2,2,.12111,1,1,0)
2^AENR12111^MUMPS
"^DD",2,2,.12111,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.12111,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.12111,1,1,3)
 DO NOT DELETE
"^DD",2,2,.12111,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.12111,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.12111,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.12111,1,1,"DT")
3050606
"^DD",2,2,.12111,2)
S Y(0)=Y S Y(0)=Y Q:Y']""  S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),"^",5),1:0) Q:'
Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
"^DD",2,2,.12111,2.1)
S Y(0)=Y Q:Y']""  S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),"^",5),1:0) Q:'Z0  S Y=$
P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
"^DD",2,2,.12111,3)
Enter the county in which the applicant's temporary address exists.
"^DD",2,2,.12111,4)
S ZD=D,X="?",Z0=$S($D(^DPT(D0,.121)):$P(^(.121),"^",5),1:0) Q:'$D(^DIC(5,+Z0,1,0
))  S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
"^DD",2,2,.12111,20,0)
^.3LA^1^1
"^DD",2,2,.12111,20,1,0)
TAD
"^DD",2,2,.12111,21,0)
^^3^3^2920305^
"^DD",2,2,.12111,21,1,0)
If a state is entered for the temporary residence, enter the county in
"^DD",2,2,.12111,21,2,0)
which that residence resides.  If a state does not exist for the temporary
"^DD",2,2,.12111,21,3,0)
address, a county can not be entered.
"^DD",2,2,.12111,"DT")
3010110
"^DD",2,2,.12112,0)
TEMPORARY ZIP+4^FOX^^.121;12^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D TAD^DGLOCK
 I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.12112,1,0)
^.1
"^DD",2,2,.12112,1,1,0)
2^ATZIP4^MUMPS
"^DD",2,2,.12112,1,1,1)
D SET^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))
"^DD",2,2,.12112,1,1,2)
D KILL^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))
"^DD",2,2,.12112,1,1,"%D",0)
^^2^2^2930505^^^^
"^DD",2,2,.12112,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of
"^DD",2,2,.12112,1,1,"%D",2,0)
this field.
"^DD",2,2,.12112,1,1,"DT")
2930413
"^DD",2,2,.12112,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.12112,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.12112,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.12112,20,0)
^.3LA^1^1
"^DD",2,2,.12112,20,1,0)
TAD
"^DD",2,2,.12112,21,0)
^^2^2^2930603^^
"^DD",2,2,.12112,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.12112,21,2,0)
format (e.g. 12345-6789 or 123456789).
"^DD",2,2,.12112,23,0)
^^3^3^2930603^^
"^DD",2,2,.12112,23,1,0)
Related to other address fields on this node.  This field 'triggers'
"^DD",2,2,.12112,23,2,0)
the TEMPORARY ZIP CODE (#.1216) field, using the first 5 digits of
"^DD",2,2,.12112,23,3,0)
 this field.
"^DD",2,2,.12112,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.12112,"DT")
2930603
"^DD",2,2,.12113,0)
TEMPORARY ADDRESS CHANGE DT/TM^DX^^.121;13^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.12113,1,0)
^.1
"^DD",2,2,.12113,1,1,0)
2^AENR12113^MUMPS
"^DD",2,2,.12113,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.12113,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.12113,1,1,3)
 DO NOT DELETE
"^DD",2,2,.12113,1,1,"%D",0)
^.101^2^2^3050615^^^^
"^DD",2,2,.12113,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.12113,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.12113,1,1,"DT")
3050615
"^DD",2,2,.12113,1,2,0)
^^TRIGGER^2^.12114
"^DD",2,2,.12113,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.121)):^(.121),1:"") S X=$P(Y
(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(
4,"D",X,"")) X ^DD(2,.12113,1,2,1.4)
"^DD",2,2,.12113,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.121)),DIV=X S $P(^(.121),U,14)=DIV,DIH=2,DIG=.12114 D ^DIC
R
"^DD",2,2,.12113,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.121)):^(.121),1:"") S X=$P(Y
(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(
4,"D",X,"")) X ^DD(2,.12113,1,2,2.4)
"^DD",2,2,.12113,1,2,2.4)
S DIH=$G(^DPT(DIV(0),.121)),DIV=X S $P(^(.121),U,14)=DIV,DIH=2,DIG=.12114 D ^DIC
R
"^DD",2,2,.12113,1,2,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.12113,1,2,"DELETE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.12113,1,2,"DT")
3060111
"^DD",2,2,.12113,1,2,"FIELD")
`.12114
"^DD",2,2,.12113,3)
(No range limit on date)
"^DD",2,2,.12113,9)
^
"^DD",2,2,.12113,21,0)
^^2^2^3050519^
"^DD",2,2,.12113,21,1,0)
This field will hold the date and time of the last Temporary Address
"^DD",2,2,.12113,21,2,0)
Update.
"^DD",2,2,.12113,"DT")
3050615
"^DD",2,2,.12114,0)
TEMPORARY ADDRESS CHANGE SITE^P4'^DIC(4,^.121;14^Q
"^DD",2,2,.12114,5,1,0)
2^.12113^2
"^DD",2,2,.12114,21,0)
^^2^2^3050519^
"^DD",2,2,.12114,21,1,0)
This field will hold the Site that last changed this patient's temporary
"^DD",2,2,.12114,21,2,0)
address.
"^DD",2,2,.12114,"DT")
3050519
"^DD",2,2,.1212,0)
TEMPORARY STREET [LINE 2]^FX^^.121;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($
L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
"^DD",2,2,.1212,.1)

"^DD",2,2,.1212,1,0)
^.1
"^DD",2,2,.1212,1,1,0)
2^AXR13^MUMPS
"^DD",2,2,.1212,1,1,1)
Q
"^DD",2,2,.1212,1,1,2)
S DGXRF=.1212 D ^DGDDC Q
"^DD",2,2,.1212,3)
Enter, if necessary, the second line of this applicants temporary address [2-30 
characters].
"^DD",2,2,.1212,20,0)
^.3LA^1^1
"^DD",2,2,.1212,20,1,0)
TAD
"^DD",2,2,.1212,21,0)
^^5^5^2861007^^^^
"^DD",2,2,.1212,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1212,21,2,0)
enter the second line of the temporary street address [2-30
"^DD",2,2,.1212,21,3,0)
characters], if necessary, otherwise nothing may be entered.  This
"^DD",2,2,.1212,21,4,0)
field may not be deleted as long as the need for a temporary
"^DD",2,2,.1212,21,5,0)
address is indicated.
"^DD",2,2,.1212,"DT")
2890115
"^DD",2,2,.1213,0)
TEMPORARY STREET [LINE 3]^FX^^.121;3^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D T
AD^DGLOCK
"^DD",2,2,.1213,.1)

"^DD",2,2,.1213,3)
Enter, if necessary, the third line of this applicants temporary address [2-30 c
haracters].
"^DD",2,2,.1213,20,0)
^.3LA^1^1
"^DD",2,2,.1213,20,1,0)
TAD
"^DD",2,2,.1213,21,0)
^^5^5^2861007^^
"^DD",2,2,.1213,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1213,21,2,0)
enter the third line of the temporary street address [2-30
"^DD",2,2,.1213,21,3,0)
characters], if necessary, otherwise nothing may be entered.
"^DD",2,2,.1213,21,4,0)
This field may not be deleted as long as the need for a temporary
"^DD",2,2,.1213,21,5,0)
address is indicated.
"^DD",2,2,.1213,"DT")
2860728
"^DD",2,2,.1214,0)
TEMPORARY CITY^FX^^.121;4^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
"^DD",2,2,.1214,.1)

"^DD",2,2,.1214,3)
Enter the city in which this applicant is temporarily residing [2-30 characters]
.
"^DD",2,2,.1214,20,0)
^.3LA^1^1
"^DD",2,2,.1214,20,1,0)
TAD
"^DD",2,2,.1214,21,0)
^^4^4^2861007^^^^
"^DD",2,2,.1214,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1214,21,2,0)
enter the city in which the temporary address lies [2-30 characters],
"^DD",2,2,.1214,21,3,0)
otherwise nothing may be entered.  This field may not be deleted as
"^DD",2,2,.1214,21,4,0)
long as the need for a temporary address is indicated.
"^DD",2,2,.1214,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.1214,"DT")
2860728
"^DD",2,2,.1215,0)
TEMPORARY STATE^*P5'X^DIC(5,^.121;5^S DIC("S")="I $P(^DIC(5,Y,0),U,6)=1" D ^DIC 
K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DFN=DA D TAD^DGLOCK Q
"^DD",2,2,.1215,.1)

"^DD",2,2,.1215,1,0)
^.1^^0
"^DD",2,2,.1215,3)
Enter the state in which this applicant is temporarily residing.
"^DD",2,2,.1215,12)
This screen will restrict the entry of a state to valid US states or possessions
.
"^DD",2,2,.1215,12.1)
S DIC("S")="I $P(^DIC(5,Y,0),U,6)=1"
"^DD",2,2,.1215,20,0)
^.3LA^1^1
"^DD",2,2,.1215,20,1,0)
TAD
"^DD",2,2,.1215,21,0)
^.001^5^5^3070626^^^^
"^DD",2,2,.1215,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1215,21,2,0)
select from the available listing the state in which the temporary
"^DD",2,2,.1215,21,3,0)
address lies, otherwise nothing may be entered.  This field may
"^DD",2,2,.1215,21,4,0)
not be deleted as long as the need for a temporary address is
"^DD",2,2,.1215,21,5,0)
indicated.
"^DD",2,2,.1215,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.1215,"DT")
3070626
"^DD",2,2,.1216,0)
TEMPORARY ZIP CODE^FX^^.121;6^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!
'(X?5N) X I $D(X) S DFN=DA D TAD^DGLOCK
"^DD",2,2,.1216,.1)

"^DD",2,2,.1216,1,0)
^.1
"^DD",2,2,.1216,1,1,0)
2^ATZIP^MUMPS
"^DD",2,2,.1216,1,1,1)
D SET^DGREGDD1(DA,.12112,.121,12,X)
"^DD",2,2,.1216,1,1,2)
D KILL^DGREGDD1(DA,.12112,.121,12,X)
"^DD",2,2,.1216,1,1,"%D",0)
^^1^1^2930603^^^^
"^DD",2,2,.1216,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's value.
"^DD",2,2,.1216,1,1,"DT")
2930413
"^DD",2,2,.1216,3)
Enter the zip code of the temporary address at which this patient is currently r
esiding.
"^DD",2,2,.1216,20,0)
^.3LA^1^1
"^DD",2,2,.1216,20,1,0)
TAD
"^DD",2,2,.1216,21,0)
^^4^4^2930603^^^^
"^DD",2,2,.1216,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1216,21,2,0)
enter the zip code assigned to the temporary city [5 numerics],
"^DD",2,2,.1216,21,3,0)
otherwise nothing may be entered.  This field may not be deleted
"^DD",2,2,.1216,21,4,0)
as long as the need for a temporary address is indicated.
"^DD",2,2,.1216,23,0)
^^4^4^2930603^^
"^DD",2,2,.1216,23,1,0)
This five-digit zip code associated with the temporary address is 
"^DD",2,2,.1216,23,2,0)
populated by the five or nine digit TEMPORARY ZIP+4 field (via a trigger).
"^DD",2,2,.1216,23,3,0)
The TEMPORARY ZIP CODE field will be made un-editiable several months
"^DD",2,2,.1216,23,4,0)
following the release of PIMS 5.3.
"^DD",2,2,.1216,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.1216,"DT")
2930603
"^DD",2,2,.1217,0)
TEMPORARY ADDRESS START DATE^DX^^.121;7^S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S
 DFN=DA D TAD^DGLOCK
"^DD",2,2,.1217,.1)
START DATE OF TEMP ADDRESS
"^DD",2,2,.1217,1,0)
^.1
"^DD",2,2,.1217,1,1,0)
2^AGU1^MUMPS
"^DD",2,2,.1217,1,1,1)
Q
"^DD",2,2,.1217,1,1,2)
Q
"^DD",2,2,.1217,3)
Enter the date on which the patient will first be found at the temporary address
 indicated.
"^DD",2,2,.1217,5,1,0)
2^.12105^7
"^DD",2,2,.1217,20,0)
^.3LA^1^1
"^DD",2,2,.1217,20,1,0)
TAD
"^DD",2,2,.1217,21,0)
^^5^5^2890113^^^
"^DD",2,2,.1217,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1217,21,2,0)
enter the date on which the applicant will commence being contacted
"^DD",2,2,.1217,21,3,0)
at the temporary address indicated, otherwise nothing may be
"^DD",2,2,.1217,21,4,0)
entered.  This field may not be deleted as long as the need for a
"^DD",2,2,.1217,21,5,0)
temporary address is indicated.
"^DD",2,2,.1217,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.1217,"DT")
2890115
"^DD",2,2,.1218,0)
TEMPORARY ADDRESS END DATE^DX^^.121;8^S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S D
FN=DA D TAD^DGLOCK I $D(X),(X<$P(^DPT(DFN,.121),"^",7)) K X
"^DD",2,2,.1218,.1)
END DATE OF TEMP ADDRESS
"^DD",2,2,.1218,3)
Enter the date as of which the patient will no longer be at the temporary addres
s indicated.
"^DD",2,2,.1218,5,1,0)
2^.12105^8
"^DD",2,2,.1218,20,0)
^.3LA^1^1
"^DD",2,2,.1218,20,1,0)
TAD
"^DD",2,2,.1218,21,0)
^^5^5^2861007^^
"^DD",2,2,.1218,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1218,21,2,0)
enter the date as of which the applicant will no longer be contacted
"^DD",2,2,.1218,21,3,0)
at that temporary address, otherwise nothing may be entered.  This
"^DD",2,2,.1218,21,4,0)
field may not be deleted as long as the need for a temporary
"^DD",2,2,.1218,21,5,0)
address is indicated.
"^DD",2,2,.1218,"DEL",1,0)
S DFN=DA D TADD^DGLOCK1 I '$D(X)
"^DD",2,2,.1218,"DT")
2890113
"^DD",2,2,.1219,0)
TEMPORARY PHONE NUMBER^FX^^.121;10^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D TAD
^DGLOCK
"^DD",2,2,.1219,.1)

"^DD",2,2,.1219,1,0)
^.1
"^DD",2,2,.1219,1,1,0)
2^AENR1219^MUMPS
"^DD",2,2,.1219,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.1219,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.1219,1,1,3)
 DO NOT DELETE
"^DD",2,2,.1219,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.1219,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.1219,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.1219,1,1,"DT")
3050606
"^DD",2,2,.1219,3)
Enter the telephone number of the temporary address at which the patient is loca
ted [4-20 characters].
"^DD",2,2,.1219,20,0)
^.3LA^1^1
"^DD",2,2,.1219,20,1,0)
TAD
"^DD",2,2,.1219,21,0)
^^5^5^2861007^^
"^DD",2,2,.1219,21,1,0)
If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES
"^DD",2,2,.1219,21,2,0)
enter the telephone number at which the applicant can be
"^DD",2,2,.1219,21,3,0)
contacted [4-20 characters] during his/her absence from permanent
"^DD",2,2,.1219,21,4,0)
residence, otherwise nothing may be entered.  This field may not
"^DD",2,2,.1219,21,5,0)
be deleted as long as the need for a temporary address is indicated.
"^DD",2,2,.1219,"DT")
3010108
"^DD",2,2,.122,0)
ADDRESS CHANGE USER^P200'^VA(200,^.11;17^Q
"^DD",2,2,.122,5,1,0)
2^.118^2
"^DD",2,2,.122,9)
^
"^DD",2,2,.122,21,0)
^^1^1^3030604^
"^DD",2,2,.122,21,1,0)
The name of the user who has changed this patient's primary address.
"^DD",2,2,.122,"DT")
3030604
"^DD",2,2,.1221,0)
TEMPORARY ADDRESS PROVINCE^F^^.122;1^K:$L(X)>20!($L(X)<1) X
"^DD",2,2,.1221,1,0)
^.1^^0
"^DD",2,2,.1221,3)
Answer must be 1-20 characters in length.
"^DD",2,2,.1221,21,0)
^^4^4^3060405^
"^DD",2,2,.1221,21,1,0)
Enter a Province if the patient has provided one for his/her foreign
"^DD",2,2,.1221,21,2,0)
address.  
"^DD",2,2,.1221,21,3,0)
 
"^DD",2,2,.1221,21,4,0)
The entry can be alphanumeric and up to 20 characters in length.
"^DD",2,2,.1221,"DT")
3060615
"^DD",2,2,.1222,0)
TEMPORARY ADDRESS POSTAL CODE^F^^.122;2^K:$L(X)>10!($L(X)<1) X
"^DD",2,2,.1222,1,0)
^.1^^0
"^DD",2,2,.1222,3)
Answer must be 1-10 characters in length.
"^DD",2,2,.1222,21,0)
^^4^4^3060405^
"^DD",2,2,.1222,21,1,0)
Enter with patient's postal code if the patient has provided one for
"^DD",2,2,.1222,21,2,0)
his/her foreign address.
"^DD",2,2,.1222,21,3,0)
 
"^DD",2,2,.1222,21,4,0)
The entry can be alphanumeric and up to 10 characters in length.
"^DD",2,2,.1222,"DT")
3060615
"^DD",2,2,.1223,0)
TEMPORARY ADDRESS COUNTRY^P779.004'^HL(779.004,^.122;3^Q
"^DD",2,2,.1223,1,0)
^.1^^0
"^DD",2,2,.1223,21,0)
^^4^4^3060131^
"^DD",2,2,.1223,21,1,0)
Enter the country where the patient's temporary address is located.
"^DD",2,2,.1223,21,2,0)
 
"^DD",2,2,.1223,21,3,0)
If entering an Army/Air Force Post Office (APO) or a Fleet Post Office 
"^DD",2,2,.1223,21,4,0)
(FPO) address select United States as the country.
"^DD",2,2,.1223,"DT")
3060615
"^DD",2,2,.131,0)
PHONE NUMBER [RESIDENCE]^Fa^^.13;1^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.131,.1)

"^DD",2,2,.131,1,0)
^.1
"^DD",2,2,.131,1,1,0)
2^AENR131^MUMPS
"^DD",2,2,.131,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.131,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.131,1,1,3)
DO NOT DELETE
"^DD",2,2,.131,1,1,"%D",0)
^.101^2^2^3120127^^^^
"^DD",2,2,.131,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.131,1,1,"%D",2,0)
enrollment. 
"^DD",2,2,.131,1,1,"DT")
2971007
"^DD",2,2,.131,1,2,0)
2^F
"^DD",2,2,.131,1,2,1)
S ^DPT("F",$E(X,1,30),DA)=""
"^DD",2,2,.131,1,2,2)
K ^DPT("F",$E(X,1,30),DA)
"^DD",2,2,.131,1,2,"%D",0)
^^1^1^3120127^
"^DD",2,2,.131,1,2,"%D",1,0)
This cross reference will update the PHONE NUMBER CHANGE DT/TM field with curren
t date and time stamp each time this field is changed.
"^DD",2,2,.131,1,2,"DT")
3120127
"^DD",2,2,.131,1,3,0)
^^TRIGGER^2^.1321
"^DD",2,2,.131,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P(Y
(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.132)),D
IV=X S $P(^(.132),U,1)=DIV,DIH=2,DIG=.1321 D ^DICR
"^DD",2,2,.131,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P(Y
(1),U,1),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.132)),D
IV=X S $P(^(.132),U,1)=DIV,DIH=2,DIG=.1321 D ^DICR
"^DD",2,2,.131,1,3,"%D",0)
^^3^3^3120131^
"^DD",2,2,.131,1,3,"%D",1,0)
This cross reference will update the RESIDENCE
"^DD",2,2,.131,1,3,"%D",2,0)
NUMBER CHANGE DT/TM field with the current date and
"^DD",2,2,.131,1,3,"%D",3,0)
time stamp each time this field is changed.
"^DD",2,2,.131,1,3,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.131,1,3,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.131,1,3,"DT")
3120131
"^DD",2,2,.131,1,3,"FIELD")
RESIDENCE NUMBER CHANGE DT/TM
"^DD",2,2,.131,1,301,0)
2^IVM131^MUMPS
"^DD",2,2,.131,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.131,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.131,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.131,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.131,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.131,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.131,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.131,1,301,"DT")
2930605
"^DD",2,2,.131,1,991,0)
2^AVAFC131^MUMPS
"^DD",2,2,.131,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".131;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.131,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".131;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.131,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.131,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.131,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.131,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.131,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.131,1,991,"%D",5,0)
 
"^DD",2,2,.131,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.131,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.131,1,991,"%D",8,0)
process.
"^DD",2,2,.131,1,991,"%D",9,0)
 
"^DD",2,2,.131,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.131,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.131,1,991,"%D",12,0)
  
"^DD",2,2,.131,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.131,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.131,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.131,1,991,"DT")
2970825
"^DD",2,2,.131,1,992,0)
2^ADGRU131^MUMPS
"^DD",2,2,.131,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.131,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.131,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.131,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.131,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.131,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.131,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.131,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.131,1,992,"%D",6,0)
interface.
"^DD",2,2,.131,1,992,"%D",7,0)
 
"^DD",2,2,.131,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.131,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.131,1,992,"DT")
2990920
"^DD",2,2,.131,3)
Enter the patients home telephone number [4-20 characters].
"^DD",2,2,.131,20,0)
^.3LA^1^1
"^DD",2,2,.131,20,1,0)
DEMOG
"^DD",2,2,.131,21,0)
^.001^2^2^3041006^^^
"^DD",2,2,.131,21,1,0)
Enter the telephone number [4-20 characters] to this applicant's
"^DD",2,2,.131,21,2,0)
place of residence.
"^DD",2,2,.131,"AUDIT")
y
"^DD",2,2,.131,"DT")
3120131
"^DD",2,2,.1311,0)
CELLULAR NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;10^Q
"^DD",2,2,.1311,1,0)
^.1
"^DD",2,2,.1311,1,1,0)
^^TRIGGER^2^.13111
"^DD",2,2,.1311,1,1,1)
X ^DD(2,.1311,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$
P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^D
IC(4,"D",X,"")) X ^DD(2,.1311,1,1,1.4)
"^DD",2,2,.1311,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1311,0)),U,3) 
S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
"^DD",2,2,.1311,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR
"^DD",2,2,.1311,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1311,0)),U,3) 
S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.
13)):^(.13),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(2,.1311,1,1,2.4
)
"^DD",2,2,.1311,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR
"^DD",2,2,.1311,1,1,"%D",0)
^^5^5^3130522^
"^DD",2,2,.1311,1,1,"%D",1,0)
This cross-reference will trigger the population of the CELLULAR NUMBER 
"^DD",2,2,.1311,1,1,"%D",2,0)
CHANGE SITE field with the appropriate station number if the CELLULAR 
"^DD",2,2,.1311,1,1,"%D",3,0)
NUMBER CHANGE SOURCE equals "VAMC".  The CELLULAR NUMBER CHANGE SITE field
"^DD",2,2,.1311,1,1,"%D",4,0)
should be overwritten for cases where the site would be incorrect (i.e. 
"^DD",2,2,.1311,1,1,"%D",5,0)
uploading Z05 message).
"^DD",2,2,.1311,1,1,"CREATE CONDITION")
CELLULAR NUMBER CHANGE SOURCE="VAMC"
"^DD",2,2,.1311,1,1,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.1311,1,1,"DELETE CONDITION")
OLD CELLULAR NUMBER CHANGE SOU="VAMC"
"^DD",2,2,.1311,1,1,"DELETE VALUE")
@
"^DD",2,2,.1311,1,1,"DT")
3130522
"^DD",2,2,.1311,1,1,"FIELD")
CELLULAR NUMBER CHANGE SITE
"^DD",2,2,.1311,3)
Please enter the source of the Cellular number change.
"^DD",2,2,.1311,5,1,0)
2^.139^1
"^DD",2,2,.1311,21,0)
^^2^2^3060410^
"^DD",2,2,.1311,21,1,0)
This field will hold the source of the last Cellular number
"^DD",2,2,.1311,21,2,0)
change.
"^DD",2,2,.1311,"DT")
3130522
"^DD",2,2,.13111,0)
CELLULAR NUMBER CHANGE SITE^P4'^DIC(4,^.13;11^Q
"^DD",2,2,.13111,3)
Please enter the site that last changed this patient's Cellular number.
"^DD",2,2,.13111,5,1,0)
2^.1311^1
"^DD",2,2,.13111,21,0)
^^3^3^3060410^
"^DD",2,2,.13111,21,1,0)
This field will hold the site that last changed this
"^DD",2,2,.13111,21,2,0)
patient's Cellular number.  This field is only populated
"^DD",2,2,.13111,21,3,0)
when the Cellular Number Change Source is listed as VAMC.
"^DD",2,2,.13111,"DT")
3060410
"^DD",2,2,.1312,0)
PAGER NUMBER CHANGE DT/TM^D^^.13;12^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.1312,1,0)
^.1
"^DD",2,2,.1312,1,1,0)
^^TRIGGER^2^.1313
"^DD",2,2,.1312,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P
(^(.13),U,13)=DIV,DIH=2,DIG=.1313 D ^DICR
"^DD",2,2,.1312,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,13),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P
(^(.13),U,13)=DIV,DIH=2,DIG=.1313 D ^DICR
"^DD",2,2,.1312,1,1,"%D",0)
^^2^2^3060411^
"^DD",2,2,.1312,1,1,"%D",1,0)
This cross reference will update the PAGER NUMBER CHANGE SOURCE field
"^DD",2,2,.1312,1,1,"%D",2,0)
(#.1313).
"^DD",2,2,.1312,1,1,"CREATE VALUE")
S X="VAMC"
"^DD",2,2,.1312,1,1,"DELETE VALUE")
S X="VAMC"
"^DD",2,2,.1312,1,1,"DT")
3060410
"^DD",2,2,.1312,1,1,"FIELD")
#.1313
"^DD",2,2,.1312,5,1,0)
2^.135^1
"^DD",2,2,.1312,21,0)
^^2^2^3060410^
"^DD",2,2,.1312,21,1,0)
This field will contain the date and time of the last
"^DD",2,2,.1312,21,2,0)
Pager number update.
"^DD",2,2,.1312,"DT")
3060410
"^DD",2,2,.1313,0)
PAGER NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;13^Q
"^DD",2,2,.1313,1,0)
^.1
"^DD",2,2,.1313,1,1,0)
^^TRIGGER^2^.1314
"^DD",2,2,.1313,1,1,1)
X ^DD(2,.1313,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$
P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^D
IC(4,"D",X,"")) X ^DD(2,.1313,1,1,1.4)
"^DD",2,2,.1313,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1313,0)),U,3) 
S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
"^DD",2,2,.1313,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR
"^DD",2,2,.1313,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1313,0)),U,3) 
S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.
13)):^(.13),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(2,.1313,1,1,2.4
)
"^DD",2,2,.1313,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR
"^DD",2,2,.1313,1,1,"%D",0)
^^5^5^3130522^
"^DD",2,2,.1313,1,1,"%D",1,0)
This cross-reference will trigger the population of the PAGER NUMBER 
"^DD",2,2,.1313,1,1,"%D",2,0)
CHANGE SITE field with the appropriate station number if the PAGER NUMBER 
"^DD",2,2,.1313,1,1,"%D",3,0)
CHANGE SOURCE equals "VAMC".  The PAGER NUMBER CHANGE SITE field should be 
"^DD",2,2,.1313,1,1,"%D",4,0)
overwritten for cases where the site would be incorrect (i.e. uploading
"^DD",2,2,.1313,1,1,"%D",5,0)
Z05 message).
"^DD",2,2,.1313,1,1,"CREATE CONDITION")
PAGER NUMBER CHANGE SOURCE="VAMC"
"^DD",2,2,.1313,1,1,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.1313,1,1,"DELETE CONDITION")
OLD PAGER NUMBER CHANGE SOURCE="VAMC"
"^DD",2,2,.1313,1,1,"DELETE VALUE")
@
"^DD",2,2,.1313,1,1,"DT")
3130522
"^DD",2,2,.1313,1,1,"FIELD")
PAGER NUMBER CHANGE SITE
"^DD",2,2,.1313,3)
Please enter the source of the Pager number change.
"^DD",2,2,.1313,5,1,0)
2^.1312^1
"^DD",2,2,.1313,21,0)
^^2^2^3060410^
"^DD",2,2,.1313,21,1,0)
This field will hold the source of the last Pager number
"^DD",2,2,.1313,21,2,0)
change.
"^DD",2,2,.1313,"DT")
3130522
"^DD",2,2,.1314,0)
PAGER NUMBER CHANGE SITE^P4'^DIC(4,^.13;14^Q
"^DD",2,2,.1314,3)
Please enter the site that last changed this patient's Pager number.
"^DD",2,2,.1314,5,1,0)
2^.1313^1
"^DD",2,2,.1314,21,0)
^^3^3^3060410^
"^DD",2,2,.1314,21,1,0)
This field will hold the site that last changed this
"^DD",2,2,.1314,21,2,0)
patient's Pager number.  This field is only populated
"^DD",2,2,.1314,21,3,0)
when the Pager Number Change Source is listed as VAMC.
"^DD",2,2,.1314,"DT")
3060410
"^DD",2,2,.1315,0)
CONFIDENTIAL PHONE NUMBER^FX^^.13;15^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D C
AD^DGLOCK3
"^DD",2,2,.1315,3)
Enter the telephone number of the confidential address at which the patient is l
ocated [4-20 characters].
"^DD",2,2,.1315,21,0)
^^3^3^3080811^
"^DD",2,2,.1315,21,1,0)
If the 'Confidential Address Active' prompt is answered
"^DD",2,2,.1315,21,2,0)
YES, enter the telephone number of the confidential
"^DD",2,2,.1315,21,3,0)
address at which the patient is located [4-20 characters].
"^DD",2,2,.1315,"DT")
3090824
"^DD",2,2,.132,0)
PHONE NUMBER [WORK]^Fa^^.13;2^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.132,.1)
OFFICE PHONE
"^DD",2,2,.132,1,0)
^.1^^-1
"^DD",2,2,.132,1,1,0)
2^AENR132^MUMPS
"^DD",2,2,.132,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.132,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.132,1,1,3)
DO NOT DELETE
"^DD",2,2,.132,1,1,"%D",0)
^^2^2^2971007^^^
"^DD",2,2,.132,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.132,1,1,"%D",2,0)
enrollment. 
"^DD",2,2,.132,1,1,"DT")
2971007
"^DD",2,2,.132,1,301,0)
2^IVM132^MUMPS
"^DD",2,2,.132,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.132,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.132,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.132,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.132,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.132,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.132,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.132,1,301,"DT")
2930605
"^DD",2,2,.132,1,991,0)
2^AVAFC132^MUMPS
"^DD",2,2,.132,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".132;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.132,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".132;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.132,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.132,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.132,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.132,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.132,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.132,1,991,"%D",5,0)
 
"^DD",2,2,.132,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.132,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.132,1,991,"%D",8,0)
process.
"^DD",2,2,.132,1,991,"%D",9,0)
 
"^DD",2,2,.132,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.132,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.132,1,991,"%D",12,0)
  
"^DD",2,2,.132,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.132,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.132,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.132,1,991,"DT")
2970825
"^DD",2,2,.132,1,992,0)
2^ADGRU132^MUMPS
"^DD",2,2,.132,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.132,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.132,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.132,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.132,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.132,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.132,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.132,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.132,1,992,"%D",6,0)
interface.
"^DD",2,2,.132,1,992,"%D",7,0)
 
"^DD",2,2,.132,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.132,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.132,1,992,"DT")
2990920
"^DD",2,2,.132,3)
If employed, enter the telephone number of this applicants place of employment [
4-20 characters].
"^DD",2,2,.132,20,0)
^.3LA^1^1
"^DD",2,2,.132,20,1,0)
PEMP
"^DD",2,2,.132,21,0)
^^2^2^2861007^
"^DD",2,2,.132,21,1,0)
Enter the office phone number [4-20 characters] where this applicant
"^DD",2,2,.132,21,2,0)
can be reached while employed, if employed.
"^DD",2,2,.132,"AUDIT")
y
"^DD",2,2,.132,"DT")
2971219
"^DD",2,2,.1321,0)
RESIDENCE NUMBER CHANGE DT/TM^D^^.132;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.1321,1,0)
^.1
"^DD",2,2,.1321,1,1,0)
^^TRIGGER^2^.1322
"^DD",2,2,.1321,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P(Y
(1),U,2),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.132)),DIV=X S 
$P(^(.132),U,2)=DIV,DIH=2,DIG=.1322 D ^DICR
"^DD",2,2,.1321,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P(Y
(1),U,2),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.132)),DIV=X S 
$P(^(.132),U,2)=DIV,DIH=2,DIG=.1322 D ^DICR
"^DD",2,2,.1321,1,1,"CREATE VALUE")
S X="VAMC"
"^DD",2,2,.1321,1,1,"DELETE VALUE")
S X="VAMC"
"^DD",2,2,.1321,1,1,"FIELD")
RESIDENCE NUMBER CHANGE SOURCE
"^DD",2,2,.1321,3)
Please enter the date and time of the Residence phone number change.
"^DD",2,2,.1321,5,1,0)
2^.131^3
"^DD",2,2,.1321,9)
^
"^DD",2,2,.1321,21,0)
^.001^2^2^3120424^^^^
"^DD",2,2,.1321,21,1,0)
This field will contain the date and time of
"^DD",2,2,.1321,21,2,0)
the last Residence phone number update.
"^DD",2,2,.1321,"DT")
3120424
"^DD",2,2,.1322,0)
RESIDENCE NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.132;2^Q
"^DD",2,2,.1322,1,0)
^.1
"^DD",2,2,.1322,1,1,0)
^^TRIGGER^2^.1323
"^DD",2,2,.1322,1,1,1)
X ^DD(2,.1322,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X
=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2,.1322,1,1,1.1) S DIH=$G(^DPT(DIV(0),.132))
,DIV=X S $P(^(.132),U,3)=DIV,DIH=2,DIG=.1323 D ^DICR
"^DD",2,2,.1322,1,1,1.1)
S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$$FIND1^DIC(4,"","QX",X,"D","","^T
MP(""DGSTAERR"",$J)")
"^DD",2,2,.1322,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1322,0)),U,3) 
S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
"^DD",2,2,.1322,1,1,2)
X ^DD(2,.1322,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X
=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2,.1322,1,1,2.1) S DIH=$G(^DPT(DIV(0),.132))
,DIV=X S $P(^(.132),U,3)=DIV,DIH=2,DIG=.1323 D ^DICR
"^DD",2,2,.1322,1,1,2.1)
S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$$FIND1^DIC(4,"","QX",X,"D","","^T
MP(""DGSTAERR"",$J)")
"^DD",2,2,.1322,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.1322,0)),U,3),
Y(1)=$S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2
),$C(59))="VAMC"
"^DD",2,2,.1322,1,1,"%D",0)
^^8^8^3120326^
"^DD",2,2,.1322,1,1,"%D",1,0)
This cross-reference will trigger the
"^DD",2,2,.1322,1,1,"%D",2,0)
population of the RESIDENCE NUMBER CHANGE SITE
"^DD",2,2,.1322,1,1,"%D",3,0)
field with the appropriate station number if
"^DD",2,2,.1322,1,1,"%D",4,0)
the RESIDENCE NUMBER CHANGE SOURCE equals
"^DD",2,2,.1322,1,1,"%D",5,0)
"VAMC".  The RESIDENCE NUMBER CHANGE SITE field
"^DD",2,2,.1322,1,1,"%D",6,0)
should be overwritten for the cases where the
"^DD",2,2,.1322,1,1,"%D",7,0)
site would be incorrect (i.e. uploading Z05
"^DD",2,2,.1322,1,1,"%D",8,0)
message).
"^DD",2,2,.1322,1,1,"CREATE CONDITION")
RESIDENCE NUMBER CHANGE SOURCE="VAMC"
"^DD",2,2,.1322,1,1,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$$FIND1^DIC(4,"","QX",X,"D","","^TMP(""DGS
TAERR"",$J)")
"^DD",2,2,.1322,1,1,"DELETE CONDITION")
RESIDENCE NUMBER CHANGE SOURCE="VAMC"
"^DD",2,2,.1322,1,1,"DELETE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$$FIND1^DIC(4,"","QX",X,"D","","^TMP(""DGS
TAERR"",$J)")
"^DD",2,2,.1322,1,1,"DT")
3120326
"^DD",2,2,.1322,1,1,"FIELD")
RESIDENCE NUMBER CHANGE SITE
"^DD",2,2,.1322,3)
Please enter the source of the Residence phone number change.
"^DD",2,2,.1322,5,1,0)
2^.1321^1
"^DD",2,2,.1322,9)
^
"^DD",2,2,.1322,21,0)
^.001^2^2^3120201^^
"^DD",2,2,.1322,21,1,0)
This field will hold the source of the last
"^DD",2,2,.1322,21,2,0)
Residence phone number change.
"^DD",2,2,.1322,"DT")
3120424
"^DD",2,2,.1323,0)
RESIDENCE NUMBER CHANGE SITE^P4'^DIC(4,^.132;3^Q
"^DD",2,2,.1323,3)
Please enter the site that last changed this patient's Residence phone number.
"^DD",2,2,.1323,5,1,0)
2^.1322^1
"^DD",2,2,.1323,9)
^
"^DD",2,2,.1323,21,0)
^^4^4^3120201^
"^DD",2,2,.1323,21,1,0)
This field will hold the site that last changed
"^DD",2,2,.1323,21,2,0)
this patient's Residence phone number.  This
"^DD",2,2,.1323,21,3,0)
field is only populated when the Residence
"^DD",2,2,.1323,21,4,0)
Number Change Source is listed as VAMC.
"^DD",2,2,.1323,"DT")
3120424
"^DD",2,2,.133,0)
EMAIL ADDRESS^F^^.13;3^K:$L(X)>50!($L(X)<3)!'(X?1.E1"@"1.E1"."1.E) X
"^DD",2,2,.133,.1)
Email Address
"^DD",2,2,.133,1,0)
^.1^^-1
"^DD",2,2,.133,1,1,0)
^^TRIGGER^2^.136
"^DD",2,2,.133,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=
X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^DICR
"^DD",2,2,.133,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=
X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^DICR
"^DD",2,2,.133,1,1,3)
 DO NOT DELETE
"^DD",2,2,.133,1,1,"%D",0)
^^2^2^3060411^
"^DD",2,2,.133,1,1,"%D",1,0)
This cross reference will update the EMAIL ADDRESS CHANGE DT/TM field
"^DD",2,2,.133,1,1,"%D",2,0)
with current date and time stamp each time this field is changed.
"^DD",2,2,.133,1,1,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.133,1,1,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.133,1,1,"DT")
3050608
"^DD",2,2,.133,1,1,"FIELD")
#.136
"^DD",2,2,.133,3)
Enter the applicant's email address [3-50 characters].  The entry must include a
n '@'.
"^DD",2,2,.133,4)
D 133^DGMTDD5
"^DD",2,2,.133,"DT")
3090410
"^DD",2,2,.134,0)
PHONE NUMBER [CELLULAR]^FX^^.13;4^K:$L(X)>20!($L(X)<4) X I $D(X) N CTR,CHR,VAR S
 VAR=X F CTR=1:1:20 S CHR=$E(VAR,CTR) K:("1234567890 -()."'[CHR) X
"^DD",2,2,.134,.1)
Cell Phone
"^DD",2,2,.134,1,0)
^.1
"^DD",2,2,.134,1,1,0)
^^TRIGGER^2^.139
"^DD",2,2,.134,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=
X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR
"^DD",2,2,.134,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=
X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR
"^DD",2,2,.134,1,1,"%D",0)
^^2^2^3060411^
"^DD",2,2,.134,1,1,"%D",1,0)
This cross reference will update the CELLULAR NUMBER CHANGE DT/TM field
"^DD",2,2,.134,1,1,"%D",2,0)
with current date and time stamp each time this field is changed.
"^DD",2,2,.134,1,1,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.134,1,1,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.134,1,1,"FIELD")
#.139
"^DD",2,2,.134,3)
Answer must be 4-20 characters in length, be numeric with only spaces, parenthes
is, periods, and dashes for separators.
"^DD",2,2,.134,21,0)
^^2^2^3050111^
"^DD",2,2,.134,21,1,0)
Enter the telephone number [4-20 characters] to the applicant's
"^DD",2,2,.134,21,2,0)
mobile phone.
"^DD",2,2,.134,"DT")
3090410
"^DD",2,2,.135,0)
PAGER NUMBER^FX^^.13;5^K:$L(X)>20!($L(X)<4) X I $D(X) N CTR,CHR,VAR S VAR=X F CT
R=1:1:20 S CHR=$E(VAR,CTR) K:("1234567890 -()."'[CHR) X
"^DD",2,2,.135,.1)
Pager #
"^DD",2,2,.135,1,0)
^.1
"^DD",2,2,.135,1,1,0)
^^TRIGGER^2^.1312
"^DD",2,2,.135,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV
=X S $P(^(.13),U,12)=DIV,DIH=2,DIG=.1312 D ^DICR
"^DD",2,2,.135,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV
=X S $P(^(.13),U,12)=DIV,DIH=2,DIG=.1312 D ^DICR
"^DD",2,2,.135,1,1,"%D",0)
^.101^2^2^3060411^^
"^DD",2,2,.135,1,1,"%D",1,0)
This cross reference will update the PAGER NUMBER CHANGE DT/TM field with
"^DD",2,2,.135,1,1,"%D",2,0)
current date and time stamp each time this field is changed.
"^DD",2,2,.135,1,1,"CREATE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.135,1,1,"DELETE VALUE")
S X=$$NOW^XLFDT()
"^DD",2,2,.135,1,1,"FIELD")
#.1312
"^DD",2,2,.135,3)
Answer must be 4-20 characters in length, be numeric with only spaces, parenthes
is, periods, and dashes for separators.
"^DD",2,2,.135,21,0)
^^1^1^3050111^
"^DD",2,2,.135,21,1,0)
Enter the applicant's pager number [4-20 characters].
"^DD",2,2,.135,23,0)
^.001^1^1^3050111^^^
"^DD",2,2,.135,23,1,0)
Contains between 4 and 20 Free Text characters.
"^DD",2,2,.135,"DT")
3090410
"^DD",2,2,.136,0)
EMAIL ADDRESS CHANGE DT/TM^D^^.13;6^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.136,1,0)
^.1
"^DD",2,2,.136,1,1,0)
^^TRIGGER^2^.137
"^DD",2,2,.136,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,7),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(
^(.13),U,7)=DIV,DIH=2,DIG=.137 D ^DICR
"^DD",2,2,.136,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,7),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(
^(.13),U,7)=DIV,DIH=2,DIG=.137 D ^DICR
"^DD",2,2,.136,1,1,"%D",0)
^^2^2^3060411^
"^DD",2,2,.136,1,1,"%D",1,0)
This cross reference will update the EMAIL ADDRESS CHANGE SOURCE field 
"^DD",2,2,.136,1,1,"%D",2,0)
(#.137).
"^DD",2,2,.136,1,1,"CREATE VALUE")
S X="VAMC"
"^DD",2,2,.136,1,1,"DELETE VALUE")
S X="VAMC"
"^DD",2,2,.136,1,1,"FIELD")
#.137
"^DD",2,2,.136,5,1,0)
2^.133^1
"^DD",2,2,.136,21,0)
^^2^2^3060410^
"^DD",2,2,.136,21,1,0)
This field will contain the date and time of the last
"^DD",2,2,.136,21,2,0)
EMAIL address update.
"^DD",2,2,.136,"DT")
3060410
"^DD",2,2,.137,0)
EMAIL ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;7^Q
"^DD",2,2,.137,1,0)
^.1
"^DD",2,2,.137,1,1,0)
^^TRIGGER^2^.138
"^DD",2,2,.137,1,1,1)
X ^DD(2,.137,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P
(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC
(4,"D",X,"")) X ^DD(2,.137,1,1,1.4)
"^DD",2,2,.137,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.137,0)),U,3) S
 X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
"^DD",2,2,.137,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR
"^DD",2,2,.137,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.137,0)),U,3) S
 X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.1
3)):^(.13),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(2,.137,1,1,2.4)
"^DD",2,2,.137,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR
"^DD",2,2,.137,1,1,"%D",0)
^^5^5^3130522^
"^DD",2,2,.137,1,1,"%D",1,0)
This cross-reference will trigger the population of the EMAIL ADDRESS 
"^DD",2,2,.137,1,1,"%D",2,0)
CHANGE SITE field with the appropriate station number if the EMAIL ADDRESS 
"^DD",2,2,.137,1,1,"%D",3,0)
CHANGE SOURCE equals "VAMC". The EMAIL ADDRESS CHANGE SITE field should be 
"^DD",2,2,.137,1,1,"%D",4,0)
overwritten for cases where the site would be incorrect (i.e. uploading 
"^DD",2,2,.137,1,1,"%D",5,0)
Z05 message).
"^DD",2,2,.137,1,1,"CREATE CONDITION")
EMAIL ADDRESS CHANGE SOURCE="VAMC"
"^DD",2,2,.137,1,1,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.137,1,1,"DELETE CONDITION")
OLD EMAIL ADDRESS CHANGE SOURC="VAMC"
"^DD",2,2,.137,1,1,"DELETE VALUE")
@
"^DD",2,2,.137,1,1,"DT")
3130522
"^DD",2,2,.137,1,1,"FIELD")
EMAIL ADDRESS CHANGE SITE
"^DD",2,2,.137,3)
Please enter the source of the EMAIL address change.
"^DD",2,2,.137,5,1,0)
2^.136^1
"^DD",2,2,.137,21,0)
^^1^1^3060410^
"^DD",2,2,.137,21,1,0)
This field will hold the source of the last EMAIL address change.
"^DD",2,2,.137,"DT")
3130522
"^DD",2,2,.138,0)
EMAIL ADDRESS CHANGE SITE^P4'^DIC(4,^.13;8^Q
"^DD",2,2,.138,3)
Please enter the site that last changed this patient's EMAIL address.
"^DD",2,2,.138,5,1,0)
2^.137^1
"^DD",2,2,.138,21,0)
^^3^3^3060410^
"^DD",2,2,.138,21,1,0)
This field will hold the site that last changed this
"^DD",2,2,.138,21,2,0)
patient's EMAIL address.  This field is only populated
"^DD",2,2,.138,21,3,0)
when the EMAIL Address Source is listed as VAMC.
"^DD",2,2,.138,"DT")
3060410
"^DD",2,2,.139,0)
CELLULAR NUMBER CHANGE DT/TM^D^^.13;9^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.139,1,0)
^.1
"^DD",2,2,.139,1,1,0)
^^TRIGGER^2^.1311
"^DD",2,2,.139,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,10),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P
(^(.13),U,10)=DIV,DIH=2,DIG=.1311 D ^DICR
"^DD",2,2,.139,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1
),U,10),X=X S DIU=X K Y S X=DIV S X="VAMC" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P
(^(.13),U,10)=DIV,DIH=2,DIG=.1311 D ^DICR
"^DD",2,2,.139,1,1,"CREATE VALUE")
S X="VAMC"
"^DD",2,2,.139,1,1,"DELETE VALUE")
S X="VAMC"
"^DD",2,2,.139,1,1,"FIELD")
#.1311
"^DD",2,2,.139,5,1,0)
2^.134^1
"^DD",2,2,.139,21,0)
^^2^2^3060410^
"^DD",2,2,.139,21,1,0)
This field will contain the date and time of the last
"^DD",2,2,.139,21,2,0)
Cellular number update.
"^DD",2,2,.139,"DT")
3060410
"^DD",2,2,.14,0)
CURRENT MEANS TEST STATUS^P408.32'I^DG(408.32,^0;14^Q
"^DD",2,2,.14,1,0)
^.1^^-1
"^DD",2,2,.14,1,1,0)
2^ACS
"^DD",2,2,.14,1,1,1)
S ^DPT("ACS",$E(X,1,30),DA)=""
"^DD",2,2,.14,1,1,2)
K ^DPT("ACS",$E(X,1,30),DA)
"^DD",2,2,.14,1,1,"DT")
2911127
"^DD",2,2,.14,3)
This field is computed by the system.  It contains the current means test status
 for a patient.
"^DD",2,2,.14,21,0)
^^2^2^2931015^^
"^DD",2,2,.14,21,1,0)
This field is computed by the system.  It contains the current
"^DD",2,2,.14,21,2,0)
means test status for a patient.
"^DD",2,2,.14,23,0)
^^4^4^2931015^^
"^DD",2,2,.14,23,1,0)
This field is computed by the system.  It is updated by a mumps
"^DD",2,2,.14,23,2,0)
cross-reference on the 'STATUS' field (#.03) in the Annual Means
"^DD",2,2,.14,23,3,0)
Test file (#408.31).  The current means test status is based on
"^DD",2,2,.14,23,4,0)
the status of the last means test on file for the patient.
"^DD",2,2,.14,"DT")
3060624
"^DD",2,2,.141,0)
CONFIDENTIAL ADDRESS CATEGORY^2.141S^^.14;0
"^DD",2,2,.141,21,0)
^.001^2^2^3030313^^^^
"^DD",2,2,.141,21,1,0)
This is a multiple valued field containing the confidential address
"^DD",2,2,.141,21,2,0)
categories for this applicant.  
"^DD",2,2,.14105,0)
CONFIDENTIAL ADDRESS ACTIVE?^RSX^Y:YES;N:NO;^.141;9^S DFN=DA I X="N" D CADD^DGLO
CK3
"^DD",2,2,.14105,1,0)
^.1
"^DD",2,2,.14105,1,1,0)
2^AXR31^MUMPS
"^DD",2,2,.14105,1,1,1)
Q
"^DD",2,2,.14105,1,1,2)
S DGXRF=.14105 D ^DGDDC Q
"^DD",2,2,.14105,1,1,"DT")
3030113
"^DD",2,2,.14105,1,2,0)
2^AENR4105^MUMPS
"^DD",2,2,.14105,1,2,1)
I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
"^DD",2,2,.14105,1,2,2)
I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
"^DD",2,2,.14105,1,2,"%D",0)
^.101^4^4^3060828^^
"^DD",2,2,.14105,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.14105,1,2,"%D",2,0)
enrollment.  It is necessary to have this trigger in addition to the
"^DD",2,2,.14105,1,2,"%D",3,0)
triggers on CONFIDENTIAL ADDRESS CATEGORY and CONFIDENTIAL ADDRESS CHANGE
"^DD",2,2,.14105,1,2,"%D",4,0)
DT/TM because of the order in which the fields are input.
"^DD",2,2,.14105,1,2,"DT")
3060518
"^DD",2,2,.14105,3)
Enter 'Y' if you want to enter or edit confidential address data.
"^DD",2,2,.14105,21,0)
^.001^4^4^3030314^^^
"^DD",2,2,.14105,21,1,0)
Enter 'Y' if you wish to enter a confidential address for this applicant
"^DD",2,2,.14105,21,2,0)
at this time.  A 'NO' response will cause the Confidential Start Date 
"^DD",2,2,.14105,21,3,0)
and Confidential End Date fields to be automatically deleted while other
"^DD",2,2,.14105,21,4,0)
confidential address information will remain on file for future use.
"^DD",2,2,.14105,"DT")
3060829
"^DD",2,2,.1411,0)
CONFIDENTIAL STREET [LINE 1]^FX^^.141;1^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA 
D CAD^DGLOCK3
"^DD",2,2,.1411,1,0)
^.1^^-1
"^DD",2,2,.1411,1,1,0)
2^AXR32^MUMPS
"^DD",2,2,.1411,1,1,1)
Q
"^DD",2,2,.1411,1,1,2)
S DGXRF=.1411 D ^DGDDC Q
"^DD",2,2,.1411,1,1,"DT")
3030113
"^DD",2,2,.1411,3)
Enter the first line of the applicant's confidential street address [2-30 charac
ters].
"^DD",2,2,.1411,21,0)
^^4^4^3030311^
"^DD",2,2,.1411,21,1,0)
If the 'Confidential Address Active' prompt is answered YES, the
"^DD",2,2,.1411,21,2,0)
user will be prompted for the first line of the confidential street
"^DD",2,2,.1411,21,3,0)
address.  This field cannot be deleted as long as the need for a
"^DD",2,2,.1411,21,4,0)
confidential address is indicated.
"^DD",2,2,.1411,"DEL",1,0)
S DFN=DA D CADD1^DGLOCK3 I '$D(X)
"^DD",2,2,.1411,"DT")
3060829
"^DD",2,2,.14111,0)
CONFIDENTIAL ADDRESS COUNTY^NJ3,0OX^^.141;11^N Z0,DIC S Z0=+$P($G(^DPT(D0,.141))
,"^",5) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0))  S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC 
S X=+Y K:Y'>0 X
"^DD",2,2,.14111,1,0)
^.1^^0
"^DD",2,2,.14111,1,1,0)
2^AENR14111^MUMPS
"^DD",2,2,.14111,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.14111,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.14111,1,1,3)
 DO NOT DELETE
"^DD",2,2,.14111,1,1,"%D",0)
^.101^2^2^3050608^^^^
"^DD",2,2,.14111,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.14111,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.14111,1,1,"DT")
3050608
"^DD",2,2,.14111,2)
S Y(0)=Y S Y(0)=Y Q:Y']""  N Z0 S Z0=$P($G(^DPT(D0,.141)),"^",5) Q:'Z0  S Y=$P($
G(^DIC(5,Z0,1,Y,0)),"^",3)
"^DD",2,2,.14111,2.1)
S Y(0)=Y Q:Y']""  N Z0 S Z0=$P($G(^DPT(D0,.141)),"^",5) Q:'Z0  S Y=$P($G(^DIC(5,
Z0,1,Y,0)),"^",3)
"^DD",2,2,.14111,3)
Enter a valid county for the applicant's confidential address.
"^DD",2,2,.14111,4)
N Z0,DIC S X="?",Z0=+$P($G(^DPT(D0,.141)),"^",5) Q:'$D(^DIC(5,Z0,1,0))  S DIC="^
DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC
"^DD",2,2,.14111,21,0)
^.001^2^2^3030313^^
"^DD",2,2,.14111,21,1,0)
If the 'Confidential Address Active' prompt is answered YES,
"^DD",2,2,.14111,21,2,0)
enter the county for the applicant's confidential address.
"^DD",2,2,.14111,"DT")
3060829
"^DD",2,2,.14112,0)
CONFIDENTIAL ADDR CHANGE DT/TM^DX^^.141;12^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.14112,1,0)
^.1
"^DD",2,2,.14112,1,1,0)
2^AENR14112^MUMPS
"^DD",2,2,.14112,1,1,1)
I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
"^DD",2,2,.14112,1,1,2)
I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)
"^DD",2,2,.14112,1,1,3)
 DO NOT DELETE
"^DD",2,2,.14112,1,1,"%D",0)
^.101^2^2^3060828^^^^
"^DD",2,2,.14112,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.14112,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.14112,1,1,"DT")
3060501
"^DD",2,2,.14112,1,2,0)
^^TRIGGER^2^.14113
"^DD",2,2,.14112,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y
(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(
4,"D",X,"")) X ^DD(2,.14112,1,2,1.4)
"^DD",2,2,.14112,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,13)=DIV,DIH=2,DIG=.14113 D ^DIC
R
"^DD",2,2,.14112,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y
(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(
4,"D",X,"")) X ^DD(2,.14112,1,2,2.4)
"^DD",2,2,.14112,1,2,2.4)
S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,13)=DIV,DIH=2,DIG=.14113 D ^DIC
R
"^DD",2,2,.14112,1,2,"CREATE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.14112,1,2,"DELETE VALUE")
S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
"^DD",2,2,.14112,1,2,"DT")
3060501
"^DD",2,2,.14112,1,2,"FIELD")
#.14113
"^DD",2,2,.14112,9)
^
"^DD",2,2,.14112,21,0)
^^10^10^3100526^
"^DD",2,2,.14112,21,1,0)
This field will hold the date and time of the last Confidential Address
"^DD",2,2,.14112,21,2,0)
Update.
"^DD",2,2,.14112,21,3,0)
 
"^DD",2,2,.14112,21,4,0)
Any change to the following Confidential Address fields will trigger an
"^DD",2,2,.14112,21,5,0)
update: Confidential Street [Line 1], Confidential Street [Line 2],
"^DD",2,2,.14112,21,6,0)
Confidential Street [Line 3], Confidential Address City, Confidential
"^DD",2,2,.14112,21,7,0)
Address State, Confidential Address Zip Code, Confidential Start Date,
"^DD",2,2,.14112,21,8,0)
Confidential End Date, Confidential Address Active?, Confidential Address
"^DD",2,2,.14112,21,9,0)
County, Confidential Addr Province, Confidential Addr Postal Code,
"^DD",2,2,.14112,21,10,0)
Confidential Addr Country and Confidential Phone Number
"^DD",2,2,.14112,"DT")
3100526
"^DD",2,2,.14113,0)
CONFIDENTIAL ADDR CHANGE SITE^P4'^DIC(4,^.141;13^Q
"^DD",2,2,.14113,5,1,0)
2^.14112^2
"^DD",2,2,.14113,21,0)
^^2^2^3050519^
"^DD",2,2,.14113,21,1,0)
This field will hold the Site that last changed this patient's
"^DD",2,2,.14113,21,2,0)
confidential address.
"^DD",2,2,.14113,"DT")
3050519
"^DD",2,2,.14114,0)
CONFIDENTIAL ADDR PROVINCE^F^^.141;14^K:$L(X)>20!($L(X)<1) X
"^DD",2,2,.14114,1,0)
^.1^^0
"^DD",2,2,.14114,3)
Answer must be 1-20 characters in length.
"^DD",2,2,.14114,21,0)
^^4^4^3060405^
"^DD",2,2,.14114,21,1,0)
Enter a Province if the patient has provided one for his/her foreign
"^DD",2,2,.14114,21,2,0)
address.  
"^DD",2,2,.14114,21,3,0)
 
"^DD",2,2,.14114,21,4,0)
The entry can be alphanumeric and up to 20 characters in length.
"^DD",2,2,.14114,"DT")
3060517
"^DD",2,2,.14115,0)
CONFIDENTIAL ADDR POSTAL CODE^F^^.141;15^K:$L(X)>10!($L(X)<1) X
"^DD",2,2,.14115,1,0)
^.1^^0
"^DD",2,2,.14115,3)
Answer must be 1-10 characters in length.
"^DD",2,2,.14115,21,0)
^^4^4^3060405^
"^DD",2,2,.14115,21,1,0)
Enter with patient's postal code if the patient has provided one for
"^DD",2,2,.14115,21,2,0)
his/her foreign address.
"^DD",2,2,.14115,21,3,0)
 
"^DD",2,2,.14115,21,4,0)
The entry can be alphanumeric and up to 10 characters in length.
"^DD",2,2,.14115,"DT")
3060517
"^DD",2,2,.14116,0)
CONFIDENTIAL ADDR COUNTRY^P779.004'^HL(779.004,^.141;16^Q
"^DD",2,2,.14116,1,0)
^.1^^0
"^DD",2,2,.14116,3)
Enter the country where the patient's permanent address is located.
"^DD",2,2,.14116,21,0)
^^4^4^3060131^
"^DD",2,2,.14116,21,1,0)
Enter the country where the patient's confidential address is located.
"^DD",2,2,.14116,21,2,0)
 
"^DD",2,2,.14116,21,3,0)
If entering an Army/Air Force Post Office (APO) or a Fleet Post Office 
"^DD",2,2,.14116,21,4,0)
(FPO) address select United States as the country.
"^DD",2,2,.14116,"DT")
3060606
"^DD",2,2,.1412,0)
CONFIDENTIAL STREET [LINE 2]^FX^^.141;2^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA 
D CAD^DGLOCK3
"^DD",2,2,.1412,1,0)
^.1^^-1
"^DD",2,2,.1412,1,1,0)
2^AXR33^MUMPS
"^DD",2,2,.1412,1,1,1)
Q
"^DD",2,2,.1412,1,1,2)
S DGXRF=.1412 D ^DGDDC Q
"^DD",2,2,.1412,1,1,"DT")
3030113
"^DD",2,2,.1412,3)
If necessary, enter the second line of this applicant's confidential address [2-
30 characters].
"^DD",2,2,.1412,21,0)
^^4^4^3030311^
"^DD",2,2,.1412,21,1,0)
If the 'Confidential Address Active' prompt is answered YES,
"^DD",2,2,.1412,21,2,0)
the user will be prompted for the second line of the confidential 
"^DD",2,2,.1412,21,3,0)
street address [2-30 characters].  The second line of the street
"^DD",2,2,.1412,21,4,0)
address is optional and may be left blank.
"^DD",2,2,.1412,"DT")
3060829
"^DD",2,2,.1413,0)
CONFIDENTIAL STREET [LINE 3]^FX^^.141;3^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA 
D CAD^DGLOCK3
"^DD",2,2,.1413,1,0)
^.1^^0
"^DD",2,2,.1413,3)
If necessary, enter the third line of this applicant's confidential street addre
ss [2-30 characters]
"^DD",2,2,.1413,21,0)
^^4^4^3030312^
"^DD",2,2,.1413,21,1,0)
If the 'Confidential Address Active' prompt is answered YES,
"^DD",2,2,.1413,21,2,0)
the user will be prompted for the third line of the confidential        
"^DD",2,2,.1413,21,3,0)
street address.  The third line of the street address is optional
"^DD",2,2,.1413,21,4,0)
and may be left blank.
"^DD",2,2,.1413,"DT")
3060829
"^DD",2,2,.1414,0)
CONFIDENTIAL ADDRESS CITY^FX^^.141;4^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D C
AD^DGLOCK3
"^DD",2,2,.1414,1,0)
^.1^^0
"^DD",2,2,.1414,3)
Enter the city for the applicant's confidential address [2-30 characters].
"^DD",2,2,.1414,21,0)
^^4^4^3030311^
"^DD",2,2,.1414,21,1,0)
If the 'Confidential Address Active' prompt is answered YES, enter
"^DD",2,2,.1414,21,2,0)
the confidential address city for this applicant [2-30 characters].  
"^DD",2,2,.1414,21,3,0)
This field may not be deleted as long as the need for a confidential
"^DD",2,2,.1414,21,4,0)
address is indicated.
"^DD",2,2,.1414,"DEL",1,0)
S DFN=DA D CADD1^DGLOCK3 I '$D(X)
"^DD",2,2,.1414,"DT")
3060829
"^DD",2,2,.1415,0)
CONFIDENTIAL ADDRESS STATE^P5'X^DIC(5,^.141;5^S DFN=DA D CAD^DGLOCK3 Q
"^DD",2,2,.1415,1,0)
^.1^^0
"^DD",2,2,.1415,3)
Enter the State for the applicant's confidential address.
"^DD",2,2,.1415,21,0)
^^4^4^3030311^
"^DD",2,2,.1415,21,1,0)
If the 'Confidential Address Active' prompt is answered YES,
"^DD",2,2,.1415,21,2,0)
the user will be asked to select the confidential address state
"^DD",2,2,.1415,21,3,0)
from the available listing.  This field may not be deleted as 
"^DD",2,2,.1415,21,4,0)
long as the need for a confidential address is indicated.
"^DD",2,2,.1415,"DEL",1,0)
S DFN=DA D CADD1^DGLOCK3 I '$D(X)
"^DD",2,2,.1415,"DT")
3060829
"^DD",2,2,.1416,0)
CONFIDENTIAL ADDRESS ZIP CODE^FXO^^.141;6^K:$L(X)>20!($L(X)<5) X I $D(X) S DFN=D
A D CAD^DGLOCK3 I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.1416,1,0)
^.1^^0
"^DD",2,2,.1416,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.1416,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.1416,3)
Answer with either the 5 digit or 9 digit zip code.
"^DD",2,2,.1416,21,0)
^.001^4^4^3030314^^
"^DD",2,2,.1416,21,1,0)
If the 'Confidential Address Active' prompt is answered YES,
"^DD",2,2,.1416,21,2,0)
the user will be asked to enter the zip code assigned to the
"^DD",2,2,.1416,21,3,0)
city for the confidential address.  This field may not be deleted
"^DD",2,2,.1416,21,4,0)
as long as the need for a confidential address is indicated.
"^DD",2,2,.1416,"DEL",1,0)
S DFN=DA D CADD1^DGLOCK3 I '$D(X)
"^DD",2,2,.1416,"DT")
3060829
"^DD",2,2,.1417,0)
CONFIDENTIAL START DATE^DX^^.141;7^S %DT="EX",%DT(0)=DT D ^%DT S X=Y K:Y<1 X K %
DT(0) I $D(X) S DFN=DA D CAD^DGLOCK3
"^DD",2,2,.1417,1,0)
^.1^^0
"^DD",2,2,.1417,3)
Enter the date to begin contacting the applicant at the confidential address.  D
ate cannot be in the past.
"^DD",2,2,.1417,21,0)
^^3^3^3060829^
"^DD",2,2,.1417,21,1,0)
If the 'Confidential Address Active' prompt is answered YES, 
"^DD",2,2,.1417,21,2,0)
enter the date to begin contacting the applicant at the
"^DD",2,2,.1417,21,3,0)
confidential address.
"^DD",2,2,.1417,23,0)
^^10^10^3060829^
"^DD",2,2,.1417,23,1,0)
This field contains an input transform which does a number of things.  It 
"^DD",2,2,.1417,23,2,0)
validates the date entered, does not allow a date prior to the current 
"^DD",2,2,.1417,23,3,0)
date, and prevents changes to this field if the Confidential Address is 
"^DD",2,2,.1417,23,4,0)
flagged INACTIVE.
"^DD",2,2,.1417,23,5,0)
 
"^DD",2,2,.1417,23,6,0)
Special note: the input transform sets %DT(0)=DT to validate the date 
"^DD",2,2,.1417,23,7,0)
entered.  Because changes to this field will update the CONFIDENTIAL
"^DD",2,2,.1417,23,8,0)
ADDRESS CHANGE DT/TM field, it is necessary to kill %DT(0) after the
"^DD",2,2,.1417,23,9,0)
validation.  This variable, if valued, can prevent EVENT^IVMPLOG from
"^DD",2,2,.1417,23,10,0)
setting the transmit flag if only the Start and End dates are changed.
"^DD",2,2,.1417,"DEL",1,0)
S DFN=DA D CADD1^DGLOCK3 I '$D(X)
"^DD",2,2,.1417,"DT")
3070801
"^DD",2,2,.1418,0)
CONFIDENTIAL END DATE^DX^^.141;8^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=D
A D CAD^DGLOCK3 I $D(X),(X<$P(^DPT(DFN,.141),"^",7)) K X
"^DD",2,2,.1418,1,0)
^.1^^0
"^DD",2,2,.1418,3)
Enter the date the applicant will no longer be contacted at the confidential add
ress.  End date must be after start date.
"^DD",2,2,.1418,21,0)
^.001^2^2^3030314^^
"^DD",2,2,.1418,21,1,0)
If the 'Confidential Address Active' prompt is answered YES, enter 
"^DD",2,2,.1418,21,2,0)
the date the applicant will no longer be contacted at this address. 
"^DD",2,2,.1418,"DEL",1,0)
S DFN=DA D CADD1^DGLOCK3 I '$D(X)
"^DD",2,2,.1418,"DT")
3070801
"^DD",2,2,.152,0)
INELIGIBLE DATE^DX^^.15;2^S %DT="EP",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(
X) D EK^DGLOCK I $D(X) S DFN=DA D INEL^DGLOCK
"^DD",2,2,.152,.1)

"^DD",2,2,.152,1,0)
^.1
"^DD",2,2,.152,1,1,0)
^^TRIGGER^2^.091
"^DD",2,2,.152,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,
10),X=X S DIU=X K Y S X=DIV S X=DIU_"**INELIGIBLE**" S DIH=$G(^DPT(DIV(0),0)),DI
V=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR
"^DD",2,2,.152,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,
10),X=X S DIU=X K Y S X=DIV X ^DD(2,.152,1,1,59.2) S X=$P(Y(4),Y(5),Y(6),X) S Y=
X,X=Y(3),X=X_Y X ^DD(2,.152,1,1,2.4)
"^DD",2,2,.152,1,1,2.4)
S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR
"^DD",2,2,.152,1,1,59.2)
S X=DIU,Y(1)=$G(X) S X="**INELIGIBLE**",Y(2)=$G(X) S X=1,X=$P(Y(1),Y(2),X),Y(3)=
$G(X) S X=DIU,Y(4)=$G(X) S X="**INELIGIBLE**",Y(5)=$G(X) S X=2,Y(6)=$G(X) S X=99
"^DD",2,2,.152,1,1,"CREATE VALUE")
REMARKS_"**INELIGIBLE**"
"^DD",2,2,.152,1,1,"DELETE VALUE")
$P(REMARKS,"**INELIGIBLE**",1)_$P(REMARKS,"**INELIGIBLE**",2,99)
"^DD",2,2,.152,1,1,"DT")
3080310
"^DD",2,2,.152,1,1,"FIELD")
REMARKS
"^DD",2,2,.152,1,2,0)
2^AENR152^MUMPS
"^DD",2,2,.152,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.152,1,2,2)
D AUTOUPD^DGENA2(DA,2)
"^DD",2,2,.152,1,2,3)
DO NOT DELETE
"^DD",2,2,.152,1,2,"%D",0)
^^3^3^2981016^^^^
"^DD",2,2,.152,1,2,"%D",1,0)
 
"^DD",2,2,.152,1,2,"%D",2,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.152,1,2,"%D",3,0)
enrollment.
"^DD",2,2,.152,1,2,"DT")
2981016
"^DD",2,2,.152,1,3,0)
2^AXR7^MUMPS
"^DD",2,2,.152,1,3,1)
Q
"^DD",2,2,.152,1,3,2)
S DGXRF=.152 D ^DGDDC Q
"^DD",2,2,.152,3)
The Ineligible Date cannot be prior to the beneficiary Date of Birth.  Enter the
 date this patient was identified as being ineligible for treatment.
"^DD",2,2,.152,20,0)
^.3LA^1^1
"^DD",2,2,.152,20,1,0)
IPT
"^DD",2,2,.152,21,0)
^.001^4^4^3070522^^
"^DD",2,2,.152,21,1,0)
If this applicant is ineligible for treatment enter the effective date.
"^DD",2,2,.152,21,2,0)
Only users who hold the designated security key may enter/edit this
"^DD",2,2,.152,21,3,0)
field.  The Ineligible Date cannot be prior to the beneficiary Date of 
"^DD",2,2,.152,21,4,0)
Birth.
"^DD",2,2,.152,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.152,"DT")
3080310
"^DD",2,2,.153,0)
MISSING PERSON DATE^DX^^.15;3^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X
"^DD",2,2,.153,.1)
DATE REPORTED AS MISSING PERSON
"^DD",2,2,.153,1,0)
^.1
"^DD",2,2,.153,1,1,0)
2^AXR8^MUMPS
"^DD",2,2,.153,1,1,1)
Q
"^DD",2,2,.153,1,1,2)
S DGXRF=.153 D ^DGDDC Q
"^DD",2,2,.153,3)
Enter the date this patient was identified as being a missing person.
"^DD",2,2,.153,20,0)
^.3LA^1^1
"^DD",2,2,.153,20,1,0)
MPT
"^DD",2,2,.153,21,0)
^^1^1^2911224^^
"^DD",2,2,.153,21,1,0)
This field contains the date this patient was initially listed as missing.
"^DD",2,2,.153,"DT")
2900418
"^DD",2,2,.16,0)
MISSING OR INELIGIBLE^2.16A^^.16;0
"^DD",2,2,.16,20,0)
^.3LA^3^2
"^DD",2,2,.16,20,2,0)
IPT
"^DD",2,2,.16,20,3,0)
MPT
"^DD",2,2,.16,21,0)
^^2^2^2911224^^
"^DD",2,2,.16,21,1,0)
This is a word processing field to contain information on the patient's
"^DD",2,2,.16,21,2,0)
ineligibility or information about this missing patient.
"^DD",2,2,.1651,0)
INELIGIBLE TWX SOURCE^RSX^1:VAMC;2:REGIONAL OFFICE;3:RPC;^INE;1^S DFN=DA D INE^D
GLOCK
"^DD",2,2,.1651,.1)
TWX SOURCE-INELIGIBLE
"^DD",2,2,.1651,3)
The source of the TWX which informed you this patient is ineligible for treatmen
t.
"^DD",2,2,.1651,20,0)
^.3LA^1^1
"^DD",2,2,.1651,20,1,0)
IPT
"^DD",2,2,.1651,21,0)
^^5^5^2861007^^^
"^DD",2,2,.1651,21,1,0)
Choose from the available listing the source of the TWX which
"^DD",2,2,.1651,21,2,0)
informed you that this applicant was ineligible for treatment.
"^DD",2,2,.1651,21,3,0)
An ineligible date must be specified in order to enter/edit this
"^DD",2,2,.1651,21,4,0)
field and the user must hold the designated security key.  This
"^DD",2,2,.1651,21,5,0)
field may not be deleted as long as an ineligible date is on file.
"^DD",2,2,.1651,"DEL",1,0)
S DFN=DA D INED^DGLOCK1 I '$D(X)
"^DD",2,2,.1651,"DT")
2860806
"^DD",2,2,.1653,0)
INELIGIBLE TWX CITY^FX^^INE;3^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D INE^DGLO
CK
"^DD",2,2,.1653,.1)
TWX CITY-INELIGIBLE
"^DD",2,2,.1653,3)
The city from which the TWX informing you of this patients ineligibility origina
ted [3-30 characters].
"^DD",2,2,.1653,20,0)
^.3LA^1^1
"^DD",2,2,.1653,20,1,0)
IPT
"^DD",2,2,.1653,21,0)
^^5^5^2861117^^^
"^DD",2,2,.1653,21,1,0)
Enter the city from which the TWX which informed you this applicant
"^DD",2,2,.1653,21,2,0)
was ineligible for treatment originated [3-30 characters].  An ineligible
"^DD",2,2,.1653,21,3,0)
date must be specified in order to enter/edit this field and the user
"^DD",2,2,.1653,21,4,0)
must hold the designated security key.  This field may not be deleted
"^DD",2,2,.1653,21,5,0)
as long as an ineligible date is on file.
"^DD",2,2,.1653,"DEL",1,0)
S DFN=DA D INED^DGLOCK1 I '$D(X)
"^DD",2,2,.1653,"DT")
2860806
"^DD",2,2,.1654,0)
INELIGIBLE TWX STATE^P5'X^DIC(5,^INE;4^S DFN=DA D INE^DGLOCK
"^DD",2,2,.1654,.1)
TWX STATE-INELIGIBLE
"^DD",2,2,.1654,3)
The state from which the TWX informing you of this patients ineligiblity origina
ted.
"^DD",2,2,.1654,20,0)
^.3LA^1^1
"^DD",2,2,.1654,20,1,0)
IPT
"^DD",2,2,.1654,21,0)
^^5^5^2861006^
"^DD",2,2,.1654,21,1,0)
Enter the state from which the TWX which informed you this applicant
"^DD",2,2,.1654,21,2,0)
was ineligible for treatment originated.  An ineligible date must be
"^DD",2,2,.1654,21,3,0)
specified in order to enter/edit this field and the user must hold
"^DD",2,2,.1654,21,4,0)
the designated security key.  This field may not be deleted as long
"^DD",2,2,.1654,21,5,0)
as an ineligible date is on file.
"^DD",2,2,.1654,"DEL",1,0)
S DFN=DA D INED^DGLOCK1 I '$D(X)
"^DD",2,2,.1654,"DT")
2860806
"^DD",2,2,.1656,0)
INELIGIBLE VARO DECISION^FX^^INE;6^K:$L(X)>75!($L(X)<3) X I $D(X) S DFN=DA D INE
^DGLOCK
"^DD",2,2,.1656,.1)
VARO DECISION-INELIGIBLE
"^DD",2,2,.1656,1,0)
^.1
"^DD",2,2,.1656,1,1,0)
2^AENR1656^MUMPS
"^DD",2,2,.1656,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.1656,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.1656,1,1,3)
 DO NOT DELETE
"^DD",2,2,.1656,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.1656,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.1656,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.1656,1,1,"DT")
3050606
"^DD",2,2,.1656,3)
The decision made by the VARO concerning this patient's ineligibility [3-75 char
acters].
"^DD",2,2,.1656,20,0)
^.3LA^1^1
"^DD",2,2,.1656,20,1,0)
IPT
"^DD",2,2,.1656,21,0)
^^5^5^2861006^
"^DD",2,2,.1656,21,1,0)
Enter the VARO decision concerning this applicant's ineligibility
"^DD",2,2,.1656,21,2,0)
[between 3-75 characters].  An ineligible date must be specified in
"^DD",2,2,.1656,21,3,0)
order to enter/edit this field and the user must hold the designated
"^DD",2,2,.1656,21,4,0)
security key.  This field may not be deleted as long as an ineligible
"^DD",2,2,.1656,21,5,0)
date is on file.
"^DD",2,2,.1656,"DEL",1,0)
S DFN=DA D INED^DGLOCK1 I '$D(X)
"^DD",2,2,.1656,"DT")
2860806
"^DD",2,2,.1657,0)
MISSING PERSON TWX SOURCE^S^1:VAMC;2:REGIONAL OFFICE;3:RPC;^INE;7^Q
"^DD",2,2,.1657,.1)
TWX SOURCE-MISSING PERSON
"^DD",2,2,.1657,3)
The location from which the TWX originated advising you that this patient was mi
ssing.
"^DD",2,2,.1657,20,0)
^.3LA^1^1
"^DD",2,2,.1657,20,1,0)
MPT
"^DD",2,2,.1657,21,0)
^^2^2^2911224^
"^DD",2,2,.1657,21,1,0)
If this patient is missing, enter the source of the TWX that originally
"^DD",2,2,.1657,21,2,0)
listed the patient as missing.
"^DD",2,2,.1657,"DT")
2880527
"^DD",2,2,.1658,0)
MISSING PERSON TWX CITY^F^^INE;8^K:$L(X)>30!($L(X)<3) X
"^DD",2,2,.1658,.1)
TWX CITY-MISSING PERSON
"^DD",2,2,.1658,3)
ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
"^DD",2,2,.1658,20,0)
^.3LA^1^1
"^DD",2,2,.1658,20,1,0)
MPT
"^DD",2,2,.1658,21,0)
^^2^2^2911224^
"^DD",2,2,.1658,21,1,0)
If this patient is missing, enter the city where the TWX reporting the
"^DD",2,2,.1658,21,2,0)
patient as missing was originated.
"^DD",2,2,.1658,"DT")
2880527
"^DD",2,2,.1659,0)
MISSING PERSON TWX STATE^P5'^DIC(5,^INE;9^Q
"^DD",2,2,.1659,.1)
TWX STATE-MISSING PERSON
"^DD",2,2,.1659,3)
The state from which the TWX informing you this patient was missing originated.
"^DD",2,2,.1659,20,0)
^.3LA^1^1
"^DD",2,2,.1659,20,1,0)
MPT
"^DD",2,2,.1659,21,0)
^^2^2^2911224^
"^DD",2,2,.1659,21,1,0)
If this patient is missing, enter the state where the TWX reporting the
"^DD",2,2,.1659,21,2,0)
patient as missing was originated.
"^DD",2,2,.1659,"DT")
2880527
"^DD",2,2,.172,0)
FEE HOSPITAL I.D.^S^I:ISSUED;C:CANCELLED;^.17;2^Q
"^DD",2,2,.172,.1)
FEE HOSPITAL I.D.
"^DD",2,2,.172,21,0)
^^3^3^2911216^
"^DD",2,2,.172,21,1,0)
This field is not used by any DHCP packages and has been *'d for deletion
"^DD",2,2,.172,21,2,0)
with the release of MAS v5.2.  It will be removed in a future release of
"^DD",2,2,.172,21,3,0)
MAS.
"^DD",2,2,.172,"DT")
2930326
"^DD",2,2,.181,0)
EMERGENCY RESPONSE INDICATOR^S^K:HURRICANE KATRINA;^.18;1^Q
"^DD",2,2,.181,1,0)
^.1
"^DD",2,2,.181,1,1,0)
2^AERI
"^DD",2,2,.181,1,1,1)
S ^DPT("AERI",$E(X,1,30),DA)=""
"^DD",2,2,.181,1,1,2)
K ^DPT("AERI",$E(X,1,30),DA)
"^DD",2,2,.181,1,1,"DT")
3050915
"^DD",2,2,.181,1,2,0)
2^AENR181^MUMPS
"^DD",2,2,.181,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.181,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.181,1,2,"%D",0)
^^2^2^3050921^
"^DD",2,2,.181,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that
"^DD",2,2,.181,1,2,"%D",2,0)
may affect enrollment.
"^DD",2,2,.181,1,2,"DT")
3050921
"^DD",2,2,.181,3)
Enter the appropriate ER Indicator to identify patients from impacted zip code a
reas designated by FEMA.
"^DD",2,2,.181,21,0)
^^2^2^3050922^
"^DD",2,2,.181,21,1,0)
Enter the appropriate ER Indicator to identify patients from impacted
"^DD",2,2,.181,21,2,0)
zip code areas designated by FEMA.
"^DD",2,2,.181,"DT")
3050922
"^DD",2,2,.19,0)
DIVISION^CJ20^^ ; ^X ^DD(2,.19,9.2) S Y(2,.19,101)=$S($D(^DIC(42,D0,0)):^(0),1:"
") S X=$S('$D(^DG(40.8,+$P(Y(2,.19,101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
"^DD",2,2,.19,.1)

"^DD",2,2,.19,3)
A computed field which determines the current division to which this inpatient i
s assigned.
"^DD",2,2,.19,9)
^
"^DD",2,2,.19,9.01)
42^.015;2^.1
"^DD",2,2,.19,9.1)
WARD LOCATION:WARD LOCATION:DIVISION
"^DD",2,2,.19,9.2)
S I(0,0)=$S($D(D0):D0,1:""),Y(2,.19,1)=$S($D(^DPT(D0,.1)):^(.1),1:"") S X=$E(Y(2
,.19,1),1,19) K DIC S DIC="^DIC(42,",DIC(0)="NMF" D ^DIC S D0=+Y
"^DD",2,2,.19,21,0)
^^1^1^2850726^
"^DD",2,2,.19,21,1,0)
Division of inpatient location
"^DD",2,2,.21011,0)
K-WORK PHONE NUMBER^F^^.21;11^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.21011,3)
Enter the next of kin's work phone number.  Answer must be 4-20 characters in le
ngth.
"^DD",2,2,.21011,21,0)
^^2^2^2920113^
"^DD",2,2,.21011,21,1,0)
If the person designated as next of kin for this patient is employed,
"^DD",2,2,.21011,21,2,0)
enter the phone number at which the NOK can be reached while at work.
"^DD",2,2,.21011,"DT")
3100528
"^DD",2,2,.21012,0)
PRIMARY NOK CHANGE DATE/TIME^DX^^.212;1^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.21012,1,0)
^.1
"^DD",2,2,.21012,1,1,0)
2^AENR21012^MUMPS
"^DD",2,2,.21012,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.21012,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.21012,1,1,3)
 DO NOT DELETE
"^DD",2,2,.21012,1,1,"%D",0)
^.101^2^2^3050616^^^^
"^DD",2,2,.21012,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.21012,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.21012,1,1,"DT")
3050616
"^DD",2,2,.21012,21,0)
^^2^2^3050519^
"^DD",2,2,.21012,21,1,0)
This field will hold the date and time of the last Primary Next of Kin
"^DD",2,2,.21012,21,2,0)
Update.
"^DD",2,2,.21012,"DT")
3050616
"^DD",2,2,.211,0)
K-NAME OF PRIMARY NOK^Fa^^.21;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,D
G20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
"^DD",2,2,.211,.1)
NEXT OF KIN
"^DD",2,2,.211,1,0)
^.1
"^DD",2,2,.211,1,1,0)
2^AXR^MUMPS
"^DD",2,2,.211,1,1,1)
Q
"^DD",2,2,.211,1,1,2)
S DGXRF=.211 D ^DGDDC Q
"^DD",2,2,.211,1,991,0)
2^AVAFC211^MUMPS
"^DD",2,2,.211,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".211;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.211,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".211;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.211,1,991,"%D",0)
^^15^15^2990204^^^
"^DD",2,2,.211,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.211,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.211,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.211,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.211,1,991,"%D",5,0)
 
"^DD",2,2,.211,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.211,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.211,1,991,"%D",8,0)
process.
"^DD",2,2,.211,1,991,"%D",9,0)
 
"^DD",2,2,.211,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.211,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.211,1,991,"%D",12,0)
  
"^DD",2,2,.211,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.211,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.211,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.211,1,991,"DT")
2970825
"^DD",2,2,.211,1,992,0)
2^ADGRU211^MUMPS
"^DD",2,2,.211,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.211,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.211,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.211,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.211,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.211,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.211,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.211,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.211,1,992,"%D",6,0)
interface.
"^DD",2,2,.211,1,992,"%D",7,0)
 
"^DD",2,2,.211,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.211,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.211,1,992,"DT")
2990920
"^DD",2,2,.211,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.211,20,0)
^.3LA^1^1
"^DD",2,2,.211,20,1,0)
NK1
"^DD",2,2,.211,21,0)
^^4^4^2861007^
"^DD",2,2,.211,21,1,0)
Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.211,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.211,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.211,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.211,"AUDIT")
y
"^DD",2,2,.211,"DT")
3050630
"^DD",2,2,.211011,0)
K2-WORK PHONE NUMBER^F^^.211;11^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.211011,3)
Enter the work phone for the secondary next of kin.  Answer must be 4-20 charact
ers in length.
"^DD",2,2,.211011,21,0)
^^3^3^2920113^
"^DD",2,2,.211011,21,1,0)
If the person designated as secondary next of kin for this patient is
"^DD",2,2,.211011,21,2,0)
employed, enter the phone number that individual can be reached at while
"^DD",2,2,.211011,21,3,0)
at work.
"^DD",2,2,.211011,"DT")
3100528
"^DD",2,2,.211012,0)
SECONDARY NOK CHANGE DATE/TIME^DX^^.212;2^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.211012,1,0)
^.1
"^DD",2,2,.211012,1,1,0)
2^AENR211012^MUMPS
"^DD",2,2,.211012,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.211012,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.211012,1,1,3)
 DO NOT DELETE
"^DD",2,2,.211012,1,1,"%D",0)
^^2^2^3100525^
"^DD",2,2,.211012,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that
"^DD",2,2,.211012,1,1,"%D",2,0)
may affect enrollment.
"^DD",2,2,.211012,1,1,"DT")
3100525
"^DD",2,2,.211012,21,0)
^^8^8^3100526^
"^DD",2,2,.211012,21,1,0)
This field will hold the date and time of the last Secondary Next of Kin
"^DD",2,2,.211012,21,2,0)
Update.
"^DD",2,2,.211012,21,3,0)
 
"^DD",2,2,.211012,21,4,0)
Any change to the following Secondary Next of Kin fields will trigger an
"^DD",2,2,.211012,21,5,0)
update: K2-Name Of Secondary NOK, K2-Relationship To Patient, K2-Street
"^DD",2,2,.211012,21,6,0)
Address [Line 1], K2-Street Address [Line 2], K2-Street Address [Line 3],
"^DD",2,2,.211012,21,7,0)
K2-City, K2-State, K2-Zip Code, K2-Phone Number, K2-Address Same As
"^DD",2,2,.211012,21,8,0)
Patient's? and K2-Work Phone Number
"^DD",2,2,.211012,"DT")
3100526
"^DD",2,2,.212,0)
K-RELATIONSHIP TO PATIENT^FX^^.21;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D K1
^DGLOCK2
"^DD",2,2,.212,.1)

"^DD",2,2,.212,1,0)
^.1
"^DD",2,2,.212,1,992,0)
2^ADGRU212^MUMPS
"^DD",2,2,.212,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.212,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.212,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.212,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.212,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.212,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.212,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.212,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.212,1,992,"%D",6,0)
interface.
"^DD",2,2,.212,1,992,"%D",7,0)
 
"^DD",2,2,.212,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.212,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.212,1,992,"DT")
2990920
"^DD",2,2,.212,3)
Enter the relationship of the primary NOK to the patient [1-30 characters].
"^DD",2,2,.212,20,0)
^.3LA^1^1
"^DD",2,2,.212,20,1,0)
NK1
"^DD",2,2,.212,21,0)
^^4^4^2861007^
"^DD",2,2,.212,21,1,0)
If a primary next-of-kin is specified enter the relationship of
"^DD",2,2,.212,21,2,0)
that person to the applicant [1-30 characters], otherwise nothing
"^DD",2,2,.212,21,3,0)
may be entered.  This field cannot be deleted as long as a
"^DD",2,2,.212,21,4,0)
'next of kin' name is on file.
"^DD",2,2,.212,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.212,"DT")
2990920
"^DD",2,2,.2125,0)
K-ADDRESS SAME AS PATIENT'S?^RSX^Y:YES;N:NO;^.21;10^I $D(X),X="Y" S DFN=DA D K1^
DGLOCK2
"^DD",2,2,.2125,.1)
IS NOK ADDRESS SAME AS PATIENT'S
"^DD",2,2,.2125,3)
Enter 'Y' if primary NOK address/phone number same as patients otherwise enter '
N'.
"^DD",2,2,.2125,20,0)
^.3LA^1^1
"^DD",2,2,.2125,20,1,0)
NK1
"^DD",2,2,.2125,21,0)
^^2^2^2861007^
"^DD",2,2,.2125,21,1,0)
Enter 'Y' if the next-of-kin should be contacted at the same address
"^DD",2,2,.2125,21,2,0)
and phone number as the applicant, otherwise enter 'N'.
"^DD",2,2,.2125,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.2125,"DT")
2861002
"^DD",2,2,.213,0)
K-STREET ADDRESS [LINE 1]^FX^^.21;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
"^DD",2,2,.213,.1)

"^DD",2,2,.213,1,0)
^.1
"^DD",2,2,.213,1,1,0)
2^AXR14^MUMPS
"^DD",2,2,.213,1,1,1)
Q
"^DD",2,2,.213,1,1,2)
S DGXRF=.213 D ^DGDDC Q
"^DD",2,2,.213,1,992,0)
2^ADGRU213^MUMPS
"^DD",2,2,.213,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.213,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.213,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.213,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.213,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.213,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.213,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.213,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.213,1,992,"%D",6,0)
interface.
"^DD",2,2,.213,1,992,"%D",7,0)
 
"^DD",2,2,.213,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.213,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.213,1,992,"DT")
2990920
"^DD",2,2,.213,3)
Enter the first line of the primary NOK's address [3-30 characters].
"^DD",2,2,.213,20,0)
^.3LA^1^1
"^DD",2,2,.213,20,1,0)
NK1
"^DD",2,2,.213,21,0)
^^4^4^2941129^^^
"^DD",2,2,.213,21,1,0)
If a primary next-of-kin is specified enter the first line of
"^DD",2,2,.213,21,2,0)
that person's street address [3-30 characters], otherwise nothing
"^DD",2,2,.213,21,3,0)
may be entered.  This field cannot be deleted as long as a
"^DD",2,2,.213,21,4,0)
'next of kin' name is on file.
"^DD",2,2,.213,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.213,"DT")
2990920
"^DD",2,2,.214,0)
K-STREET ADDRESS [LINE 2]^FX^^.21;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
"^DD",2,2,.214,.1)

"^DD",2,2,.214,1,0)
^.1
"^DD",2,2,.214,1,1,0)
2^AXR15^MUMPS
"^DD",2,2,.214,1,1,1)
Q
"^DD",2,2,.214,1,1,2)
S DGXRF=.214 D ^DGDDC Q
"^DD",2,2,.214,1,992,0)
2^ADGRU214^MUMPS
"^DD",2,2,.214,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.214,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.214,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.214,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.214,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.214,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.214,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.214,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.214,1,992,"%D",6,0)
interface.
"^DD",2,2,.214,1,992,"%D",7,0)
 
"^DD",2,2,.214,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.214,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.214,1,992,"DT")
2990921
"^DD",2,2,.214,3)
If necessary, enter the second line of the primary NOK's address [3-30 character
s].
"^DD",2,2,.214,20,0)
^.3LA^1^1
"^DD",2,2,.214,20,1,0)
NK1
"^DD",2,2,.214,21,0)
^^4^4^2861117^^
"^DD",2,2,.214,21,1,0)
If a primary next-of-kin is specified enter the second line of
"^DD",2,2,.214,21,2,0)
that person's street address [3-30 characters], if necessary,
"^DD",2,2,.214,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted
"^DD",2,2,.214,21,4,0)
as long as a 'next of kin' name is on file.
"^DD",2,2,.214,"DT")
2990921
"^DD",2,2,.215,0)
K-STREET ADDRESS [LINE 3]^FX^^.21;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1
^DGLOCK2
"^DD",2,2,.215,.1)

"^DD",2,2,.215,3)
If necessary, enter the third line of the primary NOK's address [3-30 characters
].
"^DD",2,2,.215,20,0)
^.3LA^1^1
"^DD",2,2,.215,20,1,0)
NK1
"^DD",2,2,.215,21,0)
^^4^4^2861117^^
"^DD",2,2,.215,21,1,0)
If a primary next-of-kin is specified enter the third line of
"^DD",2,2,.215,21,2,0)
that person's street address [3-30 characters], if necessary,
"^DD",2,2,.215,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted
"^DD",2,2,.215,21,4,0)
as long as a 'next of kin' name is on file.
"^DD",2,2,.215,"DT")
2861002
"^DD",2,2,.216,0)
K-CITY^FX^^.21;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
"^DD",2,2,.216,.1)

"^DD",2,2,.216,1,0)
^.1
"^DD",2,2,.216,1,992,0)
2^ADGRU216^MUMPS
"^DD",2,2,.216,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.216,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.216,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.216,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.216,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.216,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.216,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.216,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.216,1,992,"%D",6,0)
interface.
"^DD",2,2,.216,1,992,"%D",7,0)
 
"^DD",2,2,.216,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.216,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.216,1,992,"DT")
2990921
"^DD",2,2,.216,3)
Enter the city in which the primary NOK resides [3-30 characters].
"^DD",2,2,.216,20,0)
^.3LA^1^1
"^DD",2,2,.216,20,1,0)
NK1
"^DD",2,2,.216,21,0)
^^4^4^2861007^
"^DD",2,2,.216,21,1,0)
If a primary next-of-kin is specified enter the city in which
"^DD",2,2,.216,21,2,0)
that person resides [3-30 characters], otherwise nothing may
"^DD",2,2,.216,21,3,0)
be entered.  This field cannot be deleted as long as a 'next
"^DD",2,2,.216,21,4,0)
of kin' name is on file.
"^DD",2,2,.216,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.216,"DT")
2990921
"^DD",2,2,.217,0)
K-STATE^P5'X^DIC(5,^.21;7^I $D(X) S DFN=DA D K1^DGLOCK2
"^DD",2,2,.217,.1)

"^DD",2,2,.217,1,0)
^.1
"^DD",2,2,.217,1,992,0)
2^ADGRU217^MUMPS
"^DD",2,2,.217,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.217,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.217,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.217,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.217,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.217,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.217,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.217,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.217,1,992,"%D",6,0)
interface.
"^DD",2,2,.217,1,992,"%D",7,0)
 
"^DD",2,2,.217,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.217,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.217,1,992,"DT")
2990921
"^DD",2,2,.217,3)
Enter the state in which the primary NOK resides.
"^DD",2,2,.217,20,0)
^.3LA^1^1
"^DD",2,2,.217,20,1,0)
NK1
"^DD",2,2,.217,21,0)
^^4^4^2861007^
"^DD",2,2,.217,21,1,0)
If a primary next-of-kin is specified select from the available
"^DD",2,2,.217,21,2,0)
listing the state in which that person resides, otherwise
"^DD",2,2,.217,21,3,0)
nothing may be entered.  This field cannot be deleted as long
"^DD",2,2,.217,21,4,0)
as a 'next of kin' name is on file.
"^DD",2,2,.217,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.217,"DT")
2990921
"^DD",2,2,.218,0)
K-ZIP CODE^FX^^.21;8^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
 I $D(X) S DFN=DA D K1^DGLOCK2
"^DD",2,2,.218,.1)

"^DD",2,2,.218,1,0)
^.1
"^DD",2,2,.218,1,1,0)
2^ANK1ZIP^MUMPS
"^DD",2,2,.218,1,1,1)
D SET^DGREGDD1(DA,.2207,.22,7,X)
"^DD",2,2,.218,1,1,2)
D KILL^DGREGDD1(DA,.2207,.22,7,X)
"^DD",2,2,.218,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.218,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.218,1,1,"%D",2,0)
value.
"^DD",2,2,.218,1,1,"DT")
2930603
"^DD",2,2,.218,3)
Enter the 5-digit zip code where the primary NOK resides.
"^DD",2,2,.218,20,0)
^.3LA^1^1
"^DD",2,2,.218,20,1,0)
NK1
"^DD",2,2,.218,21,0)
^^4^4^2861007^
"^DD",2,2,.218,21,1,0)
If a primary next-of-kin is specified enter the zip code
"^DD",2,2,.218,21,2,0)
[5 numerics] in which his/her city lies, otherwise nothing
"^DD",2,2,.218,21,3,0)
may be entered.  This field cannot be deleted as long as a
"^DD",2,2,.218,21,4,0)
'next of kin' name is on file.
"^DD",2,2,.218,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.218,"DT")
2930603
"^DD",2,2,.219,0)
K-PHONE NUMBER^FXa^^.21;9^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D K1^DGLOCK2
"^DD",2,2,.219,.1)

"^DD",2,2,.219,1,0)
^.1
"^DD",2,2,.219,1,991,0)
2^AVAFC219^MUMPS
"^DD",2,2,.219,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".219;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.219,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".219;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.219,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.219,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.219,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.219,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.219,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.219,1,991,"%D",5,0)
 
"^DD",2,2,.219,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.219,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.219,1,991,"%D",8,0)
process.
"^DD",2,2,.219,1,991,"%D",9,0)
 
"^DD",2,2,.219,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.219,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.219,1,991,"%D",12,0)
  
"^DD",2,2,.219,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.219,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.219,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.219,1,991,"DT")
2970825
"^DD",2,2,.219,1,992,0)
2^ADGRU219^MUMPS
"^DD",2,2,.219,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.219,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.219,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.219,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.219,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.219,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.219,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.219,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.219,1,992,"%D",6,0)
interface.
"^DD",2,2,.219,1,992,"%D",7,0)
 
"^DD",2,2,.219,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.219,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.219,1,992,"DT")
2990921
"^DD",2,2,.219,3)
Enter the phone number of the primary NOK [4-20 characters].
"^DD",2,2,.219,20,0)
^.3LA^1^1
"^DD",2,2,.219,20,1,0)
NK1
"^DD",2,2,.219,21,0)
^^4^4^2861117^^
"^DD",2,2,.219,21,1,0)
If a primary next-of-kin is specified enter that person's
"^DD",2,2,.219,21,2,0)
telephone number [4-20 characters], otherwise nothing may
"^DD",2,2,.219,21,3,0)
be entered.  This field cannot be deleted as long as a
"^DD",2,2,.219,21,4,0)
'next of kin' name is on file.
"^DD",2,2,.219,"AUDIT")
y
"^DD",2,2,.219,"DT")
3100528
"^DD",2,2,.2191,0)
K2-NAME OF SECONDARY NOK^FX^^.211;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,
(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D K1^
DGLOCK2
"^DD",2,2,.2191,.1)
NEXT OF KIN-2
"^DD",2,2,.2191,1,0)
^.1
"^DD",2,2,.2191,1,1,0)
2^AXR1^MUMPS
"^DD",2,2,.2191,1,1,1)
Q
"^DD",2,2,.2191,1,1,2)
S DGXRF=.2191 D ^DGDDC Q
"^DD",2,2,.2191,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.2191,20,0)
^.3LA^1^1
"^DD",2,2,.2191,20,1,0)
NK2
"^DD",2,2,.2191,21,0)
^^4^4^2861007^^
"^DD",2,2,.2191,21,1,0)
Enter the secondary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.2191,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.2191,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.2191,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.2191,"DT")
3050630
"^DD",2,2,.2192,0)
K2-RELATIONSHIP TO PATIENT^FX^^.211;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D 
K2^DGLOCK2
"^DD",2,2,.2192,.1)

"^DD",2,2,.2192,3)
Enter the relationship of the secondary NOK to the patient [1-30 characters].
"^DD",2,2,.2192,20,0)
^.3LA^1^1
"^DD",2,2,.2192,20,1,0)
NK2
"^DD",2,2,.2192,21,0)
^^3^3^2861007^
"^DD",2,2,.2192,21,1,0)
If a secondary next-of-kin is specified enter the relationship of that
"^DD",2,2,.2192,21,2,0)
person to the applicant [1-30 characters].  This field cannot be
"^DD",2,2,.2192,21,3,0)
deleted as long as a secondary NOK is on file.
"^DD",2,2,.2192,"DEL",1,0)
S DFN=DA D K2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2192,"DT")
2861002
"^DD",2,2,.21925,0)
K2-ADDRESS SAME AS PATIENT'S?^RSX^Y:YES;N:NO;^.211;10^I $D(X),X="Y" D K2^DGLOCK2
"^DD",2,2,.21925,.1)
IS K2-ADDR SAME AS PATIENT'S
"^DD",2,2,.21925,3)
Enter 'Y' if the secondary NOK address/phone number is the same as the patients 
otherwise enter 'N'.
"^DD",2,2,.21925,20,0)
^.3LA^1^1
"^DD",2,2,.21925,20,1,0)
NK2
"^DD",2,2,.21925,21,0)
^^2^2^2861007^
"^DD",2,2,.21925,21,1,0)
Enter 'Y' if the secondary NOK should be contacted at the same
"^DD",2,2,.21925,21,2,0)
address and phone number as the applicant, otherwise enter 'N'.
"^DD",2,2,.21925,"DT")
2861002
"^DD",2,2,.2193,0)
K2-STREET ADDRESS [LINE 1]^FX^^.211;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(
$L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
"^DD",2,2,.2193,.1)

"^DD",2,2,.2193,1,0)
^.1
"^DD",2,2,.2193,1,1,0)
2^AXR16^MUMPS
"^DD",2,2,.2193,1,1,1)
Q
"^DD",2,2,.2193,1,1,2)
S DGXRF=.2193 D ^DGDDC Q
"^DD",2,2,.2193,3)
Enter the first line of the secondary NOK's address [3-30 characters].
"^DD",2,2,.2193,20,0)
^.3LA^1^1
"^DD",2,2,.2193,20,1,0)
NK2
"^DD",2,2,.2193,21,0)
^^3^3^2861117^^^
"^DD",2,2,.2193,21,1,0)
If a secondary NOK is specified enter the first line of that person's
"^DD",2,2,.2193,21,2,0)
street address [3-30 characters], otherwise nothing may be entered.
"^DD",2,2,.2193,21,3,0)
This field cannot be deleted as long as a secondary NOK is on file.
"^DD",2,2,.2193,"DEL",1,0)
S DFN=DA D K2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2193,"DT")
2890115
"^DD",2,2,.2194,0)
K2-STREET ADDRESS [LINE 2]^FX^^.211;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(
$L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
"^DD",2,2,.2194,.1)

"^DD",2,2,.2194,1,0)
^.1
"^DD",2,2,.2194,1,1,0)
2^AXR17^MUMPS
"^DD",2,2,.2194,1,1,1)
Q
"^DD",2,2,.2194,1,1,2)
S DGXRF=.2194 D ^DGDDC Q
"^DD",2,2,.2194,3)
If necessary, enter the second line of the secondary NOK's address [3-30 charact
ers].
"^DD",2,2,.2194,20,0)
^.3LA^1^1
"^DD",2,2,.2194,20,1,0)
NK2
"^DD",2,2,.2194,21,0)
^^4^4^2861117^^^
"^DD",2,2,.2194,21,1,0)
If a secondary NOK is specified enter the second line of that person's
"^DD",2,2,.2194,21,2,0)
street address [3-30 characters], if necessary, otherwise nothing may
"^DD",2,2,.2194,21,3,0)
be entered.  This field cannot be deleted as long as a secondary NOK
"^DD",2,2,.2194,21,4,0)
is on file.
"^DD",2,2,.2194,"DT")
2890115
"^DD",2,2,.2195,0)
K2-STREET ADDRESS [LINE 3]^FX^^.211;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D 
K2^DGLOCK2
"^DD",2,2,.2195,.1)

"^DD",2,2,.2195,3)
If necessary, enter the third line of the secondary NOK's address [3-30 characte
rs].
"^DD",2,2,.2195,20,0)
^.3LA^1^1
"^DD",2,2,.2195,20,1,0)
NK2
"^DD",2,2,.2195,21,0)
^^4^4^2861117^^
"^DD",2,2,.2195,21,1,0)
If a secondary NOK is specified enter the third line of that person's
"^DD",2,2,.2195,21,2,0)
street address [3-30 characters], if necessary, otherwise nothing may
"^DD",2,2,.2195,21,3,0)
be entered.  This field cannot be deleted as long as a secondary NOK
"^DD",2,2,.2195,21,4,0)
is on file.
"^DD",2,2,.2195,"DT")
2861002
"^DD",2,2,.2196,0)
K2-CITY^FX^^.211;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
"^DD",2,2,.2196,.1)

"^DD",2,2,.2196,3)
Enter the city in which the secondary NOK resides [3-30 characters].
"^DD",2,2,.2196,20,0)
^.3LA^1^1
"^DD",2,2,.2196,20,1,0)
NK2
"^DD",2,2,.2196,21,0)
^^3^3^2861007^
"^DD",2,2,.2196,21,1,0)
If a secondary NOK is specified enter the city in which that person
"^DD",2,2,.2196,21,2,0)
resides [3-30 characters], otherwise nothing may be entered.  This
"^DD",2,2,.2196,21,3,0)
field cannot be deleted as long as a secondary NOK is on file.
"^DD",2,2,.2196,"DEL",1,0)
S DFN=DA D K2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2196,"DT")
2861002
"^DD",2,2,.2197,0)
K2-STATE^P5'X^DIC(5,^.211;7^I $D(X) S DFN=DA D K2^DGLOCK2
"^DD",2,2,.2197,.1)

"^DD",2,2,.2197,3)
Enter the state in which the secondary NOK resides.
"^DD",2,2,.2197,20,0)
^.3LA^1^1
"^DD",2,2,.2197,20,1,0)
NK2
"^DD",2,2,.2197,21,0)
^^4^4^2861007^
"^DD",2,2,.2197,21,1,0)
If a secondary NOK is specified select from the available listing
"^DD",2,2,.2197,21,2,0)
the state in which that person resides, otherwise nothing may be
"^DD",2,2,.2197,21,3,0)
entered.  This field cannot be deleted as long as a secondary NOK
"^DD",2,2,.2197,21,4,0)
is on file.
"^DD",2,2,.2197,"DEL",1,0)
S DFN=DA D K2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2197,"DT")
2861002
"^DD",2,2,.2198,0)
K2-ZIP CODE^FX^^.211;8^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N)
 X I $D(X) S DFN=DA D K2^DGLOCK2
"^DD",2,2,.2198,.1)

"^DD",2,2,.2198,1,0)
^.1
"^DD",2,2,.2198,1,1,0)
2^ANK2ZIP^MUMPS
"^DD",2,2,.2198,1,1,1)
D SET^DGREGDD1(DA,.2203,.22,3,X)
"^DD",2,2,.2198,1,1,2)
D KILL^DGREGDD1(DA,.2203,.22,3,X)
"^DD",2,2,.2198,1,1,"%D",0)
^^2^2^2930603^^
"^DD",2,2,.2198,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.2198,1,1,"%D",2,0)
value.
"^DD",2,2,.2198,1,1,"DT")
2930603
"^DD",2,2,.2198,3)
Enter the 5-digit zip code of the residence of the secondary NOK.
"^DD",2,2,.2198,20,0)
^.3LA^1^1
"^DD",2,2,.2198,20,1,0)
NK2
"^DD",2,2,.2198,21,0)
^^4^4^2930603^^
"^DD",2,2,.2198,21,1,0)
If a secondary NOK is specified enter the zip code for the city
"^DD",2,2,.2198,21,2,0)
in which that person resides [5 numerics], otherwise nothing may
"^DD",2,2,.2198,21,3,0)
be entered.  This field cannot be deleted as long as a secondary
"^DD",2,2,.2198,21,4,0)
NOK is on file.
"^DD",2,2,.2198,"DEL",1,0)
S DFN=DA D K2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2198,"DT")
2930603
"^DD",2,2,.2199,0)
K2-PHONE NUMBER^FX^^.211;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2
"^DD",2,2,.2199,.1)

"^DD",2,2,.2199,3)
Enter the phone number of the secondary NOK [3-20 characters].
"^DD",2,2,.2199,20,0)
^.3LA^1^1
"^DD",2,2,.2199,20,1,0)
NK2
"^DD",2,2,.2199,21,0)
^^4^4^2861007^
"^DD",2,2,.2199,21,1,0)
If a secondary NOK is specified enter the telephone number at which
"^DD",2,2,.2199,21,2,0)
that person may be reached [3-20 characters], otherwise nothing may
"^DD",2,2,.2199,21,3,0)
be entered.  This field cannot be deleted as long as a secondary
"^DD",2,2,.2199,21,4,0)
NOK is on file.
"^DD",2,2,.2199,"DT")
3100528
"^DD",2,2,.2201,0)
E-ZIP+4^FOX^^.22;1^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D E1^DGLOCK2 I $D(X) K
:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2201,1,0)
^.1
"^DD",2,2,.2201,1,1,0)
2^AEC1ZIP4^MUMPS
"^DD",2,2,.2201,1,1,1)
D SET^DGREGDD1(DA,.338,.33,8,$E(X,1,5))
"^DD",2,2,.2201,1,1,2)
D KILL^DGREGDD1(DA,.338,.33,8,$E(X,1,5))
"^DD",2,2,.2201,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.2201,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of
"^DD",2,2,.2201,1,1,"%D",2,0)
this field.
"^DD",2,2,.2201,1,1,"DT")
2930603
"^DD",2,2,.2201,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2201,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2201,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2201,20,0)
^.3LA^1^1
"^DD",2,2,.2201,20,1,0)
EC1
"^DD",2,2,.2201,21,0)
^^3^3^2930603^^
"^DD",2,2,.2201,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2201,21,2,0)
format (e.g. 12345-6789 or 123456789).
"^DD",2,2,.2201,21,3,0)
This is related to the Emergency Contact Address.
"^DD",2,2,.2201,23,0)
^^3^3^2930603^
"^DD",2,2,.2201,23,1,0)
Related to other Emergency Contact address fields.  This field 
"^DD",2,2,.2201,23,2,0)
'triggers' the E-ZIP CODE (#.338) field, using the first 5 digits of 
"^DD",2,2,.2201,23,3,0)
this field.
"^DD",2,2,.2201,"DEL",1,0)
S DFN=DA D E1D^DGLOCK2 I '$D(X)
"^DD",2,2,.2201,"DT")
2930603
"^DD",2,2,.2202,0)
D-ZIP+4^FOX^^.22;2^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D D^DGLOCK2 I $D(X) K:
$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2202,1,0)
^.1
"^DD",2,2,.2202,1,1,0)
2^AD1ZIP4^MUMPS
"^DD",2,2,.2202,1,1,1)
D SET^DGREGDD1(DA,.348,.34,8,$E(X,1,5))
"^DD",2,2,.2202,1,1,2)
D KILL^DGREGDD1(DA,.348,.34,8,$E(X,1,5))
"^DD",2,2,.2202,1,1,"%D",0)
^^3^3^2930603^
"^DD",2,2,.2202,1,1,"%D",1,0)
This sets the corresponding zip code field to the 
"^DD",2,2,.2202,1,1,"%D",2,0)
first 5 digits of
"^DD",2,2,.2202,1,1,"%D",3,0)
this field.
"^DD",2,2,.2202,1,1,"DT")
2930603
"^DD",2,2,.2202,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2202,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2202,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2202,20,0)
^.3LA^2^2
"^DD",2,2,.2202,20,1,0)
D-1
"^DD",2,2,.2202,20,2,0)
D1
"^DD",2,2,.2202,21,0)
^^3^3^2930603^^^^
"^DD",2,2,.2202,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2202,21,2,0)
format (e.g. 12345-6789 or 123456789).  This is related to the designee 
"^DD",2,2,.2202,21,3,0)
for personal effects' address.
"^DD",2,2,.2202,23,0)
^^2^2^2930603^^
"^DD",2,2,.2202,23,1,0)
Related to other Designee address fields.  This field 'triggers' the D-
"^DD",2,2,.2202,23,2,0)
ZIP CODE (#.348) field, using the first 5 digits of this field.
"^DD",2,2,.2202,"DEL",1,0)
S DFN=DA D DD^DGLOCK2 I '$D(X)
"^DD",2,2,.2202,"DT")
2930603
"^DD",2,2,.2203,0)
K2-ZIP+4^FOX^^.22;3^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D K2^DGLOCK2 I $D(X) 
K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2203,1,0)
^.1
"^DD",2,2,.2203,1,1,0)
2^ANK2ZIP4^MUMPS
"^DD",2,2,.2203,1,1,1)
D SET^DGREGDD1(DA,.2198,.211,8,$E(X,1,5))
"^DD",2,2,.2203,1,1,2)
D KILL^DGREGDD1(DA,.2198,.211,8,$E(X,1,5))
"^DD",2,2,.2203,1,1,"%D",0)
^^3^3^2930603^
"^DD",2,2,.2203,1,1,"%D",1,0)
This sets the corresponding zip code field to the 
"^DD",2,2,.2203,1,1,"%D",2,0)
first 5 digits of
"^DD",2,2,.2203,1,1,"%D",3,0)
this field.
"^DD",2,2,.2203,1,1,"DT")
2930603
"^DD",2,2,.2203,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2203,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2203,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2203,20,0)
^.3LA^1^1
"^DD",2,2,.2203,20,1,0)
NK2
"^DD",2,2,.2203,21,0)
^^3^3^2930603^^
"^DD",2,2,.2203,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2203,21,2,0)
format (e.g. 12345-6789 or 123456789).  This is related to the secondary 
"^DD",2,2,.2203,21,3,0)
next-of-kin's address.
"^DD",2,2,.2203,23,0)
^^3^3^2930603^^
"^DD",2,2,.2203,23,1,0)
Related to other secondary next-of-kin address fields.  This field 
"^DD",2,2,.2203,23,2,0)
'triggers' the K2-ZIP CODE (#.2198) field, using the first 5 digits of 
"^DD",2,2,.2203,23,3,0)
this field.
"^DD",2,2,.2203,"DEL",1,0)
S DFN=DA D K2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2203,"DT")
2930603
"^DD",2,2,.2204,0)
E2-ZIP+4^FOX^^.22;4^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D E2^DGLOCK2 I $D(X) 
K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2204,1,0)
^.1
"^DD",2,2,.2204,1,1,0)
2^AEC2ZIP4^MUMPS
"^DD",2,2,.2204,1,1,1)
D SET^DGREGDD1(DA,.3318,.331,8,$E(X,1,5))
"^DD",2,2,.2204,1,1,2)
D KILL^DGREGDD1(DA,.3318,.331,8,$E(X,1,5))
"^DD",2,2,.2204,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.2204,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2,.2204,1,1,"%D",2,0)
field.
"^DD",2,2,.2204,1,1,"DT")
2930603
"^DD",2,2,.2204,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2204,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2204,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2204,20,0)
^.3LA^1^1
"^DD",2,2,.2204,20,1,0)
EC2
"^DD",2,2,.2204,21,0)
^^3^3^2930603^
"^DD",2,2,.2204,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2204,21,2,0)
format (e.g. 12345-6789 or 123456789).  This is related to the secondary 
"^DD",2,2,.2204,21,3,0)
emergency contact's address.
"^DD",2,2,.2204,23,0)
^^3^3^2930603^
"^DD",2,2,.2204,23,1,0)
Related to other secondary emergency address fields.  This field 
"^DD",2,2,.2204,23,2,0)
'triggers' the E2-ZIP CODE (#.3318) field, using the first 5 digits of
"^DD",2,2,.2204,23,3,0)
this field.
"^DD",2,2,.2204,"DEL",1,0)
S DFN=DA D E2D^DGLOCK2 I '$D(X)
"^DD",2,2,.2204,"DT")
2930603
"^DD",2,2,.2205,0)
EMPLOYER ZIP+4^FOX^^.22;5^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D EM1^DGLOCK2 I
 $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2205,1,0)
^.1
"^DD",2,2,.2205,1,1,0)
2^AEM1ZIP4^MUMPS
"^DD",2,2,.2205,1,1,1)
D SET^DGREGDD1(DA,.3118,.311,8,$E(X,1,5))
"^DD",2,2,.2205,1,1,2)
D KILL^DGREGDD1(DA,.3118,.311,8,$E(X,1,5))
"^DD",2,2,.2205,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.2205,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2,.2205,1,1,"%D",2,0)
field.
"^DD",2,2,.2205,1,1,"DT")
2930603
"^DD",2,2,.2205,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2205,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2205,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2205,20,0)
^.3LA^1^1
"^DD",2,2,.2205,20,1,0)
EM1
"^DD",2,2,.2205,21,0)
^^3^3^2930603^
"^DD",2,2,.2205,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2205,21,2,0)
format (e.g. 12345-6789 or 123456789).  This is related to the patient
"^DD",2,2,.2205,21,3,0)
employer's address.
"^DD",2,2,.2205,23,0)
^^3^3^2930603^
"^DD",2,2,.2205,23,1,0)
Related to other patient employer address fields.  This field 'triggers'
"^DD",2,2,.2205,23,2,0)
the EMPLOYER ZIP CODE (#.3118) field, using the first 5 digits of this 
"^DD",2,2,.2205,23,3,0)
field.
"^DD",2,2,.2205,"DEL",1,0)
S DFN=DA D EMD^DGLOCK2 I '$D(X)
"^DD",2,2,.2205,"DT")
2930603
"^DD",2,2,.2206,0)
SPOUSE'S EMP ZIP+4^FOX^^.22;6^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D SE^DGLOCK
2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2206,1,0)
^.1
"^DD",2,2,.2206,1,1,0)
2^ASP1ZIP4^MUMPS
"^DD",2,2,.2206,1,1,1)
D SET^DGREGDD1(DA,.257,.25,7,$E(X,1,5))
"^DD",2,2,.2206,1,1,2)
D KILL^DGREGDD1(DA,.257,.25,7,$E(X,1,5))
"^DD",2,2,.2206,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.2206,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2,.2206,1,1,"%D",2,0)
field.
"^DD",2,2,.2206,1,1,"DT")
2930603
"^DD",2,2,.2206,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2206,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2206,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2206,20,0)
^.3LA^1^1
"^DD",2,2,.2206,20,1,0)
SP1
"^DD",2,2,.2206,21,0)
^^3^3^2930603^
"^DD",2,2,.2206,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2206,21,2,0)
format (e.g. 12345-6789 or 123456789).  This is related to the spouse's
"^DD",2,2,.2206,21,3,0)
employer's address.
"^DD",2,2,.2206,23,0)
^^3^3^2930603^
"^DD",2,2,.2206,23,1,0)
Related to other spouse's employer address fields.  This field 
"^DD",2,2,.2206,23,2,0)
'triggers' the SPOUSE'S EMP ZIP CODE (#.257) field, using the first 5
"^DD",2,2,.2206,23,3,0)
digits of this field.
"^DD",2,2,.2206,"DEL",1,0)
S DFN=DA D SED^DGLOCK2 I '$D(X)
"^DD",2,2,.2206,"DT")
2930603
"^DD",2,2,.2207,0)
K-ZIP+4^FOX^^.22;7^K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D K1^DGLOCK2 I $D(X) K
:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.2207,1,0)
^.1
"^DD",2,2,.2207,1,1,0)
2^ANK1ZIP4^MUMPS
"^DD",2,2,.2207,1,1,1)
D SET^DGREGDD1(DA,.218,.21,8,$E(X,1,5))
"^DD",2,2,.2207,1,1,2)
D KILL^DGREGDD1(DA,.218,.21,8,$E(X,1,5))
"^DD",2,2,.2207,1,1,"%D",0)
^^2^2^2950922^^
"^DD",2,2,.2207,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2,.2207,1,1,"%D",2,0)
field.
"^DD",2,2,.2207,1,1,"DT")
2950922
"^DD",2,2,.2207,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.2207,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.2207,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.2207,20,0)
^.3LA^1^1
"^DD",2,2,.2207,20,1,0)
NK1
"^DD",2,2,.2207,21,0)
^^3^3^2930603^
"^DD",2,2,.2207,21,1,0)
Answer with either the 5 digit format (e.g. 12345) or the nine digit
"^DD",2,2,.2207,21,2,0)
format (e.g. 12345-6789 or 123456789).  This is related to the primary
"^DD",2,2,.2207,21,3,0)
emergency contact's address.
"^DD",2,2,.2207,23,0)
^^3^3^2930603^
"^DD",2,2,.2207,23,1,0)
Related to other primary emergency contact address fields.  This field 
"^DD",2,2,.2207,23,2,0)
'triggers' the K-ZIP CODE (#.218) field, using the first 5 digits of 
"^DD",2,2,.2207,23,3,0)
this field.
"^DD",2,2,.2207,"DEL",1,0)
S DFN=DA D K1D^DGLOCK2 I '$D(X)
"^DD",2,2,.2207,"DT")
2950922
"^DD",2,2,.2401,0)
FATHER'S NAME^F^^.24;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=
$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
"^DD",2,2,.2401,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.2401,21,0)
^^4^4^2861007^
"^DD",2,2,.2401,21,1,0)
Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.2401,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.2401,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.2401,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.2401,"DT")
3050630
"^DD",2,2,.2402,0)
MOTHER'S NAME^F^^.24;2^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=
$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
"^DD",2,2,.2402,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.2402,21,0)
^^4^4^2861007^
"^DD",2,2,.2402,21,1,0)
Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.2402,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.2402,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.2402,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.2402,"DT")
3050630
"^DD",2,2,.2403,0)
MOTHER'S MAIDEN NAME^Fa^^.24;3^K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG
20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME
"^DD",2,2,.2403,1,0)
^.1
"^DD",2,2,.2403,1,991,0)
2^AVAFC2403^MUMPS
"^DD",2,2,.2403,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".2403;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.2403,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".2403;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.2403,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.2403,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.2403,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.2403,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.2403,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.2403,1,991,"%D",5,0)
 
"^DD",2,2,.2403,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.2403,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.2403,1,991,"%D",8,0)
process.
"^DD",2,2,.2403,1,991,"%D",9,0)
 
"^DD",2,2,.2403,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.2403,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.2403,1,991,"%D",12,0)
  
"^DD",2,2,.2403,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.2403,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.2403,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.2403,1,991,"DT")
2970825
"^DD",2,2,.2403,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.2403,21,0)
^^4^4^2861007^
"^DD",2,2,.2403,21,1,0)
Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.2403,21,2,0)
Entry of the LAST name only is permitted and the comma may be omitted.
"^DD",2,2,.2403,21,3,0)
If the response contains no comma, one will be appended to the value.
"^DD",2,2,.2403,21,4,0)
Including the comma, the value must be at least 3 characters in length.
"^DD",2,2,.2403,"AUDIT")
y
"^DD",2,2,.2403,"DT")
3050630
"^DD",2,2,.251,0)
SPOUSE'S EMPLOYER NAME^FX^^.25;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)
<3) X I $D(X) S DFN=DA D MAR^DGLOCK2
"^DD",2,2,.251,.1)

"^DD",2,2,.251,1,0)
^.1
"^DD",2,2,.251,1,1,0)
2^AXR2^MUMPS
"^DD",2,2,.251,1,1,1)
Q
"^DD",2,2,.251,1,1,2)
S DGXRF=.251 D ^DGDDC Q
"^DD",2,2,.251,3)
Enter the name of this spouse's employer [3-20 characters].
"^DD",2,2,.251,5,1,0)
2^.2515^1
"^DD",2,2,.251,20,0)
^.3LA^1^1
"^DD",2,2,.251,20,1,0)
SP1
"^DD",2,2,.251,21,0)
^^2^2^2870130^^^^
"^DD",2,2,.251,21,1,0)
For this married applicant (marital status must be married) enter
"^DD",2,2,.251,21,2,0)
the name of his/her spouse's employer [3-20 characters].
"^DD",2,2,.251,"DT")
2880725
"^DD",2,2,.2514,0)
SPOUSE'S OCCUPATION^F^^.25;14^K:$L(X)>30!($L(X)<3) X
"^DD",2,2,.2514,3)
Enter the spouse's current occupation.  Answer must be 3-30 characters in length
.
"^DD",2,2,.2514,21,0)
^^2^2^2920110^
"^DD",2,2,.2514,21,1,0)
If this patient's spouse is currently employed, enter the spouse's
"^DD",2,2,.2514,21,2,0)
occupation here.  Otherwise, leave this field blank.
"^DD",2,2,.2514,"DT")
2920110
"^DD",2,2,.2515,0)
SPOUSE'S EMPLOYMENT STATUS^RS^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EM
PLOYED;4:SELF EMPLYED;5:RETIRED;6:ACTIVE MILITARY DUTY;9:UNKNOWN;^.25;15^Q
"^DD",2,2,.2515,1,0)
^.1
"^DD",2,2,.2515,1,1,0)
^^TRIGGER^2^.251
"^DD",2,2,.2515,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^
") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1),U,1),X=X S DI
U=X K Y S X="" X ^DD(2,.2515,1,1,1.4)
"^DD",2,2,.2515,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.25)):^(.25),1:""),DIV=X S $P(^(.25),U,1)=DIV,DIH=2,DIG=
.251 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.2515,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^
") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1),U,1),X=X S DI
U=X K Y S X="" X ^DD(2,.2515,1,1,2.4)
"^DD",2,2,.2515,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.25)):^(.25),1:""),DIV=X S $P(^(.25),U,1)=DIV,DIH=2,DIG=
.251 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.2515,1,1,"CREATE CONDITION")
I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^")
"^DD",2,2,.2515,1,1,"CREATE VALUE")
@
"^DD",2,2,.2515,1,1,"DELETE CONDITION")
I "^3^9^"[("^"_$P(^DPT(DA,.25),"^",15)_"^")
"^DD",2,2,.2515,1,1,"DELETE VALUE")
@
"^DD",2,2,.2515,1,1,"FIELD")
SPOUSE'S EMPLOYER NAME
"^DD",2,2,.2515,1,2,0)
^^TRIGGER^2^.2516
"^DD",2,2,.2515,1,2,1)
X ^DD(2,.2515,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$
P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.25)),DIV=X S $P(^(.25)
,U,16)=DIV,DIH=2,DIG=.2516 D ^DICR
"^DD",2,2,.2515,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.2515,0)),U,3) 
S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="RETIRED"
"^DD",2,2,.2515,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"") S X=$P(Y(1
),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.25)),DIV=X S $P(^(.25),U,16
)=DIV,DIH=2,DIG=.2516 D ^DICR
"^DD",2,2,.2515,1,2,"CREATE CONDITION")
SPOUSE'S EMPLOYMENT STATUS'="RETIRED"
"^DD",2,2,.2515,1,2,"CREATE VALUE")
@
"^DD",2,2,.2515,1,2,"DELETE VALUE")
@
"^DD",2,2,.2515,1,2,"DT")
3041130
"^DD",2,2,.2515,1,2,"FIELD")
SPOUSE'S RETIREMENT DATE
"^DD",2,2,.2515,3)
Enter the current employment status for this patient's spouse.
"^DD",2,2,.2515,21,0)
^^2^2^2920110^
"^DD",2,2,.2515,21,1,0)
Choose from the available list the choice that most correctly indicates
"^DD",2,2,.2515,21,2,0)
the current employment status for this patient's spouse.
"^DD",2,2,.2515,"DT")
3041130
"^DD",2,2,.2516,0)
SPOUSE'S RETIREMENT DATE^DX^^.25;16^S %DT="E" D ^%DT S X=Y K:Y<1 X K:Y>DT X K:(+
$P(^DPT(DA,0),"^",3)>Y) X K:(+$P($G(^DPT(DA,.25)),"^",15)'=5) X
"^DD",2,2,.2516,3)
For this veteran applicant's spouse, enter the date s/he retired from her/his pl
ace of employment.  A date may only be entered if the spouse is RETIRED.
"^DD",2,2,.2516,5,1,0)
2^.2515^2
"^DD",2,2,.2516,21,0)
^.001^2^2^3050526^^^
"^DD",2,2,.2516,21,1,0)
For this veteran applicant's spouse, enter the date s/he retired from
"^DD",2,2,.2516,21,2,0)
her/his place of employment. 
"^DD",2,2,.2516,23,0)
^.001^4^4^3050526^^^^
"^DD",2,2,.2516,23,1,0)
The Input Transform prevents entry of a Spouse Date of Retirement earlier 
"^DD",2,2,.2516,23,2,0)
than the Veteran s Date of Birth or later than the current date (i.e.: 
"^DD",2,2,.2516,23,3,0)
future retirement dates and retirement dates prior to Veteran's birthdate
"^DD",2,2,.2516,23,4,0)
are not be permitted).
"^DD",2,2,.2516,"DT")
3050526
"^DD",2,2,.252,0)
SPOUSE'S EMP STREET [LINE 1]^FX^^.25;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!
($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2
"^DD",2,2,.252,.1)

"^DD",2,2,.252,1,0)
^.1
"^DD",2,2,.252,1,1,0)
2^AXR18^MUMPS
"^DD",2,2,.252,1,1,1)
Q
"^DD",2,2,.252,1,1,2)
S DGXRF=.252 D ^DGDDC Q
"^DD",2,2,.252,3)
Enter the first line of the spouse's employers address [3-35 characters].
"^DD",2,2,.252,20,0)
^.3LA^1^1
"^DD",2,2,.252,20,1,0)
SP1
"^DD",2,2,.252,21,0)
^^4^4^2861007^
"^DD",2,2,.252,21,1,0)
If applicant is married and a spouse's employer name has been entered
"^DD",2,2,.252,21,2,0)
enter the first line of the spouse's employer's street address [3-35
"^DD",2,2,.252,21,3,0)
characters, otherwise nothing may be entered.  This field may not be
"^DD",2,2,.252,21,4,0)
deleted as long as a spouse's employer's name is on file.
"^DD",2,2,.252,"DEL",1,0)
S DFN=DA D SED^DGLOCK2 I '$D(X)
"^DD",2,2,.252,"DT")
2890115
"^DD",2,2,.253,0)
SPOUSE'S EMP STREET [LINE 2]^FX^^.25;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!
($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2
"^DD",2,2,.253,.1)

"^DD",2,2,.253,1,0)
^.1
"^DD",2,2,.253,1,1,0)
2^AXR19^MUMPS
"^DD",2,2,.253,1,1,1)
Q
"^DD",2,2,.253,1,1,2)
S DGXRF=.253 D ^DGDDC Q
"^DD",2,2,.253,3)
If necessary, enter the second line of the spouse's employers address [3-35 char
acters].
"^DD",2,2,.253,20,0)
^.3LA^1^1
"^DD",2,2,.253,20,1,0)
SP1
"^DD",2,2,.253,21,0)
^^5^5^2861007^
"^DD",2,2,.253,21,1,0)
If applicant is married and a spouse's employer name has been entered
"^DD",2,2,.253,21,2,0)
enter the second line of the spouse's employer's street address [3-35
"^DD",2,2,.253,21,3,0)
characters, if necessary, otherwise nothing may be entered.  This
"^DD",2,2,.253,21,4,0)
field may not be deleted as long as a spouse's employer's name is on
"^DD",2,2,.253,21,5,0)
file.
"^DD",2,2,.253,"DT")
2890115
"^DD",2,2,.254,0)
SPOUSE'S EMP STREET [LINE 3]^FX^^.25;4^K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D
 SE^DGLOCK2
"^DD",2,2,.254,.1)

"^DD",2,2,.254,3)
If necessary, enter the third line of the spouse's employers address [3-35 chara
cters].
"^DD",2,2,.254,20,0)
^.3LA^1^1
"^DD",2,2,.254,20,1,0)
SP1
"^DD",2,2,.254,21,0)
^^5^5^2861007^
"^DD",2,2,.254,21,1,0)
If applicant is married and a spouse's employer name has been entered
"^DD",2,2,.254,21,2,0)
enter the third line of the spouse's employer's street address [3-35
"^DD",2,2,.254,21,3,0)
characters, if necessary, otherwise nothing may be entered.  This
"^DD",2,2,.254,21,4,0)
field may not be deleted as long as a spouse's employer's name is on
"^DD",2,2,.254,21,5,0)
file.
"^DD",2,2,.254,"DT")
2861002
"^DD",2,2,.255,0)
SPOUSE'S EMPLOYER'S CITY^FX^^.25;5^K:$L(X)>20!($L(X)<2) X I $D(X) S DFN=DA D SE^
DGLOCK2
"^DD",2,2,.255,.1)

"^DD",2,2,.255,3)
Enter the city in which the spouse is employed [2-20 characters].
"^DD",2,2,.255,20,0)
^.3LA^1^1
"^DD",2,2,.255,20,1,0)
SP1
"^DD",2,2,.255,21,0)
^^4^4^2861007^
"^DD",2,2,.255,21,1,0)
If applicant is married and a spouse's employer name has been entered
"^DD",2,2,.255,21,2,0)
enter the spouse's employer city [2-20 characters], otherwise nothing
"^DD",2,2,.255,21,3,0)
may be entered.  This field may not be deleted as long as a spouse's
"^DD",2,2,.255,21,4,0)
employer's name is on file.
"^DD",2,2,.255,"DEL",1,0)
S DFN=DA D SED^DGLOCK2 I '$D(X)
"^DD",2,2,.255,"DT")
2861002
"^DD",2,2,.256,0)
SPOUSE'S EMPLOYER'S STATE^P5'X^DIC(5,^.25;6^S DFN=DA D SE^DGLOCK2
"^DD",2,2,.256,.1)

"^DD",2,2,.256,3)
Enter the state in which the spouse is employed.
"^DD",2,2,.256,20,0)
^.3LA^1^1
"^DD",2,2,.256,20,1,0)
SP1
"^DD",2,2,.256,21,0)
^^4^4^2870116^^
"^DD",2,2,.256,21,1,0)
If applicant is married and a spouse's employer name has been entered
"^DD",2,2,.256,21,2,0)
select from the available listing the spouse's employer's state.  This
"^DD",2,2,.256,21,3,0)
field may not be deleted as long as a spouse's employer's name is on
"^DD",2,2,.256,21,4,0)
file.
"^DD",2,2,.256,"DEL",1,0)
S DFN=DA D SED^DGLOCK2 I '$D(X)
"^DD",2,2,.256,"DT")
2861002
"^DD",2,2,.257,0)
SPOUSE'S EMP ZIP CODE^FX^^.25;7^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5
)!'(X?5N) X I $D(X) S DFN=DA D SE^DGLOCK2
"^DD",2,2,.257,.1)

"^DD",2,2,.257,1,0)
^.1
"^DD",2,2,.257,1,1,0)
2^ASP1ZIP^MUMPS
"^DD",2,2,.257,1,1,1)
D SET^DGREGDD1(DA,.2206,.22,6,X)
"^DD",2,2,.257,1,1,2)
D KILL^DGREGDD1(DA,.2206,.22,6,X)
"^DD",2,2,.257,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.257,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.257,1,1,"%D",2,0)
value.
"^DD",2,2,.257,1,1,"DT")
2930603
"^DD",2,2,.257,3)
Enter the 5-digit zip code of the spouse's place of employment.
"^DD",2,2,.257,20,0)
^.3LA^1^1
"^DD",2,2,.257,20,1,0)
SP1
"^DD",2,2,.257,21,0)
^^4^4^2930603^^
"^DD",2,2,.257,21,1,0)
If applicant is married and spouse's employer name has been entered
"^DD",2,2,.257,21,2,0)
enter the spouse's employer zip code [5 numerics], otherwise nothing
"^DD",2,2,.257,21,3,0)
may be entered.  This field may not be deleted as long as a spouse's
"^DD",2,2,.257,21,4,0)
employer's name is on file.
"^DD",2,2,.257,"DEL",1,0)
S DFN=DA D SED^DGLOCK2 I '$D(X)
"^DD",2,2,.257,"DT")
2930603
"^DD",2,2,.258,0)
SPOUSE'S EMP PHONE NUMBER^FOX^^.25;8^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D S
E^DGLOCK2
"^DD",2,2,.258,.1)

"^DD",2,2,.258,3)
Enter the spouse's employment telephone number [4-20 characters].
"^DD",2,2,.258,20,0)
^.3LA^1^1
"^DD",2,2,.258,20,1,0)
SP1
"^DD",2,2,.258,21,0)
^^4^4^2861007^
"^DD",2,2,.258,21,1,0)
If applicant is married and spouse's employer name has been entered
"^DD",2,2,.258,21,2,0)
enter the spouse's employer telephone number [4-20 characters],
"^DD",2,2,.258,21,3,0)
otherwise nothing may be entered.  This field may not be deleted as
"^DD",2,2,.258,21,4,0)
long as a spouse's employer's name is on file.
"^DD",2,2,.258,"DT")
2861002
"^DD",2,2,.290012,0)
ZIP+4 (CIVIL)^FOX^^.291;12^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X 
I $D(X) D ZIPIN^VAFADDR
"^DD",2,2,.290012,1,0)
^.1
"^DD",2,2,.290012,1,1,0)
2^ACIVZIP4^MUMPS
"^DD",2,2,.290012,1,1,1)
D SET^DGREGDD1(DA,.2928,.291,10,$E(X,1,5))
"^DD",2,2,.290012,1,1,2)
D KILL^DGREGDD1(DA,.2928,.291,10,$E(X,1,5))
"^DD",2,2,.290012,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.290012,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2,.290012,1,1,"%D",2,0)
field.
"^DD",2,2,.290012,1,1,"DT")
2930603
"^DD",2,2,.290012,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.290012,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.290012,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.290012,21,0)
^^4^4^2930603^
"^DD",2,2,.290012,21,1,0)
Enter the zip code of the address where the person responsible for
"^DD",2,2,.290012,21,2,0)
handling this patient's funds resides.  Answer with either the 5 digit 
"^DD",2,2,.290012,21,3,0)
format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 
"^DD",2,2,.290012,21,4,0)
123456789).
"^DD",2,2,.290012,23,0)
^^3^3^2930603^
"^DD",2,2,.290012,23,1,0)
Related to other address fields for the person responsible for handling
"^DD",2,2,.290012,23,2,0)
this patient's funds.  This field 'triggers' the ZIP (CIVIL) (#.2928) 
"^DD",2,2,.290012,23,3,0)
field, using the first 5 digits of this field.
"^DD",2,2,.290012,"DT")
2930913
"^DD",2,2,.29013,0)
ZIP+4 (VA)^FOX^^.29;13^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D
(X) D ZIPIN^VAFADDR
"^DD",2,2,.29013,1,0)
^.1
"^DD",2,2,.29013,1,1,0)
2^AVAZIP4^MUMPS
"^DD",2,2,.29013,1,1,1)
D SET^DGREGDD1(DA,.2918,.29,10,$E(X,1,5))
"^DD",2,2,.29013,1,1,2)
D KILL^DGREGDD1(DA,.2918,.29,10,$E(X,1,5))
"^DD",2,2,.29013,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.29013,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2,.29013,1,1,"%D",2,0)
field.
"^DD",2,2,.29013,1,1,"DT")
2930603
"^DD",2,2,.29013,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2,.29013,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2,.29013,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2,.29013,21,0)
^^4^4^2930603^
"^DD",2,2,.29013,21,1,0)
If this patient has a VA guardian responsible for handling the patient's
"^DD",2,2,.29013,21,2,0)
funds, enter the guardian's zip code here.  Answer with either the 5 
"^DD",2,2,.29013,21,3,0)
digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or 
"^DD",2,2,.29013,21,4,0)
123456789).
"^DD",2,2,.29013,23,0)
^^3^3^2930603^
"^DD",2,2,.29013,23,1,0)
Related to other address fields for the VA guardian.  This field 
"^DD",2,2,.29013,23,2,0)
'triggers' the ZIP (VA) (#.2918) field, using the first 5 digits of this
"^DD",2,2,.29013,23,3,0)
field.
"^DD",2,2,.29013,"DT")
2930913
"^DD",2,2,.291,0)
DATE RULED INCOMPETENT (VA)^DX^^.29;1^S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S D
FN=DA D INCOM^DGLOCK
"^DD",2,2,.291,3)
Enter the date this patient was ruled incompetent to handle his VA funds.  The D
ate Ruled Incompetent cannot be after the Date of Death.
"^DD",2,2,.291,21,0)
^.001^2^2^3070531^^^^
"^DD",2,2,.291,21,1,0)
Enter the date this patient was ruled to be incompetent to handle his
"^DD",2,2,.291,21,2,0)
VA funds.  The Date Ruled Incompetent cannot be after the Date of Death.
"^DD",2,2,.291,"DT")
3070522
"^DD",2,2,.2911,0)
INSTITUTION (VA)^P4'^DIC(4,^.29;3^Q
"^DD",2,2,.2911,21,0)
^^2^2^2911224^
"^DD",2,2,.2911,21,1,0)
Enter the VA facility or institution responsible for this patient's VA
"^DD",2,2,.2911,21,2,0)
funds.
"^DD",2,2,.2911,"DT")
2840914
"^DD",2,2,.2912,0)
GUARDIAN (VA)^F^^.29;4^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2912,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2912,21,0)
^^2^2^2911224^
"^DD",2,2,.2912,21,1,0)
Enter the name of the VA representative responsible for this patient's
"^DD",2,2,.2912,21,2,0)
funds.
"^DD",2,2,.2912,"DT")
2840914
"^DD",2,2,.2913,0)
RELATIONSHIP (VA)^F^^.29;5^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2913,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2913,21,0)
^^2^2^2911224^
"^DD",2,2,.2913,21,1,0)
Enter the relationship to the patient of the VA representative responsible
"^DD",2,2,.2913,21,2,0)
for handling this patient's funds.
"^DD",2,2,.2914,0)
STREET ADDRESS 1 (VA)^F^^.29;6^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2914,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2914,21,0)
^^2^2^2911224^^
"^DD",2,2,.2914,21,1,0)
Enter the first line of the street address of the VA representative
"^DD",2,2,.2914,21,2,0)
responsible for handling this patient's funds.
"^DD",2,2,.2915,0)
STREET ADDRESS 2 (VA)^F^^.29;7^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2915,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2915,21,0)
^^2^2^2911224^
"^DD",2,2,.2915,21,1,0)
Enter the second line of the street address of the VA representative
"^DD",2,2,.2915,21,2,0)
responsible for handling this patient's funds.
"^DD",2,2,.2916,0)
CITY (VA)^F^^.29;8^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2916,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2916,21,0)
^^2^2^2911224^
"^DD",2,2,.2916,21,1,0)
Enter the city in which the person reponsible for handling this patient's
"^DD",2,2,.2916,21,2,0)
funds resides.
"^DD",2,2,.2917,0)
STATE (VA)^P5'^DIC(5,^.29;9^Q
"^DD",2,2,.2917,21,0)
^^2^2^2911224^
"^DD",2,2,.2917,21,1,0)
Enter the state in which the person responsible for handling this patient's
"^DD",2,2,.2917,21,2,0)
funds resides.
"^DD",2,2,.2917,"DT")
2840914
"^DD",2,2,.2918,0)
ZIP (VA)^F^^.29;10^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
"^DD",2,2,.2918,1,0)
^.1
"^DD",2,2,.2918,1,1,0)
2^AVAZIP^MUMPS
"^DD",2,2,.2918,1,1,1)
D SET^DGREGDD1(DA,.29013,.29,13,X)
"^DD",2,2,.2918,1,1,2)
D KILL^DGREGDD1(DA,.29013,.29,13,X)
"^DD",2,2,.2918,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.2918,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.2918,1,1,"%D",2,0)
value.
"^DD",2,2,.2918,1,1,"DT")
2930603
"^DD",2,2,.2918,3)
ANSWER MUST BE 5 CHARACTERS IN LENGTH
"^DD",2,2,.2918,21,0)
^^2^2^2930603^^^
"^DD",2,2,.2918,21,1,0)
If this patient has a VA guardian responsible for handling the patient's
"^DD",2,2,.2918,21,2,0)
funds, enter the guardian's zip code here.
"^DD",2,2,.2918,"DT")
2930603
"^DD",2,2,.2919,0)
PHONE (VA)^F^^.29;11^K:$L(X)>20!($L(X)<3) X
"^DD",2,2,.2919,3)
ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
"^DD",2,2,.2919,21,0)
^^2^2^2911224^
"^DD",2,2,.2919,21,1,0)
If this patient has a VA guardian responsible for handling the patient's
"^DD",2,2,.2919,21,2,0)
funds, enter the guardian's phone number here.
"^DD",2,2,.2919,"DT")
2840914
"^DD",2,2,.292,0)
DATE RULED INCOMPETENT (CIVIL)^DX^^.29;2^S %DT="EP" D ^%DT S X=Y K:Y<1 X I $D(X)
 S DFN=DA D INCOM2^DGLOCK
"^DD",2,2,.292,3)
Enter the date ruled incompetent.  The Date Ruled Incompetent cannot be after th
e Date of Death.
"^DD",2,2,.292,21,0)
^^3^3^3090904^
"^DD",2,2,.292,21,1,0)
If this patient was ruled incompetent to handle his funds, enter the
"^DD",2,2,.292,21,2,0)
date he was ruled incompetent.  The Date Ruled Incompetent cannot be 
"^DD",2,2,.292,21,3,0)
after the Date of Death.
"^DD",2,2,.292,"DT")
3090904
"^DD",2,2,.2921,0)
INSTITUTION (CIVIL)^F^^.291;3^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2921,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2921,21,0)
^^3^3^2911224^
"^DD",2,2,.2921,21,1,0)
If this patient has been ruled incompetant to handle his financial matters,
"^DD",2,2,.2921,21,2,0)
enter the instituition reponsible for handling the funds on the patient's
"^DD",2,2,.2921,21,3,0)
behalf.
"^DD",2,2,.2922,0)
GUARDIAN (CIVIL)^F^^.291;4^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2922,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2922,21,0)
^^3^3^2911224^
"^DD",2,2,.2922,21,1,0)
If this patient has been ruled incompetant to handle his financial matters,
"^DD",2,2,.2922,21,2,0)
enter the name of the individual responsible for handling the funds on the
"^DD",2,2,.2922,21,3,0)
patient's behalf.
"^DD",2,2,.2923,0)
RELATIONSHIP (CIVIL)^F^^.291;5^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2923,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2923,21,0)
^^3^3^2911224^
"^DD",2,2,.2923,21,1,0)
If this patient has been ruled incompetant to handle his financial funds,
"^DD",2,2,.2923,21,2,0)
and someone else is responsible for handling the funds, enter the
"^DD",2,2,.2923,21,3,0)
relationship of that person to the patient.
"^DD",2,2,.2924,0)
STREET ADDRESS 1 (CIVIL)^F^^.291;6^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2924,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2924,21,0)
^^2^2^2911224^
"^DD",2,2,.2924,21,1,0)
Enter the first line of the street address of the person responsible for
"^DD",2,2,.2924,21,2,0)
handling this patient's funds.
"^DD",2,2,.2925,0)
STREET ADDRESS 2 (CIVIL)^F^^.291;7^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2925,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2925,21,0)
^^2^2^2911224^
"^DD",2,2,.2925,21,1,0)
Enter the second line of the street address of the person responsible for
"^DD",2,2,.2925,21,2,0)
handling this patient's funds.
"^DD",2,2,.2926,0)
CITY (CIVIL)^F^^.291;8^K:$L(X)>30!($L(X)<2) X
"^DD",2,2,.2926,3)
ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
"^DD",2,2,.2926,21,0)
^^2^2^2911224^
"^DD",2,2,.2926,21,1,0)
Enter the city in which the person responsible for this patient's funds
"^DD",2,2,.2926,21,2,0)
resides.
"^DD",2,2,.2927,0)
STATE (CIVIL)^P5'^DIC(5,^.291;9^Q
"^DD",2,2,.2927,3)

"^DD",2,2,.2927,21,0)
^^2^2^2911224^^
"^DD",2,2,.2927,21,1,0)
Enter the state in which the person responsible for handling this patient's
"^DD",2,2,.2927,21,2,0)
funds resides.
"^DD",2,2,.2928,0)
ZIP (CIVIL)^F^^.291;10^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N)
 X
"^DD",2,2,.2928,1,0)
^.1
"^DD",2,2,.2928,1,1,0)
2^ACIVZIP^MUMPS
"^DD",2,2,.2928,1,1,1)
D SET^DGREGDD1(DA,.290012,.291,12,X)
"^DD",2,2,.2928,1,1,2)
D KILL^DGREGDD1(DA,.290012,.291,12,X)
"^DD",2,2,.2928,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.2928,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.2928,1,1,"%D",2,0)
value.
"^DD",2,2,.2928,1,1,"DT")
2930603
"^DD",2,2,.2928,3)
ANSWER MUST BE 5 CHARACTERS IN LENGTH
"^DD",2,2,.2928,21,0)
^^2^2^2930617^^^^
"^DD",2,2,.2928,21,1,0)
Enter the zip code of the address where the person responsible for
"^DD",2,2,.2928,21,2,0)
handling this patient's funds resides.
"^DD",2,2,.2928,"DT")
2930603
"^DD",2,2,.2929,0)
PHONE (CIVIL)^F^^.291;11^K:$L(X)>20!($L(X)<3) X
"^DD",2,2,.2929,3)
ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
"^DD",2,2,.2929,21,0)
^^3^3^2911224^
"^DD",2,2,.2929,21,1,0)
If this patient has been ruled incompetant to handle his money and another
"^DD",2,2,.2929,21,2,0)
person has been assigned to handle the patient's financial matters, enter
"^DD",2,2,.2929,21,3,0)
that person's phone number here.
"^DD",2,2,.293,0)
RATED INCOMPETENT?^S^0:NO;1:YES;^.29;12^Q
"^DD",2,2,.293,1,0)
^.1
"^DD",2,2,.293,1,1,0)
2^AENR293^MUMPS
"^DD",2,2,.293,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.293,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.293,1,1,3)
 DO NOT DELETE
"^DD",2,2,.293,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.293,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.293,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.293,1,1,"DT")
3050606
"^DD",2,2,.293,3)
Used by A.M.I.E,  may differ from the Date ruled incompetent
"^DD",2,2,.293,21,0)
^^4^4^2890512^^^^
"^DD",2,2,.293,21,1,0)
This field was originated for the use of AMIE (Automated Medical
"^DD",2,2,.293,21,2,0)
Information Exchange).  One will receive from DVB the information
"^DD",2,2,.293,21,3,0)
on whether the patient was rated incompetent by the VA. This may
"^DD",2,2,.293,21,4,0)
differ from the date rated incompetent field in the patient file.
"^DD",2,2,.293,"DT")
2890505
"^DD",2,2,.301,0)
SERVICE CONNECTED?^RSXa^Y:YES;N:NO;^.3;1^S DFN=DA D EV^DGLOCK I $D(X),X="Y" D VE
T^DGLOCK
"^DD",2,2,.301,.1)
SC APPLICANT
"^DD",2,2,.301,1,0)
^.1
"^DD",2,2,.301,1,1,0)
^^TRIGGER^2^.302
"^DD",2,2,.301,1,1,1)
X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y
(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,1,1.4)
"^DD",2,2,.301,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.301,0)):$P(^(0
),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.301,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,
2),^(.3)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.302 D ^DICR:$N(^DD(DIH
,DIG,1,0))>0
"^DD",2,2,.301,1,1,2)
Q
"^DD",2,2,.301,1,1,"CREATE CONDITION")
#.301="NO"
"^DD",2,2,.301,1,1,"CREATE VALUE")
@
"^DD",2,2,.301,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.301,1,1,"FIELD")
#.302
"^DD",2,2,.301,1,2,0)
^^TRIGGER^2^.3012
"^DD",2,2,.301,1,2,1)
X ^DD(2,.301,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y
(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,2,1.4)
"^DD",2,2,.301,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.301,0)):$P(^(0
),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.301,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X S $P(^(.3),U,12)=DIV,DIH=2,DIG=.3
012 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.301,1,2,2)
Q
"^DD",2,2,.301,1,2,"%D",0)
^^2^2^2930419^
"^DD",2,2,.301,1,2,"%D",1,0)
This will delete the SC AWARD DATE (#.3012) field when the SERVICE
"^DD",2,2,.301,1,2,"%D",2,0)
CONNECTED? field is changed to NO.
"^DD",2,2,.301,1,2,"CREATE CONDITION")
#.301="NO"
"^DD",2,2,.301,1,2,"CREATE VALUE")
@
"^DD",2,2,.301,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.301,1,2,"DT")
2930419
"^DD",2,2,.301,1,2,"FIELD")
#.3012
"^DD",2,2,.301,1,3,0)
2^AENR301^MUMPS
"^DD",2,2,.301,1,3,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.301,1,3,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.301,1,3,3)
DO NOT DELETE
"^DD",2,2,.301,1,3,"%D",0)
^^2^2^2970630^^
"^DD",2,2,.301,1,3,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.301,1,3,"%D",2,0)
record.
"^DD",2,2,.301,1,3,"DT")
2970630
"^DD",2,2,.301,1,991,0)
2^AVAFC301^MUMPS
"^DD",2,2,.301,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.301,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.301,1,991,"%D",0)
^^15^15^2990204^^^
"^DD",2,2,.301,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.301,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.301,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.301,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.301,1,991,"%D",5,0)
 
"^DD",2,2,.301,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.301,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.301,1,991,"%D",8,0)
process.
"^DD",2,2,.301,1,991,"%D",9,0)
 
"^DD",2,2,.301,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.301,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.301,1,991,"%D",12,0)
  
"^DD",2,2,.301,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.301,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.301,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.301,1,991,"DT")
2970825
"^DD",2,2,.301,1,992,0)
2^ADGRU301^MUMPS
"^DD",2,2,.301,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.301,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.301,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.301,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.301,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.301,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.301,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.301,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.301,1,992,"%D",6,0)
interface.
"^DD",2,2,.301,1,992,"%D",7,0)
 
"^DD",2,2,.301,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.301,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.301,1,992,"DT")
2990921
"^DD",2,2,.301,3)
Enter 'Y' if this patient is service connected, 'N' if not.
"^DD",2,2,.301,5,1,0)
2^1901^3
"^DD",2,2,.301,20,0)
^.3LA^1^1
"^DD",2,2,.301,20,1,0)
ECD
"^DD",2,2,.301,21,0)
^^5^5^2990204^^^
"^DD",2,2,.301,21,1,0)
Enter 'Y' if this applicant is service connected, 'N' if not.
"^DD",2,2,.301,21,2,0)
Applicants identified as being non-veterans cannot be entered
"^DD",2,2,.301,21,3,0)
as service connected.  Once eligibility has been verified only
"^DD",2,2,.301,21,4,0)
users holding the designated security key may enter/edit this
"^DD",2,2,.301,21,5,0)
field.
"^DD",2,2,.301,"AUDIT")
y
"^DD",2,2,.301,"DEL",1,0)
S DFN=DA D EV^DGLOCK I '$D(X)
"^DD",2,2,.301,"DT")
2960911
"^DD",2,2,.3012,0)
SC AWARD DATE^DX^^.3;12^S %DT="E" D ^%DT S X=Y K:Y<1 X N DFN S DFN=DA D SC^DGLOC
K1
"^DD",2,2,.3012,.1)
DATE AWARDED SERVICE CONNECTION
"^DD",2,2,.3012,3)
Enter the date on which Service Connection is effective based on VBA decision.  
This can be obtained from either HINQ or the award letter.
"^DD",2,2,.3012,5,1,0)
2^.301^2
"^DD",2,2,.3012,21,0)
^^3^3^2930419^
"^DD",2,2,.3012,21,1,0)
This field contains the effective date of service connection, based on
"^DD",2,2,.3012,21,2,0)
the VBA decision.  This can be obtained either through HINQ or the 
"^DD",2,2,.3012,21,3,0)
award letter.
"^DD",2,2,.3012,23,0)
^^4^4^2930419^
"^DD",2,2,.3012,23,1,0)
This field is dependent on the SERVICE CONNECTED? field (#.301).
"^DD",2,2,.3012,23,2,0)
Changing the SERVICE CONNECTED? response from YES to NO will delete
"^DD",2,2,.3012,23,3,0)
this field.  No entry to this field is allowed if SERVICE CONNECTED? is
"^DD",2,2,.3012,23,4,0)
not answered YES.
"^DD",2,2,.3012,"DT")
2930419
"^DD",2,2,.3013,0)
P&T EFFECTIVE DATE^DX^^.3;13^S %DT="EXP" D ^%DT S X=Y K:X<1!(DT<X) X I $D(X) S D
FN=DA D PTDT^DGLOCK I $D(X) S DFN=DA D EV2^DGLOCK
"^DD",2,2,.3013,1,0)
^.1
"^DD",2,2,.3013,1,1,0)
2^AENR3013^MUMPS
"^DD",2,2,.3013,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3013,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3013,1,1,3)
DO NOT DELETE
"^DD",2,2,.3013,1,1,"%D",0)
^^2^2^3060412^
"^DD",2,2,.3013,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3013,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3013,1,1,"DT")
3060412
"^DD",2,2,.3013,3)
Enter the Effective Date the patient was awarded P&T disability status by VARO. 
 This date is optional, but cannot be in the future, before DOB or after DOD
"^DD",2,2,.3013,5,1,0)
2^.304^2
"^DD",2,2,.3013,21,0)
^^6^6^3070517^
"^DD",2,2,.3013,21,1,0)
Enter the Effective Date the patient was awarded P&T disability status
"^DD",2,2,.3013,21,2,0)
by VARO.
"^DD",2,2,.3013,21,3,0)
This field is optional (not required).  But if entered, the date needs 
"^DD",2,2,.3013,21,4,0)
to be a precise date, i.e. a day, month and year MUST be included.  
"^DD",2,2,.3013,21,5,0)
P&T Effective Date can not be a date prior to the Veteran's 'Date of 
"^DD",2,2,.3013,21,6,0)
Birth', a future date, or a date after the Veteran's 'Date of Death'.
"^DD",2,2,.3013,"DT")
3070516
"^DD",2,2,.3014,0)
EFF. DATE COMBINED SC% EVAL.^DX^^.3;14^S %DT="EP" D ^%DT S X=Y K:Y<1!(Y>DT) X
"^DD",2,2,.3014,21,0)
^.001^2^2^3050714^^
"^DD",2,2,.3014,21,1,0)
Data will be filed automatically from HL7 message from the HEC.  This is 
"^DD",2,2,.3014,21,2,0)
the date that the combined Service Connected Disability % was awarded.
"^DD",2,2,.3014,"DT")
3050714
"^DD",2,2,.302,0)
SERVICE CONNECTED PERCENTAGE^NJ3,0Xa^^.3;2^S DFN=DA D EV^DGLOCK Q:'$D(X)  K:+X'=
X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X),$D(^DPT(DA,.3)),$P(^(.3),U,1)'="Y" W !?
4,*7,"Only applies to service-connected applicants." K X
"^DD",2,2,.302,1,0)
^.1
"^DD",2,2,.302,1,1,0)
2^ASCP^MUMPS
"^DD",2,2,.302,1,1,1)
Q
"^DD",2,2,.302,1,1,2)
Q
"^DD",2,2,.302,1,2,0)
2^AENR302^MUMPS
"^DD",2,2,.302,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.302,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.302,1,2,3)
DO NOT DELETE
"^DD",2,2,.302,1,2,"%D",0)
^^2^2^2970630^^
"^DD",2,2,.302,1,2,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.302,1,2,"%D",2,0)
record.
"^DD",2,2,.302,1,2,"DT")
2970630
"^DD",2,2,.302,1,3,0)
2^AR^MUMPS
"^DD",2,2,.302,1,3,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.302,1,3,2)
Q
"^DD",2,2,.302,1,3,3)
DO NOT DELETE!
"^DD",2,2,.302,1,3,"%D",0)
^^2^2^2990809^
"^DD",2,2,.302,1,3,"%D",1,0)
This MUMPS cross-reference is needed to determine whether a change in
"^DD",2,2,.302,1,3,"%D",2,0)
service connected percentage requires that a means test be done.
"^DD",2,2,.302,1,3,"DT")
2990809
"^DD",2,2,.302,1,991,0)
2^AVAFC302^MUMPS
"^DD",2,2,.302,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".302;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.302,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".302;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.302,1,991,"%D",0)
^^15^15^3030609^
"^DD",2,2,.302,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.302,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.302,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.302,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.302,1,991,"%D",5,0)
 
"^DD",2,2,.302,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.302,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.302,1,991,"%D",8,0)
process.
"^DD",2,2,.302,1,991,"%D",9,0)
 
"^DD",2,2,.302,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.302,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.302,1,991,"%D",12,0)
 
"^DD",2,2,.302,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.  This data 
"^DD",2,2,.302,1,991,"%D",14,0)
is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file 
"^DD",2,2,.302,1,991,"%D",15,0)
(#391.71).
"^DD",2,2,.302,1,991,"DT")
3030609
"^DD",2,2,.302,1,992,0)
2^ADGRU302^MUMPS
"^DD",2,2,.302,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.302,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.302,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.302,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.302,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.302,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.302,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.302,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.302,1,992,"%D",6,0)
interface.
"^DD",2,2,.302,1,992,"%D",7,0)
 
"^DD",2,2,.302,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.302,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.302,1,992,"DT")
2990921
"^DD",2,2,.302,3)
For this service connected applicant enter the percentage of service connection 
between 0 and 100%.
"^DD",2,2,.302,5,1,0)
2^.301^1
"^DD",2,2,.302,20,0)
^.3LA^1^1
"^DD",2,2,.302,20,1,0)
ECD
"^DD",2,2,.302,21,0)
^^5^5^2861007^^
"^DD",2,2,.302,21,1,0)
If this applicant is service connected (SERVICE CONNECTED prompt must
"^DD",2,2,.302,21,2,0)
be answered YES) enter the service connected percentage [a number
"^DD",2,2,.302,21,3,0)
between 0-100].  Once eligibility has been verified only users who hold
"^DD",2,2,.302,21,4,0)
the designated security key may enter/edit this field.  Field may not be
"^DD",2,2,.302,21,5,0)
deleted as long as service connection is indicated.
"^DD",2,2,.302,"AUDIT")
y
"^DD",2,2,.302,"DEL",1,0)
S DFN=DA D EV^DGLOCK Q:'$D(X)  I $D(^DPT(DFN,.3)),$P(^(.3),U,1)="Y" W !?4,*7,"Se
rvice Connected Applicant...CAN'T DELETE!!" K X
"^DD",2,2,.302,"DT")
3030609
"^DD",2,2,.3025,0)
RECEIVING VA DISABILITY?^SX^Y:YES;N:NO;U:UNKNOWN;^.3;11^S DFN=DA D MV^DGLOCK I $
D(X),X="Y" D EC^DGLOCK1
"^DD",2,2,.3025,1,0)
^.1
"^DD",2,2,.3025,1,1,0)
^^TRIGGER^2^.303
"^DD",2,2,.3025,1,1,1)
X ^DD(2,.3025,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(
Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,1.4)
"^DD",2,2,.3025,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3025,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3025,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  
S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.3)=$P(DIH,U,1,2)_U_DIV_$S(%]
"":U_%,1:""),DIH=2,DIG=.303 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3025,1,1,2)
X ^DD(2,.3025,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(
Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,2.4)
"^DD",2,2,.3025,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3025,0)):$P(^(
0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),
U,11)_":",2),$C(59),1)=""
"^DD",2,2,.3025,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99))  
S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.3)=$P(DIH,U,1,2)_U_DIV_$S(%]
"":U_%,1:""),DIH=2,DIG=.303 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3025,1,1,"CREATE CONDITION")
#.3025="NO"
"^DD",2,2,.3025,1,1,"CREATE VALUE")
@
"^DD",2,2,.3025,1,1,"DELETE CONDITION")
#.3025=""
"^DD",2,2,.3025,1,1,"DELETE VALUE")
@
"^DD",2,2,.3025,1,1,"FIELD")
#.303
"^DD",2,2,.3025,1,2,0)
^^TRIGGER^2^.36295
"^DD",2,2,.3025,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.3025,1,2,1.4)
"^DD",2,2,.3025,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3025,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.3025,1,2,2.4)
"^DD",2,2,.3025,1,2,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3025,1,2,"CREATE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.3025,1,2,"CREATE VALUE")
@
"^DD",2,2,.3025,1,2,"DELETE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.3025,1,2,"DELETE VALUE")
@
"^DD",2,2,.3025,1,2,"DT")
2970327
"^DD",2,2,.3025,1,2,"FIELD")
#.36295
"^DD",2,2,.3025,1,3,0)
2^AENR3025^MUMPS
"^DD",2,2,.3025,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3025,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3025,1,3,3)
 DO NOT DELETE
"^DD",2,2,.3025,1,3,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.3025,1,3,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3025,1,3,"%D",2,0)
enrollment.
"^DD",2,2,.3025,1,3,"DT")
3050606
"^DD",2,2,.3025,3)
Enter 'Y' if receiving a VA Disability, 'N' if not.
"^DD",2,2,.3025,20,0)
^.3LA^1^1
"^DD",2,2,.3025,20,1,0)
MB
"^DD",2,2,.3025,21,0)
^^4^4^2861006^^
"^DD",2,2,.3025,21,1,0)
For this veteran applicant enter 'Y' if s/he is in receipt of a disability
"^DD",2,2,.3025,21,2,0)
payment, 'N' if not, or 'U' if unknown.  Once monetary benefits have been
"^DD",2,2,.3025,21,3,0)
verified only users who hold the designated security key may enter/edit
"^DD",2,2,.3025,21,4,0)
this field.
"^DD",2,2,.3025,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.3025,"DT")
3010107
"^DD",2,2,.303,0)
AMOUNT OF VA DISABILITY^NJ7,0X^^.3;3^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>9999
9)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.303,9.3)
"^DD",2,2,.303,.1)
VA DISABILITY AMOUNT
"^DD",2,2,.303,3)
If in receipt of VA Disability, enter the dollar amount awarded.
"^DD",2,2,.303,5,1,0)
2^.3025^1
"^DD",2,2,.303,9.2)
I $D(^DPT(DA,.3)),$P(^(.3),U,11)="Y" W !?4,*7,"Delete by answering 'RECEIPT OF D
ISABILITY PAYMENT' prompt NO." K X
"^DD",2,2,.303,9.3)
X ^DD(2,.303,9.4) I $D(X),$D(^DPT(DFN,.3)),$P(^(.3),U,11)'="Y" W !?4,*7,"Receipt
 of Disability payment not indicated." K X Q
"^DD",2,2,.303,9.4)
I $D(^DPT(DFN,.362)),$P(^(.362),U,4)]"" W !?4,*7,"Already receiving VA Pension m
onies...Can't receive both..." K X Q
"^DD",2,2,.303,20,0)
^.3LA^1^1
"^DD",2,2,.303,20,1,0)
MB
"^DD",2,2,.303,21,0)
^^9^9^2880923^^^^
"^DD",2,2,.303,21,1,0)
For this veteran applicant who is in receipt of disability payment
"^DD",2,2,.303,21,2,0)
(RECEIPT OF DISABILITY PAYMENT prompt must be answered YES) enter
"^DD",2,2,.303,21,3,0)
the amount received [a number between 0-99999].  Once monetary
"^DD",2,2,.303,21,4,0)
benefits are verified only users who hold the designated security
"^DD",2,2,.303,21,5,0)
key may enter/edit this field.  Any dollar amomount on file cannot
"^DD",2,2,.303,21,6,0)
be deleted as long as receipt of disability payment is indicated.
"^DD",2,2,.303,21,7,0)
  
"^DD",2,2,.303,21,8,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.303,21,9,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.303,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.303,9.2):$D(X) I '$D(X)
"^DD",2,2,.303,"DT")
2880923
"^DD",2,2,.304,0)
P&T^SX^Y:YES;N:NO;^.3;4^S DFN=DA D EV2^DGLOCK
"^DD",2,2,.304,.1)
PERMANENT AND TOTAL
"^DD",2,2,.304,1,0)
^.1
"^DD",2,2,.304,1,1,0)
2^AENR304^MUMPS
"^DD",2,2,.304,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.304,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.304,1,1,3)
 DO NOT DELETE
"^DD",2,2,.304,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.304,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.304,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.304,1,1,"DT")
3050606
"^DD",2,2,.304,1,2,0)
^^TRIGGER^2^.3013
"^DD",2,2,.304,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.304,0)),U,3) S
 X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="Y" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.
3)):^(.3),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(2,.304,1,2,1.4)
"^DD",2,2,.304,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.3)),DIV=X S $P(^(.3),U,13)=DIV,DIH=2,DIG=.3013 D ^DICR
"^DD",2,2,.304,1,2,2)
X ^DD(2,.304,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y
(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3)),DIV=X S $P(^(.3),U,13
)=DIV,DIH=2,DIG=.3013 D ^DICR
"^DD",2,2,.304,1,2,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.304,0)),U,3),Y
(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_":",2),$C(
59))'="Y"
"^DD",2,2,.304,1,2,"%D",0)
^.101^2^2^3060515^^^
"^DD",2,2,.304,1,2,"%D",1,0)
This cross reference will delete the P&T Effective date field (#.3103) if 
"^DD",2,2,.304,1,2,"%D",2,0)
the P&T field is not YES.
"^DD",2,2,.304,1,2,"CREATE CONDITION")
#.304'="Y"
"^DD",2,2,.304,1,2,"CREATE VALUE")
@
"^DD",2,2,.304,1,2,"DELETE CONDITION")
#.304'="Y"
"^DD",2,2,.304,1,2,"DELETE VALUE")
@
"^DD",2,2,.304,1,2,"DT")
3060322
"^DD",2,2,.304,1,2,"FIELD")
P&T EFFECTIVE DATE
"^DD",2,2,.304,3)
Is this patient permanently and totally disabled due to an SC condition?
"^DD",2,2,.304,21,0)
^^5^5^3060828^
"^DD",2,2,.304,21,1,0)
This field will contain YES if the patient is determined to be
"^DD",2,2,.304,21,2,0)
permanently and totally disabled by VARO due to a service connected
"^DD",2,2,.304,21,3,0)
condition.
"^DD",2,2,.304,21,4,0)
 
"^DD",2,2,.304,21,5,0)
Answering "YES" will prompt you to enter a P&T Effective Date.
"^DD",2,2,.304,"DT")
3060712
"^DD",2,2,.305,0)
UNEMPLOYABLE^S^Y:YES;N:NO;^.3;5^Q
"^DD",2,2,.305,1,0)
^.1
"^DD",2,2,.305,1,1,0)
2^AENR305^MUMPS
"^DD",2,2,.305,1,1,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.305,1,1,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.305,1,1,3)
DO NOT DELETE
"^DD",2,2,.305,1,1,"%D",0)
^^2^2^3040722^
"^DD",2,2,.305,1,1,"%D",1,0)
This cross-reference is used to update the patient's current
"^DD",2,2,.305,1,1,"%D",2,0)
Patient Enrollment record.
"^DD",2,2,.305,1,1,"DT")
3040722
"^DD",2,2,.305,1,2,0)
2^AT^MUMPS
"^DD",2,2,.305,1,2,1)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.305,1,2,2)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.305,1,2,"%D",0)
^^3^3^3041117^
"^DD",2,2,.305,1,2,"%D",1,0)
This cross reference acts like a trigger.  It 'triggers' the status field
"^DD",2,2,.305,1,2,"%D",2,0)
in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It
"^DD",2,2,.305,1,2,"%D",3,0)
will update the field to 'NO LONGER APPLICABLE' if appropriate.
"^DD",2,2,.305,1,2,"DT")
3041117
"^DD",2,2,.305,3)
Is this patient unemployable due to an SC condition as rated by VARO?
"^DD",2,2,.305,21,0)
^^2^2^2911203^^
"^DD",2,2,.305,21,1,0)
Is this patient rated unemployable by the VARO due to a service connected
"^DD",2,2,.305,21,2,0)
condition?
"^DD",2,2,.305,"DT")
3041117
"^DD",2,2,.306,0)
MONETARY BEN. VERIFY DATE^DX^^.3;6^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1
 X I $D(X) D EK^DGLOCK
"^DD",2,2,.306,3)
Enter the date on which monetary benefits were verified to be accurate.
"^DD",2,2,.306,20,0)
^.3LA^1^1
"^DD",2,2,.306,20,1,0)
MB
"^DD",2,2,.306,21,0)
^^5^5^2861006^
"^DD",2,2,.306,21,1,0)
Once monetary benefits, and amounts, are verified enter the date of
"^DD",2,2,.306,21,2,0)
verification.  All monetary benefits data fields will become uneditable
"^DD",2,2,.306,21,3,0)
to any user who does not hold the designated security key once the
"^DD",2,2,.306,21,4,0)
benefits are verified.  Only users who hold the designated security
"^DD",2,2,.306,21,5,0)
key may enter/edit this field.
"^DD",2,2,.306,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.306,"DT")
2900418
"^DD",2,2,.307,0)
INELIGIBLE REASON^FX^^.3;7^K:$L(X)>40!($L(X)<1) X I $D(X) D EK^DGLOCK
"^DD",2,2,.307,.1)
REASON-INELIGIBLE
"^DD",2,2,.307,1,0)
^.1
"^DD",2,2,.307,1,1,0)
2^AENR307^MUMPS
"^DD",2,2,.307,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.307,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.307,1,1,3)
 DO NOT DELETE
"^DD",2,2,.307,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.307,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.307,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.307,1,1,"DT")
3050606
"^DD",2,2,.307,3)
Enter the reason this patient is considered to be ineligible for treatment NTE 4
0 characters.
"^DD",2,2,.307,20,0)
^.3LA^1^1
"^DD",2,2,.307,20,1,0)
IPT
"^DD",2,2,.307,21,0)
^^5^5^2861007^^^
"^DD",2,2,.307,21,1,0)
If this applicant is ineligible for treatment enter the reason
"^DD",2,2,.307,21,2,0)
[not to exceed 40 characters].  An ineligible date must be specified
"^DD",2,2,.307,21,3,0)
in order to enter/edit this field and the user must hold the
"^DD",2,2,.307,21,4,0)
designated security key.  This field may not be deleted as long as
"^DD",2,2,.307,21,5,0)
an ineligible date is on file.
"^DD",2,2,.307,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.307,"DT")
2860728
"^DD",2,2,.308,0)
*NON-VET CLASSIFICATION^P24'X^DIC(24,^.3;8^I $D(^DPT(DA,"VET")) I $P(^("VET"),U,
1)="Y" K X W !,"Patient is a veteran"
"^DD",2,2,.308,"DT")
2851230
"^DD",2,2,.309,0)
AGENCY/ALLIED COUNTRY^*P35'X^DIC(35,^.3;9^S DFN=DA D AAC^DGLOCK2
"^DD",2,2,.309,3)
If applicable, enter the federal agency or allied country associated with this p
atient.
"^DD",2,2,.309,12)
Screen selections by eligibility code
"^DD",2,2,.309,12.1)
S %Z1=$S($D(^DPT(DA,.31)):+$P(^(0),U,1),1:""),%Z=$S('$D(^("VET")):"",^("VET")="N
"&(%Z1=4):"A",%Z="Y"&(%Z1=5):"C",1:""),DIC("S")="I $P(^(0),U,4)=%Z"
"^DD",2,2,.309,20,0)
^.3LA^1^1
"^DD",2,2,.309,20,1,0)
ECD
"^DD",2,2,.309,21,0)
^^4^4^2861007^
"^DD",2,2,.309,21,1,0)
For this applicant whose eligibility code is either 'OTHER FEDERAL
"^DD",2,2,.309,21,2,0)
AGENCY' or 'ALLIED VETERAN' select from the available listing
"^DD",2,2,.309,21,3,0)
the federal agency or allied country, as appropriate, which best
"^DD",2,2,.309,21,4,0)
classifies this applicant.
"^DD",2,2,.309,"DEL",1,0)
S DFN=DA D EV^DGLOCK I '$D(X)
"^DD",2,2,.309,"DT")
2861007
"^DD",2,2,.31,0)
*CATEGORY OF BENEFICIARY^P45.82'X^DIC(45.82,^.3;10^D CAT^DGINP
"^DD",2,2,.31,.1)
CATEGORY OF BENEFICIARY
"^DD",2,2,.31,1,0)
^.1
"^DD",2,2,.31,1,1,0)
2^ACB
"^DD",2,2,.31,1,1,1)
S ^DPT("ACB",$E(X,1,30),DA)=""
"^DD",2,2,.31,1,1,2)
K ^DPT("ACB",$E(X,1,30),DA)
"^DD",2,2,.31,3)
Enter the category of benificiary for this patient.
"^DD",2,2,.31,21,0)
^^7^7^2911216^
"^DD",2,2,.31,21,1,0)
This field is no longer used by the MAS package.  It was previously
"^DD",2,2,.31,21,2,0)
updated via a cross-reference on the CATEGORY OF BENEFICIARY field in
"^DD",2,2,.31,21,3,0)
the PTF file.  In a prior release of MAS, the use of category of
"^DD",2,2,.31,21,4,0)
beneficiary was discontinued and period of service is now solely used.
"^DD",2,2,.31,21,5,0)
In a future release of MAS, this field will be removed along with
"^DD",2,2,.31,21,6,0)
the ACB cross-reference on the PATIENT file and the cross-reference in
"^DD",2,2,.31,21,7,0)
the PTF file which sets this data.
"^DD",2,2,.31,"DT")
2911216
"^DD",2,2,.3111,0)
EMPLOYER NAME^FX^^.311;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I 
$D(X) D EM^DGLOCK2
"^DD",2,2,.3111,.1)

"^DD",2,2,.3111,1,0)
^.1
"^DD",2,2,.3111,1,1,0)
2^AXR3^MUMPS
"^DD",2,2,.3111,1,1,1)
Q
"^DD",2,2,.3111,1,1,2)
S DGXRF=.3111 D ^DGDDC Q
"^DD",2,2,.3111,1,2,0)
2^AENR3111^MUMPS
"^DD",2,2,.3111,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3111,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3111,1,2,3)
 DO NOT DELETE
"^DD",2,2,.3111,1,2,"%D",0)
^.101^2^2^3050929^^^^
"^DD",2,2,.3111,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3111,1,2,"%D",2,0)
enrollment.
"^DD",2,2,.3111,1,2,"DT")
3050929
"^DD",2,2,.3111,3)
Enter the name of this patient's employer [1-30 characters].
"^DD",2,2,.3111,5,1,0)
2^.31115^2
"^DD",2,2,.3111,20,0)
^.3LA^1^1
"^DD",2,2,.3111,20,1,0)
EM1
"^DD",2,2,.3111,21,0)
^^2^2^2920604^^
"^DD",2,2,.3111,21,1,0)
If employment status is indicated and is not unemployed enter the
"^DD",2,2,.3111,21,2,0)
employer name [1-30 characters], otherwise nothing may be entered.
"^DD",2,2,.3111,"DT")
2890530
"^DD",2,2,.31115,0)
EMPLOYMENT STATUS^RSa^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EMPLOYED;4
:SELF EMPLOYED;5:RETIRED;6:ACTIVE MILITARY DUTY;9:UNKNOWN;^.311;15^Q
"^DD",2,2,.31115,1,0)
^.1
"^DD",2,2,.31115,1,1,0)
^^TRIGGER^2^.31116
"^DD",2,2,.31115,1,1,1)
X ^DD(2,.31115,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S 
X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.311)),DIV=X S $P(^(
.311),U,16)=DIV,DIH=2,DIG=.31116 D ^DICR
"^DD",2,2,.31115,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.31115,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="RETIRED"
"^DD",2,2,.31115,1,1,2)
X ^DD(2,.31115,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S 
X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.311)),DIV=X S $P(^(
.311),U,16)=DIV,DIH=2,DIG=.31116 D ^DICR
"^DD",2,2,.31115,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.31115,0)),U,3)
 S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="RETIRED"
"^DD",2,2,.31115,1,1,"%D",0)
^.101^5^5^3050302^^^
"^DD",2,2,.31115,1,1,"%D",1,0)
This trigger Cross Reference will remove the DATE OF RETIREMENT value when
"^DD",2,2,.31115,1,1,"%D",2,0)
the EMPLOYMENT STATUS changes from RETIRED to any other status.
"^DD",2,2,.31115,1,1,"%D",3,0)
 
"^DD",2,2,.31115,1,1,"%D",4,0)
When the EMPLOYMENT STATUS changes from anything other than RETIRED, no 
"^DD",2,2,.31115,1,1,"%D",5,0)
change should be made to the DATE OF RETIREMENT.
"^DD",2,2,.31115,1,1,"CREATE CONDITION")
EMPLOYMENT STATUS'="RETIRED"
"^DD",2,2,.31115,1,1,"CREATE VALUE")
@
"^DD",2,2,.31115,1,1,"DELETE CONDITION")
OLD EMPLOYMENT STATUS="RETIRED"
"^DD",2,2,.31115,1,1,"DELETE VALUE")
@
"^DD",2,2,.31115,1,1,"DT")
3041130
"^DD",2,2,.31115,1,1,"FIELD")
DATE OF RETIREMENT
"^DD",2,2,.31115,1,2,0)
^^TRIGGER^2^.3111
"^DD",2,2,.31115,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[$P(^DPT(DA,.311),U,15) I X S X=
DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S
 X="" X ^DD(2,.31115,1,2,1.4)
"^DD",2,2,.31115,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.311)):^(.311),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DI
H,U,1),^(.311)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3111 D ^DICR:$N(^DD(DIH,DIG,1,0)
)>0
"^DD",2,2,.31115,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "^3^9^"[$P(^DPT(DA,.311),U,15) I X S X=
DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S
 X="" X ^DD(2,.31115,1,2,2.4)
"^DD",2,2,.31115,1,2,2.4)
S DIH=$S($D(^DPT(DIV(0),.311)):^(.311),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DI
H,U,1),^(.311)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3111 D ^DICR:$N(^DD(DIH,DIG,1,0)
)>0
"^DD",2,2,.31115,1,2,"CREATE CONDITION")
I "^3^9^"[$P(^DPT(DA,.311),U,15)
"^DD",2,2,.31115,1,2,"CREATE VALUE")
@
"^DD",2,2,.31115,1,2,"DELETE CONDITION")
I "^3^9^"[$P(^DPT(DA,.311),U,15)
"^DD",2,2,.31115,1,2,"DELETE VALUE")
@
"^DD",2,2,.31115,1,2,"FIELD")
EMPLOYER NAME
"^DD",2,2,.31115,1,991,0)
2^AVAFC31115^MUMPS
"^DD",2,2,.31115,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".31115;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.31115,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".31115;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.31115,1,991,"%D",0)
^.101^15^15^3041130^^^^
"^DD",2,2,.31115,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.31115,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.31115,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.31115,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.31115,1,991,"%D",5,0)
 
"^DD",2,2,.31115,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.31115,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.31115,1,991,"%D",8,0)
process.
"^DD",2,2,.31115,1,991,"%D",9,0)
 
"^DD",2,2,.31115,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.31115,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.31115,1,991,"%D",12,0)
  
"^DD",2,2,.31115,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.31115,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.31115,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.31115,1,991,"DT")
2970825
"^DD",2,2,.31115,1,992,0)
2^AENR31115^MUMPS
"^DD",2,2,.31115,1,992,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.31115,1,992,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.31115,1,992,3)
 DO NOT DELETE
"^DD",2,2,.31115,1,992,"%D",0)
^.101^2^2^3050929^^^^
"^DD",2,2,.31115,1,992,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.31115,1,992,"%D",2,0)
enrollment.
"^DD",2,2,.31115,1,992,"DT")
3050929
"^DD",2,2,.31115,3)
Enter this patient's current employment status.
"^DD",2,2,.31115,20,0)
^.3LA^1^1
"^DD",2,2,.31115,20,1,0)
PEMP
"^DD",2,2,.31115,21,0)
^^2^2^2920604^^
"^DD",2,2,.31115,21,1,0)
Enter the patient's current employment status.  Choose from the available
"^DD",2,2,.31115,21,2,0)
choices.
"^DD",2,2,.31115,"AUDIT")
y
"^DD",2,2,.31115,"DT")
3060802
"^DD",2,2,.31116,0)
DATE OF RETIREMENT^DX^^.311;16^S %DT="E" D ^%DT S X=Y K:Y<1 X K:Y>DT X K:(+$P(^D
PT(DA,0),"^",3)>Y) X K:(+$P($G(^DPT(DA,.311)),"^",15)'=5) X
"^DD",2,2,.31116,3)
For this veteran applicant enter the date s/he retired from her/his place of emp
loyment.  A date may only be entered if the veteran is RETIRED.
"^DD",2,2,.31116,5,1,0)
2^.31115^1
"^DD",2,2,.31116,21,0)
^.001^2^2^3050526^^^^
"^DD",2,2,.31116,21,1,0)
For this veteran applicant, enter the date s/he retired from
"^DD",2,2,.31116,21,2,0)
her/his place of employment.
"^DD",2,2,.31116,23,0)
^.001^4^4^3050526^^^^
"^DD",2,2,.31116,23,1,0)
The Input Transform for the DATE OF RETIREMENT compares the date entered
"^DD",2,2,.31116,23,2,0)
to the Patient's DATE OF BIRTH.  If the DATE OF BIRTH is later than the 
"^DD",2,2,.31116,23,3,0)
DATE OF RETIREMENT, the entered date is not accepted for the DATE OF 
"^DD",2,2,.31116,23,4,0)
RETIREMENT.
"^DD",2,2,.31116,"DT")
3050526
"^DD",2,2,.3112,0)
GOVERNMENT AGENCY^SX^Y:YES;N:NO;^.311;2^I $D(X),X="Y" S DFN=DA D EM1^DGLOCK2
"^DD",2,2,.3112,3)
Enter 'Y' if this patient is employed by a government agency, 'N' if not.
"^DD",2,2,.3112,21,0)
^^3^3^2911214^^
"^DD",2,2,.3112,21,1,0)
If this patient is currently employed by a government agency, respond yes
"^DD",2,2,.3112,21,2,0)
to this question.  If the patient is employed by the private sector or
"^DD",2,2,.3112,21,3,0)
currently is unemployed, respond no.
"^DD",2,2,.3112,"DEL",1,0)
S DFN=DA D EMD^DGLOCK2 I '$D(X)
"^DD",2,2,.3112,"DT")
2890531
"^DD",2,2,.3113,0)
EMPLOYER STREET [LINE 1]^FX^^.311;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
"^DD",2,2,.3113,.1)

"^DD",2,2,.3113,1,0)
^.1
"^DD",2,2,.3113,1,1,0)
2^AXR20^MUMPS
"^DD",2,2,.3113,1,1,1)
Q
"^DD",2,2,.3113,1,1,2)
S DGXRF=.3113 D ^DGDDC Q
"^DD",2,2,.3113,3)
Enter the first line of the employer's address [1-30 characters].
"^DD",2,2,.3113,20,0)
^.3LA^1^1
"^DD",2,2,.3113,20,1,0)
EM1
"^DD",2,2,.3113,21,0)
^^4^4^2920604^^
"^DD",2,2,.3113,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3113,21,2,0)
an employer name is entered enter the first line of the employer
"^DD",2,2,.3113,21,3,0)
street address [1-30 characters], otherwise nothing may be entered.
"^DD",2,2,.3113,21,4,0)
This field cannot be deleted as long as an employer name is on file.
"^DD",2,2,.3113,"DEL",1,0)
S DFN=DA D EMD^DGLOCK2 I '$D(X)
"^DD",2,2,.3113,"DT")
2890531
"^DD",2,2,.3114,0)
EMPLOYER STREET [LINE 2]^FX^^.311;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
"^DD",2,2,.3114,.1)

"^DD",2,2,.3114,1,0)
^.1
"^DD",2,2,.3114,1,1,0)
2^AXR21^MUMPS
"^DD",2,2,.3114,1,1,1)
Q
"^DD",2,2,.3114,1,1,2)
S DGXRF=.3114 D ^DGDDC Q
"^DD",2,2,.3114,3)
If necessary, enter the second line of the employer's address [1-30 characters].
"^DD",2,2,.3114,20,0)
^.3LA^1^1
"^DD",2,2,.3114,20,1,0)
EM1
"^DD",2,2,.3114,21,0)
^^5^5^2920604^^
"^DD",2,2,.3114,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3114,21,2,0)
an employer name is entered enter the second line of the employer
"^DD",2,2,.3114,21,3,0)
street address [1-30 characters], if necessary, otherwise nothing
"^DD",2,2,.3114,21,4,0)
may be entered.  This field cannot be deleted as long as an employer
"^DD",2,2,.3114,21,5,0)
name is on file.
"^DD",2,2,.3114,"DT")
2890531
"^DD",2,2,.3115,0)
EMPLOYER STREET [LINE 3]^FX^^.311;5^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM
1^DGLOCK2
"^DD",2,2,.3115,.1)

"^DD",2,2,.3115,3)
If necessary, enter the third line of the employer's address [1-30 characters].
"^DD",2,2,.3115,20,0)
^.3LA^1^1
"^DD",2,2,.3115,20,1,0)
EM1
"^DD",2,2,.3115,21,0)
^^5^5^2920604^^
"^DD",2,2,.3115,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3115,21,2,0)
an employer name is entered enter the third line of the employer
"^DD",2,2,.3115,21,3,0)
street address [1-30 characters], if necessary, otherwise nothing
"^DD",2,2,.3115,21,4,0)
may be entered.  This field cannot be deleted as long as an employer
"^DD",2,2,.3115,21,5,0)
name is on file.
"^DD",2,2,.3115,"DT")
2890531
"^DD",2,2,.3116,0)
EMPLOYER CITY^FX^^.311;6^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2
"^DD",2,2,.3116,.1)

"^DD",2,2,.3116,3)
Enter the city in which this patient is employed [1-30 characters].
"^DD",2,2,.3116,20,0)
^.3LA^1^1
"^DD",2,2,.3116,20,1,0)
EM1
"^DD",2,2,.3116,21,0)
^^4^4^2920604^^
"^DD",2,2,.3116,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3116,21,2,0)
an employer name is entered enter the employer city [1-30 characters],
"^DD",2,2,.3116,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted as
"^DD",2,2,.3116,21,4,0)
long as an employer name is on file.
"^DD",2,2,.3116,"DEL",1,0)
S DFN=DA D EMD^DGLOCK2 I '$D(X)
"^DD",2,2,.3116,"DT")
2890531
"^DD",2,2,.3117,0)
EMPLOYER STATE^P5'X^DIC(5,^.311;7^I $D(X) S DFN=DA D EM1^DGLOCK2
"^DD",2,2,.3117,.1)

"^DD",2,2,.3117,3)
Enter the state in which this patient is employed.
"^DD",2,2,.3117,20,0)
^.3LA^1^1
"^DD",2,2,.3117,20,1,0)
EM1
"^DD",2,2,.3117,21,0)
^^4^4^2920604^^
"^DD",2,2,.3117,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3117,21,2,0)
an employer name is entered select from the available listing the
"^DD",2,2,.3117,21,3,0)
employer state, otherwise nothing may be entered.  This field
"^DD",2,2,.3117,21,4,0)
cannot be deleted as long as an employer name is on file.
"^DD",2,2,.3117,"DEL",1,0)
S DFN=DA D EMD^DGLOCK2 I '$D(X)
"^DD",2,2,.3117,"DT")
2890531
"^DD",2,2,.3118,0)
EMPLOYER ZIP CODE^FX^^.311;8^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'
(X?5N) X I $D(X) S DFN=DA D EM1^DGLOCK2
"^DD",2,2,.3118,.1)

"^DD",2,2,.3118,1,0)
^.1
"^DD",2,2,.3118,1,1,0)
2^AEM1ZIP^MUMPS
"^DD",2,2,.3118,1,1,1)
D SET^DGREGDD1(DA,.2205,.22,5,X)
"^DD",2,2,.3118,1,1,2)
D KILL^DGREGDD1(DA,.2205,.22,5,X)
"^DD",2,2,.3118,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.3118,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.3118,1,1,"%D",2,0)
value.
"^DD",2,2,.3118,1,1,"DT")
2930603
"^DD",2,2,.3118,3)
Enter the 5-digit zip code for this patient's place of employment.
"^DD",2,2,.3118,20,0)
^.3LA^1^1
"^DD",2,2,.3118,20,1,0)
EM1
"^DD",2,2,.3118,21,0)
^^4^4^2930603^^^
"^DD",2,2,.3118,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3118,21,2,0)
an employer name is entered enter the employer zip code [5 numerics],
"^DD",2,2,.3118,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted as
"^DD",2,2,.3118,21,4,0)
long as an employer name is on file.
"^DD",2,2,.3118,"DEL",1,0)
S DFN=DA D EMD^DGLOCK2 I '$D(X)
"^DD",2,2,.3118,"DT")
2930603
"^DD",2,2,.3119,0)
EMPLOYER PHONE NUMBER^FX^^.311;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D EM1^D
GLOCK2
"^DD",2,2,.3119,.1)

"^DD",2,2,.3119,3)
Enter this patient's employment telephone number [3-20 characters].
"^DD",2,2,.3119,20,0)
^.3LA^1^1
"^DD",2,2,.3119,20,1,0)
EM1
"^DD",2,2,.3119,21,0)
^^4^4^2930611^^^^
"^DD",2,2,.3119,21,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3119,21,2,0)
an employer name is entered enter the employer telephone number
"^DD",2,2,.3119,21,3,0)
[3-20 characters], otherwise nothing may be entered.  This field
"^DD",2,2,.3119,21,4,0)
cannot be deleted as long as an employer name is on file.
"^DD",2,2,.3119,23,0)
^^4^4^2930611^^^
"^DD",2,2,.3119,23,1,0)
If employment status is indicated, applicant is not unemployed and
"^DD",2,2,.3119,23,2,0)
an employer name is entered enter the employer telephone number
"^DD",2,2,.3119,23,3,0)
[3-20 characters], otherwise nothing may be entered.  This field
"^DD",2,2,.3119,23,4,0)
cannot be deleted as long as an employer name is on file.
"^DD",2,2,.3119,"DT")
2890531
"^DD",2,2,.312,0)
*CLAIM FOLDER LOCATION^F^^.31;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<
2) X
"^DD",2,2,.312,1,0)
^.1^^-1
"^DD",2,2,.312,1,2,0)
2^AENR312^MUMPS
"^DD",2,2,.312,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.312,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.312,1,2,3)
 DO NOT DELETE
"^DD",2,2,.312,1,2,"%D",0)
^.101^2^2^3051003^^^^
"^DD",2,2,.312,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.312,1,2,"%D",2,0)
enrollment.
"^DD",2,2,.312,1,2,"DT")
3050606
"^DD",2,2,.312,3)
Enter the location of this patient's VA claim folder [2-40 characters].
"^DD",2,2,.312,20,0)
^.3LA^1^1
"^DD",2,2,.312,20,1,0)
ECD
"^DD",2,2,.312,21,0)
^^2^2^2930330^^^
"^DD",2,2,.312,21,1,0)
For this veteran applicant enter, if applicable, the location of
"^DD",2,2,.312,21,2,0)
his/her VA claim folder [2-40 characters].
"^DD",2,2,.312,"DT")
2930413
"^DD",2,2,.3121,0)
INSURANCE TYPE^2.312IPA^^.312;0
"^DD",2,2,.3121,3)
Select from the listing available the type of insurance under which this patient
 is covered.
"^DD",2,2,.3121,20,0)
^.3LA^1^1
"^DD",2,2,.3121,20,1,0)
II
"^DD",2,2,.3121,21,0)
^^2^2^2930823^^^^
"^DD",2,2,.3121,21,1,0)
From the available listing enter the type of insurance under which this
"^DD",2,2,.3121,21,2,0)
applicant is covered regardless of who holds the policy.
"^DD",2,2,.3121,22)

"^DD",2,2,.313,0)
CLAIM NUMBER^FXOa^^.31;3^S DFN=DA D EV^DGLOCK I $D(X) S L=$S($D(^DPT(DA,0)):$P(^
(0),U,9),1:X) W:X?1"SS".E "  ",L S:X?1"SS".E X=L K:$L(X)>9 X Q:'$D(X)  I X'=L K:
$L(X)>8!($L(X)<7)!'(X?.N) X
"^DD",2,2,.313,1,0)
^.1
"^DD",2,2,.313,1,991,0)
2^AVAFC313^MUMPS
"^DD",2,2,.313,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".313;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.313,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".313;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.313,1,991,"%D",0)
^.101^15^15^3030211^^
"^DD",2,2,.313,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.313,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.313,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.313,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.313,1,991,"%D",5,0)
  
"^DD",2,2,.313,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.313,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.313,1,991,"%D",8,0)
process.
"^DD",2,2,.313,1,991,"%D",9,0)
  
"^DD",2,2,.313,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.313,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.313,1,991,"%D",12,0)
  
"^DD",2,2,.313,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.313,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.313,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.313,1,991,"DT")
3030210
"^DD",2,2,.313,1,992,0)
2^AENR313^MUMPS
"^DD",2,2,.313,1,992,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.313,1,992,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.313,1,992,3)
 DO NOT DELETE
"^DD",2,2,.313,1,992,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.313,1,992,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.313,1,992,"%D",2,0)
enrollment.
"^DD",2,2,.313,1,992,"DT")
3050606
"^DD",2,2,.313,2)
S Y(0)=Y S Y=$E(Y,1,10)
"^DD",2,2,.313,2.1)
S Y=$E(Y,1,10)
"^DD",2,2,.313,3)
Enter this patient's claim number as 7-8 numerics or enter SS if the claim numbe
r is the same as his/her SSN.  Pseudo SSNs are not allowed.
"^DD",2,2,.313,20,0)
^.3LA^1^1
"^DD",2,2,.313,20,1,0)
ECD
"^DD",2,2,.313,21,0)
^^4^4^2861117^^^
"^DD",2,2,.313,21,1,0)
If the applicant is a veteran enter his/her claim number as 7-8 numerics
"^DD",2,2,.313,21,2,0)
or by entering the characters 'SS' if his/her claim number is the same
"^DD",2,2,.313,21,3,0)
as his/her social security number.  Once eligibility has been verified
"^DD",2,2,.313,21,4,0)
only users who hold the designated security key may enter/edit this field.
"^DD",2,2,.313,"AUDIT")
y
"^DD",2,2,.313,"DEL",1,0)
S DFN=DA D EV^DGLOCK I '$D(X)
"^DD",2,2,.313,"DT")
3060905
"^DD",2,2,.314,0)
CLAIM FOLDER LOCATION^*P4'X^DIC(4,^.31;4^S DIC("S")="I $$CFLTF^DGREGDD(Y)" D ^DI
C K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.314,1,0)
^.1
"^DD",2,2,.314,1,1,0)
2^ACFL4^MUMPS
"^DD",2,2,.314,1,1,1)
D SET^DGREGDD(DA,X)
"^DD",2,2,.314,1,1,2)
D KILL^DGREGDD(DA)
"^DD",2,2,.314,1,1,"%D",0)
^.101^2^2^3060328^^^^
"^DD",2,2,.314,1,1,"%D",1,0)
This sets the *CLAIM FOLDER LOCATION field to be the station number
"^DD",2,2,.314,1,1,"%D",2,0)
concatenated with the name of the institution.
"^DD",2,2,.314,1,1,"DT")
3060328
"^DD",2,2,.314,3)
Enter the location of the patient's claim folder  
"^DD",2,2,.314,12)
Only allow active sites with station # and valid facility type
"^DD",2,2,.314,12.1)
S DIC("S")="I $$CFLTF^DGREGDD(Y)"
"^DD",2,2,.314,21,0)
^.001^9^9^3060329^^
"^DD",2,2,.314,21,1,0)
This is the location of the patient's claim folder.  It must be an entry
"^DD",2,2,.314,21,2,0)
in the INSTITUTION File.
"^DD",2,2,.314,21,3,0)
Valid facility types:
"^DD",2,2,.314,21,4,0)
RO           (Regional Office)
"^DD",2,2,.314,21,5,0)
RO&IC        (Regional Office and Insurance Center)
"^DD",2,2,.314,21,6,0)
RO-OC        (Regional Office - Outpatient Clinic)
"^DD",2,2,.314,21,7,0)
RPC          (Record Processing Center)
"^DD",2,2,.314,21,8,0)
M&ROC        (Medical and Regional Office Center)
"^DD",2,2,.314,21,9,0)
M&ROC (M&RO) (Medical and Regional Office Center)
"^DD",2,2,.314,23,0)
^.001^1^1^3060329^^^^
"^DD",2,2,.314,23,1,0)
This is a pointer to the INSTITUTION File (#4).
"^DD",2,2,.314,"DT")
3060930
"^DD",2,2,.3192,0)
COVERED BY HEALTH INSURANCE?^RS^Y:YES;N:NO;U:UNKNOWN;^.31;11^Q
"^DD",2,2,.3192,.1)
ARE YOU COVERED BY ANY HEALTH INSURANCE
"^DD",2,2,.3192,1,0)
^.1
"^DD",2,2,.3192,1,1,0)
2^AENR3192^MUMPS
"^DD",2,2,.3192,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3192,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3192,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3192,1,1,"%D",0)
^.101^2^2^3050615^^^^
"^DD",2,2,.3192,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3192,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3192,1,1,"DT")
3050615
"^DD",2,2,.3192,3)
Enter 'Y' if this patient is covered by health insurance, 'N' if not.
"^DD",2,2,.3192,20,0)
^.3LA^1^1
"^DD",2,2,.3192,20,1,0)
II
"^DD",2,2,.3192,21,0)
^^3^3^2861117^^^^
"^DD",2,2,.3192,21,1,0)
Enter 'Y' if this applicant is covered by a health insurance policy
"^DD",2,2,.3192,21,2,0)
regardless of who holds policy (applicant, spouse, employer, etc.),
"^DD",2,2,.3192,21,3,0)
'N' if s/he isn't covered by any policy, or 'U' if unknown.
"^DD",2,2,.3192,"DT")
2911211
"^DD",2,2,.32101,0)
VIETNAM SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;1^S DFN=DA D SV^DGLOCK
"^DD",2,2,.32101,.1)
DID YOU SERVE IN VIET NAM
"^DD",2,2,.32101,1,0)
^.1
"^DD",2,2,.32101,1,1,0)
^^TRIGGER^2^.32104
"^DD",2,2,.32101,1,1,1)
X ^DD(2,.32101,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S 
X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32101,1,1,1.4)
"^DD",2,2,.32101,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32101,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32101,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99
))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.321)=$P(DIH,U,1,3)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.32104 D ^DICR
"^DD",2,2,.32101,1,1,2)
Q
"^DD",2,2,.32101,1,1,"CREATE CONDITION")
#.32101="NO"
"^DD",2,2,.32101,1,1,"CREATE VALUE")
@
"^DD",2,2,.32101,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32101,1,1,"FIELD")
#.32104
"^DD",2,2,.32101,1,2,0)
^^TRIGGER^2^.32105
"^DD",2,2,.32101,1,2,1)
X ^DD(2,.32101,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S 
X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32101,1,2,1.4)
"^DD",2,2,.32101,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32101,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32101,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99
))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.321)=$P(DIH,U,1,4)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.32105 D ^DICR
"^DD",2,2,.32101,1,2,2)
Q
"^DD",2,2,.32101,1,2,"CREATE CONDITION")
#.32101="NO"
"^DD",2,2,.32101,1,2,"CREATE VALUE")
@
"^DD",2,2,.32101,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32101,1,2,"FIELD")
#.32105
"^DD",2,2,.32101,1,3,0)
2^AENR32101^MUMPS
"^DD",2,2,.32101,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32101,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32101,1,3,"%D",0)
^^2^2^3040614^
"^DD",2,2,.32101,1,3,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32101,1,3,"%D",2,0)
VIETNAM SERVICE INDICATED? field.
"^DD",2,2,.32101,1,3,"DT")
3040614
"^DD",2,2,.32101,3)
Enter 'Y' if this patient served in Vietnam, 'N' if not, 'U' if unknown.
"^DD",2,2,.32101,20,0)
^.3LA^1^1
"^DD",2,2,.32101,20,1,0)
VN
"^DD",2,2,.32101,21,0)
^^4^4^2930629^^^
"^DD",2,2,.32101,21,1,0)
For this veteran applicant enter 'Y' if s/he actually served in the
"^DD",2,2,.32101,21,2,0)
Republic of Vietnam, 'N' if not, or 'U' if unknown.  Once the service
"^DD",2,2,.32101,21,3,0)
record has been verified only users who hold the designated security
"^DD",2,2,.32101,21,4,0)
key may enter/edit this field.
"^DD",2,2,.32101,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.32101,"DT")
3040614
"^DD",2,2,.32102,0)
AGENT ORANGE EXPOS. INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;2^S DFN=DA D SV^DG
LOCK
"^DD",2,2,.32102,.1)
EXPOSED TO AGENT ORANGE
"^DD",2,2,.32102,1,0)
^.1
"^DD",2,2,.32102,1,1,0)
^^TRIGGER^2^.32107
"^DD",2,2,.32102,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO" I X S X=DIV S Y(1)=$S($D(^DPT(D0
,.321)):^(.321),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(2,.32102,1,1
,1.4)
"^DD",2,2,.32102,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321),U,7)=DIV,DIH=2,DIG=.32107 D ^DICR
"^DD",2,2,.32102,1,1,2)
Q
"^DD",2,2,.32102,1,1,"CREATE CONDITION")
#.32102="NO"
"^DD",2,2,.32102,1,1,"CREATE VALUE")
@
"^DD",2,2,.32102,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32102,1,1,"DT")
3080507
"^DD",2,2,.32102,1,1,"FIELD")
#.32107
"^DD",2,2,.32102,1,2,0)
^^TRIGGER^2^.3211
"^DD",2,2,.32102,1,2,1)
X ^DD(2,.32102,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S 
X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(
.321),U,10)=DIV,DIH=2,DIG=.3211 D ^DICR
"^DD",2,2,.32102,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO"
"^DD",2,2,.32102,1,2,2)
Q
"^DD",2,2,.32102,1,2,"CREATE CONDITION")
#.32102="NO"
"^DD",2,2,.32102,1,2,"CREATE VALUE")
@
"^DD",2,2,.32102,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32102,1,2,"DT")
3080507
"^DD",2,2,.32102,1,2,"FIELD")
#.3211
"^DD",2,2,.32102,1,3,0)
^^TRIGGER^2^.32109
"^DD",2,2,.32102,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO" I X S X=DIV S Y(1)=$S($D(^DPT(D0
,.321)):^(.321),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(2,.32102,1,3
,1.4)
"^DD",2,2,.32102,1,3,1.4)
S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321),U,9)=DIV,DIH=2,DIG=.32109 D ^DICR
"^DD",2,2,.32102,1,3,2)
Q
"^DD",2,2,.32102,1,3,"CREATE CONDITION")
#.32102="NO"
"^DD",2,2,.32102,1,3,"CREATE VALUE")
@
"^DD",2,2,.32102,1,3,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32102,1,3,"DT")
3080507
"^DD",2,2,.32102,1,3,"FIELD")
#.32109
"^DD",2,2,.32102,1,4,0)
2^AENR32102^MUMPS
"^DD",2,2,.32102,1,4,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.32102,1,4,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.32102,1,4,3)
DO NOT DELETE
"^DD",2,2,.32102,1,4,"%D",0)
^^2^2^2970630^^
"^DD",2,2,.32102,1,4,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.32102,1,4,"%D",2,0)
record.
"^DD",2,2,.32102,1,4,"DT")
2970630
"^DD",2,2,.32102,1,5,0)
^^TRIGGER^2^.3213
"^DD",2,2,.32102,1,5,1)
X ^DD(2,.32102,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S 
X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(
.321),U,13)=DIV,DIH=2,DIG=.3213 D ^DICR
"^DD",2,2,.32102,1,5,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32102,1,5,2)
Q
"^DD",2,2,.32102,1,5,"CREATE CONDITION")
#.32102="NO"
"^DD",2,2,.32102,1,5,"CREATE VALUE")
@
"^DD",2,2,.32102,1,5,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32102,1,5,"DT")
3010314
"^DD",2,2,.32102,1,5,"FIELD")
#.3213
"^DD",2,2,.32102,3)
Enter 'Y' if this patient claims exposure to agent orange, 'N' if not, 'U' if un
known.
"^DD",2,2,.32102,20,0)
^.3LA^1^1
"^DD",2,2,.32102,20,1,0)
AO
"^DD",2,2,.32102,21,0)
^.001^8^8^3080507^^
"^DD",2,2,.32102,21,1,0)
For this veteran applicant enter 'Y' if s/he was exposed to the chemical
"^DD",2,2,.32102,21,2,0)
agent orange, 'N' if not, or 'U' if unknown.  Exposure cannot be claimed
"^DD",2,2,.32102,21,3,0)
unless the Period of Service (field .323) is answered VIETNAM ERA, which
"^DD",2,2,.32102,21,4,0)
entails those serving in the Korean DMZ between January 1, 1968 and
"^DD",2,2,.32102,21,5,0)
December 31, 1969 or Vietnam.
"^DD",2,2,.32102,21,6,0)
 
"^DD",2,2,.32102,21,7,0)
Once the service record has been verified only users who hold the
"^DD",2,2,.32102,21,8,0)
designated security key may enter/edit this field.
"^DD",2,2,.32102,"DT")
3080507
"^DD",2,2,.32103,0)
RADIATION EXPOSURE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;3^S DFN=DA D SV^DGL
OCK
"^DD",2,2,.32103,.1)
WERE YOU EXPOSED TO RADIATION
"^DD",2,2,.32103,1,0)
^.1
"^DD",2,2,.32103,1,1,0)
^^TRIGGER^2^.3212
"^DD",2,2,.32103,1,1,1)
X ^DD(2,.32103,1,1,1.3) I X S X=DIV S Y(2)=";"_$S($D(^DD(2,.3212,0)):$P(^(0),U,3
),1:""),Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P($P(Y(2),";"_$P(Y(1),U,12)
_":",2),";",1) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1,1,1.4)
"^DD",2,2,.32103,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32103,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,9
9))  S DIH=DIH_U" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.321)=$P(DIH,U,1,11)_U
_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3212 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.32103,1,1,2)
Q
"^DD",2,2,.32103,1,1,"CREATE CONDITION")
#.32103="NO"
"^DD",2,2,.32103,1,1,"CREATE VALUE")
@
"^DD",2,2,.32103,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32103,1,1,"FIELD")
#.3212
"^DD",2,2,.32103,1,2,0)
^^TRIGGER^2^.32111
"^DD",2,2,.32103,1,2,1)
X ^DD(2,.32103,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S 
X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1,2,1.4)
"^DD",2,2,.32103,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32103,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,10,9
9))  S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(.321)=$P(DIH,U,1,10)_U
_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.32111 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.32103,1,2,2)
Q
"^DD",2,2,.32103,1,2,"CREATE CONDITION")
#.32103="NO"
"^DD",2,2,.32103,1,2,"CREATE VALUE")
@
"^DD",2,2,.32103,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32103,1,2,"FIELD")
#.32111
"^DD",2,2,.32103,1,3,0)
2^AENR32103^MUMPS
"^DD",2,2,.32103,1,3,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.32103,1,3,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.32103,1,3,3)
DO NOT DELETE
"^DD",2,2,.32103,1,3,"%D",0)
^^3^3^2970630^^^
"^DD",2,2,.32103,1,3,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.32103,1,3,"%D",2,0)
record.
"^DD",2,2,.32103,1,3,"%D",3,0)

"^DD",2,2,.32103,1,3,"DT")
2970630
"^DD",2,2,.32103,3)
Enter the RADIATION EXPOSURE INDICATED associated with the enrollment priority d
etermination
"^DD",2,2,.32103,20,0)
^.3LA^1^1
"^DD",2,2,.32103,20,1,0)
IRD
"^DD",2,2,.32103,21,0)
^.001^17^17^3060507^^^^
"^DD",2,2,.32103,21,1,0)
Enter 'Y' if the veteran was exposed to ionizing radiation 1) at a
"^DD",2,2,.32103,21,2,0)
nuclear device testing site (e.g. the Pacific Islands, NM or NV) or
"^DD",2,2,.32103,21,3,0)
2) as a POW or while serving in Hiroshima and/or Nagasaki, Japan
"^DD",2,2,.32103,21,4,0)
from August 6, 1945 through July 1, 1946, or 3) served at
"^DD",2,2,.32103,21,5,0)
Department of Energy plants at Paducah, KY, Portsmouth, OH or
"^DD",2,2,.32103,21,6,0)
the K25 area at Oak Ridge, TN for at least 250 days before
"^DD",2,2,.32103,21,7,0)
February 1, 1992 or 4) served at Longshot, Milrow, or
"^DD",2,2,.32103,21,8,0)
Cannikin underground nuclear tests at Amchitka Island, AK
"^DD",2,2,.32103,21,9,0)
prior to January 1, 1974.  
"^DD",2,2,.32103,21,10,0)
 
"^DD",2,2,.32103,21,11,0)
Veterans exposed by method #3 or #4 are not eligible for 
"^DD",2,2,.32103,21,12,0)
copay exemption or enrollment in priority 6 based on their IR exposure.
"^DD",2,2,.32103,21,13,0)
 
"^DD",2,2,.32103,21,14,0)
Enter 'N' if not exposed or 'U' if unknown.
"^DD",2,2,.32103,21,15,0)
 
"^DD",2,2,.32103,21,16,0)
Once the record has been verified only HEC users 
"^DD",2,2,.32103,21,17,0)
may enter/edit this field.
"^DD",2,2,.32103,"DT")
3060507
"^DD",2,2,.32104,0)
VIETNAM FROM DATE^RDX^^.321;4^S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON^DGRPMS(
DA,"VIET",X,0) X I $D(X) S DFN=DA D VN^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.32104,.1)

"^DD",2,2,.32104,1,0)
^.1
"^DD",2,2,.32104,1,1,0)
2^AENR32104^MUMPS
"^DD",2,2,.32104,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32104,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32104,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.32104,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32104,1,1,"%D",2,0)
VIETNAM FROM DATE field.
"^DD",2,2,.32104,1,1,"DT")
3040614
"^DD",2,2,.32104,3)
Enter the date this patient commenced service in the Republic of Vietnam.
"^DD",2,2,.32104,5,1,0)
2^.32101^1
"^DD",2,2,.32104,20,0)
^.3LA^1^1
"^DD",2,2,.32104,20,1,0)
VN
"^DD",2,2,.32104,21,0)
^^6^6^3040402^
"^DD",2,2,.32104,21,1,0)
For this veteran applicant who served in the Republic of Vietnam (DID
"^DD",2,2,.32104,21,2,0)
YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which
"^DD",2,2,.32104,21,3,0)
service in vietnam commenced [between February 28, 1961 and May 7, 1975].
"^DD",2,2,.32104,21,4,0)
Once the service record is verified only users who hold the designated
"^DD",2,2,.32104,21,5,0)
security key may enter/edit this field.  As long as Vietnam service is
"^DD",2,2,.32104,21,6,0)
indicated this date may not be deleted.                                
"^DD",2,2,.32104,"DEL",1,0)
S DFN=DA D VND^DGLOCK1 I '$D(X)
"^DD",2,2,.32104,"DT")
3040722
"^DD",2,2,.32105,0)
VIETNAM TO DATE^RDX^^.321;5^S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON^DGRPMS(DA
,"VIET",X,1) X I $D(X) S DFN=DA D VN^DGLOCK
"^DD",2,2,.32105,.1)

"^DD",2,2,.32105,1,0)
^.1
"^DD",2,2,.32105,1,1,0)
2^AENR32105^MUMPS
"^DD",2,2,.32105,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32105,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32105,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.32105,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32105,1,1,"%D",2,0)
VIETNAM TO DATE field.
"^DD",2,2,.32105,1,1,"DT")
3040614
"^DD",2,2,.32105,3)
Enter the date this patient ended service in the Republic of Vietnam.
"^DD",2,2,.32105,5,1,0)
2^.32101^2
"^DD",2,2,.32105,20,0)
^.3LA^1^1
"^DD",2,2,.32105,20,1,0)
VN
"^DD",2,2,.32105,21,0)
^^6^6^3040407^
"^DD",2,2,.32105,21,1,0)
For this veteran applicant who served in the Republic of Vietnam (DID
"^DD",2,2,.32105,21,2,0)
YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which
"^DD",2,2,.32105,21,3,0)
service in Vietnam ended [between February 28, 1961 and May 7, 1975]. Once
"^DD",2,2,.32105,21,4,0)
the service record is verified only user who hold the designated security
"^DD",2,2,.32105,21,5,0)
key may enter/edit this field.  As long as Vietnam service is indicated
"^DD",2,2,.32105,21,6,0)
this date may not be deleted.
"^DD",2,2,.32105,"DEL",1,0)
S DFN=DA D VND^DGLOCK1 I '$D(X)
"^DD",2,2,.32105,"DT")
3040614
"^DD",2,2,.32107,0)
AGENT ORANGE REGISTRATION DATE^DX^^.321;7^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=
Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK I $D(X) D DOB^DGHELP
"^DD",2,2,.32107,.1)

"^DD",2,2,.32107,1,0)
^.1^^0
"^DD",2,2,.32107,3)
Enter the date on which this patient was registered as being exposed to agent or
ange.
"^DD",2,2,.32107,5,1,0)
2^.32102^1
"^DD",2,2,.32107,20,0)
^.3LA^1^1
"^DD",2,2,.32107,20,1,0)
AO
"^DD",2,2,.32107,21,0)
^.001^5^5^3080527^^
"^DD",2,2,.32107,21,1,0)
For this veteran applicant who was exposed to agent orange (EXPOSED TO
"^DD",2,2,.32107,21,2,0)
AGENT ORANGE prompt must be answered YES) enter the date registered.
"^DD",2,2,.32107,21,3,0)
Once the service record is verified only users who hold the designated
"^DD",2,2,.32107,21,4,0)
security key may enter/edit this field.  As long as agent orange
"^DD",2,2,.32107,21,5,0)
exposure is indicated this field may not be deleted.
"^DD",2,2,.32107,"DEL",1,0)
S DFN=DA D AOD^DGLOCK1 I '$D(X)
"^DD",2,2,.32107,"DT")
3010107
"^DD",2,2,.32108,0)
AGENT ORANGE REPORTED TO C.O.^DX^^.321;8^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y
 K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK
"^DD",2,2,.32108,.1)
AGENT ORANGE REPORTED TO C.O.
"^DD",2,2,.32108,3)
Enter the date on which this patient's claim for agent orange exposure was repor
ted to C.O.
"^DD",2,2,.32108,20,0)
^.3LA^1^1
"^DD",2,2,.32108,20,1,0)
AO
"^DD",2,2,.32108,21,0)
^^2^2^2911214^^^
"^DD",2,2,.32108,21,1,0)
Enter the date on which this patient's claim of exposure to Agent Orange was
"^DD",2,2,.32108,21,2,0)
initially reported to VA Central Office.
"^DD",2,2,.32108,"DEL",1,0)
S DFN=DA D AOD^DGLOCK1 I '$D(X)
"^DD",2,2,.32108,"DT")
2900418
"^DD",2,2,.32109,0)
AGENT ORANGE EXAM DATE^DX^^.321;9^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 
X I $D(X) S DFN=DA D AO^DGLOCK
"^DD",2,2,.32109,.1)

"^DD",2,2,.32109,3)
Enter the date this patient was examined for the agent orange condition claimed.
"^DD",2,2,.32109,5,1,0)
2^.32102^3
"^DD",2,2,.32109,20,0)
^.3LA^1^1
"^DD",2,2,.32109,20,1,0)
AO
"^DD",2,2,.32109,21,0)
^^6^6^2861117^^^
"^DD",2,2,.32109,21,1,0)
For this veteran applicant who was exposed to agent orange (EXPOSED TO
"^DD",2,2,.32109,21,2,0)
AGENT ORANGE prompt must be answered YES) enter the date s/he was examined
"^DD",2,2,.32109,21,3,0)
for this exposure, if any.  Once the service record is verified only
"^DD",2,2,.32109,21,4,0)
users who hold the designated security key may enter/edit this
"^DD",2,2,.32109,21,5,0)
field.  As long as agent orange exposure is indicated this field
"^DD",2,2,.32109,21,6,0)
may not be deleted.
"^DD",2,2,.32109,"DEL",1,0)
S DFN=DA D AOD^DGLOCK1 I '$D(X)
"^DD",2,2,.32109,"DT")
2900418
"^DD",2,2,.3211,0)
AGENT ORANGE REGISTRATION #^NJ6,0X^^.321;10^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N
.N) X I $D(X) S DFN=DA D AO^DGLOCK
"^DD",2,2,.3211,.1)

"^DD",2,2,.3211,3)
Enter this patient's agent orange registration number [a number between 1-999999
].
"^DD",2,2,.3211,5,1,0)
2^.32102^2
"^DD",2,2,.3211,20,0)
^.3LA^1^1
"^DD",2,2,.3211,20,1,0)
AO
"^DD",2,2,.3211,21,0)
^^6^6^2861117^^^
"^DD",2,2,.3211,21,1,0)
For this veteran applicant who was exposed to agent orange (EXPOSED TO
"^DD",2,2,.3211,21,2,0)
AGENT ORANGE prompt must be answered YES) enter the registration number
"^DD",2,2,.3211,21,3,0)
assigned [a number between 1-999999].  Once the service record has been
"^DD",2,2,.3211,21,4,0)
verified only users who hold the designated security key may
"^DD",2,2,.3211,21,5,0)
enter/edit this field.  This field cannot be deleted as long as
"^DD",2,2,.3211,21,6,0)
agent orange exposure is indicated.
"^DD",2,2,.3211,"DEL",1,0)
S DFN=DA D AOD^DGLOCK1 I '$D(X)
"^DD",2,2,.3211,"DT")
2860806
"^DD",2,2,.32111,0)
RADIATION REGISTRATION DATE^DX^^.321;11^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y 
K:Y<1 X I $D(X) S DFN=DA D IR^DGLOCK I $D(X) D DOB^DGHELP
"^DD",2,2,.32111,.1)

"^DD",2,2,.32111,1,0)
^.1^^0
"^DD",2,2,.32111,3)
Enter the date on which this patient was registered as claiming exposure to ioni
zing radiation.
"^DD",2,2,.32111,5,1,0)
2^.32103^2
"^DD",2,2,.32111,20,0)
^.3LA^1^1
"^DD",2,2,.32111,20,1,0)
IRD
"^DD",2,2,.32111,21,0)
^^6^6^2861007^^
"^DD",2,2,.32111,21,1,0)
For this veteran applicant who was exposed to ionizing radiation
"^DD",2,2,.32111,21,2,0)
(WERE YOU EXPOSED TO RADIATION prompt must be answered YES) enter the
"^DD",2,2,.32111,21,3,0)
date registered.  Once the service record is verified only users who
"^DD",2,2,.32111,21,4,0)
hold the designated security key may enter/edit this field.  This field
"^DD",2,2,.32111,21,5,0)
cannot be deleted as long as ionizing radiation exposure is
"^DD",2,2,.32111,21,6,0)
indicated.
"^DD",2,2,.32111,"DEL",1,0)
S DFN=DA D IRD^DGLOCK1 I '$D(X)
"^DD",2,2,.32111,"DT")
2900418
"^DD",2,2,.32115,0)
PROJ 112/SHAD^S^1:YES;0:NO;^.321;15^Q
"^DD",2,2,.32115,1,0)
^.1
"^DD",2,2,.32115,1,1,0)
2^AENR32115^MUMPS
"^DD",2,2,.32115,1,1,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.32115,1,1,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.32115,1,1,3)
DO NOT DELETE
"^DD",2,2,.32115,1,1,"%D",0)
^^2^2^3060713^
"^DD",2,2,.32115,1,1,"%D",1,0)
This cross-reference is used to update the patient's current Patient
"^DD",2,2,.32115,1,1,"%D",2,0)
Enrollment record.
"^DD",2,2,.32115,1,1,"DT")
3060713
"^DD",2,2,.32115,"DT")
3060713
"^DD",2,2,.3212,0)
RADIATION EXPOSURE METHOD^SX^2:HIROSHIMA/NAGASAKI;3:ATMOSPHERIC NUCLEAR TESTING;
4:H/N AND ATMOSPHERIC TESTING;5:UNDERGROUND NUCLEAR TESTING;6:EXPOSURE AT NUCLEA
R FACILITY;7:OTHER;^.321;12^S DFN=DA D IR^DGLOCK Q
"^DD",2,2,.3212,.1)

"^DD",2,2,.3212,1,0)
^.1
"^DD",2,2,.3212,1,1,0)
2^AENR3212^MUMPS
"^DD",2,2,.3212,1,1,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3212,1,1,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3212,1,1,3)
DO NOT DELETE
"^DD",2,2,.3212,1,1,"%D",0)
^.101^2^2^3060425^^
"^DD",2,2,.3212,1,1,"%D",1,0)
This cross-reference is used to update the
"^DD",2,2,.3212,1,1,"%D",2,0)
patient's current Patient Enrollment record.
"^DD",2,2,.3212,1,1,"DT")
3060425
"^DD",2,2,.3212,3)
Select from the listing available the method by which this patient was exposed t
o ionizing radiation.
"^DD",2,2,.3212,5,1,0)
2^.32103^1
"^DD",2,2,.3212,20,0)
^.3LA^1^1
"^DD",2,2,.3212,20,1,0)
IRD
"^DD",2,2,.3212,21,0)
^.001^2^2^3060424^^^^
"^DD",2,2,.3212,21,1,0)
This field represents the method by which the
"^DD",2,2,.3212,21,2,0)
exposure to ionizing radiation occurred.
"^DD",2,2,.3212,"DEL",1,0)
S DFN=DA D IRD^DGLOCK1 I '$D(X)
"^DD",2,2,.3212,"DT")
3060425
"^DD",2,2,.3213,0)
AGENT ORANGE EXPOSURE LOCATION^RSX^K:KOREAN DMZ;V:VIETNAM;O:OTHER;^.321;13^Q
"^DD",2,2,.3213,.1)
Agent Orange Exposure Location
"^DD",2,2,.3213,1,0)
^.1
"^DD",2,2,.3213,1,1,0)
2^AENR3213^MUMPS
"^DD",2,2,.3213,1,1,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3213,1,1,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3213,1,1,3)
DO NOT DELETE
"^DD",2,2,.3213,1,1,"%D",0)
^^2^2^3060218^
"^DD",2,2,.3213,1,1,"%D",1,0)
This MUMPS cross-reference is used to update the patient's current 
"^DD",2,2,.3213,1,1,"%D",2,0)
Patient Enrollment record.
"^DD",2,2,.3213,1,1,"DT")
3060218
"^DD",2,2,.3213,3)
Enter where the patient was exposed to agent orange
"^DD",2,2,.3213,5,1,0)
2^.32102^5
"^DD",2,2,.3213,21,0)
^.001^5^5^3060214^^^^
"^DD",2,2,.3213,21,1,0)
For this veteran applicant who was exposed to agent orange (EXPOSED TO
"^DD",2,2,.3213,21,2,0)
AGENT ORANGE prompt must be answered YES) enter the location where the
"^DD",2,2,.3213,21,3,0)
exposure occurred.  Once the service record has been verified only users
"^DD",2,2,.3213,21,4,0)
who hold the designated security key may enter/edit this field.  This
"^DD",2,2,.3213,21,5,0)
field cannot be deleted as long as agent orange exposure is indicated.
"^DD",2,2,.3213,"DEL",1,0)
S DFN=DA D AOD^DGLOCK1 I '$D(X)
"^DD",2,2,.3213,"DT")
3060218
"^DD",2,2,.3214,0)
FILIPINO VETERAN PROOF^S^PP:US PASSPORT;BC:US BIRTH CERTIFICATE;BA:REPORT OF BIR
TH ABROAD OF US CITIZEN;NA:VERIFICATION OF NATURALIZATION;PR:VERIFICATION OF PER
MANENT RESIDENCY;VA:VA COMPENSATION AT FULL DOLLAR RATE;NO:NO PROOF;^.321;14^Q
"^DD",2,2,.3214,1,0)
^.1
"^DD",2,2,.3214,1,1,0)
2^AENR3214^MUMPS
"^DD",2,2,.3214,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3214,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3214,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3214,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3214,1,1,"%D",2,0)
FILIPINO VETERAN PROOF field.
"^DD",2,2,.3214,1,1,"DT")
3040614
"^DD",2,2,.3214,21,0)
^.001^5^5^3040303^^^^
"^DD",2,2,.3214,21,1,0)
Enter in this field the documentation that was provided in order to
"^DD",2,2,.3214,21,2,0)
establish US citizenship, lawful permanent US residency, and/or VA
"^DD",2,2,.3214,21,3,0)
Compensation at full-dollar rate for a Filipino Veteran (i.e., a 
"^DD",2,2,.3214,21,4,0)
veteran whose Branch of Service is F. Commonwealth, F. Guerilla, or F.
"^DD",2,2,.3214,21,5,0)
Scouts New)
"^DD",2,2,.3214,"DT")
3040614
"^DD",2,2,.3215,0)
SERVICE [OEF OR OIF]^2.3215IS^^.3215;0
"^DD",2,2,.3215,12)
Users cannot enter 3 (UNSPECIFIED)
"^DD",2,2,.3215,12.1)
S DIC("S")="I Y'=3"
"^DD",2,2,.3215,21,0)
^.001^5^5^3060508^^^^
"^DD",2,2,.3215,21,1,0)
This contains the information relating to the deployment of the
"^DD",2,2,.3215,21,2,0)
patient to a conflict location for the operations Iraqi and Enduring
"^DD",2,2,.3215,21,3,0)
Freedom (OIF, OEF respectively).  It also includes records of conflict
"^DD",2,2,.3215,21,4,0)
that can be identified as being EITHER OIF OR OEF, but the specific
"^DD",2,2,.3215,21,5,0)
location cannot be determined.
"^DD",2,2,.3215,"DT")
3060104
"^DD",2,2,.3216,0)
MILITARY SERVICE EPISODE^2.3216D^^.3216;0
"^DD",2,2,.3216,21,0)
^.001^4^4^3090226^^^^
"^DD",2,2,.3216,21,1,0)
This contains the definitive military service episode history for the 
"^DD",2,2,.3216,21,2,0)
patient and is updated from the Health Eligibility Center (HEC) system.  
"^DD",2,2,.3216,21,3,0)
HEC is the authoritative source for this data and it may not be edited in
"^DD",2,2,.3216,21,4,0)
VistA except to add new episodes.
"^DD",2,2,.322,0)
SERVICE VERIFICATION DATE^DX^^.32;2^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<
1 X I $D(X) D EK^DGLOCK
"^DD",2,2,.322,.1)
VERIFICATION DATE-SERVICE
"^DD",2,2,.322,3)
Enter the date on whcih this patient's service record was verified as being accu
rate.
"^DD",2,2,.322,20,0)
^.3LA^1^1
"^DD",2,2,.322,20,1,0)
SVC
"^DD",2,2,.322,21,0)
^^4^4^2861006^
"^DD",2,2,.322,21,1,0)
Once the service record has been verified enter the date of verification.
"^DD",2,2,.322,21,2,0)
All service record data will become uneditable to any user who does not
"^DD",2,2,.322,21,3,0)
hold the designated security key once the service record is verified.
"^DD",2,2,.322,21,4,0)
Only users who hold the designated security key may enter/edit this field.
"^DD",2,2,.322,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.322,"DT")
2900418
"^DD",2,2,.32201,0)
PERSIAN GULF SERVICE?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;10^S DFN=DA S DGX=10 D SV^D
GLOCK
"^DD",2,2,.32201,.1)
DID YOU SERVE IN THE PERSIAN GULF WAR?
"^DD",2,2,.32201,1,0)
^.1
"^DD",2,2,.32201,1,1,0)
^^TRIGGER^2^.322011
"^DD",2,2,.32201,1,1,1)
X ^DD(2,.32201,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S 
X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(2,.32201,1,1,1.4)
"^DD",2,2,.32201,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32201,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,11)=DIV,DIH=2,
DIG=.322011 D ^DICR
"^DD",2,2,.32201,1,1,2)
Q
"^DD",2,2,.32201,1,1,"%D",0)
^^2^2^2920116^
"^DD",2,2,.32201,1,1,"%D",1,0)
If service in the Persian Gulf is no longer indicated, remove the PERSIAN
"^DD",2,2,.32201,1,1,"%D",2,0)
GULF FROM DATE.
"^DD",2,2,.32201,1,1,"CREATE CONDITION")
#.32201="NO"
"^DD",2,2,.32201,1,1,"CREATE VALUE")
@
"^DD",2,2,.32201,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32201,1,1,"FIELD")
PERSIAN GULF FROM DATE
"^DD",2,2,.32201,1,2,0)
^^TRIGGER^2^.322012
"^DD",2,2,.32201,1,2,1)
X ^DD(2,.32201,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S 
X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.32201,1,2,1.4)
"^DD",2,2,.32201,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.32201,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,12)=DIV,DIH=2,
DIG=.322012 D ^DICR
"^DD",2,2,.32201,1,2,2)
Q
"^DD",2,2,.32201,1,2,"%D",0)
^^2^2^2920116^
"^DD",2,2,.32201,1,2,"%D",1,0)
If service in the Persian Gulf is no longer indicated, remove the PERSIAN
"^DD",2,2,.32201,1,2,"%D",2,0)
GULF TO DATE.
"^DD",2,2,.32201,1,2,"CREATE CONDITION")
#.32201="NO"
"^DD",2,2,.32201,1,2,"CREATE VALUE")
@
"^DD",2,2,.32201,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.32201,1,2,"DT")
2920116
"^DD",2,2,.32201,1,2,"FIELD")
PERSIAN GULF TO DATE
"^DD",2,2,.32201,1,3,0)
^^TRIGGER^2^.322013
"^DD",2,2,.32201,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.32201,1,3,69.3) S X=X&Y I X S X=
DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y 
S X="" X ^DD(2,.32201,1,3,1.4)
"^DD",2,2,.32201,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,
DIG=.322013 D ^DICR
"^DD",2,2,.32201,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.32201,1,3,79.3) S Y=X,X=Y(3),X=X
&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X S
 DIU=X K Y S X="" X ^DD(2,.32201,1,3,2.4)
"^DD",2,2,.32201,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,
DIG=.322013 D ^DICR
"^DD",2,2,.32201,1,3,69.2)
S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2,
.322016,0)):$P(^(0),U,3),1:""),Y(3)=$S($D(^DPT(D0,.322)):^(.322),1:"")
"^DD",2,2,.32201,1,3,69.3)
X ^DD(2,.32201,1,3,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO",Y(2)=X
 S X=$P($P(Y(4),$C(59)_$P(Y(3),U,16)_":",2),$C(59),1)'="YES",Y=X,X=Y(2),X=X
"^DD",2,2,.32201,1,3,79.2)
S Y(2)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2,
.322016,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"")
"^DD",2,2,.32201,1,3,79.3)
X ^DD(2,.32201,1,3,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1)="N
O",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)'="YES"
"^DD",2,2,.32201,1,3,"%D",0)
^^3^3^2930604^
"^DD",2,2,.32201,1,3,"%D",1,0)
If neither of the two fields (Persian Gulf Service? and Somalia Service
"^DD",2,2,.32201,1,3,"%D",2,0)
Indicated?) are 'YES', the Environmental Contaminants? field will be
"^DD",2,2,.32201,1,3,"%D",3,0)
deleted.
"^DD",2,2,.32201,1,3,"CREATE CONDITION")
#.32201="NO"&(#.322016'="YES")
"^DD",2,2,.32201,1,3,"CREATE VALUE")
@
"^DD",2,2,.32201,1,3,"DELETE CONDITION")
#.32201="NO"&(#.322016'="YES")
"^DD",2,2,.32201,1,3,"DELETE VALUE")
@
"^DD",2,2,.32201,1,3,"DT")
2930604
"^DD",2,2,.32201,1,3,"FIELD")
#.322013
"^DD",2,2,.32201,1,4,0)
2^AENR32201^MUMPS
"^DD",2,2,.32201,1,4,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32201,1,4,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32201,1,4,"%D",0)
^^2^2^3040614^
"^DD",2,2,.32201,1,4,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32201,1,4,"%D",2,0)
PERSIAN GULF SERVICE? field.
"^DD",2,2,.32201,1,4,"DT")
3040614
"^DD",2,2,.32201,3)
Did this patient serve in the Persian Gulf War?  Answer yes, no, or unknown.
"^DD",2,2,.32201,21,0)
^^4^4^2930629^^^^
"^DD",2,2,.32201,21,1,0)
If this patient served in the Persian Gulf during the war (anytime after
"^DD",2,2,.32201,21,2,0)
August 2, 1990), enter yes here.  If the patient did not serve in the
"^DD",2,2,.32201,21,3,0)
Persian Gulf during this timeframe, enter no.  Enter unknown if this
"^DD",2,2,.32201,21,4,0)
information could not be obtained from the patient.
"^DD",2,2,.32201,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.32201,"DT")
3040628
"^DD",2,2,.322011,0)
PERSIAN GULF FROM DATE^RDX^^.322;11^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA
,"GULF",X) X I $D(X) S DFN=DA,DGX=10 D SVED^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.322011,1,0)
^.1
"^DD",2,2,.322011,1,1,0)
2^AENR322011^MUMPS
"^DD",2,2,.322011,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322011,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322011,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322011,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322011,1,1,"%D",2,0)
PERSIAN GULF FROM DATE field.
"^DD",2,2,.322011,1,1,"DT")
3040614
"^DD",2,2,.322011,3)
TYPE A DATE BETWEEN 8/2/1990 AND TODAY INDICATING THE DATE THIS PATIENT BEGAN SE
RVING IN THE PERSIAN GULF.
"^DD",2,2,.322011,5,1,0)
2^.32201^1
"^DD",2,2,.322011,21,0)
^^3^3^2930302^^^
"^DD",2,2,.322011,21,1,0)
If this patient served in the Persian Gulf during the war (PERSIAN
"^DD",2,2,.322011,21,2,0)
GULF SERVICE? is answered YES), respond with the date the patient
"^DD",2,2,.322011,21,3,0)
began serving there.  The date must be on or after August 2, 1990.
"^DD",2,2,.322011,"DEL",1,0)
S DFN=DA,DGX=10 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.322011,"DT")
3040722
"^DD",2,2,.322012,0)
PERSIAN GULF TO DATE^RDX^^.322;12^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"
GULF",X,1) X I $D(X) S DFN=DA,DGX=10 D SVED^DGLOCK
"^DD",2,2,.322012,1,0)
^.1
"^DD",2,2,.322012,1,1,0)
2^AENR322012^MUMPS
"^DD",2,2,.322012,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322012,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322012,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322012,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322012,1,1,"%D",2,0)
PERSIAN GULF TO DATE field.
"^DD",2,2,.322012,1,1,"DT")
3040614
"^DD",2,2,.322012,3)
Enter the date this patient's service in the Persian Gulf ended.  Date must eith
er be null or in the past.
"^DD",2,2,.322012,5,1,0)
2^.32201^2
"^DD",2,2,.322012,21,0)
^^4^4^2920417^^
"^DD",2,2,.322012,21,1,0)
If this patient served in the Persian Gulf during the war, enter the date
"^DD",2,2,.322012,21,2,0)
the patient's service in that region ended.  The date must be after the
"^DD",2,2,.322012,21,3,0)
date selected as PERSIAN GULF FROM DATE which must be on or after August
"^DD",2,2,.322012,21,4,0)
2, 1990.
"^DD",2,2,.322012,"DEL",1,0)
S DFN=DA,DGX=10 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.322012,"DT")
3040628
"^DD",2,2,.322013,0)
SOUTHWEST ASIA CONDITIONS?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;13^S DFN=DA D SV^DGLOC
K
"^DD",2,2,.322013,.1)

"^DD",2,2,.322013,1,0)
^.1
"^DD",2,2,.322013,1,1,0)
^^TRIGGER^2^.322014
"^DD",2,2,.322013,1,1,1)
X ^DD(2,.322013,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S
 X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.322)),DIV=X S $P(^
(.322),U,14)=DIV,DIH=2,DIG=.322014 D ^DICR
"^DD",2,2,.322013,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.322013,0)),U,3
) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="YES"
"^DD",2,2,.322013,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y
(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.322)),DIV=X S $P(^(.322),
U,14)=DIV,DIH=2,DIG=.322014 D ^DICR
"^DD",2,2,.322013,1,1,"%D",0)
^^2^2^3080422^
"^DD",2,2,.322013,1,1,"%D",1,0)
This will delete the 'SW ASIA COND REGISTRATION DATE' field (#.322014) if 
"^DD",2,2,.322013,1,1,"%D",2,0)
the 'SOUTHWEST ASIA CONDITIONS?' field is not "YES".
"^DD",2,2,.322013,1,1,"CREATE CONDITION")
#.322013'="YES"
"^DD",2,2,.322013,1,1,"CREATE VALUE")
@
"^DD",2,2,.322013,1,1,"DELETE VALUE")
@
"^DD",2,2,.322013,1,1,"DT")
3080422
"^DD",2,2,.322013,1,1,"FIELD")
#.322014
"^DD",2,2,.322013,1,2,0)
^^TRIGGER^2^.322015
"^DD",2,2,.322013,1,2,1)
X ^DD(2,.322013,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S
 X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.322)),DIV=X S $P(^
(.322),U,15)=DIV,DIH=2,DIG=.322015 D ^DICR
"^DD",2,2,.322013,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.322013,0)),U,3
) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="YES"
"^DD",2,2,.322013,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y
(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.322)),DIV=X S $P(^(.322),
U,15)=DIV,DIH=2,DIG=.322015 D ^DICR
"^DD",2,2,.322013,1,2,"%D",0)
^^2^2^3080422^
"^DD",2,2,.322013,1,2,"%D",1,0)
This trigger deletes the 'SW ASIA EXAM DATE' field if the 'SOUTHWEST ASIA 
"^DD",2,2,.322013,1,2,"%D",2,0)
CONDITIONS?' field is not "YES".
"^DD",2,2,.322013,1,2,"CREATE CONDITION")
#.322013'="YES"
"^DD",2,2,.322013,1,2,"CREATE VALUE")
@
"^DD",2,2,.322013,1,2,"DELETE VALUE")
@
"^DD",2,2,.322013,1,2,"DT")
3080422
"^DD",2,2,.322013,1,2,"FIELD")
#.322015
"^DD",2,2,.322013,1,3,0)
2^AENR322013^MUMPS
"^DD",2,2,.322013,1,3,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.322013,1,3,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.322013,1,3,3)
DO NOT DELETE
"^DD",2,2,.322013,1,3,"%D",0)
^.101^2^2^3060517^^^^
"^DD",2,2,.322013,1,3,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.322013,1,3,"%D",2,0)
record.
"^DD",2,2,.322013,1,3,"DT")
2970630
"^DD",2,2,.322013,3)
Enter 'Y' if this patient claims exposure to Southwest Asia Conditions, 'N' if n
ot, 'U' if unknown.
"^DD",2,2,.322013,5,1,0)
2^.322016^3
"^DD",2,2,.322013,5,2,0)
2^.32201^3
"^DD",2,2,.322013,21,0)
^.001^9^9^3060517^^
"^DD",2,2,.322013,21,1,0)
Enter "Y" if veteran claims need for care of conditions related to
"^DD",2,2,.322013,21,2,0)
service in SW Asia. Enter "N" if veteran did not serve in SW Asia or
"^DD",2,2,.322013,21,3,0)
does not claim need for care of conditions related to service in SW
"^DD",2,2,.322013,21,4,0)
Asia. Enter "U" when veteran served in SW Asia, but is unsure of
"^DD",2,2,.322013,21,5,0)
whether conditions may be related to that service. SW Asia Theater
"^DD",2,2,.322013,21,6,0)
of operations is defined as: Iraq, Kuwait, Saudi Arabia, the neutral
"^DD",2,2,.322013,21,7,0)
zone between Iraq and Saudi Arabia, Bahrain, Qatar, the United Arab
"^DD",2,2,.322013,21,8,0)
Emirates, Oman, the Gulf of Aden, the Gulf of Oman, the Persian Gulf,
"^DD",2,2,.322013,21,9,0)
the Arabian Sea, the Red Sea, and the airspace above these locations.
"^DD",2,2,.322013,23,0)
^.001^2^2^3060517^^^^
"^DD",2,2,.322013,23,1,0)
This indicates that the veteran was affected by some kind of 
"^DD",2,2,.322013,23,2,0)
SW Asia conditions in the Persian Gulf.
"^DD",2,2,.322013,"DT")
3080422
"^DD",2,2,.322014,0)
SW ASIA COND REGISTRATION DATE^DX^^.322;14^S %DT="E",%DT(0)=-DT D ^%DT S X=Y K:Y
<1 X I $D(X) S DFN=DA D EC^DGLOCK
"^DD",2,2,.322014,3)
Enter the date on which this patient was registered as being exposed to Southwes
t Asia conditions.  This must be after 8/1/1990.
"^DD",2,2,.322014,5,1,0)
2^.322013^1
"^DD",2,2,.322014,21,0)
^.001^3^3^3060510^^^^
"^DD",2,2,.322014,21,1,0)
This is the date on which the patient registered for being exposed to
"^DD",2,2,.322014,21,2,0)
Conditions related to service in SW Asia. This date must be after
"^DD",2,2,.322014,21,3,0)
8/1/1990.
"^DD",2,2,.322014,23,0)
^^2^2^3060510^
"^DD",2,2,.322014,23,1,0)
This is the date on which the patient registered for being exposed to
"^DD",2,2,.322014,23,2,0)
Southwest Asia conditions.  This date must be after 8/1/1990.
"^DD",2,2,.322014,"DT")
3060503
"^DD",2,2,.322015,0)
SW ASIA COND EXAM DATE^DX^^.322;15^S %DT="E",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $
D(X) D EC^DGLOCK
"^DD",2,2,.322015,3)
Enter the date this patient was examined for the Southwest Asia conditions claim
ed (Must be after 8/1/1990).
"^DD",2,2,.322015,5,1,0)
2^.322013^2
"^DD",2,2,.322015,21,0)
^.001^2^2^3060510^^
"^DD",2,2,.322015,21,1,0)
This is the date on which an examination for exposure to Conditions 
"^DD",2,2,.322015,21,2,0)
related to service in SW Asia was performed on the patient.
"^DD",2,2,.322015,"DT")
3060503
"^DD",2,2,.322016,0)
SOMALIA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;16^S DFN=DA D SV^DGLOC
K
"^DD",2,2,.322016,1,0)
^.1
"^DD",2,2,.322016,1,1,0)
^^TRIGGER^2^.322017
"^DD",2,2,.322016,1,1,1)
X ^DD(2,.322016,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S
 X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" X ^DD(2,.322016,1,1,1.4)
"^DD",2,2,.322016,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(
^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.322016,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,17)=DIV,DIH=2,
DIG=.322017 D ^DICR
"^DD",2,2,.322016,1,1,2)
Q
"^DD",2,2,.322016,1,1,"%D",0)
^^1^1^2990802^^
"^DD",2,2,.322016,1,1,"%D",1,0)
If Somalia Indicated is NO, FROM DATE is deleted.
"^DD",2,2,.322016,1,1,"CREATE CONDITION")
#.322016="NO"
"^DD",2,2,.322016,1,1,"CREATE VALUE")
@
"^DD",2,2,.322016,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.322016,1,1,"DT")
2930415
"^DD",2,2,.322016,1,1,"FIELD")
#.322017
"^DD",2,2,.322016,1,2,0)
^^TRIGGER^2^.322018
"^DD",2,2,.322016,1,2,1)
X ^DD(2,.322016,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S
 X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" X ^DD(2,.322016,1,2,1.4)
"^DD",2,2,.322016,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(
^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.322016,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,18)=DIV,DIH=2,
DIG=.322018 D ^DICR
"^DD",2,2,.322016,1,2,2)
Q
"^DD",2,2,.322016,1,2,"%D",0)
^^1^1^2930415^
"^DD",2,2,.322016,1,2,"%D",1,0)
If Somalia Indicated is NO, TO DATE is deleted.
"^DD",2,2,.322016,1,2,"CREATE CONDITION")
#.322016="NO"
"^DD",2,2,.322016,1,2,"CREATE VALUE")
@
"^DD",2,2,.322016,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.322016,1,2,"DT")
2930415
"^DD",2,2,.322016,1,2,"FIELD")
#.322018
"^DD",2,2,.322016,1,3,0)
^^TRIGGER^2^.322013
"^DD",2,2,.322016,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.322016,1,3,69.3) S Y=X,X=Y(2),X=
X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X 
S DIU=X K Y S X="" X ^DD(2,.322016,1,3,1.4)
"^DD",2,2,.322016,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,
DIG=.322013 D ^DICR
"^DD",2,2,.322016,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.322016,1,3,79.3) S Y=X,X=Y(3),X=
X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X=$P(Y(1),U,13),X=X 
S DIU=X K Y S X="" X ^DD(2,.322016,1,3,2.4)
"^DD",2,2,.322016,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,
DIG=.322013 D ^DICR
"^DD",2,2,.322016,1,3,69.2)
S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2
,.32201,0)):$P(^(0),U,3),1:""),Y(3)=$S($D(^DPT(D0,.322)):^(.322),1:"")
"^DD",2,2,.322016,1,3,69.3)
X ^DD(2,.322016,1,3,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="YES",Y(2
)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,10)_":",2),$C(59),1)'="YES"
"^DD",2,2,.322016,1,3,79.2)
S Y(2)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""),Y(4)=$C(59)_$S($D(^DD(2
,.32201,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"")
"^DD",2,2,.322016,1,3,79.3)
X ^DD(2,.322016,1,3,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)'=
"YES",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1)'="YES"
"^DD",2,2,.322016,1,3,"%D",0)
^^3^3^2930604^
"^DD",2,2,.322016,1,3,"%D",1,0)
This trigger deletes the 'ENVIRONMENTAL CONTAMINANTS?' field when
"^DD",2,2,.322016,1,3,"%D",2,0)
neither the SOMALIA SERVICE INDICATED? nor the PERSIAN GULF SERVICE?
"^DD",2,2,.322016,1,3,"%D",3,0)
fields are YES.
"^DD",2,2,.322016,1,3,"CREATE CONDITION")
#.322016'="YES"&(#.32201'="YES")
"^DD",2,2,.322016,1,3,"CREATE VALUE")
@
"^DD",2,2,.322016,1,3,"DELETE CONDITION")
#.322016'="YES"&(#.32201'="YES")
"^DD",2,2,.322016,1,3,"DELETE VALUE")
@
"^DD",2,2,.322016,1,3,"DT")
2930604
"^DD",2,2,.322016,1,3,"FIELD")
#.322013
"^DD",2,2,.322016,1,4,0)
2^AENR322016^MUMPS
"^DD",2,2,.322016,1,4,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322016,1,4,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322016,1,4,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322016,1,4,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322016,1,4,"%D",2,0)
SOMALIA SERVICE INDICATED? field.
"^DD",2,2,.322016,1,4,"DT")
3040614
"^DD",2,2,.322016,3)
Did this patient serve in Somalia?
"^DD",2,2,.322016,21,0)
^^3^3^2990902^^^^
"^DD",2,2,.322016,21,1,0)
If this patient served in the Somalia, enter yes here.  If the patient 
"^DD",2,2,.322016,21,2,0)
did not serve in Somalia, enter no. Enter unknown if this information 
"^DD",2,2,.322016,21,3,0)
could not be obtained from the patient.
"^DD",2,2,.322016,"DT")
3040628
"^DD",2,2,.322017,0)
SOMALIA FROM DATE^RDX^^.322;17^S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$VALCO
N^DGRPMS(DA,"SOM",X) X I $D(X) S DFN=DA,DGX=16 D SVED^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.322017,1,0)
^.1
"^DD",2,2,.322017,1,1,0)
2^AENR322017^MUMPS
"^DD",2,2,.322017,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322017,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322017,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322017,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322017,1,1,"%D",2,0)
SOMALIA FROM DATE field.
"^DD",2,2,.322017,1,1,"DT")
3040614
"^DD",2,2,.322017,3)
Enter the date veteran's service in Somalia began.
"^DD",2,2,.322017,5,1,0)
2^.322016^1
"^DD",2,2,.322017,21,0)
^^3^3^3040402^
"^DD",2,2,.322017,21,1,0)
If this patient served in Somalia (SOMALIA SERVICE INDICATED? is 
"^DD",2,2,.322017,21,2,0)
answered YES), enter the date this patient's service in Somalia
"^DD",2,2,.322017,21,3,0)
began.  This date must be on or after September 28, 1992.
"^DD",2,2,.322017,23,0)
^^1^1^2990802^^^^
"^DD",2,2,.322017,23,1,0)
This is the date Somalia service began.
"^DD",2,2,.322017,"DT")
3040722
"^DD",2,2,.322018,0)
SOMALIA TO DATE^RDX^^.322;18^S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON^DGRPMS(D
A,"SOM",X,1) X I $D(X) S DFN=DA,DGX=16 D SVED^DGLOCK
"^DD",2,2,.322018,1,0)
^.1
"^DD",2,2,.322018,1,1,0)
2^AENR322018^MUMPS
"^DD",2,2,.322018,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322018,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322018,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322018,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322018,1,1,"%D",2,0)
SOMALIA TO DATE field.
"^DD",2,2,.322018,1,1,"DT")
3040614
"^DD",2,2,.322018,3)
Enter the date veteran's service in Somalia ended.
"^DD",2,2,.322018,5,1,0)
2^.322016^2
"^DD",2,2,.322018,21,0)
^^2^2^3040402^
"^DD",2,2,.322018,21,1,0)
This is the last date of service in Somalia.  This date must be on or 
"^DD",2,2,.322018,21,2,0)
after September 28, 1992.
"^DD",2,2,.322018,"DT")
3040628
"^DD",2,2,.322019,0)
YUGOSLAVIA SERVICE INDICATED?^SX^Y:YES;N:NO;U:UNKNOWN;^.322;19^S DFN=DA D SV^DGL
OCK
"^DD",2,2,.322019,1,0)
^.1
"^DD",2,2,.322019,1,1,0)
^^TRIGGER^2^.32202
"^DD",2,2,.322019,1,1,1)
X ^DD(2,.322019,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S
 X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.322019,1,1,1.4)
"^DD",2,2,.322019,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322019,0)):$P(
^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)["N"
"^DD",2,2,.322019,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,20)=DIV,DIH=2,
DIG=.32202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.322019,1,1,2)
Q
"^DD",2,2,.322019,1,1,"%D",0)
^^1^1^2990818^
"^DD",2,2,.322019,1,1,"%D",1,0)
If KOSOVO SERVICE is not indicated, delete the KOSOVO FROM DATE.
"^DD",2,2,.322019,1,1,"CREATE CONDITION")
KOSOVO SERVICE INDICATED?["N"
"^DD",2,2,.322019,1,1,"CREATE VALUE")
@
"^DD",2,2,.322019,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.322019,1,1,"FIELD")
#.32202
"^DD",2,2,.322019,1,2,0)
^^TRIGGER^2^.322021
"^DD",2,2,.322019,1,2,1)
X ^DD(2,.322019,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S
 X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(2,.322019,1,2,1.4)
"^DD",2,2,.322019,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322019,0)):$P(
^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)["N"
"^DD",2,2,.322019,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,21)=DIV,DIH=2,
DIG=.322021 D ^DICR
"^DD",2,2,.322019,1,2,2)
Q
"^DD",2,2,.322019,1,2,"%D",0)
^^1^1^2990818^
"^DD",2,2,.322019,1,2,"%D",1,0)
This cross-reference will delete KOSOVO TO DATE if the KOSOVO SERVICE INDICATED?
 field is deleted.
"^DD",2,2,.322019,1,2,"CREATE CONDITION")
KOSOVO SERVICE INDICATED?["N"
"^DD",2,2,.322019,1,2,"CREATE VALUE")
@
"^DD",2,2,.322019,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.322019,1,2,"DT")
2990818
"^DD",2,2,.322019,1,2,"FIELD")
#.322021
"^DD",2,2,.322019,1,3,0)
2^AENR322019^MUMPS
"^DD",2,2,.322019,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322019,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322019,1,3,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322019,1,3,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322019,1,3,"%D",2,0)
YUGOSLAVIA SERVICE INDICATED? field.
"^DD",2,2,.322019,1,3,"DT")
3040614
"^DD",2,2,.322019,3)
Respond yes if patient served in the Kosovo Conflict (the airspace above and the
 adjacent waters of the Republic of Yugoslavia (Serbia/Montenegro), the Adriatic
 Sea & Ionian Sea n. of 39th parallel).
"^DD",2,2,.322019,21,0)
^^1^1^2990924^^^
"^DD",2,2,.322019,21,1,0)
Field stores code indicating if patient served in the Yugolslavia Conflict.
"^DD",2,2,.322019,"DT")
3040628
"^DD",2,2,.32202,0)
YUGOSLAVIA FROM DATE^RDX^^.322;20^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"
YUG",X) X I $D(X) S DFN=DA,DGX=19 D SVED^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.32202,1,0)
^.1
"^DD",2,2,.32202,1,1,0)
2^AENR32202^MUMPS
"^DD",2,2,.32202,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32202,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32202,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.32202,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32202,1,1,"%D",2,0)
YUGOSLAVIA FROM DATE field.
"^DD",2,2,.32202,1,1,"DT")
3040614
"^DD",2,2,.32202,3)
Type a date between June 22, 1992 and today indicating the date this patient beg
an serving in the Yugoslavia Conflict.
"^DD",2,2,.32202,5,1,0)
2^.322019^1
"^DD",2,2,.32202,21,0)
^^2^2^3040402^
"^DD",2,2,.32202,21,1,0)
Enter the date that service in the Yugoslavia Conflict began for this
"^DD",2,2,.32202,21,2,0)
patient.  Earliest possible date is 6/22/1992.
"^DD",2,2,.32202,"DT")
3040722
"^DD",2,2,.322021,0)
YUGOSLAVIA TO DATE^RDX^^.322;21^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"YU
G",X,1) X I $D(X) S DFN=DA,DGX=19 D SVED^DGLOCK
"^DD",2,2,.322021,1,0)
^.1
"^DD",2,2,.322021,1,1,0)
2^AENR322021^MUMPS
"^DD",2,2,.322021,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322021,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.322021,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.322021,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.322021,1,1,"%D",2,0)
YUGOSLAVIA TO DATE field.
"^DD",2,2,.322021,1,1,"DT")
3040614
"^DD",2,2,.322021,3)
Enter the date this patient's service in the Yugoslavia Conflict ended.  Date mu
st be after June 22, 1992.
"^DD",2,2,.322021,5,1,0)
2^.322019^2
"^DD",2,2,.322021,21,0)
^^1^1^3040402^
"^DD",2,2,.322021,21,1,0)
The date service in the Yugoslavia Conflict ended for this patient.
"^DD",2,2,.322021,"DT")
3040628
"^DD",2,2,.3221,0)
LEBANON SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;1^S DFN=DA D SV^DGLOCK
"^DD",2,2,.3221,.1)
DID YOU SERVE IN LEBANON?
"^DD",2,2,.3221,1,0)
^.1
"^DD",2,2,.3221,1,1,0)
^^TRIGGER^2^.3222
"^DD",2,2,.3221,1,1,1)
X ^DD(2,.3221,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X
=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.3221,1,1,1.4)
"^DD",2,2,.3221,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3221,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3221,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,2)=DIV,DIH=2,D
IG=.3222 D ^DICR
"^DD",2,2,.3221,1,1,2)
Q
"^DD",2,2,.3221,1,1,"%D",0)
^^1^1^2990803^^
"^DD",2,2,.3221,1,1,"%D",1,0)
If Lebanon service not indicated, remove the LEBANON FROM DATE.
"^DD",2,2,.3221,1,1,"CREATE CONDITION")
#.3221="NO"
"^DD",2,2,.3221,1,1,"CREATE VALUE")
@
"^DD",2,2,.3221,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3221,1,1,"DT")
2920615
"^DD",2,2,.3221,1,1,"FIELD")
LEBANON FROM DATE
"^DD",2,2,.3221,1,2,0)
^^TRIGGER^2^.3223
"^DD",2,2,.3221,1,2,1)
X ^DD(2,.3221,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X
=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3221,1,2,1.4)
"^DD",2,2,.3221,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3221,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3221,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,3)=DIV,DIH=2,D
IG=.3223 D ^DICR
"^DD",2,2,.3221,1,2,2)
Q
"^DD",2,2,.3221,1,2,"%D",0)
^^1^1^2920116^
"^DD",2,2,.3221,1,2,"%D",1,0)
If Lebanon service not indicated, remove the to date.
"^DD",2,2,.3221,1,2,"CREATE CONDITION")
#.3221="NO"
"^DD",2,2,.3221,1,2,"CREATE VALUE")
@
"^DD",2,2,.3221,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3221,1,2,"DT")
2920116
"^DD",2,2,.3221,1,2,"FIELD")
LEBANON TO DATE
"^DD",2,2,.3221,1,3,0)
2^AENR3221^MUMPS
"^DD",2,2,.3221,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3221,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3221,1,3,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3221,1,3,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3221,1,3,"%D",2,0)
LEBANON SERVICE INDICATED? field.
"^DD",2,2,.3221,1,3,"DT")
3040614
"^DD",2,2,.3221,3)
Did this veteran serve in Lebanon during the conflict there?
"^DD",2,2,.3221,21,0)
^^2^2^2930629^^
"^DD",2,2,.3221,21,1,0)
Did this patient serve in Lebanon between the dates of August 23, 1982
"^DD",2,2,.3221,21,2,0)
and February 26, 1984?
"^DD",2,2,.3221,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3221,"DT")
3040614
"^DD",2,2,.3222,0)
LEBANON FROM DATE^RDX^^.322;2^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"LEB"
,X) X I $D(X) S DFN=DA,DGX=1 D SVED^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.3222,1,0)
^.1
"^DD",2,2,.3222,1,1,0)
2^AENR3222^MUMPS
"^DD",2,2,.3222,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3222,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3222,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3222,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3222,1,1,"%D",2,0)
LEBANON FROM DATE field.
"^DD",2,2,.3222,1,1,"DT")
3040614
"^DD",2,2,.3222,3)
TYPE A DATE AFTER OCTOBER 1, 1983 TO INDICATE THE DATE THIS PATIENT BEGAN HIS SE
RVICE IN LEBANON
"^DD",2,2,.3222,5,1,0)
2^.3221^1
"^DD",2,2,.3222,21,0)
^^4^4^3040402^
"^DD",2,2,.3222,21,1,0)
For this veteran applicant who served in Lebanon, enter the date which
"^DD",2,2,.3222,21,2,0)
the applicant's service in Lebanon began.  The date must be on or after
"^DD",2,2,.3222,21,3,0)
October 1, 1983.
"^DD",2,2,.3222,21,4,0)
.
"^DD",2,2,.3222,"DEL",1,0)
S DFN=DA,DGX=1 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.3222,"DT")
3040722
"^DD",2,2,.3223,0)
LEBANON TO DATE^RDX^^.322;3^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"LEB",X
,1) X I $D(X) S DFN=DA,DGX=1 D SVED^DGLOCK
"^DD",2,2,.3223,1,0)
^.1
"^DD",2,2,.3223,1,1,0)
2^AENR3223^MUMPS
"^DD",2,2,.3223,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3223,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3223,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3223,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3223,1,1,"%D",2,0)
LEBANON TO DATE field.
"^DD",2,2,.3223,1,1,"DT")
3040614
"^DD",2,2,.3223,3)
TYPE A DATE AFTER OCTOBER 1, 1983 INDICATING THE DATE THIS PATIENT'S SERVICE IN 
LEBANON ENDED.
"^DD",2,2,.3223,5,1,0)
2^.3221^2
"^DD",2,2,.3223,21,0)
^^3^3^3040407^
"^DD",2,2,.3223,21,1,0)
For this patient, enter the date the patient's service in Lebanon ended.
"^DD",2,2,.3223,21,2,0)
The 'LEBANON SERVICE INDICATED?' field must be answered yes and the date
"^DD",2,2,.3223,21,3,0)
in this field must be after October 1, 1983.
"^DD",2,2,.3223,"DEL",1,0)
S DFN=DA,DGX=1 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.3223,"DT")
3040614
"^DD",2,2,.3224,0)
GRENADA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;4^S DFN=DA D SV^DGLOCK
"^DD",2,2,.3224,1,0)
^.1
"^DD",2,2,.3224,1,1,0)
^^TRIGGER^2^.3225
"^DD",2,2,.3224,1,1,1)
X ^DD(2,.3224,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X
=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2,.3224,1,1,1.4)
"^DD",2,2,.3224,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3224,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3224,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,5)=DIV,DIH=2,D
IG=.3225 D ^DICR
"^DD",2,2,.3224,1,1,2)
Q
"^DD",2,2,.3224,1,1,"%D",0)
^^1^1^2920116^
"^DD",2,2,.3224,1,1,"%D",1,0)
If service in Grenada is not indicated, remove the GRENADA FROM DATE.
"^DD",2,2,.3224,1,1,"CREATE CONDITION")
#.3224="NO"
"^DD",2,2,.3224,1,1,"CREATE VALUE")
@
"^DD",2,2,.3224,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3224,1,1,"FIELD")
GRENADA FROM DATE
"^DD",2,2,.3224,1,2,0)
^^TRIGGER^2^.3226
"^DD",2,2,.3224,1,2,1)
X ^DD(2,.3224,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X
=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(2,.3224,1,2,1.4)
"^DD",2,2,.3224,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3224,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3224,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,6)=DIV,DIH=2,D
IG=.3226 D ^DICR
"^DD",2,2,.3224,1,2,2)
Q
"^DD",2,2,.3224,1,2,"%D",0)
^^1^1^2920116^
"^DD",2,2,.3224,1,2,"%D",1,0)
If service in Grenada is not indicated, delete the GRENADA TO DATE.
"^DD",2,2,.3224,1,2,"CREATE CONDITION")
#.3224="NO"
"^DD",2,2,.3224,1,2,"CREATE VALUE")
@
"^DD",2,2,.3224,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3224,1,2,"DT")
2920116
"^DD",2,2,.3224,1,2,"FIELD")
GRENADA TO DATE
"^DD",2,2,.3224,1,3,0)
2^AENR3224^MUMPS
"^DD",2,2,.3224,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3224,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3224,1,3,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3224,1,3,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3224,1,3,"%D",2,0)
GRENADA SERVICE INDICATED? field.
"^DD",2,2,.3224,1,3,"DT")
3040614
"^DD",2,2,.3224,3)
If this patient served during the conflict in Grenada, enter YES here.  Enter NO
 if the patient did not serve in Grenada, or UNKNOWN if this can not be determin
ed.
"^DD",2,2,.3224,21,0)
^^2^2^2930629^^
"^DD",2,2,.3224,21,1,0)
Enter yes if this patient served in Grenada between the dates of October
"^DD",2,2,.3224,21,2,0)
23, 1983 and November 21, 1983.
"^DD",2,2,.3224,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3224,"DT")
3040614
"^DD",2,2,.3225,0)
GRENADA FROM DATE^RDX^^.322;5^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"GREN
",X) X I $D(X) S DFN=DA,DGX=4 D SVED^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.3225,1,0)
^.1
"^DD",2,2,.3225,1,1,0)
2^AENR3225^MUMPS
"^DD",2,2,.3225,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3225,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3225,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3225,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3225,1,1,"%D",2,0)
GRENADA FROM DATE field.
"^DD",2,2,.3225,1,1,"DT")
3040614
"^DD",2,2,.3225,3)
TYPE A DATE BETWEEN 10/23/1983 AND 11/21/1983 INDICATING THE DATE THIS PATIENT'S
 SERVICE IN GRENADA BEGAN.
"^DD",2,2,.3225,5,1,0)
2^.3224^1
"^DD",2,2,.3225,21,0)
^^3^3^2920115^
"^DD",2,2,.3225,21,1,0)
Enter the date which this patient began service in Grenada.  The
"^DD",2,2,.3225,21,2,0)
'GRENADA SERVICE INDICATED?' field must be answered YES and the date
"^DD",2,2,.3225,21,3,0)
entered here must be between October 23, 1983 and November 21, 1983.
"^DD",2,2,.3225,"DEL",1,0)
S DFN=DA,DGX=4 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.3225,"DT")
3040722
"^DD",2,2,.3226,0)
GRENADA TO DATE^RDX^^.322;6^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"GREN",
X,1) X I $D(X) S DFN=DA,DGX=4 D SVED^DGLOCK
"^DD",2,2,.3226,1,0)
^.1
"^DD",2,2,.3226,1,1,0)
2^AENR3226^MUMPS
"^DD",2,2,.3226,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3226,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3226,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3226,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3226,1,1,"%D",2,0)
GRENADA TO DATE field.
"^DD",2,2,.3226,1,1,"DT")
3040614
"^DD",2,2,.3226,3)
TYPE A DATE BETWEEN 10/23/1983 AND 11/21/1983 INDICATING THE DATE THE PATIENT'S 
SERVICE IN GRENADA ENDED.
"^DD",2,2,.3226,5,1,0)
2^.3224^2
"^DD",2,2,.3226,21,0)
^^3^3^2920115^
"^DD",2,2,.3226,21,1,0)
Enter the date which this patient's service in Grenada ended.  The
"^DD",2,2,.3226,21,2,0)
'GRENADA SERVICE INDICATED?' field must be yes and this date must be
"^DD",2,2,.3226,21,3,0)
between October 23, 1983 and November 21, 1983.
"^DD",2,2,.3226,"DEL",1,0)
S DFN=DA,DGX=4 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.3226,"DT")
3040614
"^DD",2,2,.3227,0)
PANAMA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;7^S DFN=DA D SV^DGLOCK
"^DD",2,2,.3227,1,0)
^.1
"^DD",2,2,.3227,1,1,0)
^^TRIGGER^2^.3228
"^DD",2,2,.3227,1,1,1)
X ^DD(2,.3227,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X
=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(2,.3227,1,1,1.4)
"^DD",2,2,.3227,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3227,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3227,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,8)=DIV,DIH=2,D
IG=.3228 D ^DICR
"^DD",2,2,.3227,1,1,2)
Q
"^DD",2,2,.3227,1,1,"%D",0)
^^1^1^2920116^
"^DD",2,2,.3227,1,1,"%D",1,0)
If service in Panama is not indicated, remove the PANAMA FROM DATE.
"^DD",2,2,.3227,1,1,"CREATE CONDITION")
#.3227="NO"
"^DD",2,2,.3227,1,1,"CREATE VALUE")
@
"^DD",2,2,.3227,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3227,1,1,"FIELD")
PANAMA FROM DATE
"^DD",2,2,.3227,1,2,0)
^^TRIGGER^2^.3229
"^DD",2,2,.3227,1,2,1)
X ^DD(2,.3227,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"") S X
=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(2,.3227,1,2,1.4)
"^DD",2,2,.3227,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3227,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.3227,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""),DIV=X S $P(^(.322),U,9)=DIV,DIH=2,D
IG=.3229 D ^DICR
"^DD",2,2,.3227,1,2,2)
Q
"^DD",2,2,.3227,1,2,"%D",0)
^^1^1^2920116^
"^DD",2,2,.3227,1,2,"%D",1,0)
If Panama service is no longer indicated, remove the PANAMA TO DATE.
"^DD",2,2,.3227,1,2,"CREATE CONDITION")
#.3227="NO"
"^DD",2,2,.3227,1,2,"CREATE VALUE")
@
"^DD",2,2,.3227,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3227,1,2,"DT")
2920116
"^DD",2,2,.3227,1,2,"FIELD")
PANAMA TO DATE
"^DD",2,2,.3227,1,3,0)
2^AENR3227^MUMPS
"^DD",2,2,.3227,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3227,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3227,1,3,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3227,1,3,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3227,1,3,"%D",2,0)
PANAMA SERVICE INDICATED? field.
"^DD",2,2,.3227,1,3,"DT")
3040614
"^DD",2,2,.3227,3)
Did this patient serve in the conflict in Panama?  Answer YES, NO, or UNKNOWN.
"^DD",2,2,.3227,21,0)
^^4^4^2930629^^
"^DD",2,2,.3227,21,1,0)
Respond yes if this patient served in Panama between the dates of
"^DD",2,2,.3227,21,2,0)
December 20, 1989 and January 31, 1990.  Enter no if the patient did not
"^DD",2,2,.3227,21,3,0)
serve in Panama during this timeframe.  Otherwise, enter unknown if this
"^DD",2,2,.3227,21,4,0)
information could not be obtained from the patient.
"^DD",2,2,.3227,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3227,"DT")
3040614
"^DD",2,2,.3228,0)
PANAMA FROM DATE^RDX^^.322;8^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"PAN",
X) X I $D(X) S DFN=DA,DGX=7 D SVED^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2,.3228,1,0)
^.1
"^DD",2,2,.3228,1,1,0)
2^AENR3228^MUMPS
"^DD",2,2,.3228,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3228,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3228,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3228,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3228,1,1,"%D",2,0)
PANAMA FROM DATE field.
"^DD",2,2,.3228,1,1,"DT")
3040614
"^DD",2,2,.3228,3)
TYPE A DATE BETWEEN 12/20/1989 AND 1/31/1990 INDICATING THE DATE THIS PATIENT BE
GAN SERVICE IN PANAMA.
"^DD",2,2,.3228,5,1,0)
2^.3227^1
"^DD",2,2,.3228,21,0)
^^3^3^2920115^
"^DD",2,2,.3228,21,1,0)
If this patient served in Panama (PANAMA SERVICE INDICATED? is answered
"^DD",2,2,.3228,21,2,0)
YES), enter the date this patient's service in Panama began.  The date
"^DD",2,2,.3228,21,3,0)
must be between December 20, 1989 and January 31, 1990.
"^DD",2,2,.3228,"DEL",1,0)
S DFN=DA,DGX=7 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.3228,"DT")
3040722
"^DD",2,2,.3229,0)
PANAMA TO DATE^RDX^^.322;9^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"PAN",X,
1) X I $D(X) S DFN=DA,DGX=7 D SVED^DGLOCK
"^DD",2,2,.3229,1,0)
^.1
"^DD",2,2,.3229,1,1,0)
2^AENR3229^MUMPS
"^DD",2,2,.3229,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3229,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3229,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.3229,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3229,1,1,"%D",2,0)
PANAMA TO DATE field.
"^DD",2,2,.3229,1,1,"DT")
3040614
"^DD",2,2,.3229,3)
TYPE A DATE BETWEEN 12/20/1989 AND 1/31/1990 INDICATING THE DATE THIS PATIENT'S 
SERVICE IN PANAMA ENDED.
"^DD",2,2,.3229,5,1,0)
2^.3227^2
"^DD",2,2,.3229,21,0)
^^3^3^2920115^
"^DD",2,2,.3229,21,1,0)
If this patient served during the conflict in Panama (PANAMA SERVICE
"^DD",2,2,.3229,21,2,0)
INDICATED? is YES), enter the date the patient's service there ended.
"^DD",2,2,.3229,21,3,0)
The date must be between December 20, 1989 and January 31, 1990.
"^DD",2,2,.3229,"DEL",1,0)
S DFN=DA,DGX=7 D SVDEL^DGLOCK1 I '$D(X)
"^DD",2,2,.3229,"DT")
3040614
"^DD",2,2,.323,0)
PERIOD OF SERVICE^*P21'Xa^DIC(21,^.32;3^S DFN=DA D POS^DGLOCK1
"^DD",2,2,.323,1,0)
^.1
"^DD",2,2,.323,1,1,0)
2^APOS
"^DD",2,2,.323,1,1,1)
S ^DPT("APOS",$E(X,1,30),DA)=""
"^DD",2,2,.323,1,1,2)
K ^DPT("APOS",$E(X,1,30),DA)
"^DD",2,2,.323,1,2,0)
^^TRIGGER^2^11500.01
"^DD",2,2,.323,1,2,1)
X ^DD(2,.323,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,"ODS")):^("ODS"),1:"") S 
X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(2,.323,1,2,1.1) X ^DD(2,.323,1,2,1.4)
"^DD",2,2,.323,1,2,1.1)
S X=DIV N %I,%H,% D NOW^%DTC S X=%
"^DD",2,2,.323,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DIC(21,+$P(^DPT(DA,.32),"^",3
),0)):0,$P(^(0),"^",3)'=6:0,'$D(^DPT(DA,"ODS")):1,'^("ODS"):1,1:0)
"^DD",2,2,.323,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),"ODS")):^("ODS"),1:""),DIV=X S $P(^("ODS"),U,1)=DIV,DIH=
2,DIG=11500.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.323,1,2,2)
Q
"^DD",2,2,.323,1,2,"CREATE CONDITION")
S X=$S('$D(^DIC(21,+$P(^DPT(DA,.32),"^",3),0)):0,$P(^(0),"^",3)'=6:0,'$D(^DPT(DA
,"ODS")):1,'^("ODS"):1,1:0)
"^DD",2,2,.323,1,2,"CREATE VALUE")
NOW
"^DD",2,2,.323,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.323,1,2,"FIELD")
INIT
"^DD",2,2,.323,1,991,0)
2^AVAFC323^MUMPS
"^DD",2,2,.323,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".323;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.323,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".323;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.323,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,.323,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.323,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.323,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.323,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.323,1,991,"%D",5,0)
 
"^DD",2,2,.323,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.323,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.323,1,991,"%D",8,0)
process.
"^DD",2,2,.323,1,991,"%D",9,0)
 
"^DD",2,2,.323,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.323,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.323,1,991,"%D",12,0)
  
"^DD",2,2,.323,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.323,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.323,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.323,1,991,"DT")
2970825
"^DD",2,2,.323,1,992,0)
2^AENR323^MUMPS
"^DD",2,2,.323,1,992,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.323,1,992,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.323,1,992,3)
 DO NOT DELETE
"^DD",2,2,.323,1,992,"%D",0)
^.101^2^2^3050831^^^^
"^DD",2,2,.323,1,992,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.323,1,992,"%D",2,0)
enrollment.
"^DD",2,2,.323,1,992,"DT")
3050831
"^DD",2,2,.323,3)
Select from the available listing the period of service which best classifies th
is patient.
"^DD",2,2,.323,11,0)
^.2LAP
"^DD",2,2,.323,12)
POS must be compatible with Eligibility Code
"^DD",2,2,.323,12.1)
S DIC("S")="I $D(^DPT(DA,.36)),$D(^DIC(21,""AELIG"",+Y,+$P(^(.36),U,1)))"
"^DD",2,2,.323,20,0)
^.3LA^2^2
"^DD",2,2,.323,20,1,0)
SVC
"^DD",2,2,.323,20,2,0)
ECD
"^DD",2,2,.323,21,0)
^^6^6^2920721^^
"^DD",2,2,.323,21,1,0)
From the available listing select the period of service which best
"^DD",2,2,.323,21,2,0)
classifies this applicant.  The selections displayed are limited
"^DD",2,2,.323,21,3,0)
based on the eligibility code which must have been entered in order
"^DD",2,2,.323,21,4,0)
to select a period of service.  Once the service record is verified
"^DD",2,2,.323,21,5,0)
only those users who hold the designated security key may enter/edit
"^DD",2,2,.323,21,6,0)
this field.
"^DD",2,2,.323,"AUDIT")
y
"^DD",2,2,.323,"DEL",1,0)
S DFN=DA D SV1^DGLOCK I '$D(X)
"^DD",2,2,.323,"DT")
3060802
"^DD",2,2,.324,0)
SERVICE DISCHARGE TYPE [LAST]^RP25'X^DIC(25,^.32;4^S DFN=DA I $D(X) D SV^DGLOCK 
Q
"^DD",2,2,.324,.1)
DISCHARGE TYPE-SERVICE [LAST]
"^DD",2,2,.324,1,0)
^.1
"^DD",2,2,.324,1,1,0)
2^AENR324^MUMPS
"^DD",2,2,.324,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.324,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.324,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.324,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.324,1,1,"%D",2,0)
SERVICE DISCHARGE TYPE [LAST] field.
"^DD",2,2,.324,1,1,"DT")
3040610
"^DD",2,2,.324,3)
Select from the listing the discharge type from this patient's last episode of m
ilitary service.
"^DD",2,2,.324,20,0)
^.3LA^1^1
"^DD",2,2,.324,20,1,0)
SVC
"^DD",2,2,.324,21,0)
^^5^5^2920604^^^^
"^DD",2,2,.324,21,1,0)
For this veteran applicant select from the available listing
"^DD",2,2,.324,21,2,0)
the discharge type which s/he received for his/her most recent
"^DD",2,2,.324,21,3,0)
episode of military service.  Once the service record is verified
"^DD",2,2,.324,21,4,0)
only those users who hold the designated security key may enter/edit
"^DD",2,2,.324,21,5,0)
this field.
"^DD",2,2,.324,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.324,"DT")
3040610
"^DD",2,2,.325,0)
SERVICE BRANCH [LAST]^P23'X^DIC(23,^.32;5^S DFN=DA K:X=$O(^DIC(23,"B","B.E.C.","
")) X I $D(X) D SV^DGLOCK S DGCOMBR=$G(Y) Q
"^DD",2,2,.325,.1)
BRANCH OF SERVICE, LAST
"^DD",2,2,.325,1,0)
^.1
"^DD",2,2,.325,1,1,0)
2^AODS4^MUMPS
"^DD",2,2,.325,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.325,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,.325,1,2,0)
2^AFV1^MUMPS
"^DD",2,2,.325,1,2,1)
Q
"^DD",2,2,.325,1,2,2)
I $P($G(^DPT(DA,.321)),U,14)]"" D FVP^DGRPMS
"^DD",2,2,.325,1,2,"%D",0)
^.101^4^4^3040325^^^^
"^DD",2,2,.325,1,2,"%D",1,0)
This MUMPS cross-reference acts like a trigger cross-reference.
"^DD",2,2,.325,1,2,"%D",2,0)
If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL]
"^DD",2,2,.325,1,2,"%D",3,0)
fields do not contain a Filipino Veteran branch of service, the Filipino
"^DD",2,2,.325,1,2,"%D",4,0)
Vet Proof field (#.3214) is deleted.
"^DD",2,2,.325,1,2,"DT")
3040325
"^DD",2,2,.325,1,3,0)
2^AENR325^MUMPS
"^DD",2,2,.325,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.325,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.325,1,3,"%D",0)
^^2^2^3040610^
"^DD",2,2,.325,1,3,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.325,1,3,"%D",2,0)
SERVICE BRANCH [LAST] field.
"^DD",2,2,.325,1,3,"DT")
3040610
"^DD",2,2,.325,1,4,0)
2^AXR34^MUMPS
"^DD",2,2,.325,1,4,1)
Q
"^DD",2,2,.325,1,4,2)
S DGXRF=.325 D ^DGDDC Q
"^DD",2,2,.325,1,4,"DT")
3050912
"^DD",2,2,.325,3)
Select from the listing the branch in which this patient served during his last 
episode of military service.
"^DD",2,2,.325,20,0)
^.3LA^1^1
"^DD",2,2,.325,20,1,0)
SVC
"^DD",2,2,.325,21,0)
^.001^5^5^3060104^^^
"^DD",2,2,.325,21,1,0)
For this veteran applicant select from the available listing
"^DD",2,2,.325,21,2,0)
the branch of service served in during his/her most recent
"^DD",2,2,.325,21,3,0)
episode of military service.  Once the service record is verified
"^DD",2,2,.325,21,4,0)
only those users who hold the designated security key may
"^DD",2,2,.325,21,5,0)
enter/edit this field.
"^DD",2,2,.325,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.325,"DT")
3051104
"^DD",2,2,.326,0)
SERVICE ENTRY DATE [LAST]^RDX^^.32;6^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y
<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSL") X I 
$D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=1 D POS^DGINP
"^DD",2,2,.326,.1)
ENTRY DATE-SERVICE [LAST]
"^DD",2,2,.326,1,0)
^.1
"^DD",2,2,.326,1,1,0)
2^AE^MUMPS
"^DD",2,2,.326,1,1,1)
Q
"^DD",2,2,.326,1,1,2)
Q
"^DD",2,2,.326,1,2,0)
2^AENR326^MUMPS
"^DD",2,2,.326,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.326,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.326,1,2,"%D",0)
^^2^2^3040610^
"^DD",2,2,.326,1,2,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2,.326,1,2,"%D",2,0)
SERVICE ENTRY DATE [LAST] field.
"^DD",2,2,.326,1,2,"DT")
3040610
"^DD",2,2,.326,1,992,0)
2^ADGRU326^MUMPS
"^DD",2,2,.326,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.326,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.326,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.326,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.326,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.326,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.326,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.326,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.326,1,992,"%D",6,0)
interface.
"^DD",2,2,.326,1,992,"%D",7,0)
 
"^DD",2,2,.326,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.326,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.326,1,992,"DT")
2990921
"^DD",2,2,.326,3)
Enter the date the patient entered his last episode of military service.
"^DD",2,2,.326,20,0)
^.3LA^1^1
"^DD",2,2,.326,20,1,0)
SVC
"^DD",2,2,.326,21,0)
^.001^7^7^3061003^^^
"^DD",2,2,.326,21,1,0)
For this veteran applicant enter the date s/he commenced his/her
"^DD",2,2,.326,21,2,0)
most recent episode of military service.  If the military service
"^DD",2,2,.326,21,3,0)
component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the
"^DD",2,2,.326,21,4,0)
period entered should be the period of activation, so this date is
"^DD",2,2,.326,21,5,0)
their first day of active duty for the episode.  Once the service
"^DD",2,2,.326,21,6,0)
record is verified only those users who hold the designated
"^DD",2,2,.326,21,7,0)
security key may enter/edit this field.
"^DD",2,2,.326,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.326,"DT")
3040722
"^DD",2,2,.327,0)
SERVICE SEPARATION DATE [LAST]^RDX^^.32;7^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=
Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSL")
 X I $D(X),$D(^DG(43,1)) S SD1=1 D PS^DGINP
"^DD",2,2,.327,.1)
SEPARATION DATE-SERVICE [LAST]
"^DD",2,2,.327,1,0)
^.1
"^DD",2,2,.327,1,1,0)
2^AENR327^MUMPS
"^DD",2,2,.327,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.327,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.327,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.327,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.327,1,1,"%D",2,0)
SERVICE SEPARATION DATE [LAST] field.
"^DD",2,2,.327,1,1,"DT")
3040610
"^DD",2,2,.327,1,992,0)
2^ADGRU327^MUMPS
"^DD",2,2,.327,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.327,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.327,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.327,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.327,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.327,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.327,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.327,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.327,1,992,"%D",6,0)
interface.
"^DD",2,2,.327,1,992,"%D",7,0)
 
"^DD",2,2,.327,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.327,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.327,1,992,"DT")
2990921
"^DD",2,2,.327,3)
Enter the date on which this patient was separated from his last episode of mili
tary service.
"^DD",2,2,.327,20,0)
^.3LA^1^1
"^DD",2,2,.327,20,1,0)
SVC
"^DD",2,2,.327,21,0)
^.001^7^7^3061003^^
"^DD",2,2,.327,21,1,0)
For this veteran applicant enter the date s/he ended his/her
"^DD",2,2,.327,21,2,0)
most recent episode of military service. If the military
"^DD",2,2,.327,21,3,0)
service component is ACTIVATED NATIONAL GUARD or ACTIVATED
"^DD",2,2,.327,21,4,0)
RESERVE, the period entered should be the period of activation,
"^DD",2,2,.327,21,5,0)
so this date is their last day of active duty for this episode.
"^DD",2,2,.327,21,6,0)
Once the service record is verified only those users who hold
"^DD",2,2,.327,21,7,0)
the designated security key may enter/edit this field.
"^DD",2,2,.327,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.327,"DT")
3090623
"^DD",2,2,.328,0)
SERVICE NUMBER [LAST]^FX^^.32;8^S DFN=DA D SV^DGLOCK I $D(X) S:X?1"SS".E L=$S($D
(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E "  ",L S:X?1"SS".E X=L K:$L(X)>15!($L
(X)<1)!'(X?.N) X
"^DD",2,2,.328,.1)
NUMBER-SERVICE [LAST]
"^DD",2,2,.328,1,0)
^.1
"^DD",2,2,.328,1,1,0)
2^AENR328^MUMPS
"^DD",2,2,.328,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.328,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.328,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.328,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.328,1,1,"%D",2,0)
SERVICE NUMBER [LAST] field.
"^DD",2,2,.328,1,1,"DT")
3040610
"^DD",2,2,.328,3)
Enter the service number assigned to this patient during his last episode of mil
itary service or 'SS' if it's the same as his SSN.
"^DD",2,2,.328,20,0)
^.3LA^1^1
"^DD",2,2,.328,20,1,0)
SVC
"^DD",2,2,.328,21,0)
^^6^6^2920604^^^
"^DD",2,2,.328,21,1,0)
For this veteran applicant enter the service number assigned during
"^DD",2,2,.328,21,2,0)
his/her most recent episode of military service as either 1-15
"^DD",2,2,.328,21,3,0)
characters or enter 'SS' if the social security number and service
"^DD",2,2,.328,21,4,0)
number are the same.  Once the service record has been verified only
"^DD",2,2,.328,21,5,0)
those users who hold the designated security key may enter/edit this
"^DD",2,2,.328,21,6,0)
field.
"^DD",2,2,.328,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.328,"DT")
3040610
"^DD",2,2,.3285,0)
SERVICE SECOND EPISODE?^RSX^Y:YES;N:NO;^.32;19^S DFN=DA D SV^DGLOCK
"^DD",2,2,.3285,.1)
SECOND EPISODE OF SERVICE?
"^DD",2,2,.3285,1,0)
^.1
"^DD",2,2,.3285,1,1,0)
2^AXR9^MUMPS
"^DD",2,2,.3285,1,1,1)
I X'="Y" S DGXRF=.3285 D ^DGDDC Q
"^DD",2,2,.3285,1,1,2)
Q
"^DD",2,2,.3285,1,1,"DT")
3040331
"^DD",2,2,.3285,1,2,0)
^^TRIGGER^2^.32945
"^DD",2,2,.3285,1,2,1)
X ^DD(2,.3285,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$
P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,.3285,1,2,1.4)
"^DD",2,2,.3285,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3285,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1),X=$E(X)'="Y"
"^DD",2,2,.3285,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.32)):^(.32),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,19,99)
)  S DIH=DIH_U" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(.32)=$P(DIH,U,1,19)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.32945 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3285,1,2,2)
Q
"^DD",2,2,.3285,1,2,"CREATE CONDITION")
$E(#.3285)'="Y"
"^DD",2,2,.3285,1,2,"CREATE VALUE")
"N"
"^DD",2,2,.3285,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3285,1,2,"FIELD")
#.32945
"^DD",2,2,.3285,1,3,0)
^^TRIGGER^2^.3291
"^DD",2,2,.3285,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.3285,0)),U,3) 
S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="YES" I X S X=DIV S Y(1)=$S($D(^DPT(D
0,.32)):^(.32),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(2,.3285,1,3,
1.4)
"^DD",2,2,.3285,1,3,1.4)
S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,10)=DIV,DIH=2,DIG=.3291 D ^DICR
"^DD",2,2,.3285,1,3,2)
X ^DD(2,.3285,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$
P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32)
,U,10)=DIV,DIH=2,DIG=.3291 D ^DICR
"^DD",2,2,.3285,1,3,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.3285,0)),U,3),
Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,19)_":",2)
,$C(59))'="YES"
"^DD",2,2,.3285,1,3,"CREATE CONDITION")
#.3285'="YES"
"^DD",2,2,.3285,1,3,"CREATE VALUE")
@
"^DD",2,2,.3285,1,3,"DELETE CONDITION")
#.3285'="YES"
"^DD",2,2,.3285,1,3,"DELETE VALUE")
@
"^DD",2,2,.3285,1,3,"DT")
3040407
"^DD",2,2,.3285,1,3,"FIELD")
#.3291
"^DD",2,2,.3285,3)
Enter YES if this patient has more than one episode of military service otherwis
e enter NO.
"^DD",2,2,.3285,20,0)
^.3LA^1^1
"^DD",2,2,.3285,20,1,0)
SVC
"^DD",2,2,.3285,21,0)
^^3^3^2861006^
"^DD",2,2,.3285,21,1,0)
For this veteran applicant enter 'Y' if s/he has more than one episode of
"^DD",2,2,.3285,21,2,0)
military service, or 'N' if not.  Once the service record is verified
"^DD",2,2,.3285,21,3,0)
only users who hold the designated security key may enter/edit this field.
"^DD",2,2,.3285,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3285,"DT")
3040407
"^DD",2,2,.329,0)
SERVICE DISCHARGE TYPE [NTL]^RP25'X^DIC(25,^.32;9^S DFN=DA D SER1^DGLOCK
"^DD",2,2,.329,.1)
DISCHARGE TYPE-SERVICE [NTL]
"^DD",2,2,.329,1,0)
^.1
"^DD",2,2,.329,1,1,0)
2^AENR329^MUMPS
"^DD",2,2,.329,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.329,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.329,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.329,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.329,1,1,"%D",2,0)
SERVICE DISCHARGE TYPE [NTL] field.
"^DD",2,2,.329,1,1,"DT")
3040610
"^DD",2,2,.329,3)
Enter the type of discharge given this patient from his next-to-last episode of 
military service.
"^DD",2,2,.329,5,1,0)
2^.3285^1
"^DD",2,2,.329,20,0)
^.3LA^1^1
"^DD",2,2,.329,20,1,0)
SVC
"^DD",2,2,.329,21,0)
^^7^7^2920604^^^^
"^DD",2,2,.329,21,1,0)
For this veteran applicant who has at least two episodes of military
"^DD",2,2,.329,21,2,0)
service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)
"^DD",2,2,.329,21,3,0)
select from the available listing the type of discharge received from
"^DD",2,2,.329,21,4,0)
his/her next to last episode of military service.  Once the service
"^DD",2,2,.329,21,5,0)
record is verified only those users who hold the designated security
"^DD",2,2,.329,21,6,0)
key may enter/edit this field.  This field cannot be deleted as long
"^DD",2,2,.329,21,7,0)
as more than one episode of military service is indicated.
"^DD",2,2,.329,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.329,"DT")
3040610
"^DD",2,2,.3291,0)
SERVICE BRANCH [NTL]^P23'X^DIC(23,^.32;10^S DFN=DA K:X=$O(^DIC(23,"B","B.E.C.","
")) X I $D(X) D SER1^DGLOCK S DGCOMBR=$G(Y) Q
"^DD",2,2,.3291,.1)
BRANCH OF SERVICE, NTL
"^DD",2,2,.3291,1,0)
^.1
"^DD",2,2,.3291,1,1,0)
2^AFV2^MUMPS
"^DD",2,2,.3291,1,1,1)
Q
"^DD",2,2,.3291,1,1,2)
I $P($G(^DPT(DA,.321)),U,14)]"" D FVP^DGRPMS
"^DD",2,2,.3291,1,1,"%D",0)
^.101^4^4^3040331^^
"^DD",2,2,.3291,1,1,"%D",1,0)
This MUMPS cross-reference acts like a trigger cross-reference.
"^DD",2,2,.3291,1,1,"%D",2,0)
If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL]
"^DD",2,2,.3291,1,1,"%D",3,0)
fields do not contain a Filipino Veteran branch of service, the Filipino
"^DD",2,2,.3291,1,1,"%D",4,0)
Vet Proof field (#.3214) is deleted.
"^DD",2,2,.3291,1,1,"DT")
3040325
"^DD",2,2,.3291,1,2,0)
2^AENR3291^MUMPS
"^DD",2,2,.3291,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3291,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3291,1,2,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3291,1,2,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3291,1,2,"%D",2,0)
SERVICE BRANCH [NTL] field.
"^DD",2,2,.3291,1,2,"DT")
3040610
"^DD",2,2,.3291,1,3,0)
2^AXR35^MUMPS
"^DD",2,2,.3291,1,3,1)
Q
"^DD",2,2,.3291,1,3,2)
S DGXRF=.3291 D ^DGDDC Q
"^DD",2,2,.3291,1,3,"%D",0)
^^2^2^3060718^
"^DD",2,2,.3291,1,3,"%D",1,0)
This xref is used to delete the SERVICE COMPONENT [NTL] field if the
"^DD",2,2,.3291,1,3,"%D",2,0)
SERVICE BRANCH [NTL] field is changed or deleted.
"^DD",2,2,.3291,1,3,"DT")
3060718
"^DD",2,2,.3291,3)
Enter the branch of service in which the patient served in his next-to-last epis
ode of military service.
"^DD",2,2,.3291,5,1,0)
2^.3285^3
"^DD",2,2,.3291,20,0)
^.3LA^1^1
"^DD",2,2,.3291,20,1,0)
SVC
"^DD",2,2,.3291,21,0)
^.001^7^7^3050909^^^^
"^DD",2,2,.3291,21,1,0)
For this veteran applicant who has at least two episodes of military
"^DD",2,2,.3291,21,2,0)
service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)
"^DD",2,2,.3291,21,3,0)
select from the available listing the branch of service s/he served
"^DD",2,2,.3291,21,4,0)
in during his/her next to last episode of military service.  Once the
"^DD",2,2,.3291,21,5,0)
service record is verified only those users who hold the designated
"^DD",2,2,.3291,21,6,0)
security key may enter/edit this field.  This field cannot be deleted
"^DD",2,2,.3291,21,7,0)
as long as more than one episode of military service is indicated.
"^DD",2,2,.3291,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3291,"DT")
3060718
"^DD",2,2,.32911,0)
SERVICE COMPONENT [LAST]^*S^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;
1^Q
"^DD",2,2,.32911,1,0)
^.1
"^DD",2,2,.32911,1,1,0)
2^AENR32911^MUMPS
"^DD",2,2,.32911,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32911,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32911,1,1,"%D",0)
^^2^2^3050909^
"^DD",2,2,.32911,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32911,1,1,"%D",2,0)
SERVICE COMPONENT [LAST] field.
"^DD",2,2,.32911,1,1,"DT")
3050909
"^DD",2,2,.32911,3)
Enter the military service component of the patient for the most recent military
 service episode.
"^DD",2,2,.32911,12)
Component must be consistent with branch of service, branch of service is requir
ed to enter component
"^DD",2,2,.32911,12.1)
S DIC("S")="I $$VALCOMP^DGRPMS(DA,Y,1)"
"^DD",2,2,.32911,21,0)
^.001^5^5^3050919^^^^
"^DD",2,2,.32911,21,1,0)
For this veteran applicant enter the military service component for
"^DD",2,2,.32911,21,2,0)
his/her most recent episode of military service.  Once the service
"^DD",2,2,.32911,21,3,0)
record has been verified only those users who hold the designated 
"^DD",2,2,.32911,21,4,0)
security key may enter/edit this field.
"^DD",2,2,.32911,21,5,0)
NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
"^DD",2,2,.32911,"DT")
3050919
"^DD",2,2,.32912,0)
SERVICE COMPONENT [NTL]^*SX^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;
2^Q
"^DD",2,2,.32912,.1)

"^DD",2,2,.32912,1,0)
^.1
"^DD",2,2,.32912,1,1,0)
2^AENR32912^MUMPS
"^DD",2,2,.32912,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32912,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32912,1,1,"%D",0)
^^2^2^3050909^
"^DD",2,2,.32912,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32912,1,1,"%D",2,0)
SERVICE COMPONENT [NTL] field.
"^DD",2,2,.32912,1,1,"DT")
3050909
"^DD",2,2,.32912,3)
Enter the military service component of the patient for the next to last militar
y service episode.
"^DD",2,2,.32912,5,1,0)
2^.3291^3
"^DD",2,2,.32912,12)
Component must be consistent with branch of service, branch of service is requir
ed to enter component
"^DD",2,2,.32912,12.1)
S DIC("S")="I $$VALCOMP^DGRPMS(DA,Y,2)"
"^DD",2,2,.32912,21,0)
^.001^8^8^3050912^^^^
"^DD",2,2,.32912,21,1,0)
For this veteran applicant who has at least two episodes of military
"^DD",2,2,.32912,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter
"^DD",2,2,.32912,21,3,0)
the military service component for the next to last episode of
"^DD",2,2,.32912,21,4,0)
service.  Once the service record is verified only those users who
"^DD",2,2,.32912,21,5,0)
hold the designated security key may enter/edit this field.  This field 
"^DD",2,2,.32912,21,6,0)
cannot be deleted as long as more than two episodes of military service
"^DD",2,2,.32912,21,7,0)
are indicated.
"^DD",2,2,.32912,21,8,0)
NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
"^DD",2,2,.32912,"DT")
3050919
"^DD",2,2,.32913,0)
SERVICE COMPONENT [NNTL]^*SX^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291
;3^Q
"^DD",2,2,.32913,1,0)
^.1
"^DD",2,2,.32913,1,1,0)
2^AENR32913^MUMPS
"^DD",2,2,.32913,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32913,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.32913,1,1,"%D",0)
^^2^2^3050909^
"^DD",2,2,.32913,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.32913,1,1,"%D",2,0)
SERVICE COMPONENT [NNTL] field.
"^DD",2,2,.32913,1,1,"DT")
3050909
"^DD",2,2,.32913,3)
Enter the military service component of the patient for the third most recent mi
litary service episode.
"^DD",2,2,.32913,5,1,0)
2^.3296^3
"^DD",2,2,.32913,12)
Component must be consistent with branch of service, branch of service is requir
ed to enter component
"^DD",2,2,.32913,12.1)
S DIC("S")="I $$VALCOMP^DGRPMS(DA,Y,3)"
"^DD",2,2,.32913,21,0)
^.001^8^8^3050919^^^^
"^DD",2,2,.32913,21,1,0)
For this veteran applicant who has at least three episodes of military
"^DD",2,2,.32913,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter
"^DD",2,2,.32913,21,3,0)
the military service component for the third most recent episode of
"^DD",2,2,.32913,21,4,0)
service.  Once the service record is verified only those users who hold
"^DD",2,2,.32913,21,5,0)
the designated security key may enter/edit this field.  This field cannot
"^DD",2,2,.32913,21,6,0)
be deleted as long as more than two episodes of military service are
"^DD",2,2,.32913,21,7,0)
indicated.
"^DD",2,2,.32913,21,8,0)
NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
"^DD",2,2,.32913,"DT")
3050919
"^DD",2,2,.3292,0)
SERVICE ENTRY DATE [NTL]^RDX^^.32;11^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y
<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSNTL") 
X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=2 D POS^DGINP
"^DD",2,2,.3292,.1)
ENTRY DATE-SERVICE [NTL]
"^DD",2,2,.3292,1,0)
^.1
"^DD",2,2,.3292,1,1,0)
2^AF^MUMPS
"^DD",2,2,.3292,1,1,1)
Q
"^DD",2,2,.3292,1,1,2)
Q
"^DD",2,2,.3292,1,2,0)
2^AENR3292^MUMPS
"^DD",2,2,.3292,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3292,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3292,1,2,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3292,1,2,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3292,1,2,"%D",2,0)
SERVICE ENTRY DATE [NTL] field.
"^DD",2,2,.3292,1,2,"DT")
3040610
"^DD",2,2,.3292,3)
Enter the date this patient commenced his next-to-last episode of military servi
ce.
"^DD",2,2,.3292,20,0)
^.3LA^1^1
"^DD",2,2,.3292,20,1,0)
SVC
"^DD",2,2,.3292,21,0)
^.001^10^10^3061003^^^^
"^DD",2,2,.3292,21,1,0)
For this veteran applicant who has at least two episodes of military
"^DD",2,2,.3292,21,2,0)
service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)
"^DD",2,2,.3292,21,3,0)
enter the date on which the next to last episode of service commenced.
"^DD",2,2,.3292,21,4,0)
If the military service component is ACTIVATED NATIONAL GUARD or
"^DD",2,2,.3292,21,5,0)
ACTIVATED RESERVE, the period entered should be the period of
"^DD",2,2,.3292,21,6,0)
activation, so this date is their first day of active duty for the
"^DD",2,2,.3292,21,7,0)
episode.  Once the service record is verified only those users
"^DD",2,2,.3292,21,8,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.3292,21,9,0)
This field cannot be deleted as long as more than one episode of
"^DD",2,2,.3292,21,10,0)
military service is indicated.
"^DD",2,2,.3292,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3292,"DT")
3040722
"^DD",2,2,.3293,0)
SERVICE SEPARATION DATE [NTL]^RDX^^.32;12^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=
Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSN
TL") X I $D(X),$D(^DG(43,1)) S SD1=2 D PS^DGINP
"^DD",2,2,.3293,.1)
SEPARATION DATE-SERVICE [NTL]
"^DD",2,2,.3293,1,0)
^.1
"^DD",2,2,.3293,1,1,0)
2^AENR3293^MUMPS
"^DD",2,2,.3293,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3293,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3293,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3293,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3293,1,1,"%D",2,0)
SERVICE SEPARATION DATE [NTL] field.
"^DD",2,2,.3293,1,1,"DT")
3040610
"^DD",2,2,.3293,3)
Enter the date this patient ended his next-to-last episode of military service.
"^DD",2,2,.3293,20,0)
^.3LA^1^1
"^DD",2,2,.3293,20,1,0)
SVC
"^DD",2,2,.3293,21,0)
^.001^10^10^3061003^^^^
"^DD",2,2,.3293,21,1,0)
For this veteran applicant who has at least two episodes of military
"^DD",2,2,.3293,21,2,0)
service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)
"^DD",2,2,.3293,21,3,0)
enter the date on which the next to last episode of service ended.
"^DD",2,2,.3293,21,4,0)
If the military service component is ACTIVATED NATIONAL GUARD or
"^DD",2,2,.3293,21,5,0)
ACTIVATED RESERVE, the period entered should be the period of
"^DD",2,2,.3293,21,6,0)
activation, so this date is their last day of active duty for
"^DD",2,2,.3293,21,7,0)
this episode. Once the service record is verified only those users
"^DD",2,2,.3293,21,8,0)
who hold the designated security key may enter/edit this field.  This
"^DD",2,2,.3293,21,9,0)
field cannot be deleted as long as more than one episode of military
"^DD",2,2,.3293,21,10,0)
service is indicated.
"^DD",2,2,.3293,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3293,"DT")
3040610
"^DD",2,2,.3294,0)
SERVICE NUMBER [NTL]^FX^^.32;13^S DFN=DA D SER1^DGLOCK I $D(X) S:X?1"SS".E L=$S(
$D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E "  ",L S:X?1"SS".E X=L K:$L(X)>15!(
$L(X)<1)!'(X?.N) X
"^DD",2,2,.3294,.1)
NUMBER-SERVICE [NTL]
"^DD",2,2,.3294,1,0)
^.1
"^DD",2,2,.3294,1,1,0)
2^AENR3294^MUMPS
"^DD",2,2,.3294,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3294,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3294,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3294,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3294,1,1,"%D",2,0)
SERVICE NUMBER [NTL] field.
"^DD",2,2,.3294,1,1,"DT")
3040610
"^DD",2,2,.3294,3)
Enter the service number assigned to this patient during his next-to-last episod
e of military service or 'SS' if it's the same as his SSN.
"^DD",2,2,.3294,20,0)
^.3LA^1^1
"^DD",2,2,.3294,20,1,0)
SVC
"^DD",2,2,.3294,21,0)
^^7^7^2930721^^^^
"^DD",2,2,.3294,21,1,0)
For this veteran applicant who has at least two episodes of military
"^DD",2,2,.3294,21,2,0)
service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)
"^DD",2,2,.3294,21,3,0)
enter the service number assigned to that next to last episode of
"^DD",2,2,.3294,21,4,0)
service [1-15 characters].  Once the service record is verified only
"^DD",2,2,.3294,21,5,0)
those users who hold the designated security key may enter/edit this
"^DD",2,2,.3294,21,6,0)
field.  This field cannot be deleted as long as more than one episode
"^DD",2,2,.3294,21,7,0)
of military service is indicated.
"^DD",2,2,.3294,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3294,"DT")
3040610
"^DD",2,2,.32945,0)
SERVICE THIRD EPISODE?^RSX^Y:YES;N:NO;^.32;20^S DFN=DA D SV^DGLOCK I "N"'[$G(X),
$D(^DPT(DFN,.32)),$P(^(.32),U,19)'="Y" W !?4,*7,"Other Periods of service are no
t indicated...NO EDITING!" K X
"^DD",2,2,.32945,.1)
THIRD EPISODE OF SERVICE?
"^DD",2,2,.32945,1,0)
^.1
"^DD",2,2,.32945,1,1,0)
2^AXR10^MUMPS
"^DD",2,2,.32945,1,1,1)
I X'="Y" S DGXRF=.32945 D ^DGDDC Q
"^DD",2,2,.32945,1,1,2)
Q
"^DD",2,2,.32945,1,2,0)
^^TRIGGER^2^.3296
"^DD",2,2,.32945,1,2,1)
X ^DD(2,.32945,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=
$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32
),U,15)=DIV,DIH=2,DIG=.3296 D ^DICR
"^DD",2,2,.32945,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32945,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))'="YES"
"^DD",2,2,.32945,1,2,2)
X ^DD(2,.32945,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=
$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32
),U,15)=DIV,DIH=2,DIG=.3296 D ^DICR
"^DD",2,2,.32945,1,2,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.32945,0)),U,3)
,Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,20)_":",2
),$C(59))'="YES"
"^DD",2,2,.32945,1,2,"CREATE CONDITION")
#.32945'="YES"
"^DD",2,2,.32945,1,2,"CREATE VALUE")
@
"^DD",2,2,.32945,1,2,"DELETE CONDITION")
#.32945'="YES"
"^DD",2,2,.32945,1,2,"DELETE VALUE")
@
"^DD",2,2,.32945,1,2,"DT")
3040407
"^DD",2,2,.32945,1,2,"FIELD")
#.3296
"^DD",2,2,.32945,3)
Enter YES if this patient served more than two episodes of military service othe
rwise enter NO.
"^DD",2,2,.32945,5,1,0)
2^.3285^2
"^DD",2,2,.32945,20,0)
^.3LA^1^1
"^DD",2,2,.32945,20,1,0)
SVC
"^DD",2,2,.32945,21,0)
^^5^5^2980702^^^^
"^DD",2,2,.32945,21,1,0)
Enter 'Y' if this veteran applicant has at least three episodes of
"^DD",2,2,.32945,21,2,0)
military service, or 'N' if not.  The ANY OTHER PERIODS OF SERVICE
"^DD",2,2,.32945,21,3,0)
prompt must be answered YES in order to enter a third episode of
"^DD",2,2,.32945,21,4,0)
military service.  Once the service record is verified only those
"^DD",2,2,.32945,21,5,0)
users who hold the designated security key may enter/edit this field.
"^DD",2,2,.32945,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.32945,"DT")
3040407
"^DD",2,2,.3295,0)
SERVICE DISCHARGE TYPE [NNTL]^RP25'X^DIC(25,^.32;14^S DFN=DA D SER2^DGLOCK
"^DD",2,2,.3295,.1)
DISCHARGE TYPE-SERVICE [NNTL]
"^DD",2,2,.3295,1,0)
^.1
"^DD",2,2,.3295,1,1,0)
2^AENR3295^MUMPS
"^DD",2,2,.3295,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3295,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3295,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3295,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3295,1,1,"%D",2,0)
SERVICE DISCHARGE TYPE [NNTL] field.
"^DD",2,2,.3295,1,1,"DT")
3040610
"^DD",2,2,.3295,3)
For this third episode of military service enter the discharge type given this p
atient.
"^DD",2,2,.3295,5,1,0)
2^.32945^1
"^DD",2,2,.3295,20,0)
^.3LA^1^1
"^DD",2,2,.3295,20,1,0)
SVC
"^DD",2,2,.3295,21,0)
^^7^7^2920604^^^^
"^DD",2,2,.3295,21,1,0)
For this veteran applicant who has at least three episodes of military
"^DD",2,2,.3295,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select
"^DD",2,2,.3295,21,3,0)
from the available listing the discharge type received from the third most
"^DD",2,2,.3295,21,4,0)
recent episode of military service.  Once the service record is verified
"^DD",2,2,.3295,21,5,0)
only those users who hold the designated security key may enter/edit
"^DD",2,2,.3295,21,6,0)
this field.  This field cannot be deleted as long as more than two
"^DD",2,2,.3295,21,7,0)
episodes of military service are indicated.
"^DD",2,2,.3295,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3295,"DT")
3040610
"^DD",2,2,.3296,0)
SERVICE BRANCH [NNTL]^P23'X^DIC(23,^.32;15^S DFN=DA K:X=$O(^DIC(23,"B","B.E.C.",
"")) X I $D(X) D SER2^DGLOCK S DGCOMBR=$G(Y) Q
"^DD",2,2,.3296,.1)
BRANCH OF SERVICE, NNTL
"^DD",2,2,.3296,1,0)
^.1^^-1
"^DD",2,2,.3296,1,1,0)
2^AFV3^MUMPS
"^DD",2,2,.3296,1,1,1)
Q
"^DD",2,2,.3296,1,1,2)
I $P($G(^DPT(DA,.321)),U,14)]"" D FVP^DGRPMS
"^DD",2,2,.3296,1,1,"%D",0)
^^4^4^3040325^
"^DD",2,2,.3296,1,1,"%D",1,0)
This MUMPS cross-reference acts like a trigger cross-reference.
"^DD",2,2,.3296,1,1,"%D",2,0)
If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL]
"^DD",2,2,.3296,1,1,"%D",3,0)
fields do not contain a Filipino Veteran branch of service, the Filipino
"^DD",2,2,.3296,1,1,"%D",4,0)
Vet Proof field (#.3214) is deleted.
"^DD",2,2,.3296,1,1,"DT")
3040325
"^DD",2,2,.3296,1,2,0)
2^AENR3296^MUMPS
"^DD",2,2,.3296,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3296,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3296,1,2,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3296,1,2,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3296,1,2,"%D",2,0)
SERVICE BRANCH [NNTL] field.
"^DD",2,2,.3296,1,2,"DT")
3040610
"^DD",2,2,.3296,1,3,0)
^^TRIGGER^2^.32913
"^DD",2,2,.3296,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.3291)):^(.3291),1:"") S X=$P
(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3291)),DIV=X S $P(^(.329
1),U,3)=DIV,DIH=2,DIG=.32913 D ^DICR
"^DD",2,2,.3296,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.3291)):^(.3291),1:"") S X=$P
(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3291)),DIV=X S $P(^(.329
1),U,3)=DIV,DIH=2,DIG=.32913 D ^DICR
"^DD",2,2,.3296,1,3,"%D",0)
^^1^1^3050912^
"^DD",2,2,.3296,1,3,"%D",1,0)
Deletes the COMPONENT field if the branch of service is changed or deleted.
"^DD",2,2,.3296,1,3,"CREATE VALUE")
@
"^DD",2,2,.3296,1,3,"DELETE VALUE")
@
"^DD",2,2,.3296,1,3,"DT")
3050912
"^DD",2,2,.3296,1,3,"FIELD")
SERVICE COMPONENT [NNTL]
"^DD",2,2,.3296,1,4,0)
2^AXR36^MUMPS
"^DD",2,2,.3296,1,4,1)
Q
"^DD",2,2,.3296,1,4,2)
S DGXRF=.3296 D ^DGDDC Q
"^DD",2,2,.3296,1,4,"DT")
3050912
"^DD",2,2,.3296,3)
For this third episode of military service enter the branch in which this patien
t served.
"^DD",2,2,.3296,5,1,0)
2^.32945^2
"^DD",2,2,.3296,20,0)
^.3LA^1^1
"^DD",2,2,.3296,20,1,0)
SVC
"^DD",2,2,.3296,21,0)
^.001^7^7^3050909^^^^
"^DD",2,2,.3296,21,1,0)
For this veteran applicant who has at least three episodes of military
"^DD",2,2,.3296,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select
"^DD",2,2,.3296,21,3,0)
from the available listing the service branch served in during his/her
"^DD",2,2,.3296,21,4,0)
third most recent episode of service.  Once the service record is
"^DD",2,2,.3296,21,5,0)
verified only those users who hold the designated security key may
"^DD",2,2,.3296,21,6,0)
enter/edit this field.  This field cannot be deleted as long as more
"^DD",2,2,.3296,21,7,0)
than two episodes of military service are indicated.
"^DD",2,2,.3296,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3296,"DT")
3060104
"^DD",2,2,.3297,0)
SERVICE ENTRY DATE [NNTL]^RDX^^.32;16^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:
Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,"MSNNTL"
) X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=3 D POS^DGINP
"^DD",2,2,.3297,.1)
ENTRY DATE-SERVICE [NNTL]
"^DD",2,2,.3297,1,0)
^.1
"^DD",2,2,.3297,1,1,0)
2^AENR3297^MUMPS
"^DD",2,2,.3297,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3297,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3297,1,1,"%D",0)
^.101^2^2^3040702^^
"^DD",2,2,.3297,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3297,1,1,"%D",2,0)
SERVICE ENTRY DATE [NNTL] field.
"^DD",2,2,.3297,1,1,"DT")
3040702
"^DD",2,2,.3297,3)
For this third episode of military service enter the date on which the patient c
ommenced serving.
"^DD",2,2,.3297,20,0)
^.3LA^1^1
"^DD",2,2,.3297,20,1,0)
SVC
"^DD",2,2,.3297,21,0)
^.001^10^10^3061003^^^^
"^DD",2,2,.3297,21,1,0)
For this veteran applicant who has at least three episodes of military
"^DD",2,2,.3297,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter
"^DD",2,2,.3297,21,3,0)
the date on which the third most recent episode of service commenced.
"^DD",2,2,.3297,21,4,0)
If the military service component is ACTIVATED NATIONAL GUARD or
"^DD",2,2,.3297,21,5,0)
ACTIVATED RESERVE, the period entered should be the period of
"^DD",2,2,.3297,21,6,0)
activation, so this date is their first day of active duty for the
"^DD",2,2,.3297,21,7,0)
episode.  Once the service record is verified only those users who
"^DD",2,2,.3297,21,8,0)
hold the designated security key may enter/edit this field.  This
"^DD",2,2,.3297,21,9,0)
field cannot be deleted as long as more than two episodes of military
"^DD",2,2,.3297,21,10,0)
service are indicated.
"^DD",2,2,.3297,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3297,"DT")
3040722
"^DD",2,2,.3298,0)
SERVICE SEPARATION DATE [NNTL]^RDX^^.32;17^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X
=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MS
NNTL") X I $D(X),$D(^DG(43,1)) S SD1=3 D PS^DGINP
"^DD",2,2,.3298,.1)
SEPARATION DATE-SERVICE [NNTL]
"^DD",2,2,.3298,1,0)
^.1
"^DD",2,2,.3298,1,1,0)
2^AENR3298^MUMPS
"^DD",2,2,.3298,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3298,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3298,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3298,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3298,1,1,"%D",2,0)
SERVICE SEPARATION DATE [NNTL] field.
"^DD",2,2,.3298,1,1,"DT")
3040610
"^DD",2,2,.3298,3)
For this third episode of military service enter the date on which the service t
erminated.
"^DD",2,2,.3298,20,0)
^.3LA^1^1
"^DD",2,2,.3298,20,1,0)
SVC
"^DD",2,2,.3298,21,0)
^.001^9^9^3061003^^^^
"^DD",2,2,.3298,21,1,0)
For this veteran applicant who has at least three episodes of military
"^DD",2,2,.3298,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter
"^DD",2,2,.3298,21,3,0)
the date on which the third most recent episode of service ended.  If
"^DD",2,2,.3298,21,4,0)
the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED
"^DD",2,2,.3298,21,5,0)
RESERVE, the period entered should be the period of activation, so this
"^DD",2,2,.3298,21,6,0)
date is their last day of active duty for this episode.  Once the
"^DD",2,2,.3298,21,7,0)
service record is verified only those users who hold the designated
"^DD",2,2,.3298,21,8,0)
security key may enter/edit this field.  This field cannot be deleted
"^DD",2,2,.3298,21,9,0)
as long as more than two episodes of military service are indicated.
"^DD",2,2,.3298,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3298,"DT")
3040610
"^DD",2,2,.3299,0)
SERVICE NUMBER [NNTL]^FX^^.32;18^S DFN=DA D SER2^DGLOCK I $D(X) S:X?1"SS".E L=$S
($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E "  ",L S:X?1"SS".E X=L K:$L(X)>15!
($L(X)<1)!'(X?.N) X
"^DD",2,2,.3299,.1)
NUMBER-SERVICE [NNTL]
"^DD",2,2,.3299,1,0)
^.1
"^DD",2,2,.3299,1,1,0)
2^AENR3299^MUMPS
"^DD",2,2,.3299,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3299,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3299,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.3299,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.3299,1,1,"%D",2,0)
SERVICE NUMBER [NNTL] field.
"^DD",2,2,.3299,1,1,"DT")
3040610
"^DD",2,2,.3299,3)
For this third episode of military service enter the service number assigned or 
'SS' if it's the same as the SSN.
"^DD",2,2,.3299,20,0)
^.3LA^1^1
"^DD",2,2,.3299,20,1,0)
SVC
"^DD",2,2,.3299,21,0)
^^7^7^2861008^^^
"^DD",2,2,.3299,21,1,0)
For this veteran applicant who has at least three episodes of military
"^DD",2,2,.3299,21,2,0)
service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter
"^DD",2,2,.3299,21,3,0)
the service number assigned for the third most recent episode of service
"^DD",2,2,.3299,21,4,0)
[1-15 characters].  Once the service record is verified only those users
"^DD",2,2,.3299,21,5,0)
who hold the designated security key may enter/edit this field.  This
"^DD",2,2,.3299,21,6,0)
field cannot be deleted as long as more than two episodes of military
"^DD",2,2,.3299,21,7,0)
service are indicated.
"^DD",2,2,.3299,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.3299,"DT")
3040610
"^DD",2,2,.33011,0)
E-WORK PHONE NUMBER^F^^.33;11^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.33011,3)
Enter the work phone number for the emergency contact.  Answer must be 4-20 char
acters in length.
"^DD",2,2,.33011,21,0)
^^2^2^2920113^
"^DD",2,2,.33011,21,1,0)
If the emergency contact for this patient is employed, enter the phone
"^DD",2,2,.33011,21,2,0)
number at which this individual may be reached while at work.
"^DD",2,2,.33011,"DT")
3100528
"^DD",2,2,.33012,0)
E-CONTACT CHANGE DATE/TIME^DX^^.332;1^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.33012,1,0)
^.1
"^DD",2,2,.33012,1,1,0)
2^AENR33012^MUMPS
"^DD",2,2,.33012,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.33012,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.33012,1,1,3)
 DO NOT DELETE
"^DD",2,2,.33012,1,1,"%D",0)
^^2^2^3100525^
"^DD",2,2,.33012,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that
"^DD",2,2,.33012,1,1,"%D",2,0)
may affect enrollment.
"^DD",2,2,.33012,1,1,"DT")
3100525
"^DD",2,2,.33012,21,0)
^^8^8^3100526^
"^DD",2,2,.33012,21,1,0)
This field will hold the date and time of the last Emergency Contact
"^DD",2,2,.33012,21,2,0)
Update.
"^DD",2,2,.33012,21,3,0)
 
"^DD",2,2,.33012,21,4,0)
Any change to the following Emergency Contact fields will trigger an
"^DD",2,2,.33012,21,5,0)
update: E-Name, E-Relationship To Patient, E-Street Address [Line 1],
"^DD",2,2,.33012,21,6,0)
E-Street Address [Line 2], E-Street Address [Line 3], E-City, E-State,
"^DD",2,2,.33012,21,7,0)
E-Zip Code, E-Phone Number, E-Emer. Contact Same As NOK? and E-Work Phone
"^DD",2,2,.33012,21,8,0)
Number
"^DD",2,2,.33012,"DT")
3100526
"^DD",2,2,.3305,0)
E-EMER. CONTACT SAME AS NOK?^RSX^Y:YES;N:NO;^.33;10^I $D(X),X="Y" D K1^DGLOCK2
"^DD",2,2,.3305,.1)
IS E-CONTACT SAME AS NOK
"^DD",2,2,.3305,3)
Enter YES if the emergency contact and next-of-kin are the same person, otherwis
e enter NO.
"^DD",2,2,.3305,20,0)
^.3LA^1^1
"^DD",2,2,.3305,20,1,0)
EC1
"^DD",2,2,.3305,21,0)
^^2^2^2920610^^^^
"^DD",2,2,.3305,21,1,0)
If a primary NOK is defined enter 'Y' if that person is also the primary
"^DD",2,2,.3305,21,2,0)
emergency contact, otherwise enter 'N' for no.
"^DD",2,2,.3305,"DT")
2861007
"^DD",2,2,.331,0)
E-NAME^F^^.33;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMA
T^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
"^DD",2,2,.331,.1)
EMERGENCY CONTACT
"^DD",2,2,.331,1,0)
^.1
"^DD",2,2,.331,1,1,0)
2^AXR4^MUMPS
"^DD",2,2,.331,1,1,1)
Q
"^DD",2,2,.331,1,1,2)
S DGXRF=.331 D ^DGDDC Q
"^DD",2,2,.331,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.331,20,0)
^.3LA^1^1
"^DD",2,2,.331,20,1,0)
EC1
"^DD",2,2,.331,21,0)
^^4^4^2861117^^^
"^DD",2,2,.331,21,1,0)
Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.331,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.331,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.331,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.331,"DT")
3050630
"^DD",2,2,.331011,0)
E2-WORK PHONE NUMBER^F^^.331;11^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.331011,3)
Enter the work phone number for the secondary emergency contact.  Answer must be
 4-20 characters in length.
"^DD",2,2,.331011,21,0)
^^2^2^2920113^
"^DD",2,2,.331011,21,1,0)
If the person designated as the secondary emergency contact is employed,
"^DD",2,2,.331011,21,2,0)
enter the person's work phone number.
"^DD",2,2,.331011,"DT")
3100528
"^DD",2,2,.3311,0)
E2-NAME OF SECONDARY CONTACT^FX^^.331;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAM
E=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D
 E1^DGLOCK2
"^DD",2,2,.3311,.1)
EMERGENCY CONTACT-2
"^DD",2,2,.3311,1,0)
^.1
"^DD",2,2,.3311,1,1,0)
2^AXR5^MUMPS
"^DD",2,2,.3311,1,1,1)
Q
"^DD",2,2,.3311,1,1,2)
S DGXRF=.3311 D ^DGDDC Q
"^DD",2,2,.3311,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.3311,20,0)
^.3LA^1^1
"^DD",2,2,.3311,20,1,0)
EC2
"^DD",2,2,.3311,21,0)
^^4^4^2861007^
"^DD",2,2,.3311,21,1,0)
Enter the secondary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' forma
t.
"^DD",2,2,.3311,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.3311,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.3311,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.3311,"DT")
3050630
"^DD",2,2,.33112,0)
E2-CONTACT CHANGE DATE/TIME^DX^^.332;2^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.33112,1,0)
^.1
"^DD",2,2,.33112,1,1,0)
2^AENR33112^MUMPS
"^DD",2,2,.33112,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.33112,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.33112,1,1,3)
 DO NOT DELETE
"^DD",2,2,.33112,1,1,"%D",0)
^^2^2^3100525^
"^DD",2,2,.33112,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that
"^DD",2,2,.33112,1,1,"%D",2,0)
may affect enrollment.
"^DD",2,2,.33112,1,1,"DT")
3100525
"^DD",2,2,.33112,21,0)
^^8^8^3100526^
"^DD",2,2,.33112,21,1,0)
This field will hold the date and time of the last Secondary Emergency
"^DD",2,2,.33112,21,2,0)
Contact Update.
"^DD",2,2,.33112,21,3,0)
 
"^DD",2,2,.33112,21,4,0)
Any change to the following Secondary Emergency Contact fields will
"^DD",2,2,.33112,21,5,0)
trigger an update: E2-Name Of Secondary Contact, E2-Relationship To
"^DD",2,2,.33112,21,6,0)
Patient, E2-Street Address [Line 1], E2-Street Address [Line 2], E2-Street
"^DD",2,2,.33112,21,7,0)
Address [Line 3], E2-City, E2-State, E2-Zip Code, E2-Phone Number and
"^DD",2,2,.33112,21,8,0)
E2-Work Phone Number
"^DD",2,2,.33112,"DT")
3100526
"^DD",2,2,.3312,0)
E2-RELATIONSHIP TO PATIENT^FX^^.331;2^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D 
E2^DGLOCK2
"^DD",2,2,.3312,.1)

"^DD",2,2,.3312,3)
Enter the relationship of the secondary emergency contact to the patient [2-30 c
haracters].
"^DD",2,2,.3312,20,0)
^.3LA^1^1
"^DD",2,2,.3312,20,1,0)
EC2
"^DD",2,2,.3312,21,0)
^^4^4^2861007^
"^DD",2,2,.3312,21,1,0)
If a secondary emergency contact is specified enter the relationship
"^DD",2,2,.3312,21,2,0)
of that person to the applicant [2-30 characters], otherwise nothing
"^DD",2,2,.3312,21,3,0)
may be entered.  This field cannot be deleted as long as a secondary
"^DD",2,2,.3312,21,4,0)
emergency contact is on file.
"^DD",2,2,.3312,"DEL",1,0)
S DFN=DA D E2D^DGLOCK2 I '$D(X)
"^DD",2,2,.3312,"DT")
2861002
"^DD",2,2,.3313,0)
E2-STREET ADDRESS [LINE 1]^FX^^.331;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(
$L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
"^DD",2,2,.3313,.1)

"^DD",2,2,.3313,1,0)
^.1
"^DD",2,2,.3313,1,1,0)
2^AXR22^MUMPS
"^DD",2,2,.3313,1,1,1)
Q
"^DD",2,2,.3313,1,1,2)
S DGXRF=.3313 D ^DGDDC Q
"^DD",2,2,.3313,3)
Enter the first line of the secondary emergency contacts address [3-30 character
s].
"^DD",2,2,.3313,20,0)
^.3LA^1^1
"^DD",2,2,.3313,20,1,0)
EC2
"^DD",2,2,.3313,21,0)
^^4^4^2861117^^
"^DD",2,2,.3313,21,1,0)
If a secondary emergency contact is specified enter the first line
"^DD",2,2,.3313,21,2,0)
of that person's street address [3-30 characters], otherwise nothing
"^DD",2,2,.3313,21,3,0)
may be entered.  This field cannot be deleted as long as a secondary
"^DD",2,2,.3313,21,4,0)
emergency contact is on file.
"^DD",2,2,.3313,"DEL",1,0)
S DFN=DA D E2D^DGLOCK2 I '$D(X)
"^DD",2,2,.3313,"DT")
2890115
"^DD",2,2,.3314,0)
E2-STREET ADDRESS [LINE 2]^FX^^.331;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(
$L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
"^DD",2,2,.3314,.1)

"^DD",2,2,.3314,1,0)
^.1
"^DD",2,2,.3314,1,1,0)
2^AXR23^MUMPS
"^DD",2,2,.3314,1,1,1)
Q
"^DD",2,2,.3314,1,1,2)
S DGXRF=.3314 D ^DGDDC Q
"^DD",2,2,.3314,3)
Enter the second line of the secondary emergency contacts address [3-30 characte
rs].
"^DD",2,2,.3314,20,0)
^.3LA^1^1
"^DD",2,2,.3314,20,1,0)
EC2
"^DD",2,2,.3314,21,0)
^^4^4^2861117^^^
"^DD",2,2,.3314,21,1,0)
If a secondary emergency contact is specified enter the second line
"^DD",2,2,.3314,21,2,0)
of that person's street address [3-30 characters], if necessary, otherwise
"^DD",2,2,.3314,21,3,0)
nothing may be entered.  This field cannot be deleted as long as a
"^DD",2,2,.3314,21,4,0)
secondary emergency contact is on file.
"^DD",2,2,.3314,"DT")
2890115
"^DD",2,2,.3315,0)
E2-STREET ADDRESS [LINE 3]^FX^^.331;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D 
E2^DGLOCK2
"^DD",2,2,.3315,.1)

"^DD",2,2,.3315,3)
Enter the third line of the secondary emergency contacts address [3-30 character
s].
"^DD",2,2,.3315,20,0)
^.3LA^1^1
"^DD",2,2,.3315,20,1,0)
EC2
"^DD",2,2,.3315,21,0)
^^4^4^2861117^^
"^DD",2,2,.3315,21,1,0)
If a secondary emergency contact is specified enter the third line
"^DD",2,2,.3315,21,2,0)
of that person's street address [3-30 characters], if necessary,
"^DD",2,2,.3315,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted as
"^DD",2,2,.3315,21,4,0)
long as a secondary emergency contact is on file.
"^DD",2,2,.3315,"DT")
2861002
"^DD",2,2,.3316,0)
E2-CITY^FX^^.331;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
"^DD",2,2,.3316,3)
Enter the city in which the secondary emergency contact resides [3-30 characters
].
"^DD",2,2,.3316,20,0)
^.3LA^1^1
"^DD",2,2,.3316,20,1,0)
EC2
"^DD",2,2,.3316,21,0)
^^4^4^2861007^^
"^DD",2,2,.3316,21,1,0)
If a secondary emergency contact is specified enter the city in
"^DD",2,2,.3316,21,2,0)
which that person resides [3-30 characters], otherwise nothing
"^DD",2,2,.3316,21,3,0)
may be entered.  This field cannot be deleted as long as a secondary
"^DD",2,2,.3316,21,4,0)
emergency contact is on file.
"^DD",2,2,.3316,"DEL",1,0)
S DFN=DA D E2D^DGLOCK2 I '$D(X)
"^DD",2,2,.3316,"DT")
2861002
"^DD",2,2,.3317,0)
E2-STATE^P5'X^DIC(5,^.331;7^I $D(X) S DFN=DA D E2^DGLOCK2
"^DD",2,2,.3317,3)
Select from the listing the state in which the secondary emergency contact resid
es.
"^DD",2,2,.3317,20,0)
^.3LA^1^1
"^DD",2,2,.3317,20,1,0)
EC2
"^DD",2,2,.3317,21,0)
^^4^4^2861007^
"^DD",2,2,.3317,21,1,0)
If a secondary emergency contact is specified select from the
"^DD",2,2,.3317,21,2,0)
available listing the state in which that person resides,
"^DD",2,2,.3317,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted
"^DD",2,2,.3317,21,4,0)
as long as a secondary emergency contact is on file.
"^DD",2,2,.3317,"DEL",1,0)
S DFN=DA D E2D^DGLOCK2 I '$D(X)
"^DD",2,2,.3317,"DT")
2861002
"^DD",2,2,.3318,0)
E2-ZIP CODE^FX^^.331;8^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N)
 X I $D(X) S DFN=DA D E2^DGLOCK2
"^DD",2,2,.3318,.1)

"^DD",2,2,.3318,1,0)
^.1
"^DD",2,2,.3318,1,1,0)
2^ZEC2ZIP^MUMPS
"^DD",2,2,.3318,1,1,1)
D SET^DGREGDD1(DA,.2204,.22,4,X)
"^DD",2,2,.3318,1,1,2)
D KILL^DGREGDD1(DA,.2204,.22,4,X)
"^DD",2,2,.3318,1,1,"%D",0)
^^2^2^2930603^^
"^DD",2,2,.3318,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.3318,1,1,"%D",2,0)
value.
"^DD",2,2,.3318,1,1,"DT")
2930603
"^DD",2,2,.3318,3)
Enter the zip code as five numerics where the secondary emergency contact reside
s.
"^DD",2,2,.3318,20,0)
^.3LA^1^1
"^DD",2,2,.3318,20,1,0)
EC2
"^DD",2,2,.3318,21,0)
^^4^4^2930603^^
"^DD",2,2,.3318,21,1,0)
If a secondary emergency contact is specified enter the zip
"^DD",2,2,.3318,21,2,0)
code for the city in which s/he resides [5 numerics], otherwise
"^DD",2,2,.3318,21,3,0)
nothing may be entered.  This field cannot be deleted as long
"^DD",2,2,.3318,21,4,0)
as a secondary emergency contact is on file.
"^DD",2,2,.3318,"DEL",1,0)
S DFN=DA D E2D^DGLOCK2 I '$D(X)
"^DD",2,2,.3318,"DT")
2930603
"^DD",2,2,.3319,0)
E2-PHONE NUMBER^FX^^.331;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2
"^DD",2,2,.3319,.1)

"^DD",2,2,.3319,3)
Enter the phone number of the secondary emergency contact [3-20 characters].
"^DD",2,2,.3319,20,0)
^.3LA^1^1
"^DD",2,2,.3319,20,1,0)
EC2
"^DD",2,2,.3319,21,0)
^^4^4^2861007^
"^DD",2,2,.3319,21,1,0)
If a secondary emergency contact is specified enter the telephone
"^DD",2,2,.3319,21,2,0)
number at which that person may be reached [3-20 characters],
"^DD",2,2,.3319,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted as
"^DD",2,2,.3319,21,4,0)
long as a secondary emergency contact is on file.
"^DD",2,2,.3319,"DT")
3100528
"^DD",2,2,.332,0)
E-RELATIONSHIP TO PATIENT^FX^^.33;2^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D E1
^DGLOCK2
"^DD",2,2,.332,.1)

"^DD",2,2,.332,3)
Enter the relationship of the emergency contact to the patient [3-35 characters]
.
"^DD",2,2,.332,20,0)
^.3LA^1^1
"^DD",2,2,.332,20,1,0)
EC1
"^DD",2,2,.332,21,0)
^^4^4^2861007^
"^DD",2,2,.332,21,1,0)
If a primary emergency contact is specified enter the relationship
"^DD",2,2,.332,21,2,0)
of that person to the applicant [3-35 characters], otherwise nothing
"^DD",2,2,.332,21,3,0)
may be entered.  This field cannot be deleted as long as a primary
"^DD",2,2,.332,21,4,0)
emergency contact is on file.
"^DD",2,2,.332,"DEL",1,0)
S DFN=DA D E1D^DGLOCK2 I '$D(X)
"^DD",2,2,.332,"DT")
2861002
"^DD",2,2,.333,0)
E-STREET ADDRESS [LINE 1]^FX^^.33;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
"^DD",2,2,.333,.1)

"^DD",2,2,.333,1,0)
^.1
"^DD",2,2,.333,1,1,0)
2^AXR24^MUMPS
"^DD",2,2,.333,1,1,1)
Q
"^DD",2,2,.333,1,1,2)
S DGXRF=.333 D ^DGDDC Q
"^DD",2,2,.333,3)
Enter the first line of the emergency contacts street address [3-30 characters].
"^DD",2,2,.333,20,0)
^.3LA^1^1
"^DD",2,2,.333,20,1,0)
EC1
"^DD",2,2,.333,21,0)
^^4^4^2861117^^
"^DD",2,2,.333,21,1,0)
If a primary emergency contact is specified enter the first line
"^DD",2,2,.333,21,2,0)
of that person's street address [3-30 characters], otherwise
"^DD",2,2,.333,21,3,0)
nothing may be entered.  This field cannot be deleted as long as
"^DD",2,2,.333,21,4,0)
a primary emergency contact is on file.
"^DD",2,2,.333,"DEL",1,0)
S DFN=DA D E1D^DGLOCK2 I '$D(X)
"^DD",2,2,.333,"DT")
2890115
"^DD",2,2,.334,0)
E-STREET ADDRESS [LINE 2]^FX^^.33;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
"^DD",2,2,.334,.1)

"^DD",2,2,.334,1,0)
^.1
"^DD",2,2,.334,1,1,0)
2^AXR25^MUMPS
"^DD",2,2,.334,1,1,1)
Q
"^DD",2,2,.334,1,1,2)
S DGXRF=.334 D ^DGDDC Q
"^DD",2,2,.334,3)
Enter the second line of the emergency contacts street address [3-30 characters]
.
"^DD",2,2,.334,20,0)
^.3LA^1^1
"^DD",2,2,.334,20,1,0)
EC1
"^DD",2,2,.334,21,0)
^^4^4^2861117^^
"^DD",2,2,.334,21,1,0)
If a primary emergency contact is specified enter the second line
"^DD",2,2,.334,21,2,0)
of that person's street address [3-30 characters], if necessary,
"^DD",2,2,.334,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted as
"^DD",2,2,.334,21,4,0)
long as a primary emergency contact is on file.
"^DD",2,2,.334,"DT")
2890115
"^DD",2,2,.335,0)
E-STREET ADDRESS [LINE 3]^FX^^.33;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1
^DGLOCK2
"^DD",2,2,.335,.1)

"^DD",2,2,.335,3)
Enter the third line of the emergency contacts address [3-30 characters].
"^DD",2,2,.335,20,0)
^.3LA^1^1
"^DD",2,2,.335,20,1,0)
EC1
"^DD",2,2,.335,21,0)
^^4^4^2861117^^
"^DD",2,2,.335,21,1,0)
If a primary emergency contact is specified enter the third line
"^DD",2,2,.335,21,2,0)
of that person's street address [3-30 characters], if necessary,
"^DD",2,2,.335,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted as
"^DD",2,2,.335,21,4,0)
long as a primary emergency contact is on file.
"^DD",2,2,.335,"DT")
2861002
"^DD",2,2,.336,0)
E-CITY^FX^^.33;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
"^DD",2,2,.336,3)
Enter the city in which the emergency contact resides [3-30 characters].
"^DD",2,2,.336,20,0)
^.3LA^1^1
"^DD",2,2,.336,20,1,0)
EC1
"^DD",2,2,.336,21,0)
^^4^4^2861007^^
"^DD",2,2,.336,21,1,0)
If a primary emergency contact is specified enter the city in
"^DD",2,2,.336,21,2,0)
which that person resides [3-30 characters], otherwise nothing
"^DD",2,2,.336,21,3,0)
may be entered.  This field cannot be deleted as long as a
"^DD",2,2,.336,21,4,0)
primary emergency contact is on file.
"^DD",2,2,.336,"DEL",1,0)
S DFN=DA D E1D^DGLOCK2 I '$D(X)
"^DD",2,2,.336,"DT")
2861002
"^DD",2,2,.337,0)
E-STATE^P5'X^DIC(5,^.33;7^I $D(X) S DFN=DA D E1^DGLOCK2
"^DD",2,2,.337,3)
Select from the listing the state in whcih the emergency contact resides.
"^DD",2,2,.337,20,0)
^.3LA^1^1
"^DD",2,2,.337,20,1,0)
EC1
"^DD",2,2,.337,21,0)
^^4^4^2861007^
"^DD",2,2,.337,21,1,0)
If a primary emergency contact is specified select from the
"^DD",2,2,.337,21,2,0)
available listing the state in which that person resides,
"^DD",2,2,.337,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted
"^DD",2,2,.337,21,4,0)
as long as a primary emergency contact is on file.
"^DD",2,2,.337,"DEL",1,0)
S DFN=DA D E1D^DGLOCK2 I '$D(X)
"^DD",2,2,.337,"DT")
2861002
"^DD",2,2,.338,0)
E-ZIP CODE^FX^^.33;8^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
 I $D(X) S DFN=DA D E1^DGLOCK2
"^DD",2,2,.338,.1)

"^DD",2,2,.338,1,0)
^.1
"^DD",2,2,.338,1,1,0)
2^AEC1ZIP^MUMPS
"^DD",2,2,.338,1,1,1)
D SET^DGREGDD1(DA,.2201,.22,1,X)
"^DD",2,2,.338,1,1,2)
D KILL^DGREGDD1(DA,2201,.22,1,X)
"^DD",2,2,.338,1,1,"%D",0)
^^2^2^2930603^
"^DD",2,2,.338,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to 
"^DD",2,2,.338,1,1,"%D",2,0)
this field's value.
"^DD",2,2,.338,1,1,"DT")
2930603
"^DD",2,2,.338,3)
Enter the zip code as five numerics of the emergency contact.
"^DD",2,2,.338,20,0)
^.3LA^1^1
"^DD",2,2,.338,20,1,0)
EC1
"^DD",2,2,.338,21,0)
^^4^4^2930603^^^^
"^DD",2,2,.338,21,1,0)
If a primary emergency contact is specified enter the zip code
"^DD",2,2,.338,21,2,0)
for the city in which s/he resides [5 numerics], otherwise
"^DD",2,2,.338,21,3,0)
nothing may be entered.  This field cannot be deleted as long as
"^DD",2,2,.338,21,4,0)
a primary emergency contact is on file.
"^DD",2,2,.338,"DEL",1,0)
S DFN=DA D E1D^DGLOCK2 I '$D(X)
"^DD",2,2,.338,"DT")
2930603
"^DD",2,2,.339,0)
E-PHONE NUMBER^FX^^.33;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
"^DD",2,2,.339,.1)

"^DD",2,2,.339,3)
Enter the phone number of the emergency contact [3-20 characters].
"^DD",2,2,.339,20,0)
^.3LA^1^1
"^DD",2,2,.339,20,1,0)
EC1
"^DD",2,2,.339,21,0)
^^4^4^2861007^
"^DD",2,2,.339,21,1,0)
If a primary emergency contact is specified enter the telephone
"^DD",2,2,.339,21,2,0)
number [3-20 characters] at which that person may be reached,
"^DD",2,2,.339,21,3,0)
otherwise nothing may be entered.  This field cannot be deleted
"^DD",2,2,.339,21,4,0)
as long as a primary emergency contact is on file.
"^DD",2,2,.339,"DT")
3100528
"^DD",2,2,.34011,0)
D-WORK PHONE NUMBER^F^^.34;11^K:$L(X)>20!($L(X)<4) X
"^DD",2,2,.34011,3)
Enter the designee's work phone number.  Answer must be 4-20 characters in lengt
h.
"^DD",2,2,.34011,21,0)
^^3^3^2920113^
"^DD",2,2,.34011,21,1,0)
If the person designated to receive the patient's personal effects is
"^DD",2,2,.34011,21,2,0)
employed, enter the phone number at which that person may be reached
"^DD",2,2,.34011,21,3,0)
while at work.
"^DD",2,2,.34011,"DT")
3100528
"^DD",2,2,.3405,0)
D-DESIGNEE SAME AS NOK?^RSX^Y:YES;N:NO;^.34;10^I $D(X),X="Y" D K1^DGLOCK2
"^DD",2,2,.3405,.1)
IS DESIGNEE SAME AS NOK
"^DD",2,2,.3405,3)
If the designee and the person specififed as the next-of-kin are one in the same
 enter YES otherwise enter NO.
"^DD",2,2,.3405,20,0)
^.3LA^1^1
"^DD",2,2,.3405,20,1,0)
D1
"^DD",2,2,.3405,21,0)
^^2^2^2861007^
"^DD",2,2,.3405,21,1,0)
If a primary NOK is defined enter 'Y' if that person is also the
"^DD",2,2,.3405,21,2,0)
designee appointed by the applicant, otherwise enter 'N' for no.
"^DD",2,2,.3405,"DT")
2861007
"^DD",2,2,.341,0)
D-NAME OF DESIGNEE^F^^.34;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20N
AME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
"^DD",2,2,.341,.1)
DESIGNEE
"^DD",2,2,.341,1,0)
^.1
"^DD",2,2,.341,1,1,0)
2^AXR6^MUMPS
"^DD",2,2,.341,1,1,1)
Q
"^DD",2,2,.341,1,1,2)
S DGXRF=.341 D ^DGDDC Q
"^DD",2,2,.341,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in leng
th.
"^DD",2,2,.341,20,0)
^.3LA^1^1
"^DD",2,2,.341,20,1,0)
D1
"^DD",2,2,.341,21,0)
^^4^4^2861007^
"^DD",2,2,.341,21,1,0)
Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2,.341,21,2,0)
This value must be 3-35 characters in length and may contain only uppercase
"^DD",2,2,.341,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2,.341,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2,.341,"DT")
3050630
"^DD",2,2,.3412,0)
DESIGNEE CHANGE DATE/TIME^DX^^.332;3^S %DT="ESTX" D ^%DT S X=Y K:X<1 X
"^DD",2,2,.3412,1,0)
^.1
"^DD",2,2,.3412,1,1,0)
2^AENR3412^MUMPS
"^DD",2,2,.3412,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3412,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3412,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3412,1,1,"%D",0)
^.101^2^2^3100525^^
"^DD",2,2,.3412,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that
"^DD",2,2,.3412,1,1,"%D",2,0)
may affect enrollment.
"^DD",2,2,.3412,1,1,"DT")
3100525
"^DD",2,2,.3412,21,0)
^^6^6^3100526^
"^DD",2,2,.3412,21,1,0)
This field will hold the date and time of the last Designee Update.
"^DD",2,2,.3412,21,2,0)
 
"^DD",2,2,.3412,21,3,0)
Any change to the following Designee fields will trigger an update:
"^DD",2,2,.3412,21,4,0)
D-Name Of Designee, D-Relationship To Patient, D-Street Address [Line 1],
"^DD",2,2,.3412,21,5,0)
D-Street Address [Line 2], D-Street Address [Line 3], D-City, D-State,
"^DD",2,2,.3412,21,6,0)
D-Zip Code, D-Phone Number, D-Designee Same As Nok?, D-Work Phone Number
"^DD",2,2,.3412,"DT")
3100526
"^DD",2,2,.342,0)
D-RELATIONSHIP TO PATIENT^FX^^.34;2^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^
DGLOCK2
"^DD",2,2,.342,.1)

"^DD",2,2,.342,3)
Enter the relationship of the designee to the patient [3-30 characters].
"^DD",2,2,.342,20,0)
^.3LA^1^1
"^DD",2,2,.342,20,1,0)
D1
"^DD",2,2,.342,21,0)
^^3^3^2861007^
"^DD",2,2,.342,21,1,0)
If a designee is specified enter the relationship of that person to
"^DD",2,2,.342,21,2,0)
the applicant [3-30 characters], otherwise nothing may be entered.
"^DD",2,2,.342,21,3,0)
This field cannot be deleted as long as a designee is on file.
"^DD",2,2,.342,"DEL",1,0)
S DFN=DA D DD^DGLOCK2 I '$D(X)
"^DD",2,2,.342,"DT")
2861002
"^DD",2,2,.343,0)
D-STREET ADDRESS [LINE 1]^FX^^.34;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
"^DD",2,2,.343,.1)

"^DD",2,2,.343,1,0)
^.1
"^DD",2,2,.343,1,1,0)
2^AXR26^MUMPS
"^DD",2,2,.343,1,1,1)
Q
"^DD",2,2,.343,1,1,2)
S DGXRF=.343 D ^DGDDC Q
"^DD",2,2,.343,3)
Enter the first line of the designee's address [3-30 characters].
"^DD",2,2,.343,20,0)
^.3LA^1^1
"^DD",2,2,.343,20,1,0)
D1
"^DD",2,2,.343,21,0)
^^3^3^2861117^^
"^DD",2,2,.343,21,1,0)
If a designee is specified enter the first line of that person's street
"^DD",2,2,.343,21,2,0)
address [3-30 characters], otherwise nothing may be entered.  This
"^DD",2,2,.343,21,3,0)
field cannot be deleted as long as a designee is on file.
"^DD",2,2,.343,"DEL",1,0)
S DFN=DA D DD^DGLOCK2 I '$D(X)
"^DD",2,2,.343,"DT")
2920113
"^DD",2,2,.344,0)
D-STREET ADDRESS [LINE 2]^FX^^.34;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L
(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
"^DD",2,2,.344,.1)

"^DD",2,2,.344,1,0)
^.1
"^DD",2,2,.344,1,1,0)
2^AXR27^MUMPS
"^DD",2,2,.344,1,1,1)
Q
"^DD",2,2,.344,1,1,2)
S DGXRF=.344 D ^DGDDC Q
"^DD",2,2,.344,3)
Enter the second line of the designee's address [3-30 characters].
"^DD",2,2,.344,20,0)
^.3LA^1^1
"^DD",2,2,.344,20,1,0)
D1
"^DD",2,2,.344,21,0)
^^4^4^2861117^^^^
"^DD",2,2,.344,21,1,0)
If a designee is specified enter the second line of that person's
"^DD",2,2,.344,21,2,0)
street address [3-30 characters], if necessary, otherwise nothing
"^DD",2,2,.344,21,3,0)
may be entered.  This field cannot be deleted as long as a designee
"^DD",2,2,.344,21,4,0)
is on file.
"^DD",2,2,.344,"AUDIT")

"^DD",2,2,.344,"DT")
2890115
"^DD",2,2,.345,0)
D-STREET ADDRESS [LINE 3]^FX^^.34;5^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D D^
DGLOCK2
"^DD",2,2,.345,.1)

"^DD",2,2,.345,3)
Enter the third line of the designee's address [3-30 characters].
"^DD",2,2,.345,20,0)
^.3LA^1^1
"^DD",2,2,.345,20,1,0)
D1
"^DD",2,2,.345,21,0)
^^4^4^2861117^^
"^DD",2,2,.345,21,1,0)
If a designee is specified enter the third line of that person's
"^DD",2,2,.345,21,2,0)
street address [3-30 characters], if necessary, otherwise nothing
"^DD",2,2,.345,21,3,0)
may be entered.  This field cannot be deleted as long as a designee
"^DD",2,2,.345,21,4,0)
is on file.
"^DD",2,2,.345,"DT")
2861002
"^DD",2,2,.346,0)
D-CITY^FX^^.34;6^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D D^DGLOCK2
"^DD",2,2,.346,3)
Enter the city in which the designee resides [1-30 characters].
"^DD",2,2,.346,20,0)
^.3LA^1^1
"^DD",2,2,.346,20,1,0)
D1
"^DD",2,2,.346,21,0)
^^3^3^2861007^
"^DD",2,2,.346,21,1,0)
If a designee is specified enter the city in which that person
"^DD",2,2,.346,21,2,0)
resides [1-30 characters], otherwise nothing may be entered.
"^DD",2,2,.346,21,3,0)
This field cannot be deleted as long as a designee is on file.
"^DD",2,2,.346,"DEL",1,0)
S DFN=DA D DD^DGLOCK2 I '$D(X)
"^DD",2,2,.346,"DT")
2861002
"^DD",2,2,.347,0)
D-STATE^P5'X^DIC(5,^.34;7^I $D(X) S DFN=DA D D^DGLOCK2
"^DD",2,2,.347,3)
Select from the listing the state in which the designee resides.
"^DD",2,2,.347,20,0)
^.3LA^1^1
"^DD",2,2,.347,20,1,0)
D1
"^DD",2,2,.347,21,0)
^^3^3^2861117^^
"^DD",2,2,.347,21,1,0)
If a designee is specified select from the available listing
"^DD",2,2,.347,21,2,0)
the state in which that person resides.  This field cannot
"^DD",2,2,.347,21,3,0)
be deleted as long as a designee is on file.
"^DD",2,2,.347,"DEL",1,0)
S DFN=DA D DD^DGLOCK2 I '$D(X)
"^DD",2,2,.347,"DT")
2861002
"^DD",2,2,.348,0)
D-ZIP CODE^FX^^.34;8^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
 I $D(X) S DFN=DA D D^DGLOCK2
"^DD",2,2,.348,.1)

"^DD",2,2,.348,1,0)
^.1
"^DD",2,2,.348,1,1,0)
2^AD1ZIP^MUMPS
"^DD",2,2,.348,1,1,1)
D SET^DGREGDD1(DA,.2202,.22,2,X)
"^DD",2,2,.348,1,1,2)
D KILL^DGREGDD1(DA,.2202,.22,2,X)
"^DD",2,2,.348,1,1,"%D",0)
^^2^2^2930603^^
"^DD",2,2,.348,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2,.348,1,1,"%D",2,0)
value.
"^DD",2,2,.348,1,1,"DT")
2930603
"^DD",2,2,.348,3)
Enter the zip code as five numerics of the designee's address.
"^DD",2,2,.348,20,0)
^.3LA^1^1
"^DD",2,2,.348,20,1,0)
D1
"^DD",2,2,.348,21,0)
^^4^4^2930603^^
"^DD",2,2,.348,21,1,0)
If a designee is specified enter the zip code for the city in
"^DD",2,2,.348,21,2,0)
which s/he resides [5 numerics], otherwise nothing may be
"^DD",2,2,.348,21,3,0)
entered.  This field cannot be deleted as long as a designee
"^DD",2,2,.348,21,4,0)
is on file.
"^DD",2,2,.348,23,0)
^^2^2^2930603^
"^DD",2,2,.348,23,1,0)
 
"^DD",2,2,.348,23,2,0)
 
"^DD",2,2,.348,"DEL",1,0)
S DFN=DA D DD^DGLOCK2 I '$D(X)
"^DD",2,2,.348,"DT")
2930603
"^DD",2,2,.349,0)
D-PHONE NUMBER^FX^^.34;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2
"^DD",2,2,.349,.1)
PHONE NUMBER OF PERSONAL POSSESSION DESIGNEE
"^DD",2,2,.349,3)
Enter the phone number of the designee [3-20 characters].
"^DD",2,2,.349,20,0)
^.3LA^1^1
"^DD",2,2,.349,20,1,0)
D1
"^DD",2,2,.349,21,0)
^^4^4^2861007^
"^DD",2,2,.349,21,1,0)
If a designee is specified enter the telephone number at which
"^DD",2,2,.349,21,2,0)
that person may be reached [3-20 characters], otherwise nothing
"^DD",2,2,.349,21,3,0)
may be entered.  This field cannot be deleted as long as a
"^DD",2,2,.349,21,4,0)
designee is on file.
"^DD",2,2,.349,"DT")
3100528
"^DD",2,2,.351,0)
DATE OF DEATH^DXa^^.35;1^S %DT="EPX" D ^%DT S X=Y K:Y<1 X I $D(X) D H^DGUTL K:X>
DGTIME X K DGTIME,DGDATE I $D(X) S DFN=DA D DEATH^DGLOCK
"^DD",2,2,.351,1,0)
^.1
"^DD",2,2,.351,1,1,0)
^^TRIGGER^2^.091
"^DD",2,2,.351,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,
10),X=X S DIU=X K Y S X=DIV X ^DD(2,.351,1,1,49.3) S X=$E(Y(8),Y(9),X) S Y=X,X=Y
(7),X=X_Y_"]" X ^DD(2,.351,1,1,1.4)
"^DD",2,2,.351,1,1,1.4)
S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR
"^DD",2,2,.351,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,
10),X=X S DIU=X K Y X ^DD(2,.351,1,1,2.1) S DIH=$G(^DPT(DIV(0),0)),DIV=X S $P(^(
0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR
"^DD",2,2,.351,1,1,2.1)
S X=DIV X ^DD(2,.351,1,1,59.2) S X=$P(Y(5),Y(6),X),Y(7)=$G(X) S X="]",Y(8)=$G(X)
 S X=2,X=$P(Y(7),Y(8),X) S Y=X,X=Y(3),X=X_Y
"^DD",2,2,.351,1,1,49.2)
S X=DIU_"[PATIENT DIED ON ",Y(1)=$G(X) S X=DIV,Y(2)=$G(X) S X=4,Y(3)=$G(X) S X=5
,X=$E(Y(2),Y(3),X) S Y=X,X=Y(1),X=X_Y_"/",Y(4)=$G(X) S X=DIV,Y(5)=$G(X) S X=6
"^DD",2,2,.351,1,1,49.3)
X ^DD(2,.351,1,1,49.2) S Y(6)=$G(X) S X=7,X=$E(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_"
/",Y(7)=$G(X) S X=DIV,Y(8)=$G(X) S X=2,Y(9)=$G(X) S X=3
"^DD",2,2,.351,1,1,59.2)
S X=DIU,Y(1)=$G(X) S X="[PATIENT DIED",Y(2)=$G(X) S X=1,X=$P(Y(1),Y(2),X),Y(3)=$
G(X),Y(4)=$G(X) S X=DIU,Y(5)=$G(X) S X="PATIENT DIED",Y(6)=$G(X) S X=2
"^DD",2,2,.351,1,1,"%D",0)
^^3^3^3080310^
"^DD",2,2,.351,1,1,"%D",1,0)
This appends into the REMARKS field a notation regarding the DATE OF
"^DD",2,2,.351,1,1,"%D",2,0)
DEATH.  If DATE OF DEATH is deleted, the notation will be stripped out
"^DD",2,2,.351,1,1,"%D",3,0)
of the REMARKS field.
"^DD",2,2,.351,1,1,"CREATE VALUE")
REMARKS_"[PATIENT DIED ON "_$E(DATE OF DEATH,4,5)_"/"_$E(DATE OF DEATH,6,7)_"/"_
$E(DATE OF DEATH,2,3)_"]"
"^DD",2,2,.351,1,1,"DELETE VALUE")
$P(REMARKS,"[PATIENT DIED",1)_$P($P(REMARKS,"PATIENT DIED",2),"]",2)
"^DD",2,2,.351,1,1,"DT")
3080310
"^DD",2,2,.351,1,1,"FIELD")
REMARKS
"^DD",2,2,.351,1,2,0)
^^TRIGGER^2^.352
"^DD",2,2,.351,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"") S X=$P(Y(1
),U,2),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"") S DIH=$G(^DPT(DIV(0)
,.35)),DIV=X S $P(^(.35),U,2)=DIV,DIH=2,DIG=.352 D ^DICR
"^DD",2,2,.351,1,2,2)
Q
"^DD",2,2,.351,1,2,"CREATE VALUE")
S X=$S(($D(DUZ)#2):DUZ,1:"")
"^DD",2,2,.351,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.351,1,2,"DT")
3080310
"^DD",2,2,.351,1,2,"FIELD")
DEATH ENTERED BY
"^DD",2,2,.351,1,3,0)
2^ADGDBUL^MUMPS
"^DD",2,2,.351,1,3,1)
D DSBULL^DGDEATH
"^DD",2,2,.351,1,3,2)
D DKBULL^DGDEATH
"^DD",2,2,.351,1,3,"DT")
3031008
"^DD",2,2,.351,1,4,0)
2^AEXP1
"^DD",2,2,.351,1,4,1)
S ^DPT("AEXP1",$E(X,1,30),DA)=""
"^DD",2,2,.351,1,4,2)
K ^DPT("AEXP1",$E(X,1,30),DA)
"^DD",2,2,.351,1,5,0)
2^AOERR^MUMPS
"^DD",2,2,.351,1,5,1)
D DEATH^DGOERNOT
"^DD",2,2,.351,1,5,2)
Q
"^DD",2,2,.351,1,5,"%D",0)
^^3^3^2910716^^^^
"^DD",2,2,.351,1,5,"%D",1,0)
     This cross-reference is used in conjunction with ORDER ENTRY/RESULTS
"^DD",2,2,.351,1,5,"%D",2,0)
REPORTING v2.09 or higher to send MAS OE/RR NOTIFICATIONS of
"^DD",2,2,.351,1,5,"%D",3,0)
DEATH to users who are on an OE/RR LIST for a patient.
"^DD",2,2,.351,1,5,"DT")
2910715
"^DD",2,2,.351,1,6,0)
2^APSJD^MUMPS
"^DD",2,2,.351,1,6,1)
S XX=X,X="PSJADT" X ^%ZOSF("TEST") S X=XX K XX I  D END^PSJADT
"^DD",2,2,.351,1,6,2)
Q
"^DD",2,2,.351,1,6,3)
Cancels Inpatient Medication orders.
"^DD",2,2,.351,1,6,"%D",0)
^^3^3^2930608^^^
"^DD",2,2,.351,1,6,"%D",1,0)
This is used by the Inpatient Medications package to cancel a patient's
"^DD",2,2,.351,1,6,"%D",2,0)
IV and Unit Dose orders whenever a date of death is entered for the
"^DD",2,2,.351,1,6,"%D",3,0)
patient.
"^DD",2,2,.351,1,6,"DT")
2930608
"^DD",2,2,.351,1,7,0)
2^ARCDTH^MUMPS
"^DD",2,2,.351,1,7,1)
S RCX=X,X="RCAMDTH" X ^%ZOSF("TEST") S X=RCX K RCX I  D SET^RCAMDTH
"^DD",2,2,.351,1,7,2)
S RCX=X,X="RCAMDTH" X ^%ZOSF("TEST") S X=RCX K RCX I  D ERR^RCAMDTH
"^DD",2,2,.351,1,7,3)
ACCOUNTS RECEIVABLE DEATH NOTIFICATION
"^DD",2,2,.351,1,7,"%D",0)
^^3^3^2930722^^^^
"^DD",2,2,.351,1,7,"%D",1,0)
This cross-reference is used to notify the Accounts Receivable package (v4 or
"^DD",2,2,.351,1,7,"%D",2,0)
higher) of a patient's death so that the patient's account may be reviewed for
"^DD",2,2,.351,1,7,"%D",3,0)
appropriate action. 
"^DD",2,2,.351,1,7,"DT")
2930609
"^DD",2,2,.351,1,8,0)
2^ADEP^MUMPS
"^DD",2,2,.351,1,8,1)
D SET^DGDEPINA
"^DD",2,2,.351,1,8,2)
D KILL^DGDEPINA
"^DD",2,2,.351,1,8,"%D",0)
^^1^1^2941114^
"^DD",2,2,.351,1,8,"%D",1,0)
This is used to updated the effective dates in file 408.12.
"^DD",2,2,.351,1,8,"DT")
2941114
"^DD",2,2,.351,1,9,0)
2^AENR351^MUMPS
"^DD",2,2,.351,1,9,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.351,1,9,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.351,1,9,3)
DO NOT DELETE
"^DD",2,2,.351,1,9,"%D",0)
^^1^1^2970630^^^^
"^DD",2,2,.351,1,9,"%D",1,0)
Used to update the patient's enrollment.
"^DD",2,2,.351,1,9,"DT")
2970630
"^DD",2,2,.351,1,10,0)
2^DG714^MUMPS
"^DD",2,2,.351,1,10,1)
D START^DGMTDELS(DA)
"^DD",2,2,.351,1,10,2)
Q
"^DD",2,2,.351,1,10,3)
Deletes last REQUIRED means test
"^DD",2,2,.351,1,10,"DT")
3060814
"^DD",2,2,.351,1,52,0)
2^APSOD^MUMPS
"^DD",2,2,.351,1,52,1)
I $$VERSION^XPDUTL("PSO")>6 D APSOD^PSOCAN3(DA)
"^DD",2,2,.351,1,52,2)
I $$VERSION^XPDUTL("PSO")>6 D APSOD^PSOAUTOC(DA)
"^DD",2,2,.351,1,52,3)
Discontinues Outpatient Medications.
"^DD",2,2,.351,1,52,"%D",0)
^^3^3^2961122^^^^
"^DD",2,2,.351,1,52,"%D",1,0)
This xref is used to discontinue all active outpatient medications whenever
"^DD",2,2,.351,1,52,"%D",2,0)
a date of death is entered for the patient.  This xref is used with v7 of
"^DD",2,2,.351,1,52,"%D",3,0)
Outpatient Pharmacy (DBIA #1624).
"^DD",2,2,.351,1,52,"%D",4,0)
Kill logic updated with DG*5.3*455.  Mail message sent to pharmacy when date
"^DD",2,2,.351,1,52,"%D",5,0)
of death is deleted to holders of PSORPH key.
"^DD",2,2,.351,1,52,"DT")
3020926
"^DD",2,2,.351,1,301,0)
2^IVM351^MUMPS
"^DD",2,2,.351,1,301,1)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.351,1,301,2)
S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX
"^DD",2,2,.351,1,301,"%D",0)
^^5^5^2930605^
"^DD",2,2,.351,1,301,"%D",1,0)
This cross-reference will check the IVM PATIENT file to see if a change
"^DD",2,2,.351,1,301,"%D",2,0)
to this field will require transmission to the IVM Center.  If it does,
"^DD",2,2,.351,1,301,"%D",3,0)
the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and
"^DD",2,2,.351,1,301,"%D",4,0)
the nightly background job will transmit the updated information.
"^DD",2,2,.351,1,301,"DT")
2930605
"^DD",2,2,.351,1,991,0)
2^AVAFC351^MUMPS
"^DD",2,2,.351,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".351;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.351,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".351;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,.351,1,991,"%D",0)
^^15^15^2990204^^
"^DD",2,2,.351,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,.351,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,.351,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,.351,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,.351,1,991,"%D",5,0)
 
"^DD",2,2,.351,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,.351,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,.351,1,991,"%D",8,0)
process.
"^DD",2,2,.351,1,991,"%D",9,0)
 
"^DD",2,2,.351,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,.351,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,.351,1,991,"%D",12,0)
  
"^DD",2,2,.351,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,.351,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,.351,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,.351,1,991,"DT")
2990204
"^DD",2,2,.351,1,992,0)
2^ADGRU351^MUMPS
"^DD",2,2,.351,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.351,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.351,1,992,"%D",0)
^^9^9^2990920^
"^DD",2,2,.351,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.351,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.351,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.351,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.351,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.351,1,992,"%D",6,0)
interface.
"^DD",2,2,.351,1,992,"%D",7,0)
 
"^DD",2,2,.351,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.351,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.351,1,992,"DT")
2990920
"^DD",2,2,.351,3)
Enter the date the patient died.  Date must not be before date of birth.
"^DD",2,2,.351,5,1,0)
405^.01^3
"^DD",2,2,.351,5,2,0)
405^.18^2
"^DD",2,2,.351,21,0)
^^6^6^3110119^
"^DD",2,2,.351,21,1,0)
Enter the date the patient died.  Date needs to be a precise date, i.e. 
"^DD",2,2,.351,21,2,0)
a day, month, and year MUST be included.
"^DD",2,2,.351,21,3,0)
Date of Death can not be prior to
"^DD",2,2,.351,21,4,0)
        P&T Effective Date
"^DD",2,2,.351,21,5,0)
        Date Ruled Incompetent (Civil and VA)
"^DD",2,2,.351,21,6,0)
        Date of Birth
"^DD",2,2,.351,"AUDIT")
y
"^DD",2,2,.351,"DT")
3110119
"^DD",2,2,.352,0)
DEATH ENTERED BY^P200'^VA(200,^.35;2^Q
"^DD",2,2,.352,3)
The name of the person who entered the date of death.
"^DD",2,2,.352,5,1,0)
2^.351^2
"^DD",2,2,.352,9)
^
"^DD",2,2,.352,21,0)
^^4^4^2911214^
"^DD",2,2,.352,21,1,0)
This field records the date a patient's death was initially entered into
"^DD",2,2,.352,21,2,0)
the DHCP system.  This field is created automatically by the MAS module
"^DD",2,2,.352,21,3,0)
when a date of death is entered either through the 'Death Entry' option or
"^DD",2,2,.352,21,4,0)
through the 'Discharge a Patient' option.
"^DD",2,2,.352,"DT")
2901006
"^DD",2,2,.353,0)
SOURCE OF NOTIFICATION^S^1:INPATIENT AT VAMC;2:NON-VA MEDICAL FACILITY;3:DEATH C
ERTIFICATE ON FILE;4:VBA;5:VA INSURANCE;6:SSA;7:NCA;8:NEXT OF KIN/FAMILY/FRIEND;
9:OTHER;^.35;3^Q
"^DD",2,2,.353,1,0)
^.1^^0
"^DD",2,2,.353,1,1,0)
2^AENR353^MUMPS
"^DD",2,2,.353,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.353,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.353,1,1,3)
 DO NOT DELETE
"^DD",2,2,.353,1,1,"%D",0)
^.101^2^2^3050608^^^^
"^DD",2,2,.353,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.353,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.353,1,1,"DT")
3050608
"^DD",2,2,.353,3)
Select the first source of death that appears on the list that applies to this v
eteran.
"^DD",2,2,.353,21,0)
^.001^3^3^3031023^^^^
"^DD",2,2,.353,21,1,0)
 
"^DD",2,2,.353,21,2,0)
This is a set of codes that represents who/what notified the VA of 
"^DD",2,2,.353,21,3,0)
the Date of Death.
"^DD",2,2,.353,"DT")
3031010
"^DD",2,2,.354,0)
DATE OF DEATH LAST UPDATED^D^^.35;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.354,1,0)
^.1
"^DD",2,2,.354,1,1,0)
2^AENR354^MUMPS
"^DD",2,2,.354,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.354,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.354,1,1,3)
 DO NOT DELETE
"^DD",2,2,.354,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.354,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.354,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.354,1,1,"DT")
3050606
"^DD",2,2,.354,21,0)
^^2^2^3030811^
"^DD",2,2,.354,21,1,0)
This is a date/time value that represents the date/time the date of death 
"^DD",2,2,.354,21,2,0)
field (.351) was last modified/entered/deleted.
"^DD",2,2,.354,"DT")
3030715
"^DD",2,2,.355,0)
LAST EDITED BY^P200'^VA(200,^.35;5^Q
"^DD",2,2,.355,21,0)
^^2^2^3030811^
"^DD",2,2,.355,21,1,0)
This is the local user ID of the person that last made a modification to 
"^DD",2,2,.355,21,2,0)
the date of death (.351) field.
"^DD",2,2,.355,"DT")
3030718
"^DD",2,2,.3601,0)
COLLATERAL SPONSOR'S NAME^R*P2'^DPT(^.36;11^S DIC("S")="I $D(^DPT(+Y,""VET"")),^
(""VET"")=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.3601,1,0)
^.1
"^DD",2,2,.3601,1,1,0)
2^ACOL^MUMPS
"^DD",2,2,.3601,1,1,1)
S ^DPT("ACOL",+X,DA)=""
"^DD",2,2,.3601,1,1,2)
K ^DPT("ACOL",+X,DA)
"^DD",2,2,.3601,12)
Sponsor must be a veteran.
"^DD",2,2,.3601,12.1)
S DIC("S")="I $D(^DPT(+Y,""VET"")),^(""VET"")=""Y"""
"^DD",2,2,.3601,21,0)
^^5^5^2911224^^^
"^DD",2,2,.3601,21,1,0)
If this patient is a collateral responsible for picking up medications
"^DD",2,2,.3601,21,2,0)
or information regarding another patient, that patient's name should be 
"^DD",2,2,.3601,21,3,0)
entered here.
"^DD",2,2,.3601,21,4,0)
 
"^DD",2,2,.3601,21,5,0)
This sponsor must be a veteran and must exist in the patient file.
"^DD",2,2,.3601,"DT")
2870505
"^DD",2,2,.3602,0)
MILITARY DISABILITY RETIREMENT^SX^1:YES;0:NO;^.36;12^S DFN=DA D EV2^DGLOCK
"^DD",2,2,.3602,1,0)
^.1
"^DD",2,2,.3602,1,1,0)
2^AV^MUMPS
"^DD",2,2,.3602,1,1,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.3602,1,1,2)
Q
"^DD",2,2,.3602,1,1,"DT")
3050708
"^DD",2,2,.3602,1,2,0)
2^AENR3602^MUMPS
"^DD",2,2,.3602,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3602,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3602,1,2,3)
DO NOT DELETE
"^DD",2,2,.3602,1,2,"%D",0)
^^2^2^3050829^
"^DD",2,2,.3602,1,2,"%D",1,0)
This cross-reference will be used to update the patient's current Patient
"^DD",2,2,.3602,1,2,"%D",2,0)
Enrollment Record.
"^DD",2,2,.3602,1,2,"DT")
3050829
"^DD",2,2,.3602,3)
Answer Yes if the Veteran receives disability pay in lieu of VA Compensation.
"^DD",2,2,.3602,4)
D HLP3602^DGRPU
"^DD",2,2,.3602,23,0)
^.001^2^2^3050922^^
"^DD",2,2,.3602,23,1,0)
This field will replace Disability Discharge from the Military (field 
"^DD",2,2,.3602,23,2,0)
#.362).
"^DD",2,2,.3602,"DT")
3050829
"^DD",2,2,.3603,0)
DISCHARGE DUE TO DISABILITY^SX^1:YES;0:NO;^.36;13^S DFN=DA D EV2^DGLOCK
"^DD",2,2,.3603,1,0)
^.1
"^DD",2,2,.3603,1,1,0)
2^AU^MUMPS
"^DD",2,2,.3603,1,1,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.3603,1,1,2)
Q
"^DD",2,2,.3603,1,1,"DT")
3050708
"^DD",2,2,.3603,1,2,0)
2^AENR3603^MUMPS
"^DD",2,2,.3603,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3603,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.3603,1,2,3)
DO NOT DELETE
"^DD",2,2,.3603,1,2,"%D",0)
^.101^2^2^3050829^^^^
"^DD",2,2,.3603,1,2,"%D",1,0)
This cross-reference will be used to update the patient's current 
"^DD",2,2,.3603,1,2,"%D",2,0)
Patient Enrollment record.
"^DD",2,2,.3603,1,2,"DT")
3050816
"^DD",2,2,.3603,3)
Was the Veteran discharged due to a disability incurred in the Line of Duty?
"^DD",2,2,.3603,4)
D HLP3603^DGRPU
"^DD",2,2,.3603,"DT")
3050816
"^DD",2,2,.361,0)
PRIMARY ELIGIBILITY CODE^*P8'Xa^DIC(8,^.36;1^S DFN=DA D EV^DGLOCK I $D(X) D ECD^
DGLOCK1
"^DD",2,2,.361,.1)

"^DD",2,2,.361,1,0)
^.1^^-1
"^DD",2,2,.361,1,1,0)
2^AG^MUMPS
"^DD",2,2,.361,1,1,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.361,1,1,2)
Q
"^DD",2,2,.361,1,1,"DT")
2920720
"^DD",2,2,.361,1,2,0)
^^TRIGGER^2.0361^.01
"^DD",2,2,.361,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,"E",
D1,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=
I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)
"^DD",2,2,.361,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1
)=DIV,DIH=2.0361,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.361,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="
^DPT(DIV(0),""E"",",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK
"^DD",2,2,.361,1,2,2.2)
X ^DD(2,.361,1,2,99.3) S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) 
S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
"^DD",2,2,.361,1,2,3)
This trigger stuffs the ELIGIBILITY CODE into the PATIENT'S ELIGIBILITIES multip
le.
"^DD",2,2,.361,1,2,89.2)
S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(2)=$S($D(^DPT(D0,.36)):^
(.36),1:"") S X="`",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X
"^DD",2,2,.361,1,2,89.3)
X ^DD(2,.361,1,2,89.2) S X=X_Y,X=X S X=X
"^DD",2,2,.361,1,2,89.4)
X ^DD(2,.361,1,2,89.3) K DIC S Y=-1,DIC="^DPT(D0,""E"",",DIC(0)="NMFL",DIC("P")=
"2.0361P",DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D ^DIC:D0>0 S (D,D1,DIV(1))=+Y
,DA(1)=DIU(1)
"^DD",2,2,.361,1,2,99.2)
S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(2)=DIV S X="`",Y(1)=X S 
X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X
"^DD",2,2,.361,1,2,99.3)
X ^DD(2,.361,1,2,99.2) S X=X_Y K DIC S Y=-1,DIC="^DPT(D0,""E"",",DIC(0)="NMF" D 
^DIC:D0>0 S (D,D1,DIV(1))=+Y S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"")
"^DD",2,2,.361,1,2,"CREATE VALUE")
INTERNAL(ELIGIBILITY CODE)
"^DD",2,2,.361,1,2,"DELETE VALUE")
@
"^DD",2,2,.361,1,2,"DIC")
LOOKUP
"^DD",2,2,.361,1,2,"DIK")
DELETE
"^DD",2,2,.361,1,2,"FIELD")
"`"_INTERNAL(ELIGIBILITY CODE):#361:#.01
"^DD",2,2,.361,1,3,0)
2^AXR28^MUMPS
"^DD",2,2,.361,1,3,1)
Q
"^DD",2,2,.361,1,3,2)
I $S('$D(^DIC(8,+X,0)):0,$P(^(0),"^",1)["DOM":0,'$D(^DPT(DA,.36)):1,'$D(^DIC(8,+
^(.36),0)):1,$P(^(0),"^",1)'["DOM":1,1:0) S DGXRF=.361 D ^DGDDC Q
"^DD",2,2,.361,1,3,"%D",0)
^^8^8^2920429^
"^DD",2,2,.361,1,3,"%D",1,0)
When the eligibility code is changed, this cross-reference removes the
"^DD",2,2,.361,1,3,"%D",2,0)
data in the ELIGIBILITY STATUS field.  This only occurs if neither the
"^DD",2,2,.361,1,3,"%D",3,0)
original eligibility code nor the new eligibility code (the one being
"^DD",2,2,.361,1,3,"%D",4,0)
entered) is DOM. PATIENT.  If either is DOM. PATIENT, no update occurs.
"^DD",2,2,.361,1,3,"%D",5,0)
 
"^DD",2,2,.361,1,3,"%D",6,0)
Since the DOM. PATIENT eligibility is being inactivated with MAS 5.2,
"^DD",2,2,.361,1,3,"%D",7,0)
the conditional on this cross-reference will be removed in a future 
"^DD",2,2,.361,1,3,"%D",8,0)
version of MAS.
"^DD",2,2,.361,1,3,"DT")
2920429
"^DD",2,2,.361,1,4,0)
2^AEL^MUMPS
"^DD",2,2,.361,1,4,1)
S ^DPT("AEL",DA,+X)=""
"^DD",2,2,.361,1,4,2)
K ^DPT("AEL",DA,+X)
"^DD",2,2,.361,1,5,0)
2^AENR361^MUMPS
"^DD",2,2,.361,1,5,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.361,1,5,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.361,1,5,3)
DO NOT DELETE
"^DD",2,2,.361,1,5,"%D",0)
^^2^2^2970715^^
"^DD",2,2,.361,1,5,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.361,1,5,"%D",2,0)
record.
"^DD",2,2,.361,1,5,"DT")
2970715
"^DD",2,2,.361,3)
Select from the available list the eligibility code which best defines this appl
icant's primary entitlement to care.  For more detailed information, enter ??.
"^DD",2,2,.361,12)
Applicable code based on veteran or non-veteran status.
"^DD",2,2,.361,12.1)
S DFN=DA D ECD^DGLOCK1
"^DD",2,2,.361,20,0)
^.3LA^1^1
"^DD",2,2,.361,20,1,0)
ECD
"^DD",2,2,.361,21,0)
^.001^45^45^3060321^^^^
"^DD",2,2,.361,21,1,0)
Select from the available listing the appropriate eligibility code for
"^DD",2,2,.361,21,2,0)
this applicant.  For non-veteran applicants a wide variety of choices
"^DD",2,2,.361,21,3,0)
are available.  For veteran applicants the choices are screened [in the
"^DD",2,2,.361,21,4,0)
following order] dependent on the responses to other prompts:
"^DD",2,2,.361,21,5,0)
   
"^DD",2,2,.361,21,6,0)
1.  If the SERVICE CONNECTED prompt (field .301) is answered YES
"^DD",2,2,.361,21,7,0)
    only the following two choices are available:
"^DD",2,2,.361,21,8,0)
    
"^DD",2,2,.361,21,9,0)
    a.  If the SERVICE CONNECTED PERCENTAGE prompt (field .302) entered
"^DD",2,2,.361,21,10,0)
        is 50% or greater 'SERVICE CONNECTED 50% TO 100%' can be
"^DD",2,2,.361,21,11,0)
        selected.
"^DD",2,2,.361,21,12,0)
   
"^DD",2,2,.361,21,13,0)
    b.  Otherwise, the percentage is assumed to be less than 50% and
"^DD",2,2,.361,21,14,0)
        only 'SC, LESS THAN 50%' may be entered.
"^DD",2,2,.361,21,15,0)
   
"^DD",2,2,.361,21,16,0)
2.  If the response to the WERE YOU A PRISONER OF WAR field (# .525)
"^DD",2,2,.361,21,17,0)
    is YES and the veteran is not service connected, you must select 
"^DD",2,2,.361,21,18,0)
    PRISONER OF WAR as the eligibility code.
"^DD",2,2,.361,21,19,0)
   
"^DD",2,2,.361,21,20,0)
3.  If the response to the CURRENT PH INDICATOR field (#.531) 
"^DD",2,2,.361,21,21,0)
    is YES and the veteran is not service connected and is not a Prisoner
"^DD",2,2,.361,21,22,0)
    of War, you must select PURPLE HEART RECIPIENT as the eligibility code.
"^DD",2,2,.361,21,23,0)
 
"^DD",2,2,.361,21,24,0)
4.  If the veteran is receiving VA benefits, but does not meet the
"^DD",2,2,.361,21,25,0)
    criteria in items 1 and 2 above, then the following choices may
"^DD",2,2,.361,21,26,0)
    be presented for selection:
"^DD",2,2,.361,21,27,0)
 
"^DD",2,2,.361,21,28,0)
    If RECEIVING A&A BENEFITS is answered YES, the eligibility code
"^DD",2,2,.361,21,29,0)
    AID & ATTENDANCE may be selected.
"^DD",2,2,.361,21,30,0)
 
"^DD",2,2,.361,21,31,0)
    If the RECEIVING HOUSEBOUND BENEFITS is answered YES ,the eligibility
"^DD",2,2,.361,21,32,0)
    code HOUSEBOUND may be selected.
"^DD",2,2,.361,21,33,0)
 
"^DD",2,2,.361,21,34,0)
    If the above two prompts were answered NO, but the RECEIVING A VA
"^DD",2,2,.361,21,35,0)
    PENSION prompt was answered YES, only the NSC, VA PENSION prompt
"^DD",2,2,.361,21,36,0)
    may be selected.
"^DD",2,2,.361,21,37,0)
 
"^DD",2,2,.361,21,38,0)
5.  If none of the above pertain to this veteran, then the NSC eligibility
"^DD",2,2,.361,21,39,0)
    will be available for selection.
"^DD",2,2,.361,21,40,0)
 
"^DD",2,2,.361,21,41,0)
**  Dependent on the birthdate of the applicant, the following two
"^DD",2,2,.361,21,42,0)
    eligibility codes may be displayed along with those shown in items
"^DD",2,2,.361,21,43,0)
    3 through 5 above:  WORLD WAR I and MEXICAN BORDER WAR.  These would
"^DD",2,2,.361,21,44,0)
    display for veterans not meeting the criteria in items 1 and 2, but
"^DD",2,2,.361,21,45,0)
    whose date of birth is prior to 1907.
"^DD",2,2,.361,"AUDIT")
y
"^DD",2,2,.361,"DEL",1,0)
S DFN=DA D EV^DGLOCK I '$D(X)
"^DD",2,2,.361,"DT")
3060321
"^DD",2,2,.3611,0)
ELIGIBILITY STATUS^SX^P:PENDING VERIFICATION;R:PENDING RE-VERIFICATION;V:VERIFIE
D;^.361;1^D EK^DGLOCK Q:'$D(X)
"^DD",2,2,.3611,.1)
ELIG STATUS
"^DD",2,2,.3611,1,0)
^.1
"^DD",2,2,.3611,1,1,0)
^^TRIGGER^2^.3616
"^DD",2,2,.3611,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y
(1),U,6),X=X S DIU=X K Y X ^DD(2,.3611,1,1,1.1) X ^DD(2,.3611,1,1,1.4)
"^DD",2,2,.3611,1,1,1.1)
S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"")
"^DD",2,2,.3611,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="VERIFIED"
"^DD",2,2,.3611,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99
))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3611,1,1,2)
Q
"^DD",2,2,.3611,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(
0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P($P(Y(2),$C(59)_$P(Y
(1),U,1)_":",2),$C(59),1)'="VERIFIED"
"^DD",2,2,.3611,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99
))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3611,1,1,"CREATE CONDITION")
ELIG STATUS="VERIFIED"
"^DD",2,2,.3611,1,1,"CREATE VALUE")
S X=$S(($D(DUZ)#2):DUZ,1:"")
"^DD",2,2,.3611,1,1,"DELETE CONDITION")
ELIG STATUS'="VERIFIED"
"^DD",2,2,.3611,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3611,1,1,"FIELD")
ELIGIBILITY STATUS ENTERED BY
"^DD",2,2,.3611,1,2,0)
^^TRIGGER^2^.3612
"^DD",2,2,.3611,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y
(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(2,.3611,1,2,1.4)
"^DD",2,2,.3611,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DI
H,U,2),^(.361)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3612 D ^DICR:$N(
^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3611,1,2,2)
Q
"^DD",2,2,.3611,1,2,"CREATE VALUE")
TODAY
"^DD",2,2,.3611,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3611,1,2,"FIELD")
ELIGIBILITY STATUS DATE
"^DD",2,2,.3611,1,3,0)
2^AENR3611^MUMPS
"^DD",2,2,.3611,1,3,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3611,1,3,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3611,1,3,3)
 DO NOT DELETE
"^DD",2,2,.3611,1,3,"%D",0)
^.101^2^2^3060918^^^^
"^DD",2,2,.3611,1,3,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3611,1,3,"%D",2,0)
enrollment.
"^DD",2,2,.3611,1,3,"DT")
3050606
"^DD",2,2,.3611,3)
Select the status of this patient's eligibility.
"^DD",2,2,.3611,5,1,0)
2^.361^3
"^DD",2,2,.3611,20,0)
^.3LA^1^1
"^DD",2,2,.3611,20,1,0)
ECD
"^DD",2,2,.3611,21,0)
^^3^3^2861117^^
"^DD",2,2,.3611,21,1,0)
Select from the available listing the appropriate eligibility status
"^DD",2,2,.3611,21,2,0)
for this applicant.  Only users who hold the designated security key
"^DD",2,2,.3611,21,3,0)
may enter/edit this field.
"^DD",2,2,.3611,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.3611,"DT")
2880925
"^DD",2,2,.3612,0)
ELIGIBILITY STATUS DATE^DX^^.361;2^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1
 X I $D(X) D EK^DGLOCK
"^DD",2,2,.3612,.1)
ELIG STATUS DATE
"^DD",2,2,.3612,1,0)
^.1
"^DD",2,2,.3612,1,1,0)
^^TRIGGER^2^.3616
"^DD",2,2,.3612,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"") S X=$P(Y
(1),U,6),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"") X ^DD(2,.3612,1,1,
1.4)
"^DD",2,2,.3612,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""),DIV=X S $P(^(.361),U,6)=DIV,DIH=2,D
IG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.3612,1,1,2)
Q
"^DD",2,2,.3612,1,1,"%D",0)
^^3^3^2911106^
"^DD",2,2,.3612,1,1,"%D",1,0)
When the ELIGIBILITY STATUS DATE is updated through any option, the user
"^DD",2,2,.3612,1,1,"%D",2,0)
entering the new date will be automatically put into the ELIGIBILITY
"^DD",2,2,.3612,1,1,"%D",3,0)
STATUS ENTERED BY field (field .3616).
"^DD",2,2,.3612,1,1,"CREATE VALUE")
S X=$S(($D(DUZ)#2):DUZ,1:"")
"^DD",2,2,.3612,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.3612,1,1,"FIELD")
ELIGIBILITY STATUS ENTER
"^DD",2,2,.3612,1,2,0)
2^AENR3612^MUMPS
"^DD",2,2,.3612,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3612,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3612,1,2,3)
 DO NOT DELETE
"^DD",2,2,.3612,1,2,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.3612,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3612,1,2,"%D",2,0)
enrollment.
"^DD",2,2,.3612,1,2,"DT")
3050606
"^DD",2,2,.3612,3)
Enter the date the current eligibility status was determined.
"^DD",2,2,.3612,5,1,0)
2^.3611^2
"^DD",2,2,.3612,20,0)
^.3LA^1^1
"^DD",2,2,.3612,20,1,0)
ECD
"^DD",2,2,.3612,21,0)
^^3^3^2861117^^^^
"^DD",2,2,.3612,21,1,0)
Enter the effective date of the eligibility status (ELIG STATUS
"^DD",2,2,.3612,21,2,0)
prompt).  Only users who hold the designated security key may
"^DD",2,2,.3612,21,3,0)
enter/edit this field.
"^DD",2,2,.3612,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.3612,"DT")
3010107
"^DD",2,2,.3613,0)
ELIGIBILITY VERIF. SOURCE^S^H:HEC;V:VISTA;^.361;3^Q
"^DD",2,2,.3613,.1)
ELIG VERIF SOURCE
"^DD",2,2,.3613,3)
The entity verifying the eligibility of the patient.
"^DD",2,2,.3613,21,0)
^^2^2^3001115^
"^DD",2,2,.3613,21,1,0)
This field is used to restrict site ability to edit certain data elements when
"^DD",2,2,.3613,21,2,0)
HEC has verified eligibility data.
"^DD",2,2,.3613,"DT")
3001115
"^DD",2,2,.3614,0)
ELIGIBILITY INTERIM RESPONSE^DX^^.361;4^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y 
K:Y<1 X I $D(X) D EK^DGLOCK
"^DD",2,2,.3614,.1)
ELIG INTERIM RESPONSE
"^DD",2,2,.3614,3)
Enter the response concerning this aplicant's eligibility status.
"^DD",2,2,.3614,20,0)
^.3LA^1^1
"^DD",2,2,.3614,20,1,0)
ECD
"^DD",2,2,.3614,21,0)
^^3^3^2861006^
"^DD",2,2,.3614,21,1,0)
If an interim response has been received concerning this applicant's
"^DD",2,2,.3614,21,2,0)
eligibility status enter the date received.  Only users who hold the
"^DD",2,2,.3614,21,3,0)
designated security key may enter/edit this field.
"^DD",2,2,.3614,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.3614,"DT")
2900418
"^DD",2,2,.3615,0)
ELIGIBILITY VERIF. METHOD^FX^^.361;5^K:$L(X)>50!($L(X)<2) X I $D(X) D EK^DGLOCK
"^DD",2,2,.3615,.1)
VERIFICATION METHOD
"^DD",2,2,.3615,1,0)
^.1
"^DD",2,2,.3615,1,1,0)
2^AENR3615^MUMPS
"^DD",2,2,.3615,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3615,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3615,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3615,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.3615,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3615,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3615,1,1,"DT")
3050606
"^DD",2,2,.3615,3)
Enter the method by which this patient's eligibility was verified [2-50 characte
rs].
"^DD",2,2,.3615,20,0)
^.3LA^1^1
"^DD",2,2,.3615,20,1,0)
ECD
"^DD",2,2,.3615,21,0)
^^3^3^2861006^
"^DD",2,2,.3615,21,1,0)
Enter the method in which the eligibility for this applicant was verified
"^DD",2,2,.3615,21,2,0)
[between 2-50 characters].  Only users who hold the designated security
"^DD",2,2,.3615,21,3,0)
key may enter/edit this field.
"^DD",2,2,.3615,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2,.3615,"DT")
3010107
"^DD",2,2,.3616,0)
ELIGIBILITY STATUS ENTERED BY^P200'^VA(200,^.361;6^Q
"^DD",2,2,.3616,.1)
WHO ENTERED ELIGIBILITY STATUS
"^DD",2,2,.3616,3)
The name of the user who certified this patient's current eligibility status.
"^DD",2,2,.3616,5,1,0)
2^.3611^1
"^DD",2,2,.3616,5,2,0)
2^.3612^1
"^DD",2,2,.3616,9)
^
"^DD",2,2,.3616,20,0)
^.3LA^1^1
"^DD",2,2,.3616,20,1,0)
ECD
"^DD",2,2,.3616,21,0)
^^2^2^2861022^
"^DD",2,2,.3616,21,1,0)
When eligibility is verified (ELIG STATUS="VERIFIED") the name of the
"^DD",2,2,.3616,21,2,0)
user who certified the verification.
"^DD",2,2,.3616,"DT")
2901006
"^DD",2,2,.3617,0)
USER ENROLLEE VALID THROUGH^DX^^.361;7^S %DT="E" D ^%DT S X=$E(Y,1,3)_"0000" K:Y
<1 X
"^DD",2,2,.3617,1,0)
^.1
"^DD",2,2,.3617,1,1,0)
2^AENR3617^MUMPS
"^DD",2,2,.3617,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3617,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3617,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3617,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.3617,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3617,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3617,1,1,"DT")
3050606
"^DD",2,2,.3617,3)
Enter valid Fiscal Year
"^DD",2,2,.3617,21,0)
^.001^3^3^3030313^^
"^DD",2,2,.3617,21,1,0)
This field contains the Fiscal Year that the veteran's User Enrollee 
"^DD",2,2,.3617,21,2,0)
Status is valid through. This field is populated by the system, no user 
"^DD",2,2,.3617,21,3,0)
input is required.
"^DD",2,2,.3617,"DT")
3030313
"^DD",2,2,.3618,0)
USER ENROLLEE SITE^P4'^DIC(4,^.361;8^Q
"^DD",2,2,.3618,1,0)
^.1
"^DD",2,2,.3618,1,1,0)
2^AENR3618^MUMPS
"^DD",2,2,.3618,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3618,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3618,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3618,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.3618,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3618,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3618,1,1,"DT")
3050606
"^DD",2,2,.3618,3)
Enter Valid Site
"^DD",2,2,.3618,21,0)
^^3^3^3030225^
"^DD",2,2,.3618,21,1,0)
This field contains the Site that determined the User Enrollee 
"^DD",2,2,.3618,21,2,0)
information for the Veteran. This field is populated by the system, no 
"^DD",2,2,.3618,21,3,0)
user input is required.
"^DD",2,2,.3618,"DT")
3030225
"^DD",2,2,.362,0)
DISABILITY RET. FROM MILITARY?^RSX^0:NO;1:YES, RECEIVING MILITARY RETIREMENT;2:Y
ES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION;3:UNKNOWN;^.36;2^S 
DFN=DA D SV^DGLOCK
"^DD",2,2,.362,.1)
MILT RET DUE TO DISABILITY?
"^DD",2,2,.362,1,0)
^.1
"^DD",2,2,.362,1,1,0)
2^AH^MUMPS
"^DD",2,2,.362,1,1,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.362,1,1,2)
Q
"^DD",2,2,.362,1,1,"DT")
2920929
"^DD",2,2,.362,1,2,0)
2^AENR362^MUMPS
"^DD",2,2,.362,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.362,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.362,1,2,3)
DO NOT DELETE
"^DD",2,2,.362,1,2,"%D",0)
^.101^2^2^3041115^^^
"^DD",2,2,.362,1,2,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.362,1,2,"%D",2,0)
record.
"^DD",2,2,.362,1,2,"DT")
2970630
"^DD",2,2,.362,3)
Was this patient retired from the U.S. Armed forces due to an disability incurre
d while serving?
"^DD",2,2,.362,4)
D HLPMLDS^DGRPU
"^DD",2,2,.362,20,0)
^.3LA^1^1
"^DD",2,2,.362,20,1,0)
SVC
"^DD",2,2,.362,"DT")
3040420
"^DD",2,2,.36205,0)
RECEIVING A&A BENEFITS?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;12^S DFN=DA D MV^DGLOCK I 
$D(X) S DFN=DA D EV^DGLOCK
"^DD",2,2,.36205,.1)
ARE YOU IN RECEIPT OF A&A?
"^DD",2,2,.36205,1,0)
^.1
"^DD",2,2,.36205,1,1,0)
^^TRIGGER^2^.3621
"^DD",2,2,.36205,1,1,1)
X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
"^DD",2,2,.36205,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36205,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.36205,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DI
H,U,1),^(.362)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3621 D ^DICR:$N(^DD(DIH,DIG,1,0)
)>0
"^DD",2,2,.36205,1,1,2)
X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
"^DD",2,2,.36205,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36205,0)):$P(^
(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(
Y(1),U,12)_":",2),$C(59),1)=""
"^DD",2,2,.36205,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DI
H,U,1),^(.362)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3621 D ^DICR:$N(^DD(DIH,DIG,1,0)
)>0
"^DD",2,2,.36205,1,1,"CREATE CONDITION")
#.36205="NO"
"^DD",2,2,.36205,1,1,"CREATE VALUE")
@
"^DD",2,2,.36205,1,1,"DELETE CONDITION")
#.36205=""
"^DD",2,2,.36205,1,1,"DELETE VALUE")
@
"^DD",2,2,.36205,1,1,"FIELD")
#.3621
"^DD",2,2,.36205,1,2,0)
2^AJ^MUMPS
"^DD",2,2,.36205,1,2,1)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.36205,1,2,2)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.36205,1,2,"%D",0)
^^3^3^2930312^^^^
"^DD",2,2,.36205,1,2,"%D",1,0)
This cross reference acts like a trigger.  It 'triggers' the status field
"^DD",2,2,.36205,1,2,"%D",2,0)
in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It
"^DD",2,2,.36205,1,2,"%D",3,0)
will update the field to 'NO LONGER APPLICABLE' if appropriate.
"^DD",2,2,.36205,1,2,"DT")
2930119
"^DD",2,2,.36205,1,3,0)
^^TRIGGER^2^.36295
"^DD",2,2,.36205,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.36205,1,3,1.4)
"^DD",2,2,.36205,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36205,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.36205,1,3,2.4)
"^DD",2,2,.36205,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36205,1,3,"CREATE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.36205,1,3,"CREATE VALUE")
@
"^DD",2,2,.36205,1,3,"DELETE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.36205,1,3,"DELETE VALUE")
@
"^DD",2,2,.36205,1,3,"DT")
2970327
"^DD",2,2,.36205,1,3,"FIELD")
#.36295
"^DD",2,2,.36205,1,4,0)
2^AENR36205^MUMPS
"^DD",2,2,.36205,1,4,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36205,1,4,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36205,1,4,3)
DO NOT DELETE
"^DD",2,2,.36205,1,4,"%D",0)
^^2^2^2970630^^
"^DD",2,2,.36205,1,4,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.36205,1,4,"%D",2,0)
record.
"^DD",2,2,.36205,1,4,"DT")
2970630
"^DD",2,2,.36205,3)
Is this applicant receiving Aid and Attendance benefits?
"^DD",2,2,.36205,20,0)
^.3LA^1^1
"^DD",2,2,.36205,20,1,0)
MB
"^DD",2,2,.36205,21,0)
^^3^3^2970715^^^
"^DD",2,2,.36205,21,1,0)
For this veteran applicant enter 'Y' if s/he is on A&A, 'N' if not, or
"^DD",2,2,.36205,21,2,0)
'U' if unknown.  Once monetary benefits have been verified only users
"^DD",2,2,.36205,21,3,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.36205,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36205,"DT")
2970715
"^DD",2,2,.3621,0)
AMOUNT OF AID & ATTENDANCE^NJ10,2X^^.362;1^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(
X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.36
2),U,12)'="Y" W !?4,"Receipt of A&A Benefits not indicated." K X
"^DD",2,2,.3621,.1)
A&A AMOUNT
"^DD",2,2,.3621,3)
If this applicant is in receipt of A&A benefits enter the dollar amount received
 per year.
"^DD",2,2,.3621,5,1,0)
2^.36205^1
"^DD",2,2,.3621,9.2)
I $D(^DPT(DA,.362)),$P(^(.362),U,12)="Y" W !?4,*7,"Delete by answering 'ARE YOU 
IN RECEIPT OF A&A' prompt NO." K X
"^DD",2,2,.3621,20,0)
^.3LA^1^1
"^DD",2,2,.3621,20,1,0)
MB
"^DD",2,2,.3621,21,0)
^^9^9^2930312^^^^
"^DD",2,2,.3621,21,1,0)
For this veteran applicant who is receiving A&A benefits (ARE YOU IN
"^DD",2,2,.3621,21,2,0)
RECEIPT OF A&A prompt must be answered YES) enter the amount received
"^DD",2,2,.3621,21,3,0)
[numeric 0-99999].  Once monetary benefits are verified only users who
"^DD",2,2,.3621,21,4,0)
hold the designated security key may enter/edit this field.  Any dollar
"^DD",2,2,.3621,21,5,0)
amount on file cannot be deleted as long as receipt of A&A benefits
"^DD",2,2,.3621,21,6,0)
is indicated.
"^DD",2,2,.3621,21,7,0)
  
"^DD",2,2,.3621,21,8,0)
f you wish to enter a monthly amount either preceed or follow the dollar
"^DD",2,2,.3621,21,9,0)
figure with an asterisk and I'll multiply it out for you.
"^DD",2,2,.3621,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.3621,9.2):$D(X) I '$D(X)
"^DD",2,2,.3621,"DT")
2880923
"^DD",2,2,.36215,0)
RECEIVING HOUSEBOUND BENEFITS?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;13^S DFN=DA D MV^DG
LOCK I $D(X) S DFN=DA D EV^DGLOCK
"^DD",2,2,.36215,.1)
IN RECEIPT OF HB BENEFITS?
"^DD",2,2,.36215,1,0)
^.1
"^DD",2,2,.36215,1,1,0)
^^TRIGGER^2^.3622
"^DD",2,2,.36215,1,1,1)
X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
"^DD",2,2,.36215,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36215,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.36215,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DI
H,U,2),^(.362)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3622 D ^DICR:$N(
^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36215,1,1,2)
X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
"^DD",2,2,.36215,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36215,0)):$P(^
(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(
Y(1),U,13)_":",2),$C(59),1)=""
"^DD",2,2,.36215,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DI
H,U,2),^(.362)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.3622 D ^DICR:$N(
^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36215,1,1,"CREATE CONDITION")
#.36215="NO"
"^DD",2,2,.36215,1,1,"CREATE VALUE")
@
"^DD",2,2,.36215,1,1,"DELETE CONDITION")
#.36215=""
"^DD",2,2,.36215,1,1,"DELETE VALUE")
@
"^DD",2,2,.36215,1,1,"FIELD")
#.3622
"^DD",2,2,.36215,1,2,0)
2^AL^MUMPS
"^DD",2,2,.36215,1,2,1)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.36215,1,2,2)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.36215,1,2,"%D",0)
^^3^3^2930119^^^
"^DD",2,2,.36215,1,2,"%D",1,0)
This cross reference acts like a trigger.  It 'triggers' the status field
"^DD",2,2,.36215,1,2,"%D",2,0)
in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It
"^DD",2,2,.36215,1,2,"%D",3,0)
will update the field to 'NO LONGER APPLICABLE' if appropriate.
"^DD",2,2,.36215,1,2,"DT")
2930119
"^DD",2,2,.36215,1,3,0)
^^TRIGGER^2^.36295
"^DD",2,2,.36215,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.36215,1,3,1.4)
"^DD",2,2,.36215,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36215,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.36215,1,3,2.4)
"^DD",2,2,.36215,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36215,1,3,"CREATE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.36215,1,3,"CREATE VALUE")
@
"^DD",2,2,.36215,1,3,"DELETE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.36215,1,3,"DELETE VALUE")
@
"^DD",2,2,.36215,1,3,"DT")
2970327
"^DD",2,2,.36215,1,3,"FIELD")
#.36295
"^DD",2,2,.36215,1,4,0)
2^AENR36215^MUMPS
"^DD",2,2,.36215,1,4,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36215,1,4,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36215,1,4,3)
DO NOT DELETE
"^DD",2,2,.36215,1,4,"%D",0)
^^2^2^2970630^^
"^DD",2,2,.36215,1,4,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.36215,1,4,"%D",2,0)
record.
"^DD",2,2,.36215,1,4,"DT")
2970630
"^DD",2,2,.36215,3)
Is this applicant in receipt of housebound benefits?
"^DD",2,2,.36215,20,0)
^.3LA^1^1
"^DD",2,2,.36215,20,1,0)
MB
"^DD",2,2,.36215,21,0)
^^3^3^2861006^
"^DD",2,2,.36215,21,1,0)
For this veteran applicant enter 'Y' if s/he is housebound, 'N' if not,
"^DD",2,2,.36215,21,2,0)
or 'U' if unknown.  Once monetary benefits have been verified only users
"^DD",2,2,.36215,21,3,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.36215,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36215,"DT")
2970715
"^DD",2,2,.3622,0)
AMOUNT OF HOUSEBOUND^NJ10,2X^^.362;2^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>9999
9)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,1
3)'="Y" W !?4,*7,"Receipt of Housebound Benefits not indicated." K X
"^DD",2,2,.3622,.1)
HB AMOUNT
"^DD",2,2,.3622,3)
If this applicant is in receipt of housebound benefits enter the dollars amount 
received per year.
"^DD",2,2,.3622,5,1,0)
2^.36215^1
"^DD",2,2,.3622,9.2)
I $D(^DPT(DA,.362)),$P(^(.362),U,13)="Y" W !?4,*7,"Delete by answering 'IN RECEI
PT OF HB BENEFITS' prompt NO." K X
"^DD",2,2,.3622,20,0)
^.3LA^1^1
"^DD",2,2,.3622,20,1,0)
MB
"^DD",2,2,.3622,21,0)
^^9^9^2880923^^^^
"^DD",2,2,.3622,21,1,0)
For this veteran applicant who is housebound (ARE YOU IN RECEIPT OF HB
"^DD",2,2,.3622,21,2,0)
BENEFITS prompt must be answered YES) enter the amount received
"^DD",2,2,.3622,21,3,0)
[a number between 0-99999].  Once monetary benefits are verified only
"^DD",2,2,.3622,21,4,0)
users who hold the designated security key may enter/edit this field.  This
"^DD",2,2,.3622,21,5,0)
field cannot be deleted as long as receipt of housebound benefits is
"^DD",2,2,.3622,21,6,0)
indicated.
"^DD",2,2,.3622,21,7,0)
  
"^DD",2,2,.3622,21,8,0)
If you wish to enter a monthly amount either preceed of follow it with
"^DD",2,2,.3622,21,9,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3622,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.3622,9.2):$D(X) I '$D(X)
"^DD",2,2,.3622,"DT")
2880923
"^DD",2,2,.36225,0)
RECEIVING SOCIAL SECURITY?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;15^S DFN=DA D MV^DGLOCK
 Q
"^DD",2,2,.36225,.1)
IN RECEIPT OF SOCIAL SECURITY?
"^DD",2,2,.36225,1,0)
^.1
"^DD",2,2,.36225,1,1,0)
^^TRIGGER^2^.3623
"^DD",2,2,.36225,1,1,1)
X ^DD(2,.36225,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.36225,1,1,1.4)
"^DD",2,2,.36225,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36225,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.36225,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99
))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.362)=$P(DIH,U,1,2)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3623 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36225,1,1,2)
X ^DD(2,.36225,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.36225,1,1,2.4)
"^DD",2,2,.36225,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36225,0)):$P(^
(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(
Y(1),U,15)_":",2),$C(59),1)=""
"^DD",2,2,.36225,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99
))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.362)=$P(DIH,U,1,2)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3623 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36225,1,1,"CREATE CONDITION")
#.36225="NO"
"^DD",2,2,.36225,1,1,"CREATE VALUE")
@
"^DD",2,2,.36225,1,1,"DELETE CONDITION")
#.36225=""
"^DD",2,2,.36225,1,1,"DELETE VALUE")
@
"^DD",2,2,.36225,1,1,"FIELD")
#.3623
"^DD",2,2,.36225,3)
Is this patient in receipt of Social Security benefits?
"^DD",2,2,.36225,20,0)
^.3LA^1^1
"^DD",2,2,.36225,20,1,0)
MB
"^DD",2,2,.36225,21,0)
^^4^4^2861006^
"^DD",2,2,.36225,21,1,0)
For this veteran applicant enter 'Y' is s/he is in receipt of social
"^DD",2,2,.36225,21,2,0)
security benefits, 'N' if not, or 'U' if unknown.  Once monetary benefits
"^DD",2,2,.36225,21,3,0)
have been verified only users who hold the designated security key may
"^DD",2,2,.36225,21,4,0)
enter/edit this field.
"^DD",2,2,.36225,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36225,"DT")
2860806
"^DD",2,2,.3623,0)
*AMOUNT OF SOCIAL SECURITY^NJ10,2X^^.362;3^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(
X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.3623,9.2)
"^DD",2,2,.3623,.1)
SOCIAL SECURITY AMOUNT
"^DD",2,2,.3623,3)
If this applicant is in receipt of Social Security benefits enter the dollar amo
unt received per year.
"^DD",2,2,.3623,5,1,0)
2^.36225^1
"^DD",2,2,.3623,9.2)
I $D(^DPT(DA,.362)),$P(^(.362),U,15)'="Y" W !?4,*7,"Not in receipt of Social Sec
urity benefits." K X
"^DD",2,2,.3623,9.3)
I $D(^DPT(DA,.362)),$P(^(.362),U,15)="Y" W !?4,*7,"Delete by answering 'IN RECEI
PT OF SOCIAL SECURITY' prompt NO." K X
"^DD",2,2,.3623,20,0)
^.3LA^1^1
"^DD",2,2,.3623,20,1,0)
MB
"^DD",2,2,.3623,21,0)
^^9^9^2880923^^^
"^DD",2,2,.3623,21,1,0)
For this veteran applicant who is in receipt of social security
"^DD",2,2,.3623,21,2,0)
insurance (IN RECEIPT OF SOCIAL SECURITY prompt must be answered YES)
"^DD",2,2,.3623,21,3,0)
enter the amount received [a number between 0-99999].  Once monetary
"^DD",2,2,.3623,21,4,0)
benefits are verified only users who hold the designated security key
"^DD",2,2,.3623,21,5,0)
may enter/edit this field.  This field may not be deleted as long as
"^DD",2,2,.3623,21,6,0)
receipt of social security benefits is indicated.
"^DD",2,2,.3623,21,7,0)
  
"^DD",2,2,.3623,21,8,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.3623,21,9,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3623,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.3623,9.3):$D(X) I '$D(X)
"^DD",2,2,.3623,"DT")
2930609
"^DD",2,2,.36235,0)
RECEIVING A VA PENSION?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;14^S DFN=DA D MV^DGLOCK
"^DD",2,2,.36235,1,0)
^.1
"^DD",2,2,.36235,1,1,0)
^^TRIGGER^2^.3624
"^DD",2,2,.36235,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.36235,0)),U,3)
 S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO" I X S X=DIV S Y(1)=$S($D(^DPT(D0
,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1
,1.4)
"^DD",2,2,.36235,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.362)),DIV=X S $P(^(.362),U,4)=DIV,DIH=2,DIG=.3624 D ^DICR
"^DD",2,2,.36235,1,1,2)
X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.362)),DIV=X S $P(^(.
362),U,4)=DIV,DIH=2,DIG=.3624 D ^DICR
"^DD",2,2,.36235,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.36235,0)),U,3)
,Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_":"
,2),$C(59))=""
"^DD",2,2,.36235,1,1,"CREATE CONDITION")
#.36235="NO"
"^DD",2,2,.36235,1,1,"CREATE VALUE")
@
"^DD",2,2,.36235,1,1,"DELETE CONDITION")
#.36235=""
"^DD",2,2,.36235,1,1,"DELETE VALUE")
@
"^DD",2,2,.36235,1,1,"DT")
3110818
"^DD",2,2,.36235,1,1,"FIELD")
AMOUNT OF VA PENSION
"^DD",2,2,.36235,1,2,0)
2^AM^MUMPS
"^DD",2,2,.36235,1,2,1)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.36235,1,2,2)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,.36235,1,2,"%D",0)
^^3^3^2930119^^^^
"^DD",2,2,.36235,1,2,"%D",1,0)
This cross reference acts like a trigger.  It 'triggers' the status field
"^DD",2,2,.36235,1,2,"%D",2,0)
in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It
"^DD",2,2,.36235,1,2,"%D",3,0)
will update the field to 'NO LONGER APPLICABLE' if appropriate.
"^DD",2,2,.36235,1,2,"DT")
2930119
"^DD",2,2,.36235,1,3,0)
^^TRIGGER^2^.36295
"^DD",2,2,.36235,1,3,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.36235,1,3,1.4)
"^DD",2,2,.36235,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36235,1,3,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y
(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" 
X ^DD(2,.36235,1,3,2.4)
"^DD",2,2,.36235,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,
DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36235,1,3,"CREATE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.36235,1,3,"CREATE VALUE")
@
"^DD",2,2,.36235,1,3,"DELETE CONDITION")
S X='$$TOTCHK^DGLOCK2(DA)
"^DD",2,2,.36235,1,3,"DELETE VALUE")
@
"^DD",2,2,.36235,1,3,"DT")
2970327
"^DD",2,2,.36235,1,3,"FIELD")
#.36295
"^DD",2,2,.36235,1,4,0)
2^AENR36235^MUMPS
"^DD",2,2,.36235,1,4,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36235,1,4,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36235,1,4,3)
DO NOT DELETE
"^DD",2,2,.36235,1,4,"%D",0)
^^2^2^2970630^^
"^DD",2,2,.36235,1,4,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.36235,1,4,"%D",2,0)
record.
"^DD",2,2,.36235,1,4,"DT")
2970630
"^DD",2,2,.36235,3)
Is this patient receiving a VA pension?
"^DD",2,2,.36235,20,0)
^.3LA^1^1
"^DD",2,2,.36235,20,1,0)
MB
"^DD",2,2,.36235,21,0)
^^6^6^3110525^
"^DD",2,2,.36235,21,1,0)
For this veteran applicant enter 'Y' if s/he is in receipt of a pension
"^DD",2,2,.36235,21,2,0)
from the Dept of Veterans Affairs, 'N' if not, or 'U' if unknown. 
"^DD",2,2,.36235,21,3,0)
Answering "yes" will prompt you to enter a Pension Award Effective Date 
"^DD",2,2,.36235,21,4,0)
and Pension Award Reason. Once monetary benefits have been verified
"^DD",2,2,.36235,21,5,0)
only users holding the designated security key may enter/edit
"^DD",2,2,.36235,21,6,0)
this field.
"^DD",2,2,.36235,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36235,"DT")
3110818
"^DD",2,2,.3624,0)
AMOUNT OF VA PENSION^NJ10,2X^^.362;4^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>9999
9)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.3624,9.3)
"^DD",2,2,.3624,.1)
VA PENSION AMOUNT
"^DD",2,2,.3624,3)
If this applicant is receiving a VA pension enter the dollar amount received per
 year.
"^DD",2,2,.3624,5,1,0)
2^.36235^1
"^DD",2,2,.3624,9.2)
I $D(^DPT(DA,.362)),$P(^(.362),U,14)="Y" W !?4,*7,"Delete by answering 'ARE YOU 
RECEIVING A VA PENSION' prompt NO." K X
"^DD",2,2,.3624,9.3)
X ^DD(2,.3624,9.4) I $D(X),$D(^DPT(DFN,.3)),$P(^(.3),U,3)]"" W !?4,*7,"Already r
eceiving Disability payment monies...Can't receive both!!" K X Q
"^DD",2,2,.3624,9.4)
I $D(^DPT(DFN,.362)),$P(^(.362),U,14)'="Y" W !?4,*7,"Receipt of VA Pension benef
its not indicated." K X Q
"^DD",2,2,.3624,20,0)
^.3LA^1^1
"^DD",2,2,.3624,20,1,0)
MB
"^DD",2,2,.3624,21,0)
^^9^9^2890613^^^^
"^DD",2,2,.3624,21,1,0)
For this veteran applicant who is in receipt of a pension from the
"^DD",2,2,.3624,21,2,0)
Dept of Veterans Affairs (ARE YOU RECEIVING A VA PENSION prompt must
"^DD",2,2,.3624,21,3,0)
be answered YES) enter the amount received [a number between 0-99999].
"^DD",2,2,.3624,21,4,0)
Once monetary benefits are verified only users who hold the designated
"^DD",2,2,.3624,21,5,0)
security key may enter/edit this field.  This field may not be deleted
"^DD",2,2,.3624,21,6,0)
as long as receipt of VA pension is indicated.
"^DD",2,2,.3624,21,7,0)
  
"^DD",2,2,.3624,21,8,0)
If you wish to enter a monthly amount either precede or follow it with
"^DD",2,2,.3624,21,9,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3624,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.3624,9.2):$D(X) I '$D(X)
"^DD",2,2,.3624,"DT")
2880923
"^DD",2,2,.3625,0)
*AMOUNT OF MILITARY RETIREMENT^NJ10,2X^^.362;5^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2
N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^
(.362),U,16)'="Y" W !?4,*7,"Not in receipt of Military Retirement benefits." K X
"^DD",2,2,.3625,.1)
MILT. RETIREMENT PAY AMOUNT
"^DD",2,2,.3625,3)
If this applicant is receiving military retirement enter the dollar amount recei
ved per year.
"^DD",2,2,.3625,5,1,0)
2^.36255^1
"^DD",2,2,.3625,9.2)
I $D(^DPT(DA,.362)),$P(^(.362),U,14)="Y" W !?4,*7,"Delete by answering 'IN RECEI
PT OF MILITARY RETIREMENT' prompt NO." K X
"^DD",2,2,.3625,20,0)
^.3LA^1^1
"^DD",2,2,.3625,20,1,0)
MB
"^DD",2,2,.3625,21,0)
^^9^9^2880923^^^^
"^DD",2,2,.3625,21,1,0)
For this veteran who is in receipt of military retirement (IN RECEIPT
"^DD",2,2,.3625,21,2,0)
OF MILIT RETIREMENT prompt must be answered YES) enter the amount
"^DD",2,2,.3625,21,3,0)
received [a number between 0-99999].  Once monetary benefits are
"^DD",2,2,.3625,21,4,0)
verified only users who hold the designated security key may enter/edit
"^DD",2,2,.3625,21,5,0)
this field.  This field cannot be deleted as long as receipt of military
"^DD",2,2,.3625,21,6,0)
retirement is indicated.
"^DD",2,2,.3625,21,7,0)
  
"^DD",2,2,.3625,21,8,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.3625,21,9,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3625,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.3625,9.2):$D(X) I '$D(X)
"^DD",2,2,.3625,"DT")
2880923
"^DD",2,2,.36255,0)
RECEIVING MILITARY RETIREMENT?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;16^S DFN=DA D MV^DG
LOCK Q
"^DD",2,2,.36255,1,0)
^.1
"^DD",2,2,.36255,1,1,0)
^^TRIGGER^2^.3625
"^DD",2,2,.36255,1,1,1)
X ^DD(2,.36255,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2,.36255,1,1,1.4)
"^DD",2,2,.36255,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36255,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.36255,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99
))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.362)=$P(DIH,U,1,4)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3625 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36255,1,1,2)
X ^DD(2,.36255,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2,.36255,1,1,2.4)
"^DD",2,2,.36255,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36255,0)):$P(^
(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(
Y(1),U,16)_":",2),$C(59),1)=""
"^DD",2,2,.36255,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99
))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.362)=$P(DIH,U,1,4)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3625 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36255,1,1,"CREATE CONDITION")
#.36255="NO"
"^DD",2,2,.36255,1,1,"CREATE VALUE")
@
"^DD",2,2,.36255,1,1,"DELETE CONDITION")
#.36255=""
"^DD",2,2,.36255,1,1,"DELETE VALUE")
@
"^DD",2,2,.36255,1,1,"FIELD")
#.3625
"^DD",2,2,.36255,3)
Is this patient receiving military retirement?
"^DD",2,2,.36255,20,0)
^.3LA^1^1
"^DD",2,2,.36255,20,1,0)
MB
"^DD",2,2,.36255,21,0)
^^4^4^2861006^
"^DD",2,2,.36255,21,1,0)
For this veteran applicant enter 'Y' if s/he receives a military
"^DD",2,2,.36255,21,2,0)
retirement, 'N' if not, or 'U' if unknown.  Once monetary benefits have
"^DD",2,2,.36255,21,3,0)
been verified only users who hold the designated security key may
"^DD",2,2,.36255,21,4,0)
enter/edit this field.
"^DD",2,2,.36255,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36255,"DT")
2860806
"^DD",2,2,.3626,0)
AMOUNT OF GI INSURANCE^NJ8,2X^^.362;6^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>999
999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U
,17)'="Y" W !?4,*7,"Applicant doesn't have GI Insurance." K X
"^DD",2,2,.3626,.1)
GI INSURANCE AMOUNT
"^DD",2,2,.3626,3)
If this applicant does have GI Insurance enter the amount for which insured.
"^DD",2,2,.3626,5,1,0)
2^.36265^1
"^DD",2,2,.3626,9.2)
I $D(^DPT(DA,.362)),$P(^(.362),U,17)="Y" W !?4,*7,"Delete by answering 'DO YOU H
AVE GI INSURANCE' prompt NO." K X
"^DD",2,2,.3626,20,0)
^.3LA^1^1
"^DD",2,2,.3626,20,1,0)
MB
"^DD",2,2,.3626,21,0)
^^9^9^2880923^^^
"^DD",2,2,.3626,21,1,0)
For this veteran applicant who does have GI insurance (DO YOU HAVE GI
"^DD",2,2,.3626,21,2,0)
INSURANCE prompt must be answered YES) enter the amount received [a
"^DD",2,2,.3626,21,3,0)
number between 1 and 999999].  Once monetary benefits are verified only
"^DD",2,2,.3626,21,4,0)
users who hold the designated security key may enter/edit this field.
"^DD",2,2,.3626,21,5,0)
This field cannot be deleted as long as the veteran is identified as
"^DD",2,2,.3626,21,6,0)
holding GI insurance.
"^DD",2,2,.3626,21,7,0)
  
"^DD",2,2,.3626,21,8,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.3626,21,9,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3626,"DEL",1,0)
S DFN=DA D MV^DGLOCK X ^DD(2,.3626,9.2):$D(X) I '$D(X)
"^DD",2,2,.3626,"DT")
2880923
"^DD",2,2,.36265,0)
GI INSURANCE POLICY?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;17^S DFN=DA D MV^DGLOCK Q
"^DD",2,2,.36265,.1)
DO YOU HAVE GI INSURANCE?
"^DD",2,2,.36265,1,0)
^.1
"^DD",2,2,.36265,1,1,0)
^^TRIGGER^2^.3626
"^DD",2,2,.36265,1,1,1)
X ^DD(2,.36265,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(2,.36265,1,1,1.4)
"^DD",2,2,.36265,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36265,0)):$P(^
(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.36265,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99
))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.362)=$P(DIH,U,1,5)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3626 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36265,1,1,2)
X ^DD(2,.36265,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S 
X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(2,.36265,1,1,2.4)
"^DD",2,2,.36265,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36265,0)):$P(^
(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P($P(Y(2),$C(59)_$P(
Y(1),U,17)_":",2),$C(59),1)=""
"^DD",2,2,.36265,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99
))  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.362)=$P(DIH,U,1,5)_U_DIV
_$S(%]"":U_%,1:""),DIH=2,DIG=.3626 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,.36265,1,1,"CREATE CONDITION")
#.36265="NO"
"^DD",2,2,.36265,1,1,"CREATE VALUE")
@
"^DD",2,2,.36265,1,1,"DELETE CONDITION")
#.36265=""
"^DD",2,2,.36265,1,1,"DELETE VALUE")
@
"^DD",2,2,.36265,1,1,"FIELD")
#.3626
"^DD",2,2,.36265,3)
Does this applicant have a GI Insurance policy?
"^DD",2,2,.36265,20,0)
^.3LA^1^1
"^DD",2,2,.36265,20,1,0)
MB
"^DD",2,2,.36265,21,0)
^^3^3^2861006^
"^DD",2,2,.36265,21,1,0)
For this veteran applicant enter 'Y' if s/he has GI insurance, 'N' if not,
"^DD",2,2,.36265,21,2,0)
or 'U' if unknown.  Once monetary benefits have been verified only users
"^DD",2,2,.36265,21,3,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.36265,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36265,"DT")
2860806
"^DD",2,2,.3627,0)
AMOUNT OF SSI^NJ8,2X^^.362;7^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<1)
 X I $D(X) S DFN=DA D MV^DGLOCK
"^DD",2,2,.3627,.1)
SUPPLEMENTAL SOCIAL SECURITY AMOUNT
"^DD",2,2,.3627,3)
If this applicant is receiving Supplemental Security Income (SSI) enter the doll
ar amount received per year.
"^DD",2,2,.3627,20,0)
^.3LA^1^1
"^DD",2,2,.3627,20,1,0)
MB
"^DD",2,2,.3627,21,0)
^^7^7^2880923^^
"^DD",2,2,.3627,21,1,0)
For this veteran applicant enter the dollar amount of social security
"^DD",2,2,.3627,21,2,0)
insurance s/he receives [a number between 1-99999].  Leave blank if
"^DD",2,2,.3627,21,3,0)
none received.  Once monetary benefits have been verified only users
"^DD",2,2,.3627,21,4,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.3627,21,5,0)
  
"^DD",2,2,.3627,21,6,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.3627,21,7,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3627,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.3627,"DT")
2880923
"^DD",2,2,.36275,0)
RECEIVING SUP. SECURITY (SSI)?^S^Y:YES;N:NO;U:UNKNOWN;^.362;19^Q
"^DD",2,2,.36275,.1)
IN RECEIPT OF SSI?
"^DD",2,2,.36275,3)
Does this patient receive Supplemental Security Income (SSI)?
"^DD",2,2,.36275,20,0)
^.3LA^1^1
"^DD",2,2,.36275,20,1,0)
MB
"^DD",2,2,.36275,21,0)
^^4^4^2911216^^
"^DD",2,2,.36275,21,1,0)
This field contains a yes or no reponse indicating whether this patient
"^DD",2,2,.36275,21,2,0)
receives supplemental social security insurance.  This field is being *'d
"^DD",2,2,.36275,21,3,0)
for deletion and will be removed in a future release of MAS.  This data
"^DD",2,2,.36275,21,4,0)
is no longer updated by the MAS package.
"^DD",2,2,.36275,"DT")
2880601
"^DD",2,2,.3628,0)
AMOUNT OF OTHER RETIREMENT^NJ8,2X^^.362;8^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X
>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK
"^DD",2,2,.3628,.1)
OTHER RETIREMENT AMOUNT
"^DD",2,2,.3628,3)
If this patient receives retirment from another source enter the dollar amount r
eceived per year.
"^DD",2,2,.3628,20,0)
^.3LA^1^1
"^DD",2,2,.3628,20,1,0)
MB
"^DD",2,2,.3628,21,0)
^^7^7^2940121^^^^
"^DD",2,2,.3628,21,1,0)
For this veteran applicant enter the amount of other retirement s/he
"^DD",2,2,.3628,21,2,0)
is in receipt of [a number between 1-99999].  Leave blank if none
"^DD",2,2,.3628,21,3,0)
received.  Once monetary benefits have been verified only users who
"^DD",2,2,.3628,21,4,0)
hold the designated security key may enter/edit this field.
"^DD",2,2,.3628,21,5,0)
  
"^DD",2,2,.3628,21,6,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.3628,21,7,0)
an asterisk and I'll multiple it out for you.
"^DD",2,2,.3628,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.3628,"DT")
2880923
"^DD",2,2,.36285,0)
TYPE OF OTHER RETIREMENT^SX^B:BLACK LUNG;M:MILITARY;C:CIVIL;R:RAILROAD;O:OTHER;X
:COMBINATIONS OF TYPES;^.362;18^S DFN=DA D MV^DGLOCK Q
"^DD",2,2,.36285,3)
If this patient receives retirement from another source choose from the availabl
e listing the source of that retirement.
"^DD",2,2,.36285,20,0)
^.3LA^1^1
"^DD",2,2,.36285,20,1,0)
MB
"^DD",2,2,.36285,21,0)
^^4^4^2861006^
"^DD",2,2,.36285,21,1,0)
For this veteran applicant choose from the available list the type
"^DD",2,2,.36285,21,2,0)
of other retirement s/he is in receipt of, if any.  Once monetary
"^DD",2,2,.36285,21,3,0)
benefits have been verified only users who hold the designated
"^DD",2,2,.36285,21,4,0)
security key may enter/edit this field.
"^DD",2,2,.36285,"DEL",1,0)
S DFN=DA D MV^DGLOCK I '$D(X)
"^DD",2,2,.36285,"DT")
2860728
"^DD",2,2,.3629,0)
AMOUNT OF OTHER INCOME^NJ8,2X^^.362;9^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>999
999)!(X<1) X
"^DD",2,2,.3629,.1)
OTHER PERSONAL INCOME
"^DD",2,2,.3629,3)
If applicable, enter the dollar amount of other income received per year.
"^DD",2,2,.3629,20,0)
^.3LA^1^1
"^DD",2,2,.3629,20,1,0)
MB
"^DD",2,2,.3629,21,0)
^^7^7^2911112^^^
"^DD",2,2,.3629,21,1,0)
For this veteran applicant enter the amount of other personal income
"^DD",2,2,.3629,21,2,0)
s/he is in receipt of [a number between 1-999999].  Leave blank if
"^DD",2,2,.3629,21,3,0)
none.  Once monetary benefits have been verified only users who hold
"^DD",2,2,.3629,21,4,0)
the designated security key may enter/edit this field.
"^DD",2,2,.3629,21,5,0)
  
"^DD",2,2,.3629,21,6,0)
If you wish to enter a monthly amount either preceed or follow it with
"^DD",2,2,.3629,21,7,0)
an asterisk and I'll multiply it out for you.
"^DD",2,2,.3629,"DT")
2880923
"^DD",2,2,.36295,0)
TOTAL ANNUAL VA CHECK AMOUNT^NJ8,2X^^.362;20^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)
!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),('$$TOTCHK^DGLOCK2(DFN))
 D TOTCKMSG^DGLOCK2 K X
"^DD",2,2,.36295,.1)
AMOUNT OF TOTAL ANNUAL VA CHECKS
"^DD",2,2,.36295,1,0)
^.1
"^DD",2,2,.36295,1,1,0)
2^AQ^MUMPS
"^DD",2,2,.36295,1,1,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.36295,1,1,2)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.36295,1,1,"%D",0)
^^2^2^2970829^^^^
"^DD",2,2,.36295,1,1,"%D",1,0)
This cross-reference is used to determine whether or
"^DD",2,2,.36295,1,1,"%D",2,0)
not a means test is required.
"^DD",2,2,.36295,1,1,"DT")
2970319
"^DD",2,2,.36295,1,2,0)
2^AENR36295^MUMPS
"^DD",2,2,.36295,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36295,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.36295,1,2,3)
DO NOT DELETE
"^DD",2,2,.36295,1,2,"%D",0)
^^2^2^2970902^
"^DD",2,2,.36295,1,2,"%D",1,0)
This cross-reference is used to update the patient's current
"^DD",2,2,.36295,1,2,"%D",2,0)
Patient Enrollment record.
"^DD",2,2,.36295,1,2,"DT")
2970902
"^DD",2,2,.36295,3)
Enter the total annual VA Check amount for A&A, Housebound, Pension, and Disabil
ity.
"^DD",2,2,.36295,5,1,0)
2^.36205^3
"^DD",2,2,.36295,5,2,0)
2^.36215^3
"^DD",2,2,.36295,5,3,0)
2^.36235^3
"^DD",2,2,.36295,5,4,0)
2^.3025^2
"^DD",2,2,.36295,20,0)
^.3LA^1^1
"^DD",2,2,.36295,20,1,0)
MB
"^DD",2,2,.36295,21,0)
^^9^9^2970328^^^^
"^DD",2,2,.36295,21,1,0)
If this applicant is receiving A&A, Housebound, Pension, and/or
"^DD",2,2,.36295,21,2,0)
Disability payments from the VA (at least one of the YES/NO questions
"^DD",2,2,.36295,21,3,0)
relating to the above must be answered YES), enter the annual amount
"^DD",2,2,.36295,21,4,0)
received (0-99999).  Once monetary benefits are verified, only users who
"^DD",2,2,.36295,21,5,0)
hold the designated security key may enter/edit this field.  This field
"^DD",2,2,.36295,21,6,0)
may not be deleted as long as recipt of VA funds is indicated by one of
"^DD",2,2,.36295,21,7,0)
the four fields related to A&A, Housebound, Pension, and Disability.  If
"^DD",2,2,.36295,21,8,0)
you wish to enter a monthly amount either precede or follow it with an
"^DD",2,2,.36295,21,9,0)
asterisk and I'll multiply it out for you.
"^DD",2,2,.36295,23,0)
^^2^2^2970328^^^^
"^DD",2,2,.36295,23,1,0)
Contains the total annual benefit amount for A&A, Housebound, Pension and
"^DD",2,2,.36295,23,2,0)
Disabilty.  
"^DD",2,2,.36295,"DEL",1,0)
S DFN=DA D MV^DGLOCK D:$D(X) TOTCKDEL^DGLOCK2 I '$D(X)
"^DD",2,2,.36295,"DT")
2970902
"^DD",2,2,.363,0)
PRIMARY LONG ID^F^^.36;3^K:$L(X)>15!($L(X)<1) X
"^DD",2,2,.363,1,0)
^.1
"^DD",2,2,.363,1,391,0)
2^AHL7^MUMPS
"^DD",2,2,.363,1,391,1)
N NX,REG,VAFHDFN S VAFHDFN=DA,NX=X,X="VAFHDD" X ^%ZOSF("TEST") I $T S REG=$$EN^V
AFHREG() D:REG=0 SET^VAFHUTL2 S X=NX,DA=VAFHDFN
"^DD",2,2,.363,1,391,2)
N NX,REG,VAFHDFN S VAFHDFN=DA,NX=X,X="VAFHDD" X ^%ZOSF("TEST") I $T S REG=$$EN^V
AFHREG() D:REG=0 KILL^VAFHUTL2(DA,NX) S:REG'=0 VAFHMRG="",VAFHBEF=NX S X=NX,DA=V
AFHDFN
"^DD",2,2,.363,1,391,"%D",0)
^^3^3^2960624^^^
"^DD",2,2,.363,1,391,"%D",1,0)
This x-ref is used to catch changes to the Primary Long ID
"^DD",2,2,.363,1,391,"%D",2,0)
It will cause an A34 (Merge) HL7 message to be fired.
"^DD",2,2,.363,1,391,"%D",3,0)
The A34 message will not be generated during patient registration.
"^DD",2,2,.363,1,391,"DT")
2960603
"^DD",2,2,.363,3)
Answer must be 1-15 characters in length.
"^DD",2,2,.363,5,1,0)
2.0361^.03^3
"^DD",2,2,.363,9)
^
"^DD",2,2,.363,21,0)
^^7^7^2911214^^^^
"^DD",2,2,.363,21,1,0)
This field contains the patient's long ID associated with
"^DD",2,2,.363,21,2,0)
the patient's PRIMARY ELIGIBILITY CODE.  For most patients
"^DD",2,2,.363,21,3,0)
this is the Social Security Number.
"^DD",2,2,.363,21,4,0)
 
"^DD",2,2,.363,21,5,0)
No user input is needed for this field. It is automatically
"^DD",2,2,.363,21,6,0)
updated when the PRIMARY ELIGIBILITY CODE field is entered
"^DD",2,2,.363,21,7,0)
and edited.
"^DD",2,2,.363,"DT")
2960603
"^DD",2,2,.364,0)
PRIMARY SHORT ID^F^^.36;4^K:$L(X)>7!($L(X)<1) X
"^DD",2,2,.364,3)
Answer must be 1-7 characters in length.
"^DD",2,2,.364,5,1,0)
2.0361^.04^3
"^DD",2,2,.364,9)
^
"^DD",2,2,.364,21,0)
^^7^7^2911205^^^
"^DD",2,2,.364,21,1,0)
This field contains the patient's short ID associated with
"^DD",2,2,.364,21,2,0)
the patient's PRIMARY ELIGIBILITY CODE.  For most patients
"^DD",2,2,.364,21,3,0)
this is the last four digits of the Social Security Number.
"^DD",2,2,.364,21,4,0)
 
"^DD",2,2,.364,21,5,0)
No user input is needed for this field. It is automatically
"^DD",2,2,.364,21,6,0)
updated when the PRIMARY ELIGIBILITY CODE field is entered
"^DD",2,2,.364,21,7,0)
and edited.
"^DD",2,2,.364,"DT")
2911004
"^DD",2,2,.368,0)
SERVICE DENTAL INJURY?^S^Y:YES;N:NO;^.36;8^Q
"^DD",2,2,.368,.1)
DENTAL INJURY IN SERVICE
"^DD",2,2,.368,3)
Did this patient incur a dental injury while serving in the military?
"^DD",2,2,.368,20,0)
^.3LA^1^1
"^DD",2,2,.368,20,1,0)
SVC
"^DD",2,2,.368,21,0)
^^4^4^2861006^
"^DD",2,2,.368,21,1,0)
For this veteran applicant enter 'Y' if a dental injury was incurred
"^DD",2,2,.368,21,2,0)
while serving in the U.S. Armed Forces, or 'N' if not.  Once the
"^DD",2,2,.368,21,3,0)
service record is verified only users who hold the designated security
"^DD",2,2,.368,21,4,0)
key may enter/edit this field.
"^DD",2,2,.369,0)
SERVICE TEETH EXTRACTED?^S^Y:YES;N:NO;^.36;9^Q
"^DD",2,2,.369,.1)
TEETH EXTRACTED IN SERVICE
"^DD",2,2,.369,3)
Did this patient have teeth extracted while in military service?
"^DD",2,2,.369,20,0)
^.3LA^1^1
"^DD",2,2,.369,20,1,0)
SVC
"^DD",2,2,.369,21,0)
^^4^4^2861006^
"^DD",2,2,.369,21,1,0)
For this veteran applicant enter 'Y' if teeth were extracted while
"^DD",2,2,.369,21,2,0)
serving in the U.S. Armed Forces, or 'N' if not.  Once the service
"^DD",2,2,.369,21,3,0)
record is verified only users who hold the designated security key
"^DD",2,2,.369,21,4,0)
may enter/edit this field.
"^DD",2,2,.37,0)
DATE OF DENTAL TREATMENT^2.11D^^.37;0
"^DD",2,2,.37,3)
If this patient had a dental injury or teeth extracted while in service enter th
e date(s) of treatment.
"^DD",2,2,.37,20,0)
^.3LA^1^1
"^DD",2,2,.37,20,1,0)
SVC
"^DD",2,2,.37,21,0)
^^6^6^2861007^^
"^DD",2,2,.37,21,1,0)
For this veteran applicant who either incurred a dental injury
"^DD",2,2,.37,21,2,0)
(DENTAL INJURY IN SERVICE prompt must be answered YES) or had
"^DD",2,2,.37,21,3,0)
teeth extracted (TEETH EXTRACTED IN SERVICE prompt must be answered
"^DD",2,2,.37,21,4,0)
YES) while serving in the U.S. Armed Forces enter the date of dental
"^DD",2,2,.37,21,5,0)
treatment received.  Once the service record is verified only users
"^DD",2,2,.37,21,6,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.3721,0)
RATED DISABILITIES (VA)^2.04P^^.372;0
"^DD",2,2,.3721,3)
Choose from the available listing those disabilities fro which this patient has 
been rated by the VA.
"^DD",2,2,.3721,20,0)
^.3LA^1^1
"^DD",2,2,.3721,20,1,0)
DIS1
"^DD",2,2,.3721,21,0)
^^3^3^3051129^
"^DD",2,2,.3721,21,1,0)
From the available listing choose and enter conditions for which the
"^DD",2,2,.3721,21,2,0)
applicant has been verified as being service connected.  Only users who
"^DD",2,2,.3721,21,3,0)
hold the designated security key may enter/edit this field.
"^DD",2,2,.3731,0)
SERVICE CONNECTED CONDITIONS^2.05A^^.373;0
"^DD",2,2,.3731,3)
Enter those conditions [1-30 characters] for which patient claims service connec
tion.
"^DD",2,2,.3731,20,0)
^.3LA^1^1
"^DD",2,2,.3731,20,1,0)
DIS1
"^DD",2,2,.3731,21,0)
^^2^2^2911214^^^
"^DD",2,2,.3731,21,1,0)
Enter conditions as stated by applicant for which s/he claims service
"^DD",2,2,.3731,21,2,0)
connection [1-30 characters].
"^DD",2,2,.381,0)
ELIGIBLE FOR MEDICAID?^RS^1:YES;0:NO;^.38;1^Q
"^DD",2,2,.381,.1)
MEDICAID ELIGIBILE?
"^DD",2,2,.381,1,0)
^.1
"^DD",2,2,.381,1,1,0)
2^AMT^MUMPS
"^DD",2,2,.381,1,1,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.381,1,1,2)
Q
"^DD",2,2,.381,1,1,"%D",0)
^^2^2^2920720^^^^
"^DD",2,2,.381,1,1,"%D",1,0)
This cross-ref calls the means test software.  If answered yes, a means
"^DD",2,2,.381,1,1,"%D",2,0)
test is not required.
"^DD",2,2,.381,1,1,"DT")
2920720
"^DD",2,2,.381,1,2,0)
2^AENR381^MUMPS
"^DD",2,2,.381,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.381,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.381,1,2,3)
DO NOT DELETE
"^DD",2,2,.381,1,2,"%D",0)
^^2^2^2970715^
"^DD",2,2,.381,1,2,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.381,1,2,"%D",2,0)
record.
"^DD",2,2,.381,1,2,"DT")
2970715
"^DD",2,2,.381,3)
Is this patient eligible to receive medicaid coverage?
"^DD",2,2,.381,21,0)
^^2^2^2921006^^^^
"^DD",2,2,.381,21,1,0)
Enter yes if this patient is eligible to receive medicaid coverage.
"^DD",2,2,.381,21,2,0)
Otherwise, answer no.
"^DD",2,2,.381,23,0)
^^1^1^2921006^^^^
"^DD",2,2,.381,23,1,0)
If yes is answered to this question, a means test will NOT be required.
"^DD",2,2,.381,"DT")
2970715
"^DD",2,2,.382,0)
DATE MEDICAID LAST ASKED^RD^^.38;2^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.382,1,0)
^.1
"^DD",2,2,.382,1,1,0)
2^AENR382^MUMPS
"^DD",2,2,.382,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.382,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.382,1,1,3)
 DO NOT DELETE
"^DD",2,2,.382,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.382,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.382,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.382,1,1,"DT")
3050606
"^DD",2,2,.382,3)
Type a date indicating the date the 'ELIGIBLE FOR MEDICAID' question was last as
ked of this patient.
"^DD",2,2,.382,21,0)
^^7^7^2920518^^^
"^DD",2,2,.382,21,1,0)
Enter the date/time the 'ELIGIBLE FOR MEDICAID' question was last asked of
"^DD",2,2,.382,21,2,0)
this veteran.  This data must be asked on a yearly basis as it affects the
"^DD",2,2,.382,21,3,0)
requirement for a means test (a negative response results in a means test
"^DD",2,2,.382,21,4,0)
not being required).
"^DD",2,2,.382,21,5,0)
 
"^DD",2,2,.382,21,6,0)
This field will be stored automatically by the MAS module when editing
"^DD",2,2,.382,21,7,0)
data on registration or load/edit screen 7.  It will not appear for editing.
"^DD",2,2,.382,"DT")
2941208
"^DD",2,2,.383,0)
MEDICAID NUMBER^F^^.38;3^K:$L(X)>30!($L(X)<3) X
"^DD",2,2,.383,1,0)
^.1
"^DD",2,2,.383,1,992,0)
2^ADGRU383^MUMPS
"^DD",2,2,.383,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.383,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,.383,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,.383,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,.383,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,.383,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,.383,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,.383,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,.383,1,992,"%D",6,0)
interface.
"^DD",2,2,.383,1,992,"%D",7,0)
 
"^DD",2,2,.383,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,.383,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,.383,1,992,"DT")
2990921
"^DD",2,2,.383,3)
Enter the patient's assigned MEDICAID Number, must be 3-30 characters in length.
"^DD",2,2,.383,21,0)
^^1^1^2990811^^
"^DD",2,2,.383,21,1,0)
This is the patient's assigned MEDICAID number.
"^DD",2,2,.383,"DT")
2990921
"^DD",2,2,.3851,0)
PENSION AWARD EFFECTIVE DATE^DX^^.385;1^S %DT="EPX" D ^%DT S X=Y K:Y<1 X I $D(X)
 D H^DGUTL I $G(X)>0 S DFN=DA D DTCHK^DGRP7CP
"^DD",2,2,.3851,1,0)
^.1
"^DD",2,2,.3851,1,1,0)
2^AENR3851^MUMPS
"^DD",2,2,.3851,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3851,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3851,1,1,3)
DO NOT DELETE
"^DD",2,2,.3851,1,1,"%D",0)
^^15^15^3110516^
"^DD",2,2,.3851,1,1,"%D",1,0)
 This cross-reference is called in response
"^DD",2,2,.3851,1,1,"%D",2,0)
 to enrollment events to notify HEC of
"^DD",2,2,.3851,1,1,"%D",3,0)
 changes that may affect enrollment.  A call
"^DD",2,2,.3851,1,1,"%D",4,0)
 is made to the IVM Patient file to determine
"^DD",2,2,.3851,1,1,"%D",5,0)
 whether transmission is appropriate for this
"^DD",2,2,.3851,1,1,"%D",6,0)
 patient.  Executing this cross-reference
"^DD",2,2,.3851,1,1,"%D",7,0)
 will result in the following file and field
"^DD",2,2,.3851,1,1,"%D",8,0)
 changes:
"^DD",2,2,.3851,1,1,"%D",9,0)
 
"^DD",2,2,.3851,1,1,"%D",10,0)
 IVM PATIENT file (#301.5)
"^DD",2,2,.3851,1,1,"%D",11,0)
 Field: TRANSMISSION STATUS (#.03)
"^DD",2,2,.3851,1,1,"%D",12,0)
 Sets the value of the TRANSMISSION STATUS
"^DD",2,2,.3851,1,1,"%D",13,0)
 field of the IVM PATIENT file for a
"^DD",2,2,.3851,1,1,"%D",14,0)
 particular record to 0, meaning transmission
"^DD",2,2,.3851,1,1,"%D",15,0)
 is requested.
"^DD",2,2,.3851,1,1,"DT")
3110513
"^DD",2,2,.3851,3)
Enter the Original Effective Date that Pension Entitlement was awarded to the Ve
teran by VBA.
"^DD",2,2,.3851,21,0)
^^5^5^3110608^
"^DD",2,2,.3851,21,1,0)
It is the Effective Date that the patient was awarded VA Pension
"^DD",2,2,.3851,21,2,0)
Entitlement of Original Award by VBA. This field is optional. 
"^DD",2,2,.3851,21,3,0)
But if entered, must be a precise date (Month/Day/Year) 
"^DD",2,2,.3851,21,4,0)
(00/00/0000). This date cannot be a future date. This date
"^DD",2,2,.3851,21,5,0)
also cannot be before the veteran's 16th birthday.
"^DD",2,2,.3851,"DT")
3110517
"^DD",2,2,.3852,0)
PENSION AWARD REASON^*P27.18'X^DG(27.18,^.385;2^S:($G(X)]"")&(X'?1P.P) X=$$UPPER
^DGUTL(X) S X=$$LOWER^DGUTL(X) S DIC("S")="I $P($G(^(0)),U)[""Original Award""" 
D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,.3852,1,0)
^.1
"^DD",2,2,.3852,1,1,0)
2^AENR3852^MUMPS
"^DD",2,2,.3852,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3852,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3852,1,1,3)
DO NOT DELETE
"^DD",2,2,.3852,1,1,"%D",0)
^.101^2^2^3110513^^
"^DD",2,2,.3852,1,1,"%D",1,0)
This cross-reference is used to notify HEC of
"^DD",2,2,.3852,1,1,"%D",2,0)
changes that may affect enrollment.
"^DD",2,2,.3852,1,1,"DT")
3110513
"^DD",2,2,.3852,3)
Select the Pension Award Reason.
"^DD",2,2,.3852,12)
Only ORIGINAL AWARD can be entered.
"^DD",2,2,.3852,12.1)
S DIC("S")="I $P($G(^(0)),U)[""Original Award"""
"^DD",2,2,.3852,21,0)
^^5^5^3110917^
"^DD",2,2,.3852,21,1,0)
Enter the Pension Award Reason only if VA Pension (#.36235) field
"^DD",2,2,.3852,21,2,0)
is equal to "Yes". VistA users are only allowed to enter a 
"^DD",2,2,.3852,21,3,0)
Pension Award Reason of "Original Award" (106).  This field is
"^DD",2,2,.3852,21,4,0)
optional.  If Pension Award Reason is entered, an Award Date
"^DD",2,2,.3852,21,5,0)
must be entered.
"^DD",2,2,.3852,"DT")
3110918
"^DD",2,2,.3853,0)
PENSION TERMINATED DATE^D^^.385;3^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.3853,3)
When was the Pension Terminated?
"^DD",2,2,.3853,21,0)
^.001^2^2^3110601^^
"^DD",2,2,.3853,21,1,0)
The date that the Pension was terminated.
"^DD",2,2,.3853,21,2,0)
The Pension Terminated Date is not editable.
"^DD",2,2,.3853,"DT")
3110419
"^DD",2,2,.3854,0)
PENSION TERMINATED REASON 1^P27.18'^DG(27.18,^.385;4^Q
"^DD",2,2,.3854,3)
What is the first Pension Terminated Reason?
"^DD",2,2,.3854,21,0)
^^2^2^3110601^
"^DD",2,2,.3854,21,1,0)
The first Reason for the Pension Termination.
"^DD",2,2,.3854,21,2,0)
This field is not editable. 
"^DD",2,2,.3854,"DT")
3110510
"^DD",2,2,.3855,0)
PENSION TERMINATED REASON 2^P27.18'^DG(27.18,^.385;5^Q
"^DD",2,2,.3855,3)
What is the second Pension Terminated Reason?
"^DD",2,2,.3855,21,0)
^^2^2^3110601^
"^DD",2,2,.3855,21,1,0)
The second Reason for the Pension Termination.
"^DD",2,2,.3855,21,2,0)
This field is not editable.
"^DD",2,2,.3855,"DT")
3110510
"^DD",2,2,.3856,0)
PENSION TERMINATED REASON 3^P27.18'^DG(27.18,^.385;6^Q
"^DD",2,2,.3856,3)
What is the third Pension Terminated Reason?
"^DD",2,2,.3856,21,0)
^^2^2^3110601^
"^DD",2,2,.3856,21,1,0)
The third Reason for the Pension Termination.
"^DD",2,2,.3856,21,2,0)
This field is not editable.
"^DD",2,2,.3856,"DT")
3110510
"^DD",2,2,.3857,0)
PENSION TERMINATED REASON 4^P27.18'^DG(27.18,^.385;7^Q
"^DD",2,2,.3857,3)
What is the fourth Pension Terminated Reason?
"^DD",2,2,.3857,21,0)
^^2^2^3110601^
"^DD",2,2,.3857,21,1,0)
The fourth Reason for the Pension Termination.
"^DD",2,2,.3857,21,2,0)
This field is not editable.
"^DD",2,2,.3857,"DT")
3110510
"^DD",2,2,.3858,0)
CLASS II DENTAL INDICATOR^S^Y:YES;N:NO;^.385;8^Q
"^DD",2,2,.3858,3)
Enter the Class II Dental Indicator as described in the VBA Military Service dat
a.
"^DD",2,2,.3858,21,0)
^^10^10^3110531^
"^DD",2,2,.3858,21,1,0)
Class II Dental Indication is for Veterans
"^DD",2,2,.3858,21,2,0)
having a SC non-compensable dental
"^DD",2,2,.3858,21,3,0)
condition(s) or disability shown to have been
"^DD",2,2,.3858,21,4,0)
in existence at the time of discharge or
"^DD",2,2,.3858,21,5,0)
release from active duty (after September
"^DD",2,2,.3858,21,6,0)
30, 1981).  Treatment may be authorized, as
"^DD",2,2,.3858,21,7,0)
reasonably necessary, for a one-time
"^DD",2,2,.3858,21,8,0)
correction of the SC non-compensable
"^DD",2,2,.3858,21,9,0)
condition under certain conditions
"^DD",2,2,.3858,21,10,0)
(38 CFR § 17.16).
"^DD",2,2,.3858,"DT")
3110419
"^DD",2,2,.3859,0)
DENTAL APPL DUE BEFORE DATE^D^^.385;9^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.3859,3)
Enter the Dental Application Due Before date as described in the VBA Military Se
rvice data.
"^DD",2,2,.3859,21,0)
^^3^3^3110531^
"^DD",2,2,.3859,21,1,0)
An application for Class II Dental treatment
"^DD",2,2,.3859,21,2,0)
must be made within 180 days after discharge
"^DD",2,2,.3859,21,3,0)
or release (38 CFR § 17.160).
"^DD",2,2,.3859,"DT")
3110419
"^DD",2,2,.386,0)
PENSION INDICATOR LOCK^S^Y:YES;N:NO;^.385;10^Q
"^DD",2,2,.386,.1)
PENSION INDICATOR LOCKED BY ESR
"^DD",2,2,.386,3)
Is the Pension Indicator field locked by ESR?
"^DD",2,2,.386,21,0)
^.001^7^7^3110608^^
"^DD",2,2,.386,21,1,0)
This field is used to restrict the site's
"^DD",2,2,.386,21,2,0)
ability to edit the Pension Indicator field
"^DD",2,2,.386,21,3,0)
'RECEIVING A VA PENSION?'(#.36253) field. Once
"^DD",2,2,.386,21,4,0)
an incoming message is received from ESR with
"^DD",2,2,.386,21,5,0)
any Pension Data, the Pension Indicator field
"^DD",2,2,.386,21,6,0)
becomes 'display only' and is not editable
"^DD",2,2,.386,21,7,0)
by the VistA user.
"^DD",2,2,.386,"DT")
3110505
"^DD",2,2,.3861,0)
PENSION AWARD LOCK^S^Y:YES;N:NO;^.385;11^Q
"^DD",2,2,.3861,.1)
PENSION AWARD FIELDS LOCKED BY ESR
"^DD",2,2,.3861,3)
Are the Pension Award fields locked by ESR?
"^DD",2,2,.3861,21,0)
^.001^14^14^3110608^^
"^DD",2,2,.3861,21,1,0)
This field is used to restrict the site's
"^DD",2,2,.3861,21,2,0)
ability to edit the Pension Award fields
"^DD",2,2,.3861,21,3,0)
'PENSION AWARD EFFECTIVE DATE'(#.3851) field
"^DD",2,2,.3861,21,4,0)
and 'PENSION AWARD REASON'(#.3852) field.
"^DD",2,2,.3861,21,5,0)
Once an incoming message is received from ESR
"^DD",2,2,.3861,21,6,0)
with a 'PENSION AWARD EFFECTIVE DATE'(#.3851)
"^DD",2,2,.3861,21,7,0)
field and with a 'PENSION AWARD REASON'
"^DD",2,2,.3861,21,8,0)
(#.3852) field of 'ORIGINAL AWARD', or with
"^DD",2,2,.3861,21,9,0)
a 'PENSION TERMINATED REASON'(#.3854,#.3855,
"^DD",2,2,.3861,21,10,0)
#.3856 or #.3857) field that does not have a
"^DD",2,2,.3861,21,11,0)
NULL value, then the 'PENSION AWARD EFFECTIVE
"^DD",2,2,.3861,21,12,0)
DATE' (#.3851) field and 'PENSION AWARD
"^DD",2,2,.3861,21,13,0)
REASON' (#.3852) field become 'display only'
"^DD",2,2,.3861,21,14,0)
and are not editable by the VistA user.
"^DD",2,2,.3861,"DT")
3110505
"^DD",2,2,.39,0)
VETERAN CATASTROPHICALLY DISABLED?^S^Y:YES;N:NO;^.39;6^Q
"^DD",2,2,.39,1,0)
^.1
"^DD",2,2,.39,1,1,0)
2^VCD^MUMPS
"^DD",2,2,.39,1,1,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.39,1,1,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.39,1,1,"%D",0)
^.101^2^2^3110301^^
"^DD",2,2,.39,1,1,"%D",1,0)
This cross-reference is used to auto-update the patients
"^DD",2,2,.39,1,1,"%D",2,0)
PATIENT ENROLLMENT (#27.11) record.
"^DD",2,2,.39,1,1,"DT")
2990618
"^DD",2,2,.39,1,2,0)
2^AVCDMT^MUMPS
"^DD",2,2,.39,1,2,1)
N DFN,DGMT,DGNOCOPF,DGREQF,DGWRT,IVMZ10F S DFN=DA D EN^DGMTR
"^DD",2,2,.39,1,2,2)
N DFN,DGMT,DGNOCOPF,DGREQF,DGWRT,IVMZ10F S DFN=DA D EN^DGMTR
"^DD",2,2,.39,1,2,"%D",0)
^^20^20^3110302^
"^DD",2,2,.39,1,2,"%D",1,0)
This cross-reference calls the Means Test software.
"^DD",2,2,.39,1,2,"%D",2,0)
If answered 'YES', then a Means Test is not
"^DD",2,2,.39,1,2,"%D",3,0)
required and the Rx Copay is exempt.
"^DD",2,2,.39,1,2,"%D",4,0)
Executing this cross-reference will result in the
"^DD",2,2,.39,1,2,"%D",5,0)
following file and field changes:
"^DD",2,2,.39,1,2,"%D",6,0)
 
"^DD",2,2,.39,1,2,"%D",7,0)
ANNUAL MEANS TEST FILE (#408.31)
"^DD",2,2,.39,1,2,"%D",8,0)
  Field: STATUS (#.03)
"^DD",2,2,.39,1,2,"%D",9,0)
  When a veteran is determined to be Catastrophically Disabled, the STATUS
"^DD",2,2,.39,1,2,"%D",10,0)
field is set to NO LONGER APPLICABLE.
"^DD",2,2,.39,1,2,"%D",11,0)
  When a Catastrophically Disabled veteran is no longer determined to be
"^DD",2,2,.39,1,2,"%D",12,0)
Catastrophically Disabled, then the STATUS field is set to one of the
"^DD",2,2,.39,1,2,"%D",13,0)
sixteen possible Means Test statuses.
"^DD",2,2,.39,1,2,"%D",14,0)
 
"^DD",2,2,.39,1,2,"%D",15,0)
BILLING EXEMPTIONS FILE (#354.1)
"^DD",2,2,.39,1,2,"%D",16,0)
  Field: STATUS (#.04)
"^DD",2,2,.39,1,2,"%D",17,0)
  When a veteran is determined to be Catastrophically Disabled, the STATUS
"^DD",2,2,.39,1,2,"%D",18,0)
field is set to EXEMPT.
"^DD",2,2,.39,1,2,"%D",19,0)
  When a Catastrophically Disabled veteran is no longer determined to be
"^DD",2,2,.39,1,2,"%D",20,0)
Catastrophically Disabled, then the STATUS field is set to NON-EXEMPT.
"^DD",2,2,.39,1,2,"DT")
3110302
"^DD",2,2,.39,21,0)
^.001^2^2^3110301^^^^
"^DD",2,2,.39,21,1,0)
This field states whether or not the patient is a veteran who has been
"^DD",2,2,.39,21,2,0)
determined to meet the criteria for CATASTROPHICALLY DISABLED.
"^DD",2,2,.39,"DT")
3110302
"^DD",2,2,.391,0)
DECIDED BY^F^^.39;1^K:$L(X)>35!($L(X)<3) X
"^DD",2,2,.391,1,0)
^.1
"^DD",2,2,.391,1,1,0)
2^AENR391^MUMPS
"^DD",2,2,.391,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.391,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.391,1,1,3)
 DO NOT DELETE
"^DD",2,2,.391,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.391,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.391,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.391,1,1,"DT")
3050606
"^DD",2,2,.391,3)
Enter the name of the VA staff physician who made the decision that the patient 
was catastrophically disabled.
"^DD",2,2,.391,4)

"^DD",2,2,.391,21,0)
^^2^2^2970520^
"^DD",2,2,.391,21,1,0)
The name of the VA staff physician who made the determination that the patient
"^DD",2,2,.391,21,2,0)
was catastrophically disabled.
"^DD",2,2,.391,"DT")
2970520
"^DD",2,2,.392,0)
DATE OF DECISION^DX^^.39;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X K:($G(DT)&($G(X)>$G(D
T))) X
"^DD",2,2,.392,1,0)
^.1
"^DD",2,2,.392,1,1,0)
2^AENR392^MUMPS
"^DD",2,2,.392,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.392,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.392,1,1,3)
 DO NOT DELETE
"^DD",2,2,.392,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.392,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.392,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.392,1,1,"DT")
3050606
"^DD",2,2,.392,3)
Enter the date the decision was made.
"^DD",2,2,.392,21,0)
^^1^1^2970619^^
"^DD",2,2,.392,21,1,0)
The date the catastrophic disability determination was made.
"^DD",2,2,.392,"DT")
2970820
"^DD",2,2,.393,0)
FACILITY MAKING DETERMINATION^P4'^DIC(4,^.39;3^Q
"^DD",2,2,.393,1,0)
^.1
"^DD",2,2,.393,1,1,0)
2^AENR393^MUMPS
"^DD",2,2,.393,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.393,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.393,1,1,3)
 DO NOT DELETE
"^DD",2,2,.393,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.393,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.393,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.393,1,1,"DT")
3050606
"^DD",2,2,.393,3)
Enter the VAMC that made the catastrophic disability determination.
"^DD",2,2,.393,21,0)
^^1^1^2970520^
"^DD",2,2,.393,21,1,0)
The VAMC that made the catastrophic disability determination.
"^DD",2,2,.393,"DT")
2970520
"^DD",2,2,.394,0)
REVIEW DATE^D^^.39;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.394,1,0)
^.1
"^DD",2,2,.394,1,1,0)
2^AENR394^MUMPS
"^DD",2,2,.394,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.394,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.394,1,1,3)
 DO NOT DELETE
"^DD",2,2,.394,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.394,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.394,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.394,1,1,"DT")
3050606
"^DD",2,2,.394,3)
Enter the date the catastrophic disability determination was made.
"^DD",2,2,.394,21,0)
^^2^2^2990702^^^^
"^DD",2,2,.394,21,1,0)
The date that a review to determine Catastrophic Disability was made. 
"^DD",2,2,.394,21,2,0)
This review may be a medical record review or physical exam review.
"^DD",2,2,.394,"DT")
2970520
"^DD",2,2,.395,0)
METHOD OF DETERMINATION^S^2:MEDICAL RECORD REVIEW;3:PHYSICAL EXAMINATION;^.39;5^
Q
"^DD",2,2,.395,1,0)
^.1
"^DD",2,2,.395,1,1,0)
2^AENR395^MUMPS
"^DD",2,2,.395,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.395,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.395,1,1,3)
 DO NOT DELETE
"^DD",2,2,.395,1,1,"%D",0)
^.101^2^2^3050606^^^^
"^DD",2,2,.395,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.395,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.395,1,1,"DT")
3050606
"^DD",2,2,.395,21,0)
^^7^7^2990702^^^^
"^DD",2,2,.395,21,1,0)
Added in order to document the review method of how the decision
"^DD",2,2,.395,21,2,0)
to assign a CD status was determined.
"^DD",2,2,.395,21,3,0)
 
"^DD",2,2,.395,21,4,0)
Determination may be made by reviewing the veteran's medical record
"^DD",2,2,.395,21,5,0)
or by performing a physical examination of the veteran.
"^DD",2,2,.395,21,6,0)
In the future, the capability to fully automate the record review
"^DD",2,2,.395,21,7,0)
process will be added to the system.
"^DD",2,2,.395,"DT")
2990629
"^DD",2,2,.3951,0)
DATE VETERAN REQUESTED CD EVAL^D^^.39;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.3951,1,0)
^.1
"^DD",2,2,.3951,1,1,0)
2^AENR3951^MUMPS
"^DD",2,2,.3951,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3951,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3951,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3951,1,1,"%D",0)
^.101^2^2^3050930^^^^
"^DD",2,2,.3951,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3951,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3951,1,1,"DT")
3050930
"^DD",2,2,.3951,"DT")
3050930
"^DD",2,2,.3952,0)
DATE FACILITY INITIATED REVIEW^D^^.39;8^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.3952,1,0)
^.1
"^DD",2,2,.3952,1,1,0)
2^AENR3952^MUMPS
"^DD",2,2,.3952,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3952,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3952,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3952,1,1,"%D",0)
^.101^2^2^3050930^^^^
"^DD",2,2,.3952,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3952,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3952,1,1,"DT")
3050930
"^DD",2,2,.3952,"DT")
3050930
"^DD",2,2,.3953,0)
DATE VETERAN WAS NOTIFIED^D^^.39;9^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.3953,1,0)
^.1
"^DD",2,2,.3953,1,1,0)
2^AENR3953^MUMPS
"^DD",2,2,.3953,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3953,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.3953,1,1,3)
 DO NOT DELETE
"^DD",2,2,.3953,1,1,"%D",0)
^.101^2^2^3050930^^^^
"^DD",2,2,.3953,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.3953,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.3953,1,1,"DT")
3050930
"^DD",2,2,.3953,"DT")
3050930
"^DD",2,2,.396,0)
CD STATUS DIAGNOSES^2.396P^^.396;0
"^DD",2,2,.396,12)
Must point to a CD REASON that is a diagnosis.
"^DD",2,2,.396,12.1)
S DIC("S")="I $P(^DGEN(27.17,Y,0),U,2)=""D"""
"^DD",2,2,.397,0)
CD STATUS PROCEDURES^2.397P^^.397;0
"^DD",2,2,.397,12)
Must select a CD REASON that is a valid procedure.
"^DD",2,2,.397,12.1)
S DIC("S")="I $P(^DGEN(27.17,Y,0),U,2)=""P"""
"^DD",2,2,.397,21,0)
^^1^1^3120210^
"^DD",2,2,.397,21,1,0)
The status procedure must be a valid procedure in the CD Reasons File (#27.17).
"^DD",2,2,.398,0)
CD STATUS CONDITIONS^2.398P^^.398;0
"^DD",2,2,.398,12)
Must specify a CD REASON that is a condition.
"^DD",2,2,.398,12.1)
S DIC("S")="I $P(^DGEN(27.17,Y,0),U,2)=""C"""
"^DD",2,2,.399,0)
CD HISTORY DATE^2.399DA^^.399;0
"^DD",2,2,.525,0)
POW STATUS INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.52;5^S DFN=DA D POWV^DGLOCK I $
D(X) D SV^DGLOCK
"^DD",2,2,.525,.1)
WERE YOU A PRISONER OF WAR
"^DD",2,2,.525,1,0)
^.1
"^DD",2,2,.525,1,1,0)
^^TRIGGER^2^.526
"^DD",2,2,.525,1,1,1)
X ^DD(2,.525,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$S
('$D(^DIC(22,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="" X ^
DD(2,.525,1,1,1.4)
"^DD",2,2,.525,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0
),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.525,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))
  S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.52)=$P(DIH,U,1,5)_U_DIV_$S
(%]"":U_%,1:""),DIH=2,DIG=.526 D ^DICR
"^DD",2,2,.525,1,1,2)
Q
"^DD",2,2,.525,1,1,"CREATE CONDITION")
WERE YOU A PRISONER OF WAR="NO"
"^DD",2,2,.525,1,1,"CREATE VALUE")
@
"^DD",2,2,.525,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.525,1,1,"FIELD")
POW WAR
"^DD",2,2,.525,1,2,0)
^^TRIGGER^2^.527
"^DD",2,2,.525,1,2,1)
X ^DD(2,.525,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P
(Y(1),U,7) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,2,1.4)
"^DD",2,2,.525,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0
),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.525,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99))
  S DIH=DIH_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(.52)=$P(DIH,U,1,6)_U_DIV_$S
(%]"":U_%,1:""),DIH=2,DIG=.527 D ^DICR
"^DD",2,2,.525,1,2,2)
Q
"^DD",2,2,.525,1,2,"CREATE CONDITION")
#.525="NO"
"^DD",2,2,.525,1,2,"CREATE VALUE")
@
"^DD",2,2,.525,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.525,1,2,"FIELD")
POW FROM DATE
"^DD",2,2,.525,1,3,0)
^^TRIGGER^2^.528
"^DD",2,2,.525,1,3,1)
X ^DD(2,.525,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P
(Y(1),U,8) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,3,1.4)
"^DD",2,2,.525,1,3,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0
),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.525,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99))
  S DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(.52)=$P(DIH,U,1,7)_U_DIV_$S
(%]"":U_%,1:""),DIH=2,DIG=.528 D ^DICR
"^DD",2,2,.525,1,3,2)
Q
"^DD",2,2,.525,1,3,"CREATE CONDITION")
#.525="NO"
"^DD",2,2,.525,1,3,"CREATE VALUE")
@
"^DD",2,2,.525,1,3,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.525,1,3,"FIELD")
#.528
"^DD",2,2,.525,1,4,0)
2^AENR525^MUMPS
"^DD",2,2,.525,1,4,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.525,1,4,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.525,1,4,3)
DO NOT DELETE
"^DD",2,2,.525,1,4,"%D",0)
^.101^2^2^3040708^^^
"^DD",2,2,.525,1,4,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2,.525,1,4,"%D",2,0)
record.
"^DD",2,2,.525,1,4,"DT")
2970630
"^DD",2,2,.525,1,5,0)
2^AMTR^MUMPS
"^DD",2,2,.525,1,5,1)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.525,1,5,2)
S DFN=DA D EN^DGMTR K DGREQF
"^DD",2,2,.525,1,5,"%D",0)
^^2^2^2970927^
"^DD",2,2,.525,1,5,"%D",1,0)
This cross-reference is used to determine whether or not a means test is
"^DD",2,2,.525,1,5,"%D",2,0)
required.
"^DD",2,2,.525,1,5,"DT")
2970927
"^DD",2,2,.525,1,6,0)
2^AENRL525^MUMPS
"^DD",2,2,.525,1,6,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.525,1,6,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.525,1,6,"%D",0)
^^2^2^3040708^
"^DD",2,2,.525,1,6,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.525,1,6,"%D",2,0)
POW STATUS INDICATED? field.
"^DD",2,2,.525,1,6,"DT")
3040708
"^DD",2,2,.525,3)
Was this patient a Prisoner of War?
"^DD",2,2,.525,20,0)
^.3LA^1^1
"^DD",2,2,.525,20,1,0)
PW
"^DD",2,2,.525,21,0)
^^3^3^3060222^
"^DD",2,2,.525,21,1,0)
For this veteran applicant enter 'Y' if s/he was confined as a prisoner
"^DD",2,2,.525,21,2,0)
of war, 'N' if not, or 'U' if unknown.  Once the POW Status is verified 
"^DD",2,2,.525,21,3,0)
by the HEC, it is no longer editable.
"^DD",2,2,.525,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.525,"DT")
3060222
"^DD",2,2,.526,0)
POW CONFINEMENT LOCATION^RP22'X^DIC(22,^.52;6^S DFN=DA,DGCOMLOC=X D POW^DGLOCK
"^DD",2,2,.526,.1)
POW WAR
"^DD",2,2,.526,1,0)
^.1
"^DD",2,2,.526,1,1,0)
2^AENR526^MUMPS
"^DD",2,2,.526,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.526,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.526,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.526,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.526,1,1,"%D",2,0)
POW CONFINEMENT LOCATION field.
"^DD",2,2,.526,1,1,"DT")
3040614
"^DD",2,2,.526,3)
For this former POW enter the war in which confined.
"^DD",2,2,.526,5,1,0)
2^.525^1
"^DD",2,2,.526,20,0)
^.3LA^1^1
"^DD",2,2,.526,20,1,0)
PW
"^DD",2,2,.526,21,0)
^^6^6^2981123^^^^
"^DD",2,2,.526,21,1,0)
For this veteran applicant who was confined as a prisoner of war
"^DD",2,2,.526,21,2,0)
(WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the
"^DD",2,2,.526,21,3,0)
war during which confined.  Once the service record is verified only
"^DD",2,2,.526,21,4,0)
those users who hold the designated security key may enter/edit this
"^DD",2,2,.526,21,5,0)
field.  This field cannot be deleted as long as applicant is
"^DD",2,2,.526,21,6,0)
identified as a former POW.
"^DD",2,2,.526,"DEL",1,0)
S DFN=DA D POWD^DGLOCK1 I '$D(X)
"^DD",2,2,.526,"DT")
3040614
"^DD",2,2,.527,0)
POW FROM DATE^RDX^^.52;7^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"POW",X) X
 I $D(X) S DFN=DA D POW^DGLOCK I $D(X) S DGFRDT=X D DOB^DGHELP
"^DD",2,2,.527,.1)

"^DD",2,2,.527,1,0)
^.1
"^DD",2,2,.527,1,1,0)
2^AENR527^MUMPS
"^DD",2,2,.527,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.527,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.527,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.527,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.527,1,1,"%D",2,0)
POW FROM DATE field.
"^DD",2,2,.527,1,1,"DT")
3040614
"^DD",2,2,.527,3)
For this former POW enter the date confinement commenced.
"^DD",2,2,.527,5,1,0)
2^.525^2
"^DD",2,2,.527,20,0)
^.3LA^1^1
"^DD",2,2,.527,20,1,0)
PW
"^DD",2,2,.527,21,0)
^^6^6^2910116^^^^
"^DD",2,2,.527,21,1,0)
For this veteran applicant who was confined as a prisoner of war
"^DD",2,2,.527,21,2,0)
(WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the
"^DD",2,2,.527,21,3,0)
date on which confinement commenced.  Once
"^DD",2,2,.527,21,4,0)
the service record is verified only those users who hold the designated
"^DD",2,2,.527,21,5,0)
security key may enter/edit this field.  This field cannot be
"^DD",2,2,.527,21,6,0)
deleted as long as applicant is identified as a former POW.
"^DD",2,2,.527,"DEL",1,0)
S DFN=DA D POWD^DGLOCK1 I '$D(X)
"^DD",2,2,.527,"DT")
3040722
"^DD",2,2,.528,0)
POW TO DATE^RDX^^.52;8^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"POW",X,1) X
 I $D(X) S DFN=DA D POW^DGLOCK I $D(X) D DOB^DGHELP
"^DD",2,2,.528,.1)

"^DD",2,2,.528,1,0)
^.1
"^DD",2,2,.528,1,1,0)
2^AENR528^MUMPS
"^DD",2,2,.528,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.528,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.528,1,1,"%D",0)
^^2^2^3040614^
"^DD",2,2,.528,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.528,1,1,"%D",2,0)
POW TO DATE field.
"^DD",2,2,.528,1,1,"DT")
3040614
"^DD",2,2,.528,3)
For this former POW enter the date confinement ended.
"^DD",2,2,.528,5,1,0)
2^.525^3
"^DD",2,2,.528,20,0)
^.3LA^1^1
"^DD",2,2,.528,20,1,0)
PW
"^DD",2,2,.528,21,0)
^^6^6^2910116^^^^
"^DD",2,2,.528,21,1,0)
For this veteran applicant who was confined as a prisoner of war
"^DD",2,2,.528,21,2,0)
(WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the
"^DD",2,2,.528,21,3,0)
date on which confinement ended.  Once the
"^DD",2,2,.528,21,4,0)
service record is verified only those users who hold the designated
"^DD",2,2,.528,21,5,0)
security key may enter/edit this field.  This field cannot be
"^DD",2,2,.528,21,6,0)
deleted as long as applicant is identified as a former POW.
"^DD",2,2,.528,"DEL",1,0)
S DFN=DA D POWD^DGLOCK1 I '$D(X)
"^DD",2,2,.528,"DT")
3040614
"^DD",2,2,.529,0)
POW STATUS VERIFIED^D^^.52;9^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.529,21,0)
^.001^3^3^3060222^^^
"^DD",2,2,.529,21,1,0)
This field contains the date/time that the POW status was received
"^DD",2,2,.529,21,2,0)
from HEC.  Once the POW status has been received from HEC, it can
"^DD",2,2,.529,21,3,0)
no longer be edited by the site.
"^DD",2,2,.529,"DT")
3060222
"^DD",2,2,.5291,0)
COMBAT SERVICE INDICATED?^RSX^Y:YES;N:NO;^.52;11^S DFN=DA D SV^DGLOCK
"^DD",2,2,.5291,.1)
IN COMBAT (Y/N)
"^DD",2,2,.5291,1,0)
^.1
"^DD",2,2,.5291,1,1,0)
^^TRIGGER^2^.5292
"^DD",2,2,.5291,1,1,1)
X ^DD(2,.5291,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$
S('$D(^DIC(22,+$P(Y(1),U,12),0)):"",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="" X
 ^DD(2,.5291,1,1,1.4)
"^DD",2,2,.5291,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.5291,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99)
)  S DIH=DIH_U" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.52)=$P(DIH,U,1,11)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.5292 D ^DICR
"^DD",2,2,.5291,1,1,2)
Q
"^DD",2,2,.5291,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(
0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1
),U,11)_":",2),$C(59),1)=""
"^DD",2,2,.5291,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99)
)  S DIH=DIH_U" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.52)=$P(DIH,U,1,11)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.5292 D ^DICR
"^DD",2,2,.5291,1,1,"CREATE CONDITION")
IN COMBAT="NO"
"^DD",2,2,.5291,1,1,"CREATE VALUE")
@
"^DD",2,2,.5291,1,1,"DELETE CONDITION")
IN COMBAT=""
"^DD",2,2,.5291,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.5291,1,1,"FIELD")
COMBAT WHERE
"^DD",2,2,.5291,1,2,0)
^^TRIGGER^2^.5293
"^DD",2,2,.5291,1,2,1)
X ^DD(2,.5291,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$
P(Y(1),U,13) S DIU=X K Y S X=DIV S X="" X ^DD(2,.5291,1,2,1.4)
"^DD",2,2,.5291,1,2,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.5291,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)
)  S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(.52)=$P(DIH,U,1,12)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.5293 D ^DICR
"^DD",2,2,.5291,1,2,2)
Q
"^DD",2,2,.5291,1,2,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(
0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1
),U,11)_":",2),$C(59),1)=""
"^DD",2,2,.5291,1,2,2.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)
)  S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(.52)=$P(DIH,U,1,12)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.5293 D ^DICR
"^DD",2,2,.5291,1,2,"CREATE CONDITION")
IN COMBAT="NO"
"^DD",2,2,.5291,1,2,"CREATE VALUE")
@
"^DD",2,2,.5291,1,2,"DELETE CONDITION")
IN COMBAT=""
"^DD",2,2,.5291,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.5291,1,2,"FIELD")
COMBAT FRO
"^DD",2,2,.5291,1,3,0)
^^TRIGGER^2^.5294
"^DD",2,2,.5291,1,3,1)
X ^DD(2,.5291,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$
P(Y(1),U,14) S DIU=X K Y S X=DIV S X="" X ^DD(2,.5291,1,3,1.4)
"^DD",2,2,.5291,1,3,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(
0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="NO"
"^DD",2,2,.5291,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)
)  S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(.52)=$P(DIH,U,1,13)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.5294 D ^DICR
"^DD",2,2,.5291,1,3,2)
Q
"^DD",2,2,.5291,1,3,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(
0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1
),U,11)_":",2),$C(59),1)=""
"^DD",2,2,.5291,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)
)  S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(.52)=$P(DIH,U,1,13)_U_DI
V_$S(%]"":U_%,1:""),DIH=2,DIG=.5294 D ^DICR
"^DD",2,2,.5291,1,3,"CREATE CONDITION")
IN COMBAT="NO"
"^DD",2,2,.5291,1,3,"CREATE VALUE")
@
"^DD",2,2,.5291,1,3,"DELETE CONDITION")
IN COMBAT=""
"^DD",2,2,.5291,1,3,"DELETE VALUE")
NO EFFECT
"^DD",2,2,.5291,1,3,"FIELD")
COMBAT TO DATE
"^DD",2,2,.5291,1,4,0)
2^AENR5291^MUMPS
"^DD",2,2,.5291,1,4,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5291,1,4,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5291,1,4,"%D",0)
^^2^2^3040614^
"^DD",2,2,.5291,1,4,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.5291,1,4,"%D",2,0)
COMBAT SERVICE INDICATED? field.
"^DD",2,2,.5291,1,4,"DT")
3040614
"^DD",2,2,.5291,1,5,0)
2^AI^MUMPS
"^DD",2,2,.5291,1,5,1)
D CSI1010^DGENDD(DA)
"^DD",2,2,.5291,1,5,2)
Q
"^DD",2,2,.5291,1,5,"%D",0)
^^4^4^3061023^
"^DD",2,2,.5291,1,5,"%D",1,0)
This MUMPS xref will trigger an update to the COMBAT
"^DD",2,2,.5291,1,5,"%D",2,0)
INDICATED ON 1010EZ field (2/1010.157), so that when
"^DD",2,2,.5291,1,5,"%D",3,0)
COMBAT SERVICE INDICATED? is "NO," COMBAT INDICATED
"^DD",2,2,.5291,1,5,"%D",4,0)
ON 1010EZ is set to "NO."
"^DD",2,2,.5291,1,5,"DT")
3061023
"^DD",2,2,.5291,3)
Did this patient serve in combat?
"^DD",2,2,.5291,20,0)
^.3LA^1^1
"^DD",2,2,.5291,20,1,0)
CS
"^DD",2,2,.5291,21,0)
^^4^4^2861006^
"^DD",2,2,.5291,21,1,0)
For this veteran applicant enter 'Y' if s/he served in a combat
"^DD",2,2,.5291,21,2,0)
zone, or 'N' if not.  Once the service record is verified only
"^DD",2,2,.5291,21,3,0)
users who hold the designated security key may enter/edit this
"^DD",2,2,.5291,21,4,0)
field.
"^DD",2,2,.5291,"DEL",1,0)
S DFN=DA D SV^DGLOCK I '$D(X)
"^DD",2,2,.5291,"DT")
3061023
"^DD",2,2,.5292,0)
COMBAT SERVICE LOCATION^RP22'X^DIC(22,^.52;12^S DFN=DA S DGCOMLOC=X D COM^DGLOCK
"^DD",2,2,.5292,.1)
COMBAT WHERE
"^DD",2,2,.5292,1,0)
^.1
"^DD",2,2,.5292,1,1,0)
2^AENR5292^MUMPS
"^DD",2,2,.5292,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5292,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5292,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.5292,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.5292,1,1,"%D",2,0)
COMBAT SERVICE LOCATION field.
"^DD",2,2,.5292,1,1,"DT")
3040610
"^DD",2,2,.5292,3)
For this combat veteran enter the war in which combat service was incurred.
"^DD",2,2,.5292,5,1,0)
2^.5291^1
"^DD",2,2,.5292,20,0)
^.3LA^1^1
"^DD",2,2,.5292,20,1,0)
CS
"^DD",2,2,.5292,21,0)
^^6^6^2861007^^^
"^DD",2,2,.5292,21,1,0)
For this veteran applicant who served in a combat zone (IN COMBAT
"^DD",2,2,.5292,21,2,0)
prompt must be answered YES) enter the zone in which s/he
"^DD",2,2,.5292,21,3,0)
served.  Once the service record is verified only those users
"^DD",2,2,.5292,21,4,0)
who hold the designated security key may enter/edit this field.
"^DD",2,2,.5292,21,5,0)
This field cannot be deleted as long as combat service is
"^DD",2,2,.5292,21,6,0)
indicated.
"^DD",2,2,.5292,"DEL",1,0)
S DFN=DA D COMD^DGLOCK1 I '$D(X)
"^DD",2,2,.5292,"DT")
3040610
"^DD",2,2,.5293,0)
COMBAT FROM DATE^RDX^^.52;13^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"COMB"
,X) X I $D(X) S DFN=DA D COM^DGLOCK I $D(X) S DGFRDT=X D DOB^DGHELP
"^DD",2,2,.5293,.1)

"^DD",2,2,.5293,1,0)
^.1
"^DD",2,2,.5293,1,1,0)
2^AENR5293^MUMPS
"^DD",2,2,.5293,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5293,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5293,1,1,"%D",0)
^^2^2^3040610^
"^DD",2,2,.5293,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.5293,1,1,"%D",2,0)
COMBAT FROM DATE field.
"^DD",2,2,.5293,1,1,"DT")
3040610
"^DD",2,2,.5293,3)
For this combat veteran enter the date combat service commenced.
"^DD",2,2,.5293,5,1,0)
2^.5291^2
"^DD",2,2,.5293,20,0)
^.3LA^1^1
"^DD",2,2,.5293,20,1,0)
CS
"^DD",2,2,.5293,21,0)
^^6^6^2910116^^^^
"^DD",2,2,.5293,21,1,0)
For this veteran who served in a combat zone (IN COMBAT prompt
"^DD",2,2,.5293,21,2,0)
must be answered YES) enter the date on which combat service
"^DD",2,2,.5293,21,3,0)
commenced.  Once the service record is
"^DD",2,2,.5293,21,4,0)
verified only those users who hold the designated security key
"^DD",2,2,.5293,21,5,0)
may enter/edit this field.  This field cannot be deleted as long
"^DD",2,2,.5293,21,6,0)
as combat service is indicated.
"^DD",2,2,.5293,"DEL",1,0)
S DFN=DA D COMD^DGLOCK1 I '$D(X)
"^DD",2,2,.5293,"DT")
3040722
"^DD",2,2,.5294,0)
COMBAT TO DATE^RDX^^.52;14^S %DT="E" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,"COMB",X
,1) X I $D(X) S DFN=DA D COM^DGLOCK I $D(X) D DOB^DGHELP
"^DD",2,2,.5294,.1)

"^DD",2,2,.5294,1,0)
^.1
"^DD",2,2,.5294,1,1,0)
2^AENR5294^MUMPS
"^DD",2,2,.5294,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5294,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5294,1,1,"%D",0)
^.101^2^2^3040708^^
"^DD",2,2,.5294,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2,.5294,1,1,"%D",2,0)
COMBAT TO DATE field.
"^DD",2,2,.5294,1,1,"DT")
3040610
"^DD",2,2,.5294,1,2,0)
2^AK^MUMPS
"^DD",2,2,.5294,1,2,1)
D CTD1010^DGENDD(DA)
"^DD",2,2,.5294,1,2,2)
Q
"^DD",2,2,.5294,1,2,"%D",0)
^^9^9^3061023^
"^DD",2,2,.5294,1,2,"%D",1,0)
This MUMPS xref will trigger an update to the COMBAT
"^DD",2,2,.5294,1,2,"%D",2,0)
INDICATED ON 1010EZ field (2/1010.157), so that when
"^DD",2,2,.5294,1,2,"%D",3,0)
COMBAT SERVICE INDICATED? (2/.5291) is "YES" and
"^DD",2,2,.5294,1,2,"%D",4,0)
COMBAT TO DATE (2/.5294) is greater that 11/11/1998,
"^DD",2,2,.5294,1,2,"%D",5,0)
COMBAT INDICATED ON 1010EZ is set to "YES."
"^DD",2,2,.5294,1,2,"%D",6,0)
 
"^DD",2,2,.5294,1,2,"%D",7,0)
Conversely, if COMBAT TO DATE is less than or equal
"^DD",2,2,.5294,1,2,"%D",8,0)
to 11/11/1998, COMBAT INDICATED ON 1010EZ will be
"^DD",2,2,.5294,1,2,"%D",9,0)
set to "NO."
"^DD",2,2,.5294,1,2,"DT")
3061023
"^DD",2,2,.5294,3)
For this combat veteran enter the date combat service ended.
"^DD",2,2,.5294,5,1,0)
2^.5291^3
"^DD",2,2,.5294,20,0)
^.3LA^1^1
"^DD",2,2,.5294,20,1,0)
CS
"^DD",2,2,.5294,21,0)
^^6^6^2910116^^^
"^DD",2,2,.5294,21,1,0)
For this veteran who served in a combat zone (IN COMBAT prompt must
"^DD",2,2,.5294,21,2,0)
be answered YES) enter the date on which combat service ended.
"^DD",2,2,.5294,21,3,0)
Once the service record is verified
"^DD",2,2,.5294,21,4,0)
only those users who hold the designated security key may
"^DD",2,2,.5294,21,5,0)
enter/edit this field.  This field cannot be deleted as long as
"^DD",2,2,.5294,21,6,0)
combat service is indicated.
"^DD",2,2,.5294,"DEL",1,0)
S DFN=DA D COMD^DGLOCK1 I '$D(X)
"^DD",2,2,.5294,"DT")
3061023
"^DD",2,2,.5295,0)
COMBAT VETERAN END DATE^D^^.52;15^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.5295,1,0)
^.1
"^DD",2,2,.5295,1,1,0)
2^AENR5295^MUMPS
"^DD",2,2,.5295,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5295,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.5295,1,1,3)
DO NOT DELETE
"^DD",2,2,.5295,1,1,"%D",0)
^^2^2^3040420^
"^DD",2,2,.5295,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes
"^DD",2,2,.5295,1,1,"%D",2,0)
to the COMBAT VETERAN END DATE field.
"^DD",2,2,.5295,1,1,"DT")
3040420
"^DD",2,2,.5295,1,2,0)
^^TRIGGER^2^.5296
"^DD",2,2,.5295,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1
),U,16),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DPT(DIV(0),.52)),DIV=X S $P(^(.
52),U,16)=DIV,DIH=2,DIG=.5296 D ^DICR
"^DD",2,2,.5295,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1
),U,16),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DPT(DIV(0),.52)),DIV=X S $P(^(.
52),U,16)=DIV,DIH=2,DIG=.5296 D ^DICR
"^DD",2,2,.5295,1,2,"%D",0)
^.101^2^2^3040628^^
"^DD",2,2,.5295,1,2,"%D",1,0)
This trigger x-ref is used to update the date stamp when the CV 
"^DD",2,2,.5295,1,2,"%D",2,0)
Eligibility End date is edited.
"^DD",2,2,.5295,1,2,"CREATE VALUE")
S X=DT
"^DD",2,2,.5295,1,2,"DELETE VALUE")
S X=DT
"^DD",2,2,.5295,1,2,"DT")
3040614
"^DD",2,2,.5295,1,2,"FIELD")
CV
"^DD",2,2,.5295,1,3,0)
2^AENR52951^MUMPS
"^DD",2,2,.5295,1,3,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.5295,1,3,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.5295,1,3,3)
DO NOT DELETE
"^DD",2,2,.5295,1,3,"%D",0)
^^1^1^3040708^
"^DD",2,2,.5295,1,3,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
record.  
"^DD",2,2,.5295,1,3,"DT")
3040708
"^DD",2,2,.5295,20,0)
^.3LA^1^1
"^DD",2,2,.5295,20,1,0)
CS
"^DD",2,2,.5295,21,0)
^.001^4^4^3040420^^^^
"^DD",2,2,.5295,21,1,0)
This field represents the last day for combat vet eligibility. This field 
"^DD",2,2,.5295,21,2,0)
will only be populated by cross-reference when the veteran's combat vet 
"^DD",2,2,.5295,21,3,0)
eligibility has been determined. This value will remain after the combat 
"^DD",2,2,.5295,21,4,0)
vet eligibility period has expired.
"^DD",2,2,.5295,"AUDIT")

"^DD",2,2,.5295,"AX")

"^DD",2,2,.5295,"DT")
3040708
"^DD",2,2,.5296,0)
CV DATE EDITED^D^^.52;16^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,.5296,1,0)
^.1
"^DD",2,2,.5296,1,1,0)
2^E
"^DD",2,2,.5296,1,1,1)
S ^DPT("E",$E(X,1,30),DA)=""
"^DD",2,2,.5296,1,1,2)
K ^DPT("E",$E(X,1,30),DA)
"^DD",2,2,.5296,1,1,"%D",0)
^^3^3^3030711^
"^DD",2,2,.5296,1,1,"%D",1,0)
This cross reference will be used for a Lookup of the CV Date Edited 
"^DD",2,2,.5296,1,1,"%D",2,0)
field, so that veterans assigned CV Status Eligibility sduring certain 
"^DD",2,2,.5296,1,1,"%D",3,0)
time frames can be pulled into a report.
"^DD",2,2,.5296,1,1,"DT")
3030711
"^DD",2,2,.5296,5,1,0)
2^.5295^2
"^DD",2,2,.5296,21,0)
^^2^2^3030711^
"^DD",2,2,.5296,21,1,0)
The CV DATE EDITED field will be stuffed with the current date 
"^DD",2,2,.5296,21,2,0)
whenever the COMBAT VET END DATE field (.5295) is changed.
"^DD",2,2,.5296,"DT")
3030711
"^DD",2,2,.531,0)
CURRENT PH INDICATOR^SX^Y:YES;N:NO;^.53;1^S DFN=DA D VET^DGLOCK
"^DD",2,2,.531,1,0)
^.1
"^DD",2,2,.531,1,1,0)
2^D
"^DD",2,2,.531,1,1,1)
S ^DPT("D",$E(X,1,30),DA)=""
"^DD",2,2,.531,1,1,2)
K ^DPT("D",$E(X,1,30),DA)
"^DD",2,2,.531,1,1,"%D",0)
^^2^2^3000810^
"^DD",2,2,.531,1,1,"%D",1,0)
Cross-reference on Current PH Indicator to be used for look-ups and
"^DD",2,2,.531,1,1,"%D",2,0)
sorting.
"^DD",2,2,.531,1,1,"DT")
3000810
"^DD",2,2,.531,1,2,0)
2^AENR531^MUMPS
"^DD",2,2,.531,1,2,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.531,1,2,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.531,1,2,3)
DO NOT DELETE
"^DD",2,2,.531,1,2,"%D",0)
^.101^2^2^3000926^^^
"^DD",2,2,.531,1,2,"%D",1,0)
This cross-reference is used to update the patient's current Patient
"^DD",2,2,.531,1,2,"%D",2,0)
Enrollment record.
"^DD",2,2,.531,1,2,"DT")
3000926
"^DD",2,2,.531,3)
Enter 'Yes' if patient is a Purple Heart Recipient and is a veteran.
"^DD",2,2,.531,21,0)
^.001^3^3^3010130^^^^
"^DD",2,2,.531,21,1,0)
This field can be entered by the local site if currently null.  Subsequent
"^DD",2,2,.531,21,2,0)
editing can be done only by the HEC.  A response of 'Yes' can be entered 
"^DD",2,2,.531,21,3,0)
only if the patient is a veteran,
"^DD",2,2,.531,"DT")
3000926
"^DD",2,2,.532,0)
CURRENT PURPLE HEART STATUS^S^1:PENDING;2:IN PROCESS;3:CONFIRMED;^.53;2^Q
"^DD",2,2,.532,1,0)
^.1
"^DD",2,2,.532,1,1,0)
2^C
"^DD",2,2,.532,1,1,1)
S ^DPT("C",$E(X,1,30),DA)=""
"^DD",2,2,.532,1,1,2)
K ^DPT("C",$E(X,1,30),DA)
"^DD",2,2,.532,1,1,"%D",0)
^^1^1^3000810^
"^DD",2,2,.532,1,1,"%D",1,0)
Cross-reference on Current PH Status, to be used for look-ups.
"^DD",2,2,.532,1,1,"DT")
3000810
"^DD",2,2,.532,1,2,0)
2^AENR532^MUMPS
"^DD",2,2,.532,1,2,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.532,1,2,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.532,1,2,3)
DO NOT DELETE
"^DD",2,2,.532,1,2,"%D",0)
^^2^2^3050715^
"^DD",2,2,.532,1,2,"%D",1,0)
This cross-reference is used to notify HEC that may affect
"^DD",2,2,.532,1,2,"%D",2,0)
enrollment.
"^DD",2,2,.532,1,2,"DT")
3050715
"^DD",2,2,.532,21,0)
^.001^4^4^3010130^^^^
"^DD",2,2,.532,21,1,0)
This field cannot be edited locally.  If Current Purple Heart Indicator is
"^DD",2,2,.532,21,2,0)
set to 'Yes' by the local site, a Current Purple Heart Status of 'Pending'
"^DD",2,2,.532,21,3,0)
will be stuffed into the field.  Other editing or updating is done by the
"^DD",2,2,.532,21,4,0)
HEC.
"^DD",2,2,.532,"DT")
3001122
"^DD",2,2,.533,0)
CURRENT PURPLE HEART REMARKS^S^1:UNACCEPTABLE DOCUMENTATION;2:NO DOCUMENTATION R
EC'D;3:ENTERED IN ERROR;4:UNSUPPORTED PURPLE HEART;5:VAMC;6:UNDELIVERABLE MAIL;^
.53;3^Q
"^DD",2,2,.533,1,0)
^.1
"^DD",2,2,.533,1,1,0)
2^AENR533^MUMPS
"^DD",2,2,.533,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.533,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,.533,1,1,3)
DO NOT DELETE
"^DD",2,2,.533,1,1,"%D",0)
^^2^2^3050715^
"^DD",2,2,.533,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,.533,1,1,"%D",2,0)
enrollment.
"^DD",2,2,.533,1,1,"DT")
3050715
"^DD",2,2,.533,21,0)
^.001^4^4^3001215^^
"^DD",2,2,.533,21,1,0)
This field cannot be edited locally.  If Current Purple Heart Indicator
"^DD",2,2,.533,21,2,0)
isset to 'No' by the local site, a Current Purple Heart Remarks of 'VAMC'
"^DD",2,2,.533,21,3,0)
will be stuffed into the field.  Other editing or updating is done by the
"^DD",2,2,.533,21,4,0)
HEC.
"^DD",2,2,.533,"DT")
3001215
"^DD",2,2,.535,0)
PH DIVISION^P4'^DIC(4,^.53;4^Q
"^DD",2,2,.535,21,0)
^^4^4^3010209^
"^DD",2,2,.535,21,1,0)
When site enters a value for CURRENT PH Indicator, a prompt
"^DD",2,2,.535,21,2,0)
for PH Division will appear.  This field will point to the
"^DD",2,2,.535,21,3,0)
INSTITUTION file (#4), and will hold the division where the
"^DD",2,2,.535,21,4,0)
PH request was initiated.
"^DD",2,2,.535,"DT")
3010209
"^DD",2,2,.541,0)
CURRENT MOH INDICATOR^S^Y:YES;N:NO;^.54;1^Q
"^DD",2,2,.541,1,0)
^.1
"^DD",2,2,.541,1,1,0)
2^AMHEN^MUMPS
"^DD",2,2,.541,1,1,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.541,1,1,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,.541,1,1,3)
DO NOT DELETE
"^DD",2,2,.541,1,1,"%D",0)
^^2^2^3110302^
"^DD",2,2,.541,1,1,"%D",1,0)
This cross-reference is used to update the patient's current PATIENT 
"^DD",2,2,.541,1,1,"%D",2,0)
ENROLLMENT (#27.11) record.
"^DD",2,2,.541,1,1,"DT")
3110302
"^DD",2,2,.541,1,2,0)
2^AMHMT^MUMPS
"^DD",2,2,.541,1,2,1)
N DFN,DGMT,DGNOCOPF,DGREQF,DGWRT,IVMZ10F S DFN=DA D EN^DGMTR
"^DD",2,2,.541,1,2,2)
N DFN,DGMT,DGNOCOPF,DGREQF,DGWRT,IVMZ10F S DFN=DA D EN^DGMTR
"^DD",2,2,.541,1,2,"%D",0)
^.101^5^5^3110302^^
"^DD",2,2,.541,1,2,"%D",1,0)
This cross-ref calls the Means Test software. If the PATIENT file (#2), 
"^DD",2,2,.541,1,2,"%D",2,0)
CURRENT MOH INDICATOR field (#.541) is set to 'YES', then the PATIENT 
"^DD",2,2,.541,1,2,"%D",3,0)
file (#2), CURRENT MEANS TEST STATUS field (#.14) is set to '3'.  '3' is 
"^DD",2,2,.541,1,2,"%D",4,0)
a pointer to the MEANS TEST STATUS file (#408.32) and indicates that the 
"^DD",2,2,.541,1,2,"%D",5,0)
Means Test is 'NO LONGER REQUIRED.'
"^DD",2,2,.541,1,2,"DT")
3110302
"^DD",2,2,.541,3)
If the patient is a veteran, enter 'Y' if Medal of Honor has been awarded, or 'N
' if Medal of Honor has not been awarded.
"^DD",2,2,.541,21,0)
^.001^3^3^3110301^^
"^DD",2,2,.541,21,1,0)
This field cannot be edited in VistA.  It is set by the Z11 Upload from 
"^DD",2,2,.541,21,2,0)
HEC.  A response of 'YES' or 'NO' is indicated only if the patient is a 
"^DD",2,2,.541,21,3,0)
veteran.
"^DD",2,2,.541,"DT")
3110302
"^DD",2,2,.6,0)
TEST PATIENT INDICATOR^SI^1:YES;0:NO;^0;21^Q
"^DD",2,2,.6,1,0)
^.1
"^DD",2,2,.6,1,1,0)
2^ATEST^MUMPS
"^DD",2,2,.6,1,1,1)
I X S ^DPT("ATEST",DA)=""
"^DD",2,2,.6,1,1,2)
K ^DPT("ATEST",DA)
"^DD",2,2,.6,1,1,"%D",0)
^^4^4^2951026^^^
"^DD",2,2,.6,1,1,"%D",1,0)
This cross reference is set for test patients only. If the SSN of a patient
"^DD",2,2,.6,1,1,"%D",2,0)
has five leading zeros then this cross reference is set. Otherwise, no
"^DD",2,2,.6,1,1,"%D",3,0)
cross reference will be created. This field is populated by the 'ATP' cross
"^DD",2,2,.6,1,1,"%D",4,0)
reference on the SSN field (.09).
"^DD",2,2,.6,1,1,"DT")
2951026
"^DD",2,2,.6,3)
THIS FIELD IS USED TO INDENTIFY TEST PATIENTS
"^DD",2,2,.6,9)
^
"^DD",2,2,.6,21,0)
^^2^2^2951026^^^^
"^DD",2,2,.6,21,1,0)
This field is set by the 'ATP' cross reference on the Social Security Number 
"^DD",2,2,.6,21,2,0)
field (.09) when an SSN containing five leading zeros is entered.
"^DD",2,2,.6,23,0)
^^3^3^2951026^
"^DD",2,2,.6,23,1,0)
This field is used to indentify test patients in the Patient file (#2). It is
"^DD",2,2,.6,23,2,0)
not editable from any options, it is set by the 'ATP' cross reference on the
"^DD",2,2,.6,23,3,0)
SSN field (.09) for all SSNs with five leading zeros.
"^DD",2,2,.6,"DT")
2951026
"^DD",2,2,1,0)
ALIAS^2.01^^.01;0
"^DD",2,2,1,3)
If this patient is known by another name enter that name.
"^DD",2,2,1,20,0)
^.3LA^1^1
"^DD",2,2,1,20,1,0)
DEMOG
"^DD",2,2,1,21,0)
^^4^4^2911214^^^^
"^DD",2,2,1,21,1,0)
If this applicant is known by any name other than that entered in
"^DD",2,2,1,21,2,0)
the NAME field enter that/those other name(s) here.  Any entry
"^DD",2,2,1,21,3,0)
to this field will be cross-referenced and the applicant may be
"^DD",2,2,1,21,4,0)
called up using this alias.
"^DD",2,2,1.01,0)
NAME COMPONENTS^P20'I^VA(20,^NAME;1^Q
"^DD",2,2,1.01,1,0)
^.1^^0
"^DD",2,2,1.01,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.01.
"^DD",2,2,1.01,9)
^
"^DD",2,2,1.01,"DT")
3020419
"^DD",2,2,1.02,0)
K-NAME COMPONENTS^P20'I^VA(20,^NAME;2^Q
"^DD",2,2,1.02,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.211.
"^DD",2,2,1.02,9)
^
"^DD",2,2,1.02,"DT")
3020419
"^DD",2,2,1.03,0)
K2-NAME COMPONENTS^P20'I^VA(20,^NAME;3^Q
"^DD",2,2,1.03,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.2191.
"^DD",2,2,1.03,9)
^
"^DD",2,2,1.03,"DT")
3020419
"^DD",2,2,1.04,0)
FATHER'S NAME COMPONENTS^P20'I^VA(20,^NAME;4^Q
"^DD",2,2,1.04,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.2401.
"^DD",2,2,1.04,9)
^
"^DD",2,2,1.04,"DT")
3020419
"^DD",2,2,1.05,0)
MOTHER'S NAME COMPONENTS^P20'I^VA(20,^NAME;5^Q
"^DD",2,2,1.05,1,0)
^.1^^0
"^DD",2,2,1.05,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.2402.
"^DD",2,2,1.05,9)
^
"^DD",2,2,1.05,"DT")
3020725
"^DD",2,2,1.06,0)
MOTHERS MAIDEN NAME COMPONENTS^P20'I^VA(20,^NAME;6^Q
"^DD",2,2,1.06,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.2403.
"^DD",2,2,1.06,9)
^
"^DD",2,2,1.06,"DT")
3020419
"^DD",2,2,1.07,0)
E-NAME COMPONENTS^P20'I^VA(20,^NAME;7^Q
"^DD",2,2,1.07,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.331.
"^DD",2,2,1.07,9)
^
"^DD",2,2,1.07,"DT")
3020419
"^DD",2,2,1.08,0)
E2-NAME COMPONENTS^P20'I^VA(20,^NAME;8^Q
"^DD",2,2,1.08,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.3311.
"^DD",2,2,1.08,9)
^
"^DD",2,2,1.08,"DT")
3020725
"^DD",2,2,1.09,0)
D-NAME COMPONENTS^P20'I^VA(20,^NAME;9^Q
"^DD",2,2,1.09,3)
This field contains a pointer to the NAME COMPONENTS record associated with fiel
d #.341.
"^DD",2,2,1.09,9)
^
"^DD",2,2,1.09,"DT")
3020725
"^DD",2,2,2,0)
RACE INFORMATION^2.02P^^.02;0
"^DD",2,2,3,0)
ENROLLMENT CLINIC^2.001P^^DE;0
"^DD",2,2,3,21,0)
^^2^2^2911214^^^^
"^DD",2,2,3,21,1,0)
This multiple field contains the data relating to clinic enrollments for
"^DD",2,2,3,21,2,0)
this patient.
"^DD",2,2,6,0)
ETHNICITY INFORMATION^2.06PA^^.06;0
"^DD",2,2,27.01,0)
CURRENT ENROLLMENT^P27.11'I^DGEN(27.11,^ENR;1^Q
"^DD",2,2,27.01,1,0)
^.1
"^DD",2,2,27.01,1,1,0)
2^AENRC^MUMPS
"^DD",2,2,27.01,1,1,1)
D SET1^DGENDD(DA,X)
"^DD",2,2,27.01,1,1,2)
D KILL1^DGENDD(DA)
"^DD",2,2,27.01,1,1,3)
DO NOT DELETE
"^DD",2,2,27.01,1,1,"%D",0)
^^6^6^2970911^^^^
"^DD",2,2,27.01,1,1,"%D",1,0)
This index sorts the patients by their current enrollment status.
"^DD",2,2,27.01,1,1,"%D",2,0)
The ENROLLMENT STATUS field of the PATIENT ENROLLMENT file also triggers
"^DD",2,2,27.01,1,1,"%D",3,0)
this cross-reference.
"^DD",2,2,27.01,1,1,"%D",4,0)

"^DD",2,2,27.01,1,1,"%D",5,0)
The format of the index is:
"^DD",2,2,27.01,1,1,"%D",6,0)
^DPT("AENRC",<current enrollment status>,<DFN>)=""
"^DD",2,2,27.01,1,1,"DT")
2970619
"^DD",2,2,27.01,3)
Enter the patient's current enrollment.
"^DD",2,2,27.01,21,0)
^^1^1^2970520^
"^DD",2,2,27.01,21,1,0)
The patient's current enrollment.
"^DD",2,2,27.01,"DT")
3060624
"^DD",2,2,27.02,0)
PREFERRED FACILITY^*P4'X^DIC(4,^ENR;2^S DIC("S")="I $$PFTF^DGREGDD(Y)" D ^DIC K 
DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,27.02,1,0)
^.1
"^DD",2,2,27.02,1,1,0)
2^AENR2702^MUMPS
"^DD",2,2,27.02,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,27.02,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,27.02,1,1,3)
DO NOT DELETE
"^DD",2,2,27.02,1,1,"%D",0)
^.101^2^2^3010117^^^
"^DD",2,2,27.02,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,27.02,1,1,"%D",2,0)
enrollment. 
"^DD",2,2,27.02,1,1,"DT")
2980213
"^DD",2,2,27.02,3)
Enter the facility that the patient chooses to designate as his primary location
 for care.
"^DD",2,2,27.02,12)
Selected facility must be a treating facility with a valid facility type.
"^DD",2,2,27.02,12.1)
S DIC("S")="I $$PFTF^DGREGDD(Y)"
"^DD",2,2,27.02,21,0)
^.001^22^22^3060419^^^^
"^DD",2,2,27.02,21,1,0)
The facility that the patient chooses to designate as his preferred
"^DD",2,2,27.02,21,2,0)
location for care.
"^DD",2,2,27.02,21,3,0)
The facility must have one of the following facility types:
"^DD",2,2,27.02,21,4,0)
      CBOC         (Community Based Outpatient Clinic)
"^DD",2,2,27.02,21,5,0)
      HCS          (Health Care System)
"^DD",2,2,27.02,21,6,0)
      HEALTHCARE   (VA Boston Health Care System)
"^DD",2,2,27.02,21,7,0)
      M&ROC        (Medical and Regional Office Center)
"^DD",2,2,27.02,21,8,0)
      MOC          (Mobile Outpatient Clinic)
"^DD",2,2,27.02,21,9,0)
      MORC         (Mobile Outreach Clinic)
"^DD",2,2,27.02,21,10,0)
      NETWORK      (VA Healthcare Network Upstate NY)
"^DD",2,2,27.02,21,11,0)
      NHC          (Nursing Home Care)
"^DD",2,2,27.02,21,12,0)
      OC           (Outpatient Clinic - Independent)
"^DD",2,2,27.02,21,13,0)
      OCMC         (Outpatient Clinic - Subordinate)
"^DD",2,2,27.02,21,14,0)
      OCS          (Outpatient Clinic Substation)
"^DD",2,2,27.02,21,15,0)
      OPC          (Out Patient Clinic)
"^DD",2,2,27.02,21,16,0)
      ORC          (Outreach Clinic)
"^DD",2,2,27.02,21,17,0)
      RO-OC        (Regional Office - Outpatient Clinic)
"^DD",2,2,27.02,21,18,0)
      SATELLITE    (Satellite Outpatient Clinic)
"^DD",2,2,27.02,21,19,0)
      SOC          (Satellite Outpatient Clinic)
"^DD",2,2,27.02,21,20,0)
      VAMC         (VA Medical Center)
"^DD",2,2,27.02,21,21,0)
      VANPH        (Neural Psychiatric Hospital)
"^DD",2,2,27.02,21,22,0)
      VA ROSEBERG  (VA Roseburg Health Care System)
"^DD",2,2,27.02,"DT")
3060930
"^DD",2,2,27.03,0)
SOURCE DESIGNATION^S^V:VISTA;E:ESR;PA:PCP ACTIVE;PI:PCP INACTIVE;^ENR;3^Q
"^DD",2,2,27.03,3)

"^DD",2,2,27.03,21,0)
^^5^5^3101202^
"^DD",2,2,27.03,21,1,0)
Source designation contains the value of the place the Preferred Facility 
"^DD",2,2,27.03,21,2,0)
field (#27.02) was assigned for the patient.  Source designation is 
"^DD",2,2,27.03,21,3,0)
automatically assigned by the system.  The VistA system can only assign 
"^DD",2,2,27.03,21,4,0)
a Preferred Facility if the current Source Designation is VistA or 
"^DD",2,2,27.03,21,5,0)
Primary Care Provider (PCP) Inactive.
"^DD",2,2,27.03,23,0)
^^8^8^3101202^
"^DD",2,2,27.03,23,1,0)
The source designation is the place in which the preferred facility has 
"^DD",2,2,27.03,23,2,0)
been assigned.  The users on the VistA system can only change a preferred 
"^DD",2,2,27.03,23,3,0)
facility if the source designation is VistA or if it is Primary Care 
"^DD",2,2,27.03,23,4,0)
Provider (PCP) Inactive.  All others options will be filed after 
"^DD",2,2,27.03,23,5,0)
receiving a Z11 HL7 message from Enrollment System Redesign (ESR).  ESR 
"^DD",2,2,27.03,23,6,0)
has their own rules in assigning a preferred facility on their side.
"^DD",2,2,27.03,23,7,0)
 
"^DD",2,2,27.03,23,8,0)
The source designation is automatically assigned by the system.
"^DD",2,2,27.03,"DT")
3101202
"^DD",2,2,53,0)
*REACTIONS^S^Y:YES;N:NO;^PI;1^Q
"^DD",2,2,53,.1)
REACTIONS
"^DD",2,2,57.1,0)
*HEIGHT(cm)^NJ3,0^^57;1^K:+X'=X!(X>300)!(X<100)!(X?.E1"."1N.N) X
"^DD",2,2,57.1,.1)
HEIGHT(cm)
"^DD",2,2,57.1,3)
TYPE A WHOLE NUMBER BETWEEN 100 AND 300
"^DD",2,2,57.2,0)
*WEIGHT(kg)^NJ3,0^^57;2^K:+X'=X!(X>150)!(X<40)!(X?.E1"."1N.N) X
"^DD",2,2,57.2,.1)
WEIGHT(kg)
"^DD",2,2,57.2,3)
TYPE A WHOLE NUMBER BETWEEN 40 AND 150
"^DD",2,2,57.4,0)
SPINAL CORD INJURY^S^1:PARAPLEGIA-TRAUMATIC;2:QUADRIPLEGIA-TRAUMATIC;3:PARAPLEGI
A-NONTRAUMATIC;4:QUADRIPLEGIA-NONTRAUMATIC;X:NOT APPLICABLE;^57;4^Q
"^DD",2,2,57.4,3)
Enter the appropriate code.
"^DD",2,2,57.4,21,0)
3
"^DD",2,2,57.4,21,1,0)
If this patient does not have a spinal cord injury, enter X for not
"^DD",2,2,57.4,21,2,0)
applicable in this field.  Otherwise, if the patient does have a spinal
"^DD",2,2,57.4,21,3,0)
cord injury, choose from the other available choices the one 
"^DD",2,2,57.4,"DT")
2880816
"^DD",2,2,63,0)
LABORATORY REFERENCE^IP63X^LR(^LR;1^K X
"^DD",2,2,63,3)
Any changes to this entry must be made from the lab data entry routines. This is
 the patient's record number in the lab file.
"^DD",2,2,63,21,0)
^^4^4^2911216^
"^DD",2,2,63,21,1,0)
This field contains the internal entry number of this patient in the
"^DD",2,2,63,21,2,0)
LAB DATA file.  This data is entered and maintained by the laboratory
"^DD",2,2,63,21,3,0)
package and must NOT be edited under any circumstances.  Editing of this
"^DD",2,2,63,21,4,0)
data could cause severe repercussions in the laboratory package.
"^DD",2,2,63,"DT")
2831205
"^DD",2,2,67,0)
LAB REFERRAL REF^P67'X^LRT(67,^LRT;1^K X
"^DD",2,2,67,21,0)
^^6^6^2970622^
"^DD",2,2,67,21,1,0)
This field contains the pointer reference to the Referral file of the
"^DD",2,2,67,21,2,0)
Laboratory Package. This field is set by the laboratory accessioning
"^DD",2,2,67,21,3,0)
software and should not be edited.
"^DD",2,2,67,21,4,0)
 
"^DD",2,2,67,21,5,0)
Changing of this pointer will result IN misidentification of patients that
"^DD",2,2,67,21,6,0)
could have dire medical repercussions.
"^DD",2,2,67,"DT")
2970622
"^DD",2,2,148,0)
CNH CURRENT^S^Y:YES;N:NO;^NHC;1^Q
"^DD",2,2,148,.1)

"^DD",2,2,148,3)
Answer yes if the patient is in a contract nursing home now.  Otherwise, answer 
no.
"^DD",2,2,148,21,0)
^^3^3^2920430^
"^DD",2,2,148,21,1,0)
This field is used to denote when a patient is currently in a contract
"^DD",2,2,148,21,2,0)
nursing home.  Answer yes if the patient is in a contract nursing home
"^DD",2,2,148,21,3,0)
currently.  Otherwise, answer no.
"^DD",2,2,148,"DT")
2920430
"^DD",2,2,220,0)
DENTAL CLASSIFICATION^P220.2'^DIC(220.2,^DENT;1^Q
"^DD",2,2,220,21,0)
^^1^1^2850731^
"^DD",2,2,220,21,1,0)
For Dental Package
"^DD",2,2,220,"DT")
2850731
"^DD",2,2,220.1,0)
DENTAL ELIGIBILITY EXPIRATION^D^^DENT;2^S %DT="ET" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,220.1,21,0)
^^1^1^2850731^
"^DD",2,2,220.1,21,1,0)
For Dental Eligibility
"^DD",2,2,220.1,"DT")
2850731
"^DD",2,2,361,0)
PATIENT ELIGIBILITIES^2.0361IP^^E;0
"^DD",2,2,361,3)
Choose from the available listing those eligibilities to which this patient migh
t be entitled which are not his primary eligibility.
"^DD",2,2,361,20,0)
^.3LA^1^1
"^DD",2,2,361,20,1,0)
ECD
"^DD",2,2,361,21,0)
^.001^3^3^3030409^^
"^DD",2,2,361,21,1,0)
This multiple contains all eligibilities under which this patient can
"^DD",2,2,361,21,2,0)
receive care.  This includes his primary eligibility and all other
"^DD",2,2,361,21,3,0)
eligibilities he may have.
"^DD",2,2,391,0)
TYPE^RP391'a^DG(391,^TYPE;1^Q
"^DD",2,2,391,1,0)
^.1
"^DD",2,2,391,1,991,0)
2^AVAFC391^MUMPS
"^DD",2,2,391,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,391,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,391,1,991,"%D",0)
^^15^15^2990204^^^^
"^DD",2,2,391,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,391,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,391,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,391,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,391,1,991,"%D",5,0)
 
"^DD",2,2,391,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,391,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,391,1,991,"%D",8,0)
process.
"^DD",2,2,391,1,991,"%D",9,0)
 
"^DD",2,2,391,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,391,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,391,1,991,"%D",12,0)
  
"^DD",2,2,391,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,391,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,391,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,391,1,991,"DT")
2970825
"^DD",2,2,391,3)
Choose from the available listing the PATIENT TYPE which best classifies this pa
tient.
"^DD",2,2,391,20,0)
^.3LA^1^1
"^DD",2,2,391,20,1,0)
ECD
"^DD",2,2,391,21,0)
^^10^10^2990205^^^
"^DD",2,2,391,21,1,0)
Enter the patient type for this patient.  This is selectable from the
"^DD",2,2,391,21,2,0)
distributed entries in the TYPE OF PATIENT file.  The type selected should
"^DD",2,2,391,21,3,0)
be the primary one selectable.  For example, if the patient is both an
"^DD",2,2,391,21,4,0)
NSC veteran and an employee, the patient type should be NSC VETERAN, not
"^DD",2,2,391,21,5,0)
employee.
"^DD",2,2,391,21,6,0)
 
"^DD",2,2,391,21,7,0)
This field is used by the registration screen processor to determine which
"^DD",2,2,391,21,8,0)
screens will be editable for this patient.  The selection of which screens
"^DD",2,2,391,21,9,0)
can be viewed for which types of patients can be made through the 'Patient
"^DD",2,2,391,21,10,0)
Type Update' option.
"^DD",2,2,391,23,0)
^^4^4^2990205^^
"^DD",2,2,391,23,1,0)
The type of patient is used to determine which screens in the registration
"^DD",2,2,391,23,2,0)
process should be allowed for entry/edit.  The 'Patient Type Update' option
"^DD",2,2,391,23,3,0)
in MAS can be used to determine which screens are editable for each patient
"^DD",2,2,391,23,4,0)
type.
"^DD",2,2,391,"AUDIT")
y
"^DD",2,2,391,"DT")
2970825
"^DD",2,2,401.3,0)
CONDITION^S^S:SERIOUSLY ILL;^DAC;1^Q
"^DD",2,2,401.3,1,0)
^.1
"^DD",2,2,401.3,1,1,0)
2^AS
"^DD",2,2,401.3,1,1,1)
S ^DPT("AS",$E(X,1,30),DA)=""
"^DD",2,2,401.3,1,1,2)
K ^DPT("AS",$E(X,1,30),DA)
"^DD",2,2,401.3,1,2,0)
^^TRIGGER^2^401.4
"^DD",2,2,401.3,1,2,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,"DAC")):^("DAC"),1:"") S X=$P
(Y(1),U,2) S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=X X ^DD(2,401.3,1,2,1.4)
"^DD",2,2,401.3,1,2,1.4)
S DIH=$S($D(^DPT(DIV(0),"DAC")):^("DAC"),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(
DIH,U,2),^("DAC")=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=401.4 D ^DICR:
$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,401.3,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,"DAC")):^("DAC"),1:"") S X=$P
(Y(1),U,2) S DIU=X K Y S X=DIV S X="" X ^DD(2,401.3,1,2,2.4)
"^DD",2,2,401.3,1,2,2.4)
S DIH=$S($D(^DPT(DIV(0),"DAC")):^("DAC"),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(
DIH,U,2),^("DAC")=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=401.4 D ^DICR:
$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,401.3,1,2,"CREATE VALUE")
TODAY
"^DD",2,2,401.3,1,2,"DELETE VALUE")
@
"^DD",2,2,401.3,1,2,"FIELD")
DATE ENTERED ON SI LIST
"^DD",2,2,401.3,1,3,0)
2^AODS7^MUMPS
"^DD",2,2,401.3,1,3,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,401.3,1,3,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,401.3,3)
Enter 'S' if this patient is seriouslly ill or '@' to delete.  Enter nothing if 
the patient is not seriously ill.
"^DD",2,2,401.3,21,0)
^^3^3^2861022^
"^DD",2,2,401.3,21,1,0)
Enter 'S' if the patient is seriouslly ill and should be displayed on the
"^DD",2,2,401.3,21,2,0)
Seriouslly Ill Roster.  Enter '@' to delete patient from seriouslly ill
"^DD",2,2,401.3,21,3,0)
status.
"^DD",2,2,401.3,"DT")
2910117
"^DD",2,2,401.4,0)
DATE ENTERED ON SI LIST^RDX^^DAC;2^S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,401.4,3)
For this seriouslly ill patient enter the date placed on the seriouslly ill rost
er.
"^DD",2,2,401.4,5,1,0)
2^401.3^2
"^DD",2,2,401.4,21,0)
^^1^1^2861022^
"^DD",2,2,401.4,21,1,0)
Enter the date the patient was placed on the Seriouslly Ill list.
"^DD",2,2,401.4,"DT")
2900313
"^DD",2,2,404.01,0)
*CURRENT PC PRACTITIONER^*P200'^VA(200,^PC;1^S DIC("S")="I $$SCREEN^DGPMDD(Y,DA)
" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,404.01,3)
This is the patient's Primary Care Practitioner.
"^DD",2,2,404.01,4)
D HELP^DGPMDD(DA)
"^DD",2,2,404.01,12)
Select active providers only.
"^DD",2,2,404.01,12.1)
S DIC("S")="I $$SCREEN^DGPMDD(Y,DA)"
"^DD",2,2,404.01,21,0)
^^1^1^2950607^^^^
"^DD",2,2,404.01,21,1,0)
This field stores the patient's Current Primary Care Practitioner.
"^DD",2,2,404.01,23,0)
^^3^3^2950607^^^
"^DD",2,2,404.01,23,1,0)
Programmers should use the input & output APIs for this field in order
"^DD",2,2,404.01,23,2,0)
to be compatible with changes in the Primary Care Management Module
"^DD",2,2,404.01,23,3,0)
Release in winter of 1995-1996.
"^DD",2,2,404.01,"DT")
2980812
"^DD",2,2,404.02,0)
*CURRENT PC TEAM^P404.51'^SCTM(404.51,^PC;2^Q
"^DD",2,2,404.02,3)
This is the patient's Primary Care Team.
"^DD",2,2,404.02,21,0)
^^1^1^2950602^^^
"^DD",2,2,404.02,21,1,0)
This field contains the patients's Primary Care Team.
"^DD",2,2,404.02,23,0)
^^4^4^2950602^^
"^DD",2,2,404.02,23,1,0)
This field points to the TEAM (#404.51) File (distributed with SD*5.3*30).
"^DD",2,2,404.02,23,2,0)
Programmers should use the input & output APIs for this field in order
"^DD",2,2,404.02,23,3,0)
to be compatible with changes in the Primary Care Management Module
"^DD",2,2,404.02,23,4,0)
Release in winter of 1995-1996.
"^DD",2,2,404.02,"DT")
2980812
"^DD",2,2,534,0)
PH DATE/TIME UPDATED^2.0534DA^^PH;0
"^DD",2,2,991.01,0)
INTEGRATION CONTROL NUMBER^NJ12,0Xa^^MPI;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1
"."1N.N)!('$D(RGRSICN)) X
"^DD",2,2,991.01,1,0)
^.1^^-1
"^DD",2,2,991.01,1,1,0)
2^AICN
"^DD",2,2,991.01,1,1,1)
S ^DPT("AICN",$E(X,1,30),DA)=""
"^DD",2,2,991.01,1,1,2)
K ^DPT("AICN",$E(X,1,30),DA)
"^DD",2,2,991.01,1,1,"%D",0)
^^2^2^2960807^
"^DD",2,2,991.01,1,1,"%D",1,0)
This is a non-lookup cross-reference for the Integration Control 
"^DD",2,2,991.01,1,1,"%D",2,0)
Number Field.
"^DD",2,2,991.01,1,1,"DT")
2960807
"^DD",2,2,991.01,1,2,0)
2^AHICN^MUMPS
"^DD",2,2,991.01,1,2,1)
Q
"^DD",2,2,991.01,1,2,2)
I $T(ICN^VAFCHIS)'="" D ICN^VAFCHIS(X,DA)
"^DD",2,2,991.01,1,2,"%D",0)
^^1^1^2980114^^^^
"^DD",2,2,991.01,1,2,"%D",1,0)
Used to create ICN History, ICN lookup capability.
"^DD",2,2,991.01,1,2,"DT")
2980114
"^DD",2,2,991.01,1,3,0)
2^AR^MUMPS
"^DD",2,2,991.01,1,3,1)
I $T(KILL^VAFCMIS)'="" D KILL^VAFCMIS(DA)
"^DD",2,2,991.01,1,3,2)
Q
"^DD",2,2,991.01,1,3,"%D",0)
^^2^2^2980114^^^
"^DD",2,2,991.01,1,3,"%D",1,0)
Cross Reference is used to delete the 'AMPIMIS' cross reference denoting
"^DD",2,2,991.01,1,3,"%D",2,0)
missing ICN.
"^DD",2,2,991.01,1,3,"DT")
2980114
"^DD",2,2,991.01,3)
This field can only be edited by CIRN !
"^DD",2,2,991.01,21,0)
^.001^1^1^3050603^^^^
"^DD",2,2,991.01,21,1,0)
Machine to machine identifier for a patient.
"^DD",2,2,991.01,"AUDIT")
y
"^DD",2,2,991.01,"DT")
3070508
"^DD",2,2,991.02,0)
ICN CHECKSUM^Fa^^MPI;2^K:$L(X)>6!($L(X)<6) X
"^DD",2,2,991.02,3)
Answer must be 6 characters in length.
"^DD",2,2,991.02,21,0)
^.001^2^2^3010215^^^^
"^DD",2,2,991.02,21,1,0)
This checksum is the calculated checksum for the Integration Control
"^DD",2,2,991.02,21,2,0)
Number. It verifies the integrity of the ICN.
"^DD",2,2,991.02,"AUDIT")
y
"^DD",2,2,991.02,"DT")
3010215
"^DD",2,2,991.03,0)
COORDINATING MASTER OF RECORD^P4'a^DIC(4,^MPI;3^Q
"^DD",2,2,991.03,1,0)
^.1^^-1
"^DD",2,2,991.03,1,1,0)
2^ACMOR
"^DD",2,2,991.03,1,1,1)
S ^DPT("ACMOR",$E(X,1,30),DA)=""
"^DD",2,2,991.03,1,1,2)
K ^DPT("ACMOR",$E(X,1,30),DA)
"^DD",2,2,991.03,1,2,0)
2^AHCMOR^MUMPS
"^DD",2,2,991.03,1,2,1)
Q
"^DD",2,2,991.03,1,2,2)
I $T(CMOR^VAFCHIS)'="" D CMOR^VAFCHIS(X,DA)
"^DD",2,2,991.03,1,2,"%D",0)
^^2^2^3000731^
"^DD",2,2,991.03,1,2,"%D",1,0)
This cross-reference is used to create the MPICMOR history multiple for
"^DD",2,2,991.03,1,2,"%D",2,0)
lookup capability.
"^DD",2,2,991.03,1,2,"DT")
3000623
"^DD",2,2,991.03,3)
Enter the coordinating site for the patient.
"^DD",2,2,991.03,21,0)
^.001^1^1^3010713^^^^
"^DD",2,2,991.03,21,1,0)
The coordinating site for the patient.
"^DD",2,2,991.03,"AUDIT")
y
"^DD",2,2,991.03,"DT")
3010713
"^DD",2,2,991.04,0)
LOCALLY ASSIGNED ICN^Sa^1:YES;^MPI;4^Q
"^DD",2,2,991.04,1,0)
^.1
"^DD",2,2,991.04,1,1,0)
2^AICNL
"^DD",2,2,991.04,1,1,1)
S ^DPT("AICNL",$E(X,1,30),DA)=""
"^DD",2,2,991.04,1,1,2)
K ^DPT("AICNL",$E(X,1,30),DA)
"^DD",2,2,991.04,1,1,"%D",0)
^^1^1^2960912^
"^DD",2,2,991.04,1,1,"%D",1,0)
INDICATES THE ICN WAS LOCALLY ASSIGNED
"^DD",2,2,991.04,1,1,"DT")
2960912
"^DD",2,2,991.04,3)
This field will be 1 or YES if a LOCAL ICN has been assigned.
"^DD",2,2,991.04,21,0)
^^1^1^2981223^^^^
"^DD",2,2,991.04,21,1,0)
DESIGNATES THAT THE ICN BELONGING TO THIS PATIENT IS LOCAL
"^DD",2,2,991.04,"AUDIT")
y
"^DD",2,2,991.04,"DT")
3060919
"^DD",2,2,991.05,0)
SUBSCRIPTION CONTROL NUMBER^P774'Ia^HLS(774,^MPI;5^Q
"^DD",2,2,991.05,1,0)
^.1
"^DD",2,2,991.05,1,1,0)
2^ASCN^MUMPS
"^DD",2,2,991.05,1,1,1)
Q
"^DD",2,2,991.05,1,1,2)
I '$D(DIU(0)) N DA,DIK S DIK="^HLS(774,",DA=X D ^DIK
"^DD",2,2,991.05,1,1,"%D",0)
^^4^4^2970812^
"^DD",2,2,991.05,1,1,"%D",1,0)
The kill logic on this cross-reference is used to selectively delete
"^DD",2,2,991.05,1,1,"%D",2,0)
entries from the Subscription Control File for patient merges and
"^DD",2,2,991.05,1,1,"%D",3,0)
deletions. Re-indexing the patient file will not affect the Subscription
"^DD",2,2,991.05,1,1,"%D",4,0)
Control file.
"^DD",2,2,991.05,1,1,"DT")
2970812
"^DD",2,2,991.05,1,2,0)
2^ASCN2
"^DD",2,2,991.05,1,2,1)
S ^DPT("ASCN2",$E(X,1,30),DA)=""
"^DD",2,2,991.05,1,2,2)
K ^DPT("ASCN2",$E(X,1,30),DA)
"^DD",2,2,991.05,1,2,3)
MPI/PD XREF - DO NOT DELETE!
"^DD",2,2,991.05,1,2,"%D",0)
^.101^3^3^3010713^^
"^DD",2,2,991.05,1,2,"%D",1,0)
This cross-reference is used by Master Patient Index/ 
"^DD",2,2,991.05,1,2,"%D",2,0)
Patient Demographics (MPI/PD) for various data validation 
"^DD",2,2,991.05,1,2,"%D",3,0)
and reporting functions.
"^DD",2,2,991.05,1,2,"DT")
2980609
"^DD",2,2,991.05,3)
Enter the patient's Subscription Control Number.
"^DD",2,2,991.05,21,0)
^.001^6^6^3010713^^^^
"^DD",2,2,991.05,21,1,0)
This field points to a list of subscribers to this patient's data. For
"^DD",2,2,991.05,21,2,0)
example, see details of the MPI/PD messaging implementation. The subscriber
"^DD",2,2,991.05,21,3,0)
list is specific to this patient. Do not change the subscription control
"^DD",2,2,991.05,21,4,0)
number without remembering to update the current subscriber list in file
"^DD",2,2,991.05,21,5,0)
774 (SUBSCRIPTION CONTROL). Use only documented API calls to create a new
"^DD",2,2,991.05,21,6,0)
subscription control number for a patient.
"^DD",2,2,991.05,"AUDIT")
y
"^DD",2,2,991.05,"DT")
3060919
"^DD",2,2,991.06,0)
CMOR ACTIVITY SCORE^NJ7,0a^^MPI;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1.N) X
"^DD",2,2,991.06,1,0)
^.1
"^DD",2,2,991.06,1,1,0)
2^ACMORS^MUMPS
"^DD",2,2,991.06,1,1,1)
S ^DPT("ACMORS",(9999999-X),DA)=""
"^DD",2,2,991.06,1,1,2)
K ^DPT("ACMORS",(9999999-X),DA)
"^DD",2,2,991.06,1,1,"%D",0)
^.101^6^6^3010713^^^^
"^DD",2,2,991.06,1,1,"%D",1,0)
This inverse cross-reference allows patients with the highest CMOR
"^DD",2,2,991.06,1,1,"%D",2,0)
activity score to receive priority processing. The CMOR activity
"^DD",2,2,991.06,1,1,"%D",3,0)
score collating sequence is reversed to process from highest to
"^DD",2,2,991.06,1,1,"%D",4,0)
lowest scores.
"^DD",2,2,991.06,1,1,"%D",5,0)
This cross-reference reads:
"^DD",2,2,991.06,1,1,"%D",6,0)
^DPT('ACMORS',INVERSE CMOR ACTIVITY SCORE,DA)=''
"^DD",2,2,991.06,1,1,"DT")
2970730
"^DD",2,2,991.06,3)
Type a number between 0 and 9999999, 0 Decimal Digits
"^DD",2,2,991.06,21,0)
^^1^1^3010713^
"^DD",2,2,991.06,21,1,0)
This score is used to determine the Coordinating Master of Record.
"^DD",2,2,991.06,"AUDIT")
y
"^DD",2,2,991.06,"DT")
3060919
"^DD",2,2,991.07,0)
SCORE CALCULATION DATE^Da^^MPI;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,991.07,3)
This is the last date that the CMOR Activity Score was calculated at this site.
"^DD",2,2,991.07,21,0)
^^2^2^2970730^
"^DD",2,2,991.07,21,1,0)
This is the last date that the CMOR ACTIVITY SCORE was calculated
"^DD",2,2,991.07,21,2,0)
at this site.
"^DD",2,2,991.07,"AUDIT")
y
"^DD",2,2,991.07,"DT")
2970730
"^DD",2,2,991.08,0)
TEMPORARY ID NUMBER^Fa^^MPI;8^K:$L(X)>9!($L(X)<9) X
"^DD",2,2,991.08,.1)
Temporary Identification Number (TIN)
"^DD",2,2,991.08,3)
Enter the patient's Department of Defense 9-digit Temporary ID Number.
"^DD",2,2,991.08,21,0)
^.001^6^6^3111206^^^^
"^DD",2,2,991.08,21,1,0)
The Department of Defense (DoD) Defense Eligibility Enrollment Reporting 
"^DD",2,2,991.08,21,2,0)
System (DEERS) uses a Temporary Identification Number for individuals 
"^DD",2,2,991.08,21,3,0)
(e.g., babies) who do not have or have not provided a Social Security 
"^DD",2,2,991.08,21,4,0)
Number (SSN) when the record is added to DEERS.  It is used for military 
"^DD",2,2,991.08,21,5,0)
dependents only.  This DoD TEMPORARY ID NUMBER will be used by the Master 
"^DD",2,2,991.08,21,6,0)
Veteran Index to support the linking of patient records across VA and DoD.
"^DD",2,2,991.08,"AUDIT")
y
"^DD",2,2,991.08,"DT")
3111206
"^DD",2,2,991.09,0)
FOREIGN ID NUMBER^Fa^^MPI;9^K:$L(X)>9!($L(X)<9) X
"^DD",2,2,991.09,.1)
Foreign Identification Number (FIN)
"^DD",2,2,991.09,3)
Enter the patient's Department of Defense 9-digit Foreign ID Number.
"^DD",2,2,991.09,21,0)
^.001^6^6^3111206^^^
"^DD",2,2,991.09,21,1,0)
The Department of Defense (DoD) Defense Eligibility Enrollment Reporting 
"^DD",2,2,991.09,21,2,0)
System (DEERS) uses a Foreign Identification Number for foreign military 
"^DD",2,2,991.09,21,3,0)
and foreign nationals when the record is added to DEERS.  This DoD 
"^DD",2,2,991.09,21,4,0)
FOREIGN ID NUMBER will be used by the Master Veteran Index to support the 
"^DD",2,2,991.09,21,5,0)
linking of patient records without a given Social Security Number (SSN) 
"^DD",2,2,991.09,21,6,0)
across VA and DoD.
"^DD",2,2,991.09,"AUDIT")
y
"^DD",2,2,991.09,"DT")
3111206
"^DD",2,2,992,0)
ICN HISTORY^2.0992A^^MPIFHIS;0
"^DD",2,2,993,0)
CMOR HISTORY^2.0993A^^MPICMOR;0
"^DD",2,2,994,0)
MULTIPLE BIRTH INDICATOR^Sa^N:NO;Y:*MULTIPLE BIRTH*;^MPIMB;1^Q
"^DD",2,2,994,3)
Is the patient part of a multiple birth?
"^DD",2,2,994,21,0)
^.001^3^3^3030519^^^^
"^DD",2,2,994,21,1,0)
The MULTIPLE BIRTH INDICATOR will designate whether or not
"^DD",2,2,994,21,2,0)
the patient is part of a multiple birth (i.e. to identify
"^DD",2,2,994,21,3,0)
twins, etc.).
"^DD",2,2,994,"AUDIT")
y
"^DD",2,2,994,"DT")
3060919
"^DD",2,2,999,0)
ABSENCE DIVISION^CJ15^^ ; ^S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^D
IC(42,+$P(X,U,4),0)):$P(^(0),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"
")
"^DD",2,2,999,.1)
ABSENCE DIVISION
"^DD",2,2,999,9)
^
"^DD",2,2,999,9.01)

"^DD",2,2,999,9.1)
S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0
),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"")
"^DD",2,2,999,21,0)
^^1^1^2900404^^^^
"^DD",2,2,999,21,1,0)
Computed field used in Absence list. For programmers only.
"^DD",2,2,999,"DT")
2850718
"^DD",2,2,999.1,0)
INPATIENT WARD^CJ10^^ ; ^S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC
(42,+$P(X,U,4),0)):$P(^(0),U,1),1:"")
"^DD",2,2,999.1,.1)
INPATIENT WARD
"^DD",2,2,999.1,9)
^
"^DD",2,2,999.1,9.01)

"^DD",2,2,999.1,9.1)
S X=$S($D(^UTILITY($J,"DG",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0
),U,1),1:"")
"^DD",2,2,999.1,21,0)
^^1^1^2900409^^
"^DD",2,2,999.1,21,1,0)
For use in historical inpatient list. For programmers only
"^DD",2,2,999.1,"DT")
2850808
"^DD",2,2,999.2,0)
LAST MEANS TEST^CJ15^^ ; ^S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y
"^DD",2,2,999.2,9)
^
"^DD",2,2,999.2,9.01)

"^DD",2,2,999.2,9.1)
S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y
"^DD",2,2,999.2,"DT")
2930423
"^DD",2,2,1000,0)
DISPOSITION LOG-IN DATE/TIME^2.101DA^^DIS;0
"^DD",2,2,1000,3)
Enter the date/time this patient was registered for care.
"^DD",2,2,1000,21,0)
6^^6^6^2930603^^^^
"^DD",2,2,1000,21,1,0)
The date/time at which this applicant applied for medical benefits, e.g.,
"^DD",2,2,1000,21,2,0)
was registered for care using the 'Registration' option of ADT.
"^DD",2,2,1000,21,3,0)
 
"^DD",2,2,1000,21,4,0)
This multiple contains information on each registration entered for this
"^DD",2,2,1000,21,5,0)
patient including the date of registration, date of disposition, and type
"^DD",2,2,1000,21,6,0)
of disposition.
"^DD",2,2,1000,23,0)
^^6^6^2930603^^
"^DD",2,2,1000,23,1,0)
The date/time at which this applicant applied for medical benefits, e.g.,
"^DD",2,2,1000,23,2,0)
was registered for care using the 'Registration' option of ADT.
"^DD",2,2,1000,23,3,0)
 
"^DD",2,2,1000,23,4,0)
This multiple contains information on each registration entered for this
"^DD",2,2,1000,23,5,0)
patient including the date of registration, date of disposition, and type
"^DD",2,2,1000,23,6,0)
of disposition.
"^DD",2,2,1010.15,0)
RECEIVED VA CARE PREVIOUSLY?^RS^Y:YES;N:NO;^1010.15;5^Q
"^DD",2,2,1010.15,.1)
HAVE YOU PREVIOUSLY RECEIVED CARE IN A VA FACILITY
"^DD",2,2,1010.15,1,0)
^.1
"^DD",2,2,1010.15,1,1,0)
^^TRIGGER^2^1010.151
"^DD",2,2,1010.15,1,1,1)
X ^DD(2,1010.15,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1
:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,1010.15,1,1,1.4)
"^DD",2,2,1010.15,1,1,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,1010.15,0)):$P(
^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'["Y"
"^DD",2,2,1010.15,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X S %=$P(DIH,U,2,999),DIU
=$P(DIH,U,1),^(1010.15)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.151 D ^DICR:$N(^DD(
DIH,DIG,1,0))>0
"^DD",2,2,1010.15,1,1,2)
Q
"^DD",2,2,1010.15,1,1,2.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,1010.15,0)):$P(
^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"") S X=$P($P(Y(2),$C(
59)_$P(Y(1),U,5)_":",2),$C(59),1)'["Y"
"^DD",2,2,1010.15,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X S %=$P(DIH,U,2,999),DIU
=$P(DIH,U,1),^(1010.15)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.151 D ^DICR:$N(^DD(
DIH,DIG,1,0))>0
"^DD",2,2,1010.15,1,1,"CREATE CONDITION")
#1010.15'["Y"
"^DD",2,2,1010.15,1,1,"CREATE VALUE")
@
"^DD",2,2,1010.15,1,1,"DELETE CONDITION")
#1010.15'["Y"
"^DD",2,2,1010.15,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2,1010.15,1,1,"FIELD")
#1010.151
"^DD",2,2,1010.15,3)
Has this patient received care in a VA previously.
"^DD",2,2,1010.15,21,0)
^^2^2^2861007^
"^DD",2,2,1010.15,21,1,0)
Enter 'Y' if this veteran has previously received care in another VA
"^DD",2,2,1010.15,21,2,0)
facility, otherwise enter 'N'.
"^DD",2,2,1010.15,"DT")
2870120
"^DD",2,2,1010.151,0)
MOST RECENT DATE OF CARE^DX^^1010.15;1^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K
:Y<1 X
"^DD",2,2,1010.151,1,0)
^.1
"^DD",2,2,1010.151,1,1,0)
^^TRIGGER^2^1010.152
"^DD",2,2,1010.151,1,1,1)
Q
"^DD",2,2,1010.151,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15)
,1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15)
,1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,1010.151,1,1,2.4)
"^DD",2,2,1010.151,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X S %=$P(DIH,U,3,999),DIU
=$P(DIH,U,2),^(1010.15)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.152
 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,1010.151,1,1,"CREATE VALUE")
NO EFFECT
"^DD",2,2,1010.151,1,1,"DELETE CONDITION")
MOST RECENT DATE OF CARE=""
"^DD",2,2,1010.151,1,1,"DELETE VALUE")
@
"^DD",2,2,1010.151,1,1,"FIELD")
MOST RECENT LOCATION OF CARE
"^DD",2,2,1010.151,1,2,0)
^^TRIGGER^2^1010.153
"^DD",2,2,1010.151,1,2,1)
Q
"^DD",2,2,1010.151,1,2,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15)
,1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15)
,1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,1010.151,1,2,2.4)
"^DD",2,2,1010.151,1,2,2.4)
S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,
U,2,99))  S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(1010.15)=$P(DIH,U,1
,2)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.153 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,1010.151,1,2,"CREATE VALUE")
NO EFFECT
"^DD",2,2,1010.151,1,2,"DELETE CONDITION")
MOST RECENT DATE OF CARE=""
"^DD",2,2,1010.151,1,2,"DELETE VALUE")
@
"^DD",2,2,1010.151,1,2,"FIELD")
2ND MOST RECENT DATE OF CARE
"^DD",2,2,1010.151,3)
Enter the most recent date of care in a VA facility.
"^DD",2,2,1010.151,5,1,0)
2^1010.15^1
"^DD",2,2,1010.151,21,0)
^^2^2^2861007^
"^DD",2,2,1010.151,21,1,0)
If this veteran has previously received care in another VA facility
"^DD",2,2,1010.151,21,2,0)
enter the date of care in that facility.
"^DD",2,2,1010.151,"DT")
2900418
"^DD",2,2,1010.1511,0)
APPOINTMENT REQUEST DATE^D^^1010.15;11^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,1010.1511,1,0)
^.1
"^DD",2,2,1010.1511,1,1,0)
2^AENR10101511^MUMPS
"^DD",2,2,1010.1511,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,1010.1511,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,1010.1511,1,1,3)
 DO NOT DELETE
"^DD",2,2,1010.1511,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2,1010.1511,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,1010.1511,1,1,"%D",2,0)
enrollment.
"^DD",2,2,1010.1511,1,1,"DT")
3050913
"^DD",2,2,1010.1511,1,2,0)
2^AEACL
"^DD",2,2,1010.1511,1,2,1)
S ^DPT("AEACL",$E(X,1,30),DA)=""
"^DD",2,2,1010.1511,1,2,2)
K ^DPT("AEACL",$E(X,1,30),DA)
"^DD",2,2,1010.1511,1,2,"%D",0)
^^1^1^3080214^
"^DD",2,2,1010.1511,1,2,"%D",1,0)
This cross reference is used for Enrollee Appt. Call List
"^DD",2,2,1010.1511,1,2,"DT")
3080214
"^DD",2,2,1010.1511,3)
Enter date VA was notified the enrolling patient is requesting an appointment.
"^DD",2,2,1010.1511,21,0)
^.001^2^2^3080214^^
"^DD",2,2,1010.1511,21,1,0)
This field contains the date the VA enrolling a patient for the first time
"^DD",2,2,1010.1511,21,2,0)
was notified that the patient requests an appointment with a provider.
"^DD",2,2,1010.1511,"DT")
3080214
"^DD",2,2,1010.152,0)
MOST RECENT LOCATION OF CARE^P4'^DIC(4,^1010.15;2^Q
"^DD",2,2,1010.152,3)
Enter the VA in which care was received most recently.
"^DD",2,2,1010.152,5,1,0)
2^1010.151^1
"^DD",2,2,1010.152,21,0)
^^3^3^2861007^
"^DD",2,2,1010.152,21,1,0)
If this veteran have previously received care in another VA facility
"^DD",2,2,1010.152,21,2,0)
select from the available listing the name of the facility (or facility
"^DD",2,2,1010.152,21,3,0)
number) in which care was rendered most recently.
"^DD",2,2,1010.152,"DT")
2840313
"^DD",2,2,1010.153,0)
2ND MOST RECENT DATE OF CARE^DX^^1010.15;3^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X
=Y K:Y<1 X
"^DD",2,2,1010.153,1,0)
^.1
"^DD",2,2,1010.153,1,1,0)
^^TRIGGER^2^1010.154
"^DD",2,2,1010.153,1,1,1)
Q
"^DD",2,2,1010.153,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15)
,1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15)
,1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,1010.153,1,1,2.4)
"^DD",2,2,1010.153,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,
U,3,99))  S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(1010.15)=$P(DIH,U,1
,3)_U_DIV_$S(%]"":U_%,1:""),DIH=2,DIG=1010.154 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2,1010.153,1,1,"CREATE VALUE")
NO EFFECT
"^DD",2,2,1010.153,1,1,"DELETE CONDITION")
2ND MOST RECENT DATE OF CARE=""
"^DD",2,2,1010.153,1,1,"DELETE VALUE")
@
"^DD",2,2,1010.153,1,1,"FIELD")
#1010.154
"^DD",2,2,1010.153,3)
Enter the date of care this patient received care in another VA facility.
"^DD",2,2,1010.153,5,1,0)
2^1010.151^2
"^DD",2,2,1010.153,21,0)
^^2^2^2861007^
"^DD",2,2,1010.153,21,1,0)
If this applicant has received care in more than one other VA facility
"^DD",2,2,1010.153,21,2,0)
enter the date of care received in the next to most recent facility.
"^DD",2,2,1010.153,"DT")
2900418
"^DD",2,2,1010.154,0)
2ND MOST RECENT LOCATION^P4'^DIC(4,^1010.15;4^Q
"^DD",2,2,1010.154,3)
Enter the location of care (VA facility) this patient received other care.
"^DD",2,2,1010.154,5,1,0)
2^1010.153^1
"^DD",2,2,1010.154,21,0)
^^3^3^2861007^
"^DD",2,2,1010.154,21,1,0)
If this veteran has received care in more than one other VA facility
"^DD",2,2,1010.154,21,2,0)
select from the available listing the name of the facility (or facility
"^DD",2,2,1010.154,21,3,0)
number) in which the next to most recent care was received.
"^DD",2,2,1010.154,"DT")
2840313
"^DD",2,2,1010.156,0)
MOST RECENT 1010EZ^P712'I^EAS(712,^1010.15;6^Q
"^DD",2,2,1010.156,21,0)
^.001^7^7^3040419^^^^
"^DD",2,2,1010.156,21,1,0)
This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
"^DD",2,2,1010.156,21,2,0)
  
"^DD",2,2,1010.156,21,3,0)
The purpose of this field is to link the PATIENT file record with
"^DD",2,2,1010.156,21,4,0)
the Veteran's latest 1010EZ Application to this site.  The 1010EZ
"^DD",2,2,1010.156,21,5,0)
data is retained in 1010EZ HOLDING File (#712).  The internal entry
"^DD",2,2,1010.156,21,6,0)
number to file #712 is stored in the MOST RECENT 1010EZ field.
"^DD",2,2,1010.156,21,7,0)
  
"^DD",2,2,1010.156,"DT")
3040420
"^DD",2,2,1010.157,0)
COMBAT INDICATED ON 1010EZ^S^0:NO;1:YES;^1010.15;7^Q
"^DD",2,2,1010.157,21,0)
^^13^13^3040416^
"^DD",2,2,1010.157,21,1,0)
This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
"^DD",2,2,1010.157,21,2,0)
 
"^DD",2,2,1010.157,21,3,0)
The purpose of this field is to store within the PATIENT file the
"^DD",2,2,1010.157,21,4,0)
applicant's answer to the 1010EZ question:
"^DD",2,2,1010.157,21,5,0)
 
"^DD",2,2,1010.157,21,6,0)
    DID YOU SERVE IN COMBAT AFTER 11/11/1998?
"^DD",2,2,1010.157,21,7,0)
 
"^DD",2,2,1010.157,21,8,0)
This field may contain any of the following:
"^DD",2,2,1010.157,21,9,0)
 
"^DD",2,2,1010.157,21,10,0)
    0 for "NO"
"^DD",2,2,1010.157,21,11,0)
    1 for "YES"
"^DD",2,2,1010.157,21,12,0)
    null (i.e., not answered)
"^DD",2,2,1010.157,21,13,0)
 
"^DD",2,2,1010.157,"DT")
3040416
"^DD",2,2,1010.158,0)
DISABILITY DISCHARGE ON 1010EZ^S^0:NO;1:YES;^1010.15;8^Q
"^DD",2,2,1010.158,21,0)
^.001^14^14^3040419^^
"^DD",2,2,1010.158,21,1,0)
This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
"^DD",2,2,1010.158,21,2,0)
 
"^DD",2,2,1010.158,21,3,0)
The purpose of this field is to store within the PATIENT file the
"^DD",2,2,1010.158,21,4,0)
applicant's answer to the 1010EZ question:
"^DD",2,2,1010.158,21,5,0)
 
"^DD",2,2,1010.158,21,6,0)
WAS DISCHARGE FROM MILITARY FOR A DISABILITY INCURRED OR
"^DD",2,2,1010.158,21,7,0)
AGGRAVATED IN THE LINE OF DUTY?
"^DD",2,2,1010.158,21,8,0)
 
"^DD",2,2,1010.158,21,9,0)
This field may contain any of the following:
"^DD",2,2,1010.158,21,10,0)
 
"^DD",2,2,1010.158,21,11,0)
    0 for "NO"
"^DD",2,2,1010.158,21,12,0)
    1 for "YES"
"^DD",2,2,1010.158,21,13,0)
    null (i.e., not answered)
"^DD",2,2,1010.158,21,14,0)
 
"^DD",2,2,1010.158,"DT")
3040416
"^DD",2,2,1010.159,0)
APPOINTMENT REQUEST ON 1010EZ^S^0:NO;1:YES;^1010.15;9^Q
"^DD",2,2,1010.159,.1)
Do you want an appt. with a VA doctor/provider as soon as available? 
"^DD",2,2,1010.159,1,0)
^.1^^-1
"^DD",2,2,1010.159,1,1,0)
2^AENR1010159^MUMPS
"^DD",2,2,1010.159,1,1,1)
D EVENT^IVMPLOG(DA)
"^DD",2,2,1010.159,1,1,2)
D EVENT^IVMPLOG(DA)
"^DD",2,2,1010.159,1,1,3)
 DO NOT DELETE
"^DD",2,2,1010.159,1,1,"%D",0)
^.101^2^2^3050627^^^^
"^DD",2,2,1010.159,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2,1010.159,1,1,"%D",2,0)
enrollment.
"^DD",2,2,1010.159,1,1,"DT")
3050627
"^DD",2,2,1010.159,3)
Enter 'Y' if the veteran applicant has requested an appointment with a VA doctor
/provider.
"^DD",2,2,1010.159,4)

"^DD",2,2,1010.159,21,0)
^.001^7^7^3050225^^^^
"^DD",2,2,1010.159,21,1,0)
Enter a 'Y' if the veteran applicant has requested an appointment with a
"^DD",2,2,1010.159,21,2,0)
VA doctor or provider and wants to be seen as soon as one becomes
"^DD",2,2,1010.159,21,3,0)
available.  Enter a 'N' if the veteran applicant has not requested an
"^DD",2,2,1010.159,21,4,0)
appointment.
"^DD",2,2,1010.159,21,5,0)
 
"^DD",2,2,1010.159,21,6,0)
This question may ONLY be entered ONCE for the veteran.  The answer to
"^DD",2,2,1010.159,21,7,0)
this question CANNOT be changed after the initial entry.
"^DD",2,2,1010.159,23,0)
^.001^2^2^3050225^^^^
"^DD",2,2,1010.159,23,1,0)
This field reflects the a request indicated on the patient's initial 
"^DD",2,2,1010.159,23,2,0)
1010EZ.
"^DD",2,2,1010.159,"DT")
3080401
"^DD",2,2,1010.161,0)
APPOINTMENT REQUEST STATUS^S^C:CANCELLED;E:EWL;F:FILLED;I:IN PROCESS/VETERAN CON
TACTED;^1010.16;1^Q
"^DD",2,2,1010.161,1,0)
^.1
"^DD",2,2,1010.161,1,1,0)
^^TRIGGER^2^1010.162
"^DD",2,2,1010.161,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S 
X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(2,1010.1
61,1,1,1.4)
"^DD",2,2,1010.161,1,1,1.4)
S DIH=$G(^DPT(DIV(0),1010.16)),DIV=X S $P(^(1010.16),U,2)=DIV,DIH=2,DIG=1010.162
 D ^DICR
"^DD",2,2,1010.161,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S 
X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),1010.16)),DIV=X S $P(
^(1010.16),U,2)=DIV,DIH=2,DIG=1010.162 D ^DICR
"^DD",2,2,1010.161,1,1,"CREATE VALUE")
NOW
"^DD",2,2,1010.161,1,1,"DELETE VALUE")
@
"^DD",2,2,1010.161,1,1,"FIELD")
DATE STATUS LA
"^DD",2,2,1010.161,3)
Enter status of appointment request.
"^DD",2,2,1010.161,21,0)
^^3^3^3080317^
"^DD",2,2,1010.161,21,1,0)
This field is the status of the veteran's new appointment requested.
"^DD",2,2,1010.161,21,2,0)
This field is entered by the user through the new enrollee appointment
"^DD",2,2,1010.161,21,3,0)
request option.
"^DD",2,2,1010.161,"DT")
3080317
"^DD",2,2,1010.162,0)
DATE STATUS LAST EDITED^D^^1010.16;2^S %DT="ET" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,1010.162,5,1,0)
2^1010.161^1
"^DD",2,2,1010.162,21,0)
^^2^2^3080317^
"^DD",2,2,1010.162,21,1,0)
This is the date appointment request status was last edited. This field is
"^DD",2,2,1010.162,21,2,0)
updated by the computer whenever anyone edits the status information.
"^DD",2,2,1010.162,"DT")
3080317
"^DD",2,2,1010.163,0)
APPOINTMENT REQUEST COMMENT^F^^1010.16;3^K:$L(X)>200!($L(X)<2) X
"^DD",2,2,1010.163,1,0)
^.1
"^DD",2,2,1010.163,1,1,0)
^^TRIGGER^2^1010.164
"^DD",2,2,1010.163,1,1,1)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S 
X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(2,1010.1
63,1,1,1.4)
"^DD",2,2,1010.163,1,1,1.4)
S DIH=$G(^DPT(DIV(0),1010.16)),DIV=X S $P(^(1010.16),U,4)=DIV,DIH=2,DIG=1010.164
 D ^DICR
"^DD",2,2,1010.163,1,1,2)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,1010.16)):^(1010.16),1:"") S 
X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),1010.16)),DIV=X S $P(
^(1010.16),U,4)=DIV,DIH=2,DIG=1010.164 D ^DICR
"^DD",2,2,1010.163,1,1,"CREATE VALUE")
NOW
"^DD",2,2,1010.163,1,1,"DELETE VALUE")
@
"^DD",2,2,1010.163,1,1,"FIELD")
DATE COMMENT LAST
"^DD",2,2,1010.163,3)
Answer must be 2-200 characters in length.
"^DD",2,2,1010.163,21,0)
^.001^2^2^3080331^^^
"^DD",2,2,1010.163,21,1,0)
This field is entered by the user through the new enrollee appointment
"^DD",2,2,1010.163,21,2,0)
request option.
"^DD",2,2,1010.163,"DT")
3080331
"^DD",2,2,1010.164,0)
DATE COMMENT LAST EDITED^D^^1010.16;4^S %DT="ET" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,1010.164,5,1,0)
2^1010.163^1
"^DD",2,2,1010.164,21,0)
^^2^2^3080317^
"^DD",2,2,1010.164,21,1,0)
This is the date appointment request comment was last edited. This field
"^DD",2,2,1010.164,21,2,0)
is updated by the computer whenever anyone edits the comment information.
"^DD",2,2,1010.164,"DT")
3080317
"^DD",2,2,1100.01,0)
FUGITIVE FELON FLAG^SX^1:YES;^FFP;1^I $D(X) D FFP^DGLOCK
"^DD",2,2,1100.01,1,0)
^.1
"^DD",2,2,1100.01,1,1,0)
2^AUFFP^MUMPS
"^DD",2,2,1100.01,1,1,1)
S DGFFF=X,X="DGFFP01" X ^%ZOSF("TEST") D:$T DD^DGFFP01(DA) S X=DGFFF K DGFFF
"^DD",2,2,1100.01,1,1,2)
S DGFFF=X,X="DGFFP01" X ^%ZOSF("TEST") D:$T DD^DGFFP01(DA) S X=DGFFF K DGFFF
"^DD",2,2,1100.01,1,1,"%D",0)
^.101^5^5^3021113^^^^
"^DD",2,2,1100.01,1,1,"%D",1,0)
This cross-reference is used to set the following fields:
"^DD",2,2,1100.01,1,1,"%D",2,0)
   FFF ENTERED BY (#1100.02)
"^DD",2,2,1100.01,1,1,"%D",3,0)
   FFF DATE ENTERED (#1100.03)
"^DD",2,2,1100.01,1,1,"%D",4,0)
   FFF REMOVED BY (#1100.04)
"^DD",2,2,1100.01,1,1,"%D",5,0)
   FFF DATE REMOVED (#1100.05)
"^DD",2,2,1100.01,1,1,"DT")
3021113
"^DD",2,2,1100.01,1,2,0)
2^AXFFP
"^DD",2,2,1100.01,1,2,1)
S ^DPT("AXFFP",$E(X,1,30),DA)=""
"^DD",2,2,1100.01,1,2,2)
K ^DPT("AXFFP",$E(X,1,30),DA)
"^DD",2,2,1100.01,1,2,"%D",0)
^^3^3^3021108^
"^DD",2,2,1100.01,1,2,"%D",1,0)
This cross-reference is used for sorting patients that have the Fugitive 
"^DD",2,2,1100.01,1,2,"%D",2,0)
Felon Flag set.  If the flag is not set, a cross-reference will not exist 
"^DD",2,2,1100.01,1,2,"%D",3,0)
for the patient.
"^DD",2,2,1100.01,1,2,"DT")
3021108
"^DD",2,2,1100.01,3)
Respond 'YES' if a Fugitive Felon warrent has been received for this patient
"^DD",2,2,1100.01,20,0)
^.3LA^1^1
"^DD",2,2,1100.01,20,1,0)
FFP
"^DD",2,2,1100.01,21,0)
^^6^6^3021112^
"^DD",2,2,1100.01,21,1,0)
This field is in support of Pub. L. 107-103, section 505, and is used to 
"^DD",2,2,1100.01,21,2,0)
flag a patient who has a fugitive felon warrant outstanding.  This 
"^DD",2,2,1100.01,21,3,0)
information will be provided to the appropriate personnel to enter.  
"^DD",2,2,1100.01,21,4,0)
Access to this field requires the DGFFP ACCESS key.  This field should 
"^DD",2,2,1100.01,21,5,0)
not be updated directly, but should be entered through the appropriate 
"^DD",2,2,1100.01,21,6,0)
Fugitive Felon Program options.
"^DD",2,2,1100.01,"DEL",1,0)
D FFP^DGLOCK I '$D(X)
"^DD",2,2,1100.01,"DT")
3021113
"^DD",2,2,1100.02,0)
FFF ENTERED BY^P200'^VA(200,^FFP;2^Q
"^DD",2,2,1100.02,3)
Select the user who is setting the current Fugitive Felon Flag
"^DD",2,2,1100.02,9)
^
"^DD",2,2,1100.02,20,0)
^.3LA^2^2
"^DD",2,2,1100.02,20,1,0)
ffp
"^DD",2,2,1100.02,20,2,0)
FFP
"^DD",2,2,1100.02,21,0)
^^3^3^3021112^
"^DD",2,2,1100.02,21,1,0)
This field contains the user who entered the current Fugtitive Felon Flag
"^DD",2,2,1100.02,21,2,0)
for this patient.  It is automatically entered when the FUGITIVE FELON
"^DD",2,2,1100.02,21,3,0)
FLAG field (#1100.01) is entered.
"^DD",2,2,1100.02,23,0)
^.001^2^2^3021112^^^^
"^DD",2,2,1100.02,23,1,0)
This field can only be set by the appropriate option and cannot be set 
"^DD",2,2,1100.02,23,2,0)
through Fileman.
"^DD",2,2,1100.02,"DT")
3021112
"^DD",2,2,1100.03,0)
FFF DATE ENTERED^D^^FFP;3^S %DT="ETXR" D ^%DT S X=Y K:X<1 X
"^DD",2,2,1100.03,3)
(No range limit on date)
"^DD",2,2,1100.03,20,0)
^.3LA^1^1
"^DD",2,2,1100.03,20,1,0)
FFP
"^DD",2,2,1100.03,21,0)
^.001^3^3^3021112^^^^
"^DD",2,2,1100.03,21,1,0)
Date/Time the FUGITIVE FELON FLAG field (#1100.01) was entered.  This 
"^DD",2,2,1100.03,21,2,0)
field is automatically set when the FUGITIVE FELON FLAG field (#1100.01)
"^DD",2,2,1100.03,21,3,0)
is set.
"^DD",2,2,1100.03,23,0)
^.001^2^2^3021112^^^
"^DD",2,2,1100.03,23,1,0)
This field can only be set through the appropriate option, it cannot be 
"^DD",2,2,1100.03,23,2,0)
set through FileMan.
"^DD",2,2,1100.03,"DT")
3021205
"^DD",2,2,1100.04,0)
FFF REMOVED BY^P200'^VA(200,^FFP;4^Q
"^DD",2,2,1100.04,3)
Select the user who removed the Fugitive Felon Flag
"^DD",2,2,1100.04,9)
^
"^DD",2,2,1100.04,20,0)
^.3LA^1^1
"^DD",2,2,1100.04,20,1,0)
FFP
"^DD",2,2,1100.04,21,0)
^^3^3^3021112^
"^DD",2,2,1100.04,21,1,0)
This field contains the user who removed the current Fugitive Felon Flag
"^DD",2,2,1100.04,21,2,0)
for this patient.  It is automatically entered when the FUGITIVE FELON FLAG
"^DD",2,2,1100.04,21,3,0)
field (#1100.01) is deleted.
"^DD",2,2,1100.04,23,0)
^.001^2^2^3021112^^^
"^DD",2,2,1100.04,23,1,0)
This field can only be modified through the appropriate options, it 
"^DD",2,2,1100.04,23,2,0)
cannot be modified through FileMan.
"^DD",2,2,1100.04,"DT")
3021112
"^DD",2,2,1100.05,0)
FFF DATE REMOVED^D^^FFP;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,1100.05,3)
Enter the date and time the Fugitive Felon Flag is removed
"^DD",2,2,1100.05,9)
^
"^DD",2,2,1100.05,20,0)
^.3LA^1^1
"^DD",2,2,1100.05,20,1,0)
FFP
"^DD",2,2,1100.05,21,0)
^^3^3^3021112^
"^DD",2,2,1100.05,21,1,0)
Date/Time the FUGITIVE FELON FLAG Field (#1100.01) was removed.  This 
"^DD",2,2,1100.05,21,2,0)
field is automatically set when the FUGITIVE FELON FLAG field (#1100.01)
"^DD",2,2,1100.05,21,3,0)
is deleted.
"^DD",2,2,1100.05,23,0)
^.001^2^2^3021112^^
"^DD",2,2,1100.05,23,1,0)
This field can only be set through the appropriate option and cannot be 
"^DD",2,2,1100.05,23,2,0)
directly set.
"^DD",2,2,1100.05,"DT")
3021112
"^DD",2,2,1100.09,0)
FFF REMOVAL REMARKS^F^^FFP;9^K:$L(X)>80!($L(X)<2) X
"^DD",2,2,1100.09,3)
Answer must be 2-80 characters in length.  This is a short comment about clearin
g this flag.
"^DD",2,2,1100.09,9)
^
"^DD",2,2,1100.09,21,0)
^^1^1^3021204^^
"^DD",2,2,1100.09,21,1,0)
If the FFF flag has been cleared for this patient, this field contains a short r
eason as to why the flag was cleared.  This is a free text field which allows up
 to 80 characters to be entered.
"^DD",2,2,1100.09,"DT")
3021204
"^DD",2,2,1900,0)
APPOINTMENT^2.98P^^S;0
"^DD",2,2,1900,9)
^
"^DD",2,2,1900,21,0)
^^3^3^2930924^^^^
"^DD",2,2,1900,21,1,0)
This multiple contains information on appointments this patient has had or
"^DD",2,2,1900,21,2,0)
is scheduled to have.  This information includes the date/time of the
"^DD",2,2,1900,21,3,0)
appointment, the clinic, and the reason for the appointment.
"^DD",2,2,1901,0)
VETERAN (Y/N)?^RSXa^Y:YES;N:NO;^VET;1^I $D(X) S:'$D(DPTX) DFN=DA D:'$D(^XUSEC("D
G ELIGIBILITY",DUZ)) VAGE^DGLOCK:X="Y" I $D(X) D:$D(DFN) EV^DGLOCK
"^DD",2,2,1901,.1)

"^DD",2,2,1901,1,0)
^.1
"^DD",2,2,1901,1,1,0)
2^AN^MUMPS
"^DD",2,2,1901,1,1,1)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,1901,1,1,2)
S DFN=DA D EN^DGMTCOR K DGMTCOR
"^DD",2,2,1901,1,1,"%D",0)
^^3^3^2930121^^^^
"^DD",2,2,1901,1,1,"%D",1,0)
This cross reference acts like a trigger.  It 'triggers' the status field
"^DD",2,2,1901,1,1,"%D",2,0)
in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It
"^DD",2,2,1901,1,1,"%D",3,0)
will update the field to 'NO LONGER APPLICABLE' if appropriate.
"^DD",2,2,1901,1,1,"DT")
2930121
"^DD",2,2,1901,1,2,0)
2^AN1^MUMPS
"^DD",2,2,1901,1,2,1)
S DFN=DA D EN^DGRP7CC
"^DD",2,2,1901,1,2,2)
S DFN=DA D EN^DGRP7CC
"^DD",2,2,1901,1,2,"%D",0)
^^2^2^3060316^
"^DD",2,2,1901,1,2,"%D",1,0)
THIS CROSS REFERENCE CONTAINS TRIGGERS TO DELETE DATA FROM SPECIFIED
"^DD",2,2,1901,1,2,"%D",2,0)
FIELDS WHEN THE 'VETERAN (Y/N)' FIELD IS CHANGED TO "NO".
"^DD",2,2,1901,1,2,"DT")
3060316
"^DD",2,2,1901,1,3,0)
^^TRIGGER^2^.301
"^DD",2,2,1901,1,3,1)
X ^DD(2,1901,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y
(1),U,1),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,1901,1,3,1.4)
"^DD",2,2,1901,1,3,1.3)
K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,1901,0)):$P(^(0
),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'["Y"
"^DD",2,2,1901,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,
1),^(.3)=DIV_$S(%]"":U_%,1:""),DIH=2,DIG=.301 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
"^DD",2,2,1901,1,3,2)
Q
"^DD",2,2,1901,1,3,"CREATE CONDITION")
#1901'["Y"
"^DD",2,2,1901,1,3,"CREATE VALUE")
"N"
"^DD",2,2,1901,1,3,"DELETE VALUE")
NO EFFECT
"^DD",2,2,1901,1,3,"FIELD")
#.301
"^DD",2,2,1901,1,4,0)
2^AENR1901^MUMPS
"^DD",2,2,1901,1,4,1)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,1901,1,4,2)
D AUTOUPD^DGENA2(DA)
"^DD",2,2,1901,1,4,3)
DO NOT DELETE
"^DD",2,2,1901,1,4,"%D",0)
^^1^1^2980225^
"^DD",2,2,1901,1,4,"%D",1,0)
This cross-reference will be used to update the patient's enrollment.
"^DD",2,2,1901,1,4,"DT")
2980225
"^DD",2,2,1901,1,991,0)
2^AVAFC1901^MUMPS
"^DD",2,2,1901,1,991,1)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,1901,1,991,2)
I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
"^DD",2,2,1901,1,991,"%D",0)
^^15^15^2990204^^
"^DD",2,2,1901,1,991,"%D",1,0)
This cross reference is used to remember that changes were made to the
"^DD",2,2,1901,1,991,"%D",2,0)
PATIENT file (#2) outside of the Registration process.  Execution of this
"^DD",2,2,1901,1,991,"%D",3,0)
cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)
"^DD",2,2,1901,1,991,"%D",4,0)
and mark it as requiring transmission of an HL7 ADT-A08 message.
"^DD",2,2,1901,1,991,"%D",5,0)
 
"^DD",2,2,1901,1,991,"%D",6,0)
The local variable VAFCFLG will be set to 1 if the cross reference is
"^DD",2,2,1901,1,991,"%D",7,0)
not executed because the change is being made from within the Registration
"^DD",2,2,1901,1,991,"%D",8,0)
process.
"^DD",2,2,1901,1,991,"%D",9,0)
 
"^DD",2,2,1901,1,991,"%D",10,0)
Execution of this cross reference can be prevented by setting the local
"^DD",2,2,1901,1,991,"%D",11,0)
variable VAFCA08 equal to 1.
"^DD",2,2,1901,1,991,"%D",12,0)
  
"^DD",2,2,1901,1,991,"%D",13,0)
The local variable VAFCF is used to identify the field edited.
"^DD",2,2,1901,1,991,"%D",14,0)
This data is stored in the FIELD(S) EDITED (#2.1) field in the 
"^DD",2,2,1901,1,991,"%D",15,0)
ADT/HL7 PIVOT file (#391.71).
"^DD",2,2,1901,1,991,"DT")
2990204
"^DD",2,2,1901,1,992,0)
2^ADGRU1901^MUMPS
"^DD",2,2,1901,1,992,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,1901,1,992,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
"^DD",2,2,1901,1,992,"%D",0)
^^9^9^2990921^
"^DD",2,2,1901,1,992,"%D",1,0)
This cross reference is used to remember that changes were made to a 
"^DD",2,2,1901,1,992,"%D",2,0)
monitored data field in the PATIENT File (#2) required for a vendor
"^DD",2,2,1901,1,992,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2,1901,1,992,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2,1901,1,992,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2,1901,1,992,"%D",6,0)
interface.
"^DD",2,2,1901,1,992,"%D",7,0)
 
"^DD",2,2,1901,1,992,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2,1901,1,992,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2,1901,1,992,"DT")
2990921
"^DD",2,2,1901,3)
Is this patient requesting care as a veteran of the U.S. Armed Forces?
"^DD",2,2,1901,20,0)
^.3LA^2^2
"^DD",2,2,1901,20,1,0)
ECD
"^DD",2,2,1901,20,2,0)
SVC
"^DD",2,2,1901,21,0)
^.001^5^5^3010125^^^^
"^DD",2,2,1901,21,1,0)
Enter 'Y' if this applicant is over 17 years of age and is a veteran,
"^DD",2,2,1901,21,2,0)
'N' if not.  If applicant is under 17 years of age and is a veteran
"^DD",2,2,1901,21,3,0)
only those users holding the designated security may identify him/her
"^DD",2,2,1901,21,4,0)
as a veteran.  Once eligibility is verified only those users who
"^DD",2,2,1901,21,5,0)
hold the designated security key may enter/edit this field.
"^DD",2,2,1901,"AUDIT")
y
"^DD",2,2,1901,"DEL",1,0)
S DFN=DA D EV^DGLOCK I '$D(X)
"^DD",2,2,1901,"DT")
3060802
"^DD",2,2,1903,0)
ARCHIVED DATA^2.12SA^^ARCH;0
"^DD",2,2,1903,21,0)
^^5^5^2911226^^
"^DD",2,2,1903,21,1,0)
This multiple is not presently used by the MAS module.  Archiving
"^DD",2,2,1903,21,2,0)
capabilities for the patient file are not yet available.
"^DD",2,2,1903,21,3,0)
 
"^DD",2,2,1903,21,4,0)
This multiple was distributed in 1987, but the archiving routines were
"^DD",2,2,1903,21,5,0)
not distributed.
"^DD",2,2,11500.01,0)
INITIAL ODS TREATMENT RECEIVED^D^^ODS;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2,11500.01,3)
Enter the date/time this patient was initially seen for an ODS related treatment
.
"^DD",2,2,11500.01,5,1,0)
2^.323^2
"^DD",2,2,11500.01,9)
^
"^DD",2,2,11500.01,21,0)
^^3^3^2910112^
"^DD",2,2,11500.01,21,1,0)
Enter the date/time this patient was initially entered as ODS.  This field
"^DD",2,2,11500.01,21,2,0)
will automatically be created when ODS is selected as the PERIOD OF SERVICE
"^DD",2,2,11500.01,21,3,0)
for this patient.
"^DD",2,2,11500.01,"DT")
2910112
"^DD",2,2,11500.02,0)
RECALLED TO ACTIVE DUTY^S^0:NO;1:NATIONAL GUARD;2:RESERVES;^ODS;2^Q
"^DD",2,2,11500.02,1,0)
^.1
"^DD",2,2,11500.02,1,1,0)
2^AODS6^MUMPS
"^DD",2,2,11500.02,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,11500.02,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,11500.02,3)
Was this ODS patient recalled to active duty?
"^DD",2,2,11500.02,21,0)
^^2^2^2910112^
"^DD",2,2,11500.02,21,1,0)
Was this operation desert shield patient recalled to active duty?  If so
"^DD",2,2,11500.02,21,2,0)
select from national guard or reserves.  If not, answer no.
"^DD",2,2,11500.02,"DT")
2910118
"^DD",2,2,11500.03,0)
RANK^*P25002.1'^DIC(25002.1,^ODS;3^S DIC("S")="I '$P(^(0),""^"",4),(""^e^c^""[("
"^""_$P(^(0),""^"",2)_""^""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2,11500.03,1,0)
^.1
"^DD",2,2,11500.03,1,1,0)
2^AODS5^MUMPS
"^DD",2,2,11500.03,1,1,1)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,11500.03,1,1,2)
S A1B2TAG="PAT" D ^A1B2XFR
"^DD",2,2,11500.03,3)
Enter the grade/rank of this ODS patient
"^DD",2,2,11500.03,12)
Only active ranks (no federal employees)
"^DD",2,2,11500.03,12.1)
S DIC("S")="I '$P(^(0),""^"",4),(""^e^c^""[(""^""_$P(^(0),""^"",2)_""^""))"
"^DD",2,2,11500.03,21,0)
^^1^1^2910113^
"^DD",2,2,11500.03,21,1,0)
Enter the grade/rank of this operation desert shield patient.
"^DD",2,2,11500.03,"DT")
2910117
"^DD",2,2,500001,0)
IS PATIENT DIABETIC?^S^Y:YES;N:NO;^500001;1^Q
"^DD",2,2,500001,"DT")
2881116
"^DD",2,2,537025,0)
NETWORK IDENTIFIER^F^^537025;1^K:$L(X)>33!($L(X)<1) X
"^DD",2,2,537025,3)
Answer must be 1-33 characters in length.
"^DD",2,2,537025,21,0)
^^3^3^2951215^
"^DD",2,2,537025,21,1,0)
This field holds the synonym values from the Network Health Exchange
"^DD",2,2,537025,21,2,0)
Authorized Site file indicating where a particular patient has been found
"^DD",2,2,537025,21,3,0)
to have data.
"^DD",2,2,537025,"DT")
2951215
"^DD",2,2,537026,0)
MHV SOCIALIZATION^2.0537026DA^^1;0
"^DD",2,2,537026,"DT")
3140912
"^DD",2,2.001,0)
ENROLLMENT CLINIC SUB-FIELD^NL^2^3
"^DD",2,2.001,0,"IX","B",2.001,.01)

"^DD",2,2.001,0,"NM","ENROLLMENT CLINIC")

"^DD",2,2.001,0,"UP")
2
"^DD",2,2.001,.01,0)
ENROLLMENT CLINIC^MP44'X^SC(^0;1^K:$P(^SC(X,0),"^",3)'["C" X Q
"^DD",2,2.001,.01,1,0)
^.1
"^DD",2,2.001,.01,1,1,0)
2.001^B
"^DD",2,2.001,.01,1,1,1)
S ^DPT(DA(1),"DE","B",$E(X,1,30),DA)=""
"^DD",2,2.001,.01,1,1,2)
K ^DPT(DA(1),"DE","B",$E(X,1,30),DA)
"^DD",2,2.001,.01,"DT")
2851030
"^DD",2,2.001,1,0)
ENROLLMENT DATA^2.011D^^1;0
"^DD",2,2.001,1,21,0)
^^4^4^2911214^
"^DD",2,2.001,1,21,1,0)
This multiple contains the pertinant data relating to this patients
"^DD",2,2.001,1,21,2,0)
enrollment in this clinic.  Data contained in this multiple includes
"^DD",2,2.001,1,21,3,0)
the date the patient was enrolled, the date of discharge from the clinic
"^DD",2,2.001,1,21,4,0)
and whether the patient was seen on an outpatient or ambulatory care basis.
"^DD",2,2.001,2,0)
CURRENT STATUS^S^I:INACTIVE;^0;2^Q
"^DD",2,2.001,2,3)
If this patient is currently no longer enrolled in this clinic, enter 'I' here.
"^DD",2,2.001,2,5,1,0)
2.011^.01^1
"^DD",2,2.001,2,5,2,0)
2.011^3^1
"^DD",2,2.001,2,21,0)
^^2^2^2911214^
"^DD",2,2.001,2,21,1,0)
This field will contain 'I' for inactive if this patient is no longer
"^DD",2,2.001,2,21,2,0)
enrolled in this clinic (patient has been discharged from the clinic).
"^DD",2,2.01,0)
ALIAS SUB-FIELD^NL^100.03^3
"^DD",2,2.01,0,"NM","ALIAS")

"^DD",2,2.01,0,"UP")
2
"^DD",2,2.01,.01,0)
ALIAS^MFa^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT
^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME
"^DD",2,2.01,.01,1,0)
^.1
"^DD",2,2.01,.01,1,1,0)
2^B^MNEMONIC
"^DD",2,2.01,.01,1,1,1)
S:'$D(^DPT("B",$E(X,1,30),DA(1),DA)) ^(DA)=1
"^DD",2,2.01,.01,1,1,2)
I $D(^DPT("B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)
"^DD",2,2.01,.01,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in leng
th.
"^DD",2,2.01,.01,21,0)
^^4^4^2861007^
"^DD",2,2.01,.01,21,1,0)
Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2.01,.01,21,2,0)
This value must be 3-30 characters in length and may contain only uppercase
"^DD",2,2.01,.01,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2.01,.01,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2.01,.01,"AUDIT")
y
"^DD",2,2.01,.01,"DT")
3090715
"^DD",2,2.01,1,0)
ALIAS SSN^Fa^^0;2^K:$L(X)>9!($L(X)<9)!'(X?9N) X
"^DD",2,2.01,1,3)
ANSWER MUST BE 9 CHARACTERS IN LENGTH
"^DD",2,2.01,1,21,0)
^^3^3^2911214^
"^DD",2,2.01,1,21,1,0)
If the patient was also known under a name other than that listed in
"^DD",2,2.01,1,21,2,0)
the NAME field of the PATIENT file, enter the social security number
"^DD",2,2.01,1,21,3,0)
used when the patient used this alias.
"^DD",2,2.01,1,"AUDIT")
y
"^DD",2,2.01,1,"DT")
3090715
"^DD",2,2.01,100.03,0)
ALIAS COMPONENTS^P20'I^VA(20,^0;3^Q
"^DD",2,2.01,100.03,1,0)
^.1^^0
"^DD",2,2.01,100.03,3)
This field contains a pointer to the NAME COMPONENTS record associated with ALIA
S field #.01.
"^DD",2,2.01,100.03,9)
^
"^DD",2,2.01,100.03,"DT")
3020419
"^DD",2,2.011,0)
ENROLLMENT DATA SUB-FIELD^NL^5^6
"^DD",2,2.011,0,"IX","AEB1",2.011,.01)

"^DD",2,2.011,0,"NM","ENROLLMENT DATA")

"^DD",2,2.011,0,"UP")
2.001
"^DD",2,2.011,.01,0)
DATE OF ENROLLMENT^RDX^^0;1^S %DT="EXT",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X
 I $N(^DPT(DA(2),"DE",DA(1),1,0))>0,$P(^DPT(DA(2),"DE",DA(1),0),"^",2)']"" W !,*
7,*7,"PATIENT ALREADY HAS ACTIVE ENROLLMENT IN CLINIC !!",*7,*7 K X
"^DD",2,2.011,.01,1,0)
^.1
"^DD",2,2.011,.01,1,1,0)
^^TRIGGER^2.001^2
"^DD",2,2.011,.01,1,1,1)
X ^DD(2.011,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),
Y(1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":"
,2),$C(59),1) S DIU=X K Y S X="" X ^DD(2.011,.01,1,1,1.4)
"^DD",2,2.011,.01,1,1,1.3)
K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA
"^DD",2,2.011,.01,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0
)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1
,0))>0
"^DD",2,2.011,.01,1,1,2)
X ^DD(2.011,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),
Y(1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":"
,2),$C(59),1) S DIU=X K Y S X="I" X ^DD(2.011,.01,1,1,2.4)
"^DD",2,2.011,.01,1,1,2.3)
K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA
"^DD",2,2.011,.01,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0
)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1
,0))>0
"^DD",2,2.011,.01,1,1,"CREATE VALUE")
@
"^DD",2,2.011,.01,1,1,"DELETE VALUE")
"I"
"^DD",2,2.011,.01,1,1,"FIELD")
CURRENT STATUS
"^DD",2,2.011,.01,1,2,0)
2^AEB^MUMPS
"^DD",2,2.011,.01,1,2,1)
S ^DPT("AEB",$E(X,1,30),DA(2),DA(1),DA)=""
"^DD",2,2.011,.01,1,2,2)
K ^DPT("AEB",$E(X,1,30),DA(2),DA(1),DA)
"^DD",2,2.011,.01,1,2,"%D",0)
^^1^1^2930804^
"^DD",2,2.011,.01,1,2,"%D",1,0)
 
"^DD",2,2.011,.01,1,3,0)
2.011^AEB1^MUMPS
"^DD",2,2.011,.01,1,3,1)
S SD=+^DPT(DA(2),"DE",DA(1),0),^DPT("AEB1",SD,$E(X,1,30),DA(2),DA(1),DA)="" K SD
"^DD",2,2.011,.01,1,3,2)
S SD=+^DPT(DA(2),"DE",DA(1),0) K ^DPT("AEB1",SD,$E(X,1,30),DA(2),DA(1),DA),SD
"^DD",2,2.011,.01,21,0)
^^1^1^2911214^
"^DD",2,2.011,.01,21,1,0)
Enter the date this patient was initially enrolled in this clinic.
"^DD",2,2.011,.01,"DT")
2900418
"^DD",2,2.011,1,0)
OPT OR AC^RS^O:OPT;A:AC;^0;2^Q
"^DD",2,2.011,1,21,0)
^^2^2^2911214^
"^DD",2,2.011,1,21,1,0)
Enter O if the patient is being seen by this clinic on an outpatient
"^DD",2,2.011,1,21,2,0)
basis.  Enter A if the patient is being seen for ambulatory care.
"^DD",2,2.011,1,"DT")
2830712
"^DD",2,2.011,2,0)
SERVICE^CJ12^^ ; ^X ^DD(2.011,2,9.2) S Y(2,101)=$S($D(^SC(D0,0)):^(0),1:"") S X=
$P($P(Y(2,102),$C(59)_$P(Y(2,101),U,3)_":",2),$C(59),1) S D0=Y(2,2)
"^DD",2,2.011,2,9)
^
"^DD",2,2.011,2,9.01)
44^2;2.001^.01
"^DD",2,2.011,2,9.1)
ENROLLMENT CLINIC:SERVICE
"^DD",2,2.011,2,9.2)
S Y(2,2)=$S($D(D0):D0,1:""),Y(2,1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:""),D0=$P(Y(
2,1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S Y(2,102)=$C(59)_$S($D(^DD(44,2,0)):$P(^(0),U
,3),1:"")
"^DD",2,2.011,2,21,0)
^^2^2^2911214^
"^DD",2,2.011,2,21,1,0)
This is a computed field which returns the service of the clinic in which
"^DD",2,2.011,2,21,2,0)
this patient is (was) enrolled.
"^DD",2,2.011,3,0)
DATE OF DISCHARGE^DX^^0;3^S %DT="EX",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(
X) S HSC=+^DPT(DA(2),"DE",DA(1),0) F XS=(X\1_.9):0 S XS=$N(^DPT(DA(2),"S",XS)) Q
:XS<0  I +^(XS,0)=HSC,$P(^(0),"^",2)'["C",$P(^(0),"^",2)'["N" X ^DD(2.011,3,9.2)
 Q
"^DD",2,2.011,3,1,0)
^.1^^-1
"^DD",2,2.011,3,1,1,0)
^^TRIGGER^2.001^2
"^DD",2,2.011,3,1,1,1)
X ^DD(2.011,3,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),Y(
1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2
),$C(59),1) S DIU=X K Y S X="I" X ^DD(2.011,3,1,1,1.4)
"^DD",2,2.011,3,1,1,1.3)
K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA
"^DD",2,2.011,3,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0
)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1
,0))>0
"^DD",2,2.011,3,1,1,2)
X ^DD(2.011,3,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),Y(
1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2
),$C(59),1) S DIU=X K Y S X="" X ^DD(2.011,3,1,1,2.4)
"^DD",2,2.011,3,1,1,2.3)
K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA
"^DD",2,2.011,3,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0
)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1
,0))>0
"^DD",2,2.011,3,1,1,"CREATE VALUE")
"I"
"^DD",2,2.011,3,1,1,"DELETE VALUE")
@
"^DD",2,2.011,3,1,1,"FIELD")
CURRENT STATUS
"^DD",2,2.011,3,1,2,0)
2^AC^MUMPS
"^DD",2,2.011,3,1,2,1)
K ^DPT("AEB",+$P(^DPT(DA(2),"DE",DA(1),1,DA,0),"^",1),DA(2),DA(1),DA)
"^DD",2,2.011,3,1,2,2)
S ^DPT("AEB",+$P(^DPT(DA(2),"DE",DA(1),1,DA,0),"^",1),DA(2),DA(1),DA)=""
"^DD",2,2.011,3,1,2,"DT")
2930804
"^DD",2,2.011,3,1,4,0)
^^TRIGGER^2.011^5
"^DD",2,2.011,3,1,4,1)
K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D
(^DPT(D0,"DE",D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^
DD(2.011,3,1,4,1.4)
"^DD",2,2.011,3,1,4,1.4)
S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$
L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,
U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2.011,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.011,3,1,4,2)
K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D
(^DPT(D0,"DE",D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^
DD(2.011,3,1,4,2.4)
"^DD",2,2.011,3,1,4,2.4)
S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$
L($P(DIH,U,4,99))  S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,
U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2.011,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.011,3,1,4,"CREATE VALUE")
@
"^DD",2,2.011,3,1,4,"DELETE VALUE")
@
"^DD",2,2.011,3,1,4,"FIELD")
REVIEW DATE
"^DD",2,2.011,3,9.2)
W !,*7,"PATIENT HAS FUTURE APPOINTMENTS, MUST BE CANCELLED PRIOR TO DISCHARGE !!
",*7 K X
"^DD",2,2.011,3,21,0)
^^1^1^2911214^
"^DD",2,2.011,3,21,1,0)
This field contains the date this patient was discharged from this clinic.
"^DD",2,2.011,3,"DT")
2930804
"^DD",2,2.011,4,0)
REASON FOR DISCHARGE^F^^0;4^K:$L(X)>80!($L(X)<2) X
"^DD",2,2.011,4,3)
ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
"^DD",2,2.011,4,21,0)
^^3^3^2911214^^
"^DD",2,2.011,4,21,1,0)
If the patient has been discharged from this clinic, this field contains the
"^DD",2,2.011,4,21,2,0)
reason the patient was discharged.  This is a free text field which
"^DD",2,2.011,4,21,3,0)
allows up to 80 characters to be entered.
"^DD",2,2.011,4,"DT")
2840417
"^DD",2,2.011,5,0)
REVIEW DATE^D^^0;5^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.011,5,3)
Enter the date/time the patient's enrollment in this clinic was last reviewed.
"^DD",2,2.011,5,5,1,0)
2.011^3^4
"^DD",2,2.011,5,21,0)
^^2^2^2911214^
"^DD",2,2.011,5,21,1,0)
Enter the date on which this patients enrollment in this particular
"^DD",2,2.011,5,21,2,0)
clinic was last reviewed.
"^DD",2,2.011,5,"DT")
2860317
"^DD",2,2.02,0)
RACE INFORMATION SUB-FIELD^^.02^2
"^DD",2,2.02,0,"DT")
3020814
"^DD",2,2.02,0,"IX","B",2.02,.01)

"^DD",2,2.02,0,"NM","RACE INFORMATION")

"^DD",2,2.02,0,"UP")
2
"^DD",2,2.02,.01,0)
RACE INFORMATION^M*P10'X^DIC(10,^0;1^S DIC("S")="I '$G(^(.02))" D ^DIC K DIC S D
IC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X
"^DD",2,2.02,.01,1,0)
^.1
"^DD",2,2.02,.01,1,1,0)
2.02^B
"^DD",2,2.02,.01,1,1,1)
S ^DPT(DA(1),.02,"B",$E(X,1,30),DA)=""
"^DD",2,2.02,.01,1,1,2)
K ^DPT(DA(1),.02,"B",$E(X,1,30),DA)
"^DD",2,2.02,.01,1,2,0)
^^TRIGGER^2.02^.02
"^DD",2,2.02,.01,1,2,1)
X ^DD(2.02,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"") S
 X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X=""
 X ^DD(2.02,.01,1,2,1.4)
"^DD",2,2.02,.01,1,2,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.
02,D1,0)):^(0),1:"") S X=$S('$D(^DIC(10.3,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))="
"
"^DD",2,2.02,.01,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.02,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.02,DIG=.02 D 
^DICR
"^DD",2,2.02,.01,1,2,2)
Q
"^DD",2,2.02,.01,1,2,"%D",0)
^.101^1^1^3020709^^
"^DD",2,2.02,.01,1,2,"%D",1,0)
SELF IDENTIFICATION is the default value for collection method
"^DD",2,2.02,.01,1,2,"CREATE CONDITION")
METHOD OF COLLECTION=""
"^DD",2,2.02,.01,1,2,"CREATE VALUE")
S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X=""
"^DD",2,2.02,.01,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2.02,.01,1,2,"DT")
3020709
"^DD",2,2.02,.01,1,2,"FIELD")
METHOD
"^DD",2,2.02,.01,3)
Select from the available listing all races which best identify this patient
"^DD",2,2.02,.01,12)
Inactive values are not selectable
"^DD",2,2.02,.01,12.1)
S DIC("S")="I '$G(^(.02))"
"^DD",2,2.02,.01,21,0)
^^1^1^3020726^
"^DD",2,2.02,.01,21,1,0)
Patient's race
"^DD",2,2.02,.01,"DT")
3020709
"^DD",2,2.02,.02,0)
METHOD OF COLLECTION^RP10.3'^DIC(10.3,^0;2^Q
"^DD",2,2.02,.02,3)
Enter the method in which the race value was collected
"^DD",2,2.02,.02,5,1,0)
2.02^.01^2
"^DD",2,2.02,.02,21,0)
^.001^1^1^3020814^^
"^DD",2,2.02,.02,21,1,0)
Method used to collect patient's race
"^DD",2,2.02,.02,"DT")
3020814
"^DD",2,2.0361,0)
PATIENT ELIGIBILITIES SUB-FIELD^^.04^3
"^DD",2,2.0361,0,"DT")
2911004
"^DD",2,2.0361,0,"IX","AC",2.0361,.03)

"^DD",2,2.0361,0,"IX","B",2.0361,.01)

"^DD",2,2.0361,0,"NM","PATIENT ELIGIBILITIES")

"^DD",2,2.0361,0,"UP")
2
"^DD",2,2.0361,.01,0)
ELIGIBILITY^M*P8'X^DIC(8,^0;1^S DIC("S")="I '$P(^(0),U,7),$S($P(^(0),U,8):1,'$D(
^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELGCHK^DGRPTU(D0)" D ^DIC K DIC S DIC=DIE,X=+Y K:
Y<0 X I $D(X) S DINUM=X
"^DD",2,2.0361,.01,1,0)
^.1
"^DD",2,2.0361,.01,1,1,0)
2.0361^B
"^DD",2,2.0361,.01,1,1,1)
S ^DPT(DA(1),"E","B",$E(X,1,30),DA)=""
"^DD",2,2.0361,.01,1,1,2)
K ^DPT(DA(1),"E","B",$E(X,1,30),DA)
"^DD",2,2.0361,.01,1,2,0)
2^AEL1^MUMPS
"^DD",2,2.0361,.01,1,2,1)
S ^DPT("AEL",DA(1),+X)=""
"^DD",2,2.0361,.01,1,2,2)
K ^DPT("AEL",DA(1),+X)
"^DD",2,2.0361,.01,1,3,0)
^^TRIGGER^2.0361^.03
"^DD",2,2.0361,.01,1,3,1)
D E31^VADPT62
"^DD",2,2.0361,.01,1,3,1.1)
S X=DIV S X="" I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"LONG")) X ^("LONG"
)
"^DD",2,2.0361,.01,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=2
.0361,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.01,1,3,2)
D E32^VADPT62
"^DD",2,2.0361,.01,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=2
.0361,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.01,1,3,"CREATE VALUE")
S X="" I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"LONG")) X ^("LONG")
"^DD",2,2.0361,.01,1,3,"DELETE VALUE")
@
"^DD",2,2.0361,.01,1,3,"FIELD")
LONG ID
"^DD",2,2.0361,.01,1,4,0)
2^AO^MUMPS
"^DD",2,2.0361,.01,1,4,1)
S DFN=DA(1) D EN^DGMTR K DGREQF
"^DD",2,2.0361,.01,1,4,2)
S DFN=DA(1) D EN^DGMTR K DGREQF
"^DD",2,2.0361,.01,1,4,"%D",0)
^^2^2^2970923^^^^
"^DD",2,2.0361,.01,1,4,"%D",1,0)
This cross-reference is used to determine whether or not a means test or
"^DD",2,2.0361,.01,1,4,"%D",2,0)
co-pay test is required.
"^DD",2,2.0361,.01,1,4,"DT")
2970923
"^DD",2,2.0361,.01,1,5,0)
2^AENR01^MUMPS
"^DD",2,2.0361,.01,1,5,1)
D AUTOUPD^DGENA2(DA(1))
"^DD",2,2.0361,.01,1,5,2)
D AUTOUPD^DGENA2(DA(1))
"^DD",2,2.0361,.01,1,5,3)
DO NOT DELETE
"^DD",2,2.0361,.01,1,5,"%D",0)
^^7^7^2970820^^^^
"^DD",2,2.0361,.01,1,5,"%D",1,0)
This cross-reference is used to update the patient's current Patient Enrollment 
"^DD",2,2.0361,.01,1,5,"%D",2,0)
record.
"^DD",2,2.0361,.01,1,5,"%D",3,0)
 
"^DD",2,2.0361,.01,1,5,"%D",4,0)
When deleting an eligibility, at the point the kill logic of this x-ref
"^DD",2,2.0361,.01,1,5,"%D",5,0)
is executed the data still exists in the global.  To determine whether an
"^DD",2,2.0361,.01,1,5,"%D",6,0)
eligibility still exists the "B" x-ref is checked - if not there, the
"^DD",2,2.0361,.01,1,5,"%D",7,0)
eligibility is ignored.
"^DD",2,2.0361,.01,1,5,"DT")
2970715
"^DD",2,2.0361,.01,3)
Select other eligibilities to which this patient may be entitled.
"^DD",2,2.0361,.01,5,1,0)
2^.361^2
"^DD",2,2.0361,.01,12)
Select other eligibilities for the patient. The primary may be selected but it m
ust already exist.
"^DD",2,2.0361,.01,12.1)
S DIC("S")="I '$P(^(0),U,7),$S($P(^(0),U,8):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$
$ELGCHK^DGRPTU(D0)"
"^DD",2,2.0361,.01,21,0)
^.001^3^3^3030409^^^^
"^DD",2,2.0361,.01,21,1,0)
Enter all eligibilities under which this patient may receive care.  The
"^DD",2,2.0361,.01,21,2,0)
patients primary eligibility as well as all other eligibilities he is
"^DD",2,2.0361,.01,21,3,0)
entitled to is stored in this multiple.
"^DD",2,2.0361,.01,23,0)
^.001^9^9^3030409^^^^
"^DD",2,2.0361,.01,23,1,0)
Unlike previous versions of the PATIENT file, in this
"^DD",2,2.0361,.01,23,2,0)
version ALL the patient's eligibilities are stored in this
"^DD",2,2.0361,.01,23,3,0)
multiple.
"^DD",2,2.0361,.01,23,4,0)
 
"^DD",2,2.0361,.01,23,5,0)
When the user enters/edits that patient's PRIMARY ELIGIBILITY CODE, that
"^DD",2,2.0361,.01,23,6,0)
code is automatically stored in the multiple as well as in
"^DD",2,2.0361,.01,23,7,0)
the PRIMARY ELIGIBILITY CODE field.
"^DD",2,2.0361,.01,23,8,0)
 
"^DD",2,2.0361,.01,23,9,0)
This change was necessary to accomodate the VA/DOD sharing
"^DD",2,2.0361,.01,"DEL",1,0)
S DFN=DA(1) D EV^DGLOCK I '$D(X)!(+$G(^DPT(DA(1),.36))=DA) W:$D(X) !?5,"Deleting
 primary eligibility is not allowed"
"^DD",2,2.0361,.01,"DT")
2970923
"^DD",2,2.0361,.03,0)
LONG ID^FX^^0;3^K:X[""""!($A(X)=45) X I $D(X),$D(X) K:$L(X)>15!($L(X)<1) X I $D(
^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"TRANSFORM")) X ^("TRANSFORM")
"^DD",2,2.0361,.03,1,0)
^.1
"^DD",2,2.0361,.03,1,1,0)
^^TRIGGER^2.0361^.04
"^DD",2,2.0361,.03,1,1,1)
D L11^VADPT62
"^DD",2,2.0361,.03,1,1,1.1)
S X=DIV I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"SHORT")) X ^("SHORT")
"^DD",2,2.0361,.03,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2
.0361,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.03,1,1,2)
D L12^VADPT62
"^DD",2,2.0361,.03,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2
.0361,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.03,1,1,"CREATE VALUE")
I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"SHORT")) X ^("SHORT")
"^DD",2,2.0361,.03,1,1,"DELETE VALUE")
@
"^DD",2,2.0361,.03,1,1,"FIELD")
SHORT ID
"^DD",2,2.0361,.03,1,2,0)
2.0361^AC^MUMPS
"^DD",2,2.0361,.03,1,2,1)
I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),1)) X ^(1)
"^DD",2,2.0361,.03,1,2,2)
I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),2)) X ^(2)
"^DD",2,2.0361,.03,1,3,0)
^^TRIGGER^2^.363
"^DD",2,2.0361,.03,1,3,1)
D L31^VADPT62
"^DD",2,2.0361,.03,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,3)=DIV,DIH=2,DIG=
.363 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.03,1,3,2)
D L32^VADPT62
"^DD",2,2.0361,.03,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,3)=DIV,DIH=2,DIG=
.363 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.03,1,3,"CREATE CONDITION")
S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
"^DD",2,2.0361,.03,1,3,"CREATE VALUE")
LONG ID
"^DD",2,2.0361,.03,1,3,"DELETE CONDITION")
S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
"^DD",2,2.0361,.03,1,3,"DELETE VALUE")
@
"^DD",2,2.0361,.03,1,3,"DIC")

"^DD",2,2.0361,.03,1,3,"FIELD")
PRIMARY LONG ID
"^DD",2,2.0361,.03,1,4,0)
2^PID^MUMPS
"^DD",2,2.0361,.03,1,4,1)
S:$S('$D(^DIC(8,DA,0)):0,'$D(^DIC(8.2,+$P(^(0),U,10),0)):0,1:$P(^(0),U)'="VA STA
NDARD") ^DPT("PID",X,DA(1),DA)=""
"^DD",2,2.0361,.03,1,4,2)
K ^DPT("PID",X,DA(1),DA)
"^DD",2,2.0361,.03,3)
Enter the value of the patient's identification.
"^DD",2,2.0361,.03,4)
I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"HELP")) X ^("HELP")
"^DD",2,2.0361,.03,5,1,0)
2.0361^.01^3
"^DD",2,2.0361,.03,21,0)
^^8^8^2910418^^^
"^DD",2,2.0361,.03,21,1,0)
This field contains the patient's long ID associated with
"^DD",2,2.0361,.03,21,2,0)
the patient's ELIGIBILITY.  For most eligibilities this is the
"^DD",2,2.0361,.03,21,3,0)
Social Security Number.
"^DD",2,2.0361,.03,21,4,0)
 
"^DD",2,2.0361,.03,21,5,0)
This field is triggered by the 'ELIGILBILTY(#.01)' field.  It is
"^DD",2,2.0361,.03,21,6,0)
user defined only if this eligibility's id format allows this
"^DD",2,2.0361,.03,21,7,0)
user interaction as indicated by the 'PROMPT USER FOR ID?(#.02)'
"^DD",2,2.0361,.03,21,8,0)
field of the 'IDENTIFICATION FORMAT(#8.1)' file.
"^DD",2,2.0361,.03,"DT")
2910312
"^DD",2,2.0361,.04,0)
SHORT ID^F^^0;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X
"^DD",2,2.0361,.04,1,0)
^.1
"^DD",2,2.0361,.04,1,3,0)
^^TRIGGER^2^.364
"^DD",2,2.0361,.04,1,3,1)
D S31^VADPT62
"^DD",2,2.0361,.04,1,3,1.4)
S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,4)=DIV,DIH=2,DIG=
.364 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.04,1,3,2)
D S32^VADPT62
"^DD",2,2.0361,.04,1,3,2.4)
S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,4)=DIV,DIH=2,DIG=
.364 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.0361,.04,1,3,"CREATE CONDITION")
S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
"^DD",2,2.0361,.04,1,3,"CREATE VALUE")
SHORT ID
"^DD",2,2.0361,.04,1,3,"DELETE CONDITION")
S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
"^DD",2,2.0361,.04,1,3,"DELETE VALUE")
@
"^DD",2,2.0361,.04,1,3,"DIC")

"^DD",2,2.0361,.04,1,3,"FIELD")
PRIMARY SHORT ID
"^DD",2,2.0361,.04,3)
Answer must be 1-7 characters in length.
"^DD",2,2.0361,.04,5,1,0)
2.0361^.03^1
"^DD",2,2.0361,.04,9)
^
"^DD",2,2.0361,.04,21,0)
^^5^5^2910418^^^^
"^DD",2,2.0361,.04,21,1,0)
This field contains the patient's short ID associated with
"^DD",2,2.0361,.04,21,2,0)
the patient's ELIGIBILITY.  For most eligibilities, this is the
"^DD",2,2.0361,.04,21,3,0)
last four digits of the Social Security Number.
"^DD",2,2.0361,.04,21,4,0)
 
"^DD",2,2.0361,.04,21,5,0)
This field is uneditable and triggered by the 'LONG ID(#.03)' field.
"^DD",2,2.0361,.04,"DT")
2911004
"^DD",2,2.04,0)
RATED DISABILITIES (VA) SUB-FIELD^NL^6^6
"^DD",2,2.04,0,"IX","AENR01",2.04,.01)

"^DD",2,2.04,0,"IX","AENR2",2.04,2)

"^DD",2,2.04,0,"IX","AENR3",2.04,3)

"^DD",2,2.04,0,"NM","RATED DISABILITIES (VA)")

"^DD",2,2.04,0,"UP")
2
"^DD",2,2.04,.01,0)
RATED DISABILITIES (VA)^MP31'X^DIC(31,^0;1^I $D(X) D EK^DGLOCK Q
"^DD",2,2.04,.01,1,0)
^.1
"^DD",2,2.04,.01,1,1,0)
2.04^AENR01^MUMPS
"^DD",2,2.04,.01,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.04,.01,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.04,.01,1,1,3)
 DO NOT DELETE
"^DD",2,2.04,.01,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.04,.01,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.04,.01,1,1,"%D",2,0)
enrollment.
"^DD",2,2.04,.01,1,1,"DT")
3050913
"^DD",2,2.04,.01,3)
Enter the disability conditions for this patient.  Select from the available lis
t.
"^DD",2,2.04,.01,21,0)
^^2^2^2860930^
"^DD",2,2.04,.01,21,1,0)
From the available listing choose and enter conditions for which the
"^DD",2,2.04,.01,21,2,0)
applicant has been verified as being service connected.
"^DD",2,2.04,.01,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2.04,.01,"DT")
3030722
"^DD",2,2.04,2,0)
DISABILITY %^RNJ3,0X^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X) D EK^DG
LOCK
"^DD",2,2.04,2,1,0)
^.1
"^DD",2,2.04,2,1,1,0)
2.04^AENR2^MUMPS
"^DD",2,2.04,2,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.04,2,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.04,2,1,1,3)
 DO NOT DELETE
"^DD",2,2.04,2,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.04,2,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.04,2,1,1,"%D",2,0)
enrollment.
"^DD",2,2.04,2,1,1,"DT")
3050913
"^DD",2,2.04,2,3)
Enter the disability % for this condition on this patient.
"^DD",2,2.04,2,21,0)
^^3^3^2911214^
"^DD",2,2.04,2,21,1,0)
Enter the percentage at which the VA rated this disability for this
"^DD",2,2.04,2,21,2,0)
patient.  Only users who hold the designated security key may enter/edit
"^DD",2,2.04,2,21,3,0)
this field.
"^DD",2,2.04,2,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2.04,2,"DT")
3030722
"^DD",2,2.04,3,0)
SERVICE CONNECTED^SX^0:NO;1:YES;^0;3^S DFN=DA(1) D:X SC^DGLOCK1 I $D(X) D EK^DGL
OCK 
"^DD",2,2.04,3,1,0)
^.1
"^DD",2,2.04,3,1,1,0)
2.04^AENR3^MUMPS
"^DD",2,2.04,3,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.04,3,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.04,3,1,1,3)
 DO NOT DELETE
"^DD",2,2.04,3,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.04,3,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.04,3,1,1,"%D",2,0)
enrollment.
"^DD",2,2.04,3,1,1,"DT")
3050913
"^DD",2,2.04,3,3)
Enter 'Y' if the patient is service connected for this disability, 'N' if not.
"^DD",2,2.04,3,21,0)
^^2^2^2911214^
"^DD",2,2.04,3,21,1,0)
Enter whether or not this rated disability was rated as service connected.
"^DD",2,2.04,3,21,2,0)
Only users who hold the designated security key may enter/edit this field.
"^DD",2,2.04,3,"DEL",1,0)
D EK^DGLOCK I '$D(X)
"^DD",2,2.04,3,"DT")
3030722
"^DD",2,2.04,4,0)
EXTREMITY AFFECTED^S^BL:BOTH LOWER;BU:BOTH UPPER;RL:RIGHT LOWER;RU:RIGHT UPPER;L
L:LEFT LOWER;LU:LEFT UPPER;^0;4^Q
"^DD",2,2.04,4,"DT")
3051129
"^DD",2,2.04,5,0)
ORIGINAL EFFECTIVE DATE^DX^^0;5^S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
"^DD",2,2.04,5,21,0)
^^2^2^3050712^
"^DD",2,2.04,5,21,1,0)
Data will be stuffed from messages from the HEC.  This field indicates 
"^DD",2,2.04,5,21,2,0)
the first date that this disability was evaluated.
"^DD",2,2.04,5,"DT")
3050714
"^DD",2,2.04,6,0)
CURRENT EFFECTIVE DATE^DX^^0;6^S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
"^DD",2,2.04,6,21,0)
^.001^2^2^3050727^^^^
"^DD",2,2.04,6,21,1,0)
Data will be stuffed from messages from the HEC.  This field indicates 
"^DD",2,2.04,6,21,2,0)
the most recent date that this disability was evaluated.
"^DD",2,2.04,6,"DT")
3050728
"^DD",2,2.05,0)
SERVICE CONNECTED CONDITIONS SUB-FIELD^NL^.02^2
"^DD",2,2.05,0,"NM","SERVICE CONNECTED CONDITIONS")

"^DD",2,2.05,0,"UP")
2
"^DD",2,2.05,.01,0)
SERVICE CONNECTED CONDITIONS^MFX^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.05,.01,.1)
Service Connected Conditions as stated by applicant
"^DD",2,2.05,.01,3)
Enter the conditions stated by the patient.  Use 1 to 30 characters.
"^DD",2,2.05,.01,21,0)
^^2^2^2860930^^
"^DD",2,2.05,.01,21,1,0)
Enter conditions as stated by applicant for which s/he claims service
"^DD",2,2.05,.01,21,2,0)
connection.
"^DD",2,2.05,.01,"DT")
2860909
"^DD",2,2.05,.02,0)
PERCENTAGE^NJ3,0X^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
"^DD",2,2.05,.02,3)
TYPE A WHOLE NUMBER BETWEEN 0 AND 100
"^DD",2,2.05,.02,21,0)
^^2^2^2911214^
"^DD",2,2.05,.02,21,1,0)
Enter the percentage that the patient states this disability was rated
"^DD",2,2.05,.02,21,2,0)
at.
"^DD",2,2.05,.02,"DT")
2860909
"^DD",2,2.0534,0)
PH DATE/TIME UPDATED SUB-FIELD^^4^5
"^DD",2,2.0534,0,"DT")
3001215
"^DD",2,2.0534,0,"IX","B",2.0534,.01)

"^DD",2,2.0534,0,"NM","PH DATE/TIME UPDATED")

"^DD",2,2.0534,0,"UP")
2
"^DD",2,2.0534,.01,0)
PH DATE/TIME UPDATED^D^^0;1^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.0534,.01,1,0)
^.1
"^DD",2,2.0534,.01,1,1,0)
2.0534^B
"^DD",2,2.0534,.01,1,1,1)
S ^DPT(DA(1),"PH","B",$E(X,1,30),DA)=""
"^DD",2,2.0534,.01,1,1,2)
K ^DPT(DA(1),"PH","B",$E(X,1,30),DA)
"^DD",2,2.0534,.01,21,0)
^^3^3^3000807^
"^DD",2,2.0534,.01,21,1,0)
This field is automatically stuffed with the current date and time
"^DD",2,2.0534,.01,21,2,0)
whenever the Purple Heart data is updated.  This may be done initially by
"^DD",2,2.0534,.01,21,3,0)
the local site, then subsequently by HEC.
"^DD",2,2.0534,.01,"DT")
3000807
"^DD",2,2.0534,1,0)
PH?^S^Y:YES;N:NO;^0;2^Q
"^DD",2,2.0534,1,21,0)
^^2^2^3000807^
"^DD",2,2.0534,1,21,1,0)
Field will be stuffed with the CURRENT PURPLE HEART INDICATOR at the
"^DD",2,2.0534,1,21,2,0)
date/time of the update.
"^DD",2,2.0534,1,"DT")
3000807
"^DD",2,2.0534,2,0)
PH STATUS^S^1:PENDING;2:IN PROCESS;3:CONFIRMED;^0;3^Q
"^DD",2,2.0534,2,21,0)
^.001^2^2^3001122^^^^
"^DD",2,2.0534,2,21,1,0)
Field will be stuffed with CURRENT PURPLE HEART STATUS (if any) at
"^DD",2,2.0534,2,21,2,0)
date/time of the update.
"^DD",2,2.0534,2,"DT")
3001122
"^DD",2,2.0534,3,0)
PH REMARKS^S^1:UNACCEPTABLE DOCUMENTATION;2:NO DOCUMENTATION REC'D;3:ENTERED IN 
ERROR;4:UNSUPPORTED PURPLE HEART;5:VAMC;6:UNDELIVERABLE MAIL;^0;4^Q
"^DD",2,2.0534,3,21,0)
^.001^2^2^3001215^^^^
"^DD",2,2.0534,3,21,1,0)
Field will be stuffed with CURRENT PURPLE HEART REMARKS field, if any, at
"^DD",2,2.0534,3,21,2,0)
time of update.
"^DD",2,2.0534,3,"DT")
3001215
"^DD",2,2.0534,4,0)
PH USER^F^^0;5^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.0534,4,3)
Answer must be 3-30 characters in length.
"^DD",2,2.0534,4,21,0)
^.001^4^4^3010130^^
"^DD",2,2.0534,4,21,1,0)
Field will be stuffed with the user who updated PH information.  If
"^DD",2,2.0534,4,21,2,0)
local user, then the value will be the free text user name from the
"^DD",2,2.0534,4,21,3,0)
NEW PERSON file.  If updated by the HEC, then the value will be 
"^DD",2,2.0534,4,21,4,0)
"HEC User".
"^DD",2,2.0534,4,"DT")
3000807
"^DD",2,2.0537026,0)
MHV SOCIALIZATION SUB-FIELD^^2^3
"^DD",2,2.0537026,0,"DT")
3140915
"^DD",2,2.0537026,0,"IX","B",2.0537026,.01)

"^DD",2,2.0537026,0,"NM","MHV SOCIALIZATION")

"^DD",2,2.0537026,0,"UP")
2
"^DD",2,2.0537026,.01,0)
SOCIALIZATION DATE^D^^0;1^S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
"^DD",2,2.0537026,.01,1,0)
^.1
"^DD",2,2.0537026,.01,1,1,0)
2.0537026^B
"^DD",2,2.0537026,.01,1,1,1)
S ^DPT(DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",2,2.0537026,.01,1,1,2)
K ^DPT(DA(1),1,"B",$E(X,1,30),DA)
"^DD",2,2.0537026,.01,3)
(No range limit on date)
"^DD",2,2.0537026,.01,"DT")
3140915
"^DD",2,2.0537026,1,0)
SOCIALIZATION RESPONSE^RP390.01'^DGMHV(390.01,^0;2^Q
"^DD",2,2.0537026,1,3)

"^DD",2,2.0537026,1,"DT")
3140912
"^DD",2,2.0537026,2,0)
SOCIALIZATION ACTIONS^2.5370262PA^^1;0
"^DD",2,2.06,0)
ETHNICITY INFORMATION SUB-FIELD^^.02^2
"^DD",2,2.06,0,"DT")
3020814
"^DD",2,2.06,0,"IX","B",2.06,.01)

"^DD",2,2.06,0,"NM","ETHNICITY INFORMATION")

"^DD",2,2.06,0,"UP")
2
"^DD",2,2.06,.01,0)
ETHNICITY INFORMATION^*P10.2'X^DIC(10.2,^0;1^S DIC("S")="I '$G(^(.02))" D ^DIC K
 DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
"^DD",2,2.06,.01,1,0)
^.1^^-1
"^DD",2,2.06,.01,1,1,0)
2.06^B
"^DD",2,2.06,.01,1,1,1)
S ^DPT(DA(1),.06,"B",$E(X,1,30),DA)=""
"^DD",2,2.06,.01,1,1,2)
K ^DPT(DA(1),.06,"B",$E(X,1,30),DA)
"^DD",2,2.06,.01,1,2,0)
^^TRIGGER^2.06^.02
"^DD",2,2.06,.01,1,2,1)
X ^DD(2.06,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.06,D1,0)):^(0),1:"") S
 X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X=""
 X ^DD(2.06,.01,1,2,1.4)
"^DD",2,2.06,.01,1,2,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.
06,D1,0)):^(0),1:"") S X=$S('$D(^DIC(10.3,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))="
"
"^DD",2,2.06,.01,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.06,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.06,DIG=.02 D 
^DICR
"^DD",2,2.06,.01,1,2,2)
Q
"^DD",2,2.06,.01,1,2,"%D",0)
^^1^1^3020709^
"^DD",2,2.06,.01,1,2,"%D",1,0)
SELF IDENTIFICATION is the default value for collection method
"^DD",2,2.06,.01,1,2,"CREATE CONDITION")
METHOD OF COLLECTION=""
"^DD",2,2.06,.01,1,2,"CREATE VALUE")
S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X=""
"^DD",2,2.06,.01,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2.06,.01,1,2,"DT")
3020709
"^DD",2,2.06,.01,1,2,"FIELD")
METHOD
"^DD",2,2.06,.01,3)
Select from the available listing the ethnicity which best identifies this patie
nt
"^DD",2,2.06,.01,12)
Inactive values are not selectable
"^DD",2,2.06,.01,12.1)
S DIC("S")="I '$G(^(.02))"
"^DD",2,2.06,.01,21,0)
^^1^1^3020726^
"^DD",2,2.06,.01,21,1,0)
Patient's ethnicity
"^DD",2,2.06,.01,23,0)
^.001^4^4^3020726^^^
"^DD",2,2.06,.01,23,1,0)
Although this field is defined to be multi-valued, the AONLYONE cross 
"^DD",2,2.06,.01,23,2,0)
reference prevents multiple values from being stored.  This is because 
"^DD",2,2.06,.01,23,3,0)
the current business definition for ethnicity only accounts for a single 
"^DD",2,2.06,.01,23,4,0)
value.
"^DD",2,2.06,.01,"DT")
3020712
"^DD",2,2.06,.02,0)
METHOD OF COLLECTION^RP10.3'^DIC(10.3,^0;2^Q
"^DD",2,2.06,.02,3)
Enter the method in which the ethnicity value was collected
"^DD",2,2.06,.02,5,1,0)
2.06^.01^2
"^DD",2,2.06,.02,21,0)
^.001^1^1^3020814^^
"^DD",2,2.06,.02,21,1,0)
Method used to collect patient's ethnicity
"^DD",2,2.06,.02,"DT")
3020814
"^DD",2,2.0992,0)
ICN HISTORY SUB-FIELD^^3^4
"^DD",2,2.0992,0,"DT")
2980130
"^DD",2,2.0992,0,"NM","ICN HISTORY")

"^DD",2,2.0992,0,"UP")
2
"^DD",2,2.0992,.01,0)
ICN HISTORY^NJ12,0a^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
"^DD",2,2.0992,.01,1,0)
^.1
"^DD",2,2.0992,.01,1,1,0)
2^AAICN^MUMPS
"^DD",2,2.0992,.01,1,1,1)
S ^DPT("AICN",$E(X,1,30),DA(1))=""
"^DD",2,2.0992,.01,1,1,2)
K ^DPT("AICN",$E(X,1,30),DA(1))
"^DD",2,2.0992,.01,1,1,"%D",0)
^.101^2^2^3001115^^^^
"^DD",2,2.0992,.01,1,1,"%D",1,0)
This is set up to allow all ICNs in the History file to remain in the AICN
"^DD",2,2.0992,.01,1,1,"%D",2,0)
cross-reference when re-indexing.
"^DD",2,2.0992,.01,1,1,"DT")
3001115
"^DD",2,2.0992,.01,3)
Type a Number between 0 and 999999999999, 0 Decimal Digits
"^DD",2,2.0992,.01,21,0)
^^3^3^2980130^^
"^DD",2,2.0992,.01,21,1,0)
ICN History, to track changes in Integration Control Number for each
"^DD",2,2.0992,.01,21,2,0)
patient.  This will be used by mumps code to perform lookups when ICN
"^DD",2,2.0992,.01,21,3,0)
can't be found to see if it was used previously.
"^DD",2,2.0992,.01,"AUDIT")
y
"^DD",2,2.0992,.01,"DT")
3060919
"^DD",2,2.0992,1,0)
ICN CHECKSUM^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
"^DD",2,2.0992,1,3)
Type a Number between 0 and 999999, 0 Decimal Digits
"^DD",2,2.0992,1,21,0)
^^1^1^2980130^
"^DD",2,2.0992,1,21,1,0)
ICN Checksum for ICN entered in multiple.
"^DD",2,2.0992,1,"DT")
2980130
"^DD",2,2.0992,2,0)
CMOR^P4'^DIC(4,^0;3^Q
"^DD",2,2.0992,2,21,0)
^^1^1^2980130^
"^DD",2,2.0992,2,21,1,0)
CMOR at the time of the ICN change.
"^DD",2,2.0992,2,"DT")
2980130
"^DD",2,2.0992,3,0)
DATE/TIME OF CHANGE^D^^0;4^S %DT="ET" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.0992,3,21,0)
^^1^1^2980130^
"^DD",2,2.0992,3,21,1,0)
Date/Time of change to the ICN.
"^DD",2,2.0992,3,"DT")
2980130
"^DD",2,2.0993,0)
CMOR HISTORY SUB-FIELD^^3^4
"^DD",2,2.0993,0,"DT")
3000721
"^DD",2,2.0993,0,"NM","CMOR HISTORY")

"^DD",2,2.0993,0,"UP")
2
"^DD",2,2.0993,.01,0)
CMOR HISTORY^NJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1.N) X
"^DD",2,2.0993,.01,1,0)
^.1^^0
"^DD",2,2.0993,.01,3)
This field is hard set by CMOR^VAFCHIS when the patient's CMOR is changed.
"^DD",2,2.0993,.01,21,0)
^^1^1^3000731^^
"^DD",2,2.0993,.01,21,1,0)
Primary Care site for patient at time of change.
"^DD",2,2.0993,.01,23,0)
^^2^2^3000731^
"^DD",2,2.0993,.01,23,1,0)
This node is created by CMOR^VAFCHIS when the CMOR (#991.03) field is
"^DD",2,2.0993,.01,23,2,0)
modified/deleted.
"^DD",2,2.0993,.01,"DT")
3000731
"^DD",2,2.0993,1,0)
CMOR ACTIVITY SCORE^NJ12,0^^0;2^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1.N) X
"^DD",2,2.0993,1,3)
This field is hardset by CMOR^VAFCHIS when a patient's CMOR is changed.
"^DD",2,2.0993,1,21,0)
^^1^1^3000731^^
"^DD",2,2.0993,1,21,1,0)
CMOR score at time of change.
"^DD",2,2.0993,1,23,0)
^^2^2^3000731^
"^DD",2,2.0993,1,23,1,0)
This field is hardset by CMOR^VAFCHIS when the patient's CMOR score is
"^DD",2,2.0993,1,23,2,0)
modified.
"^DD",2,2.0993,1,"DT")
3000731
"^DD",2,2.0993,2,0)
CMOR SCORE CALCULATION DATE^D^^0;3^S %DT="EST" D ^%DT S X=Y K:X<1 X
"^DD",2,2.0993,2,3)
This field is hard set by CMOR^VAFCHIS when a patient's CMOR is modified.
"^DD",2,2.0993,2,21,0)
^^1^1^3000731^^
"^DD",2,2.0993,2,21,1,0)
Date CMOR score was last calculated at time of change.
"^DD",2,2.0993,2,23,0)
^^1^1^3000731^
"^DD",2,2.0993,2,23,1,0)
This field is hardset by CMOR^VAFCHIS when a patient's CMOR is changed.
"^DD",2,2.0993,2,"DT")
3000731
"^DD",2,2.0993,3,0)
CMOR CHANGE DATE^D^^0;4^S %DT="E" D ^%DT S X=Y K:X<1 X
"^DD",2,2.0993,3,3)
(No range limit on date)
"^DD",2,2.0993,3,21,0)
^^1^1^3001129^
"^DD",2,2.0993,3,21,1,0)
Date CMOR was changed.
"^DD",2,2.0993,3,23,0)
^^2^2^3001129^
"^DD",2,2.0993,3,23,1,0)
This field is created when a patient's CMOR (field #991.03) is
"^DD",2,2.0993,3,23,2,0)
modified/deleted.
"^DD",2,2.0993,3,"DT")
3001129
"^DD",2,2.101,0)
DISPOSITION LOG-IN DATE/TIME SUB-FIELD^NL^11500.02^41
"^DD",2,2.101,0,"DT")
2930603
"^DD",2,2.101,0,"IX","AAS",2.101,1)

"^DD",2,2.101,0,"IX","AAS1",2.101,3)

"^DD",2,2.101,0,"IX","AC",2.101,12)

"^DD",2,2.101,0,"IX","ADISAZIP",2.101,36)

"^DD",2,2.101,0,"IX","ADISZIP4",2.101,38)

"^DD",2,2.101,0,"IX","AODS1",2.101,.01)

"^DD",2,2.101,0,"IX","AODS5",2.101,6)

"^DD",2,2.101,0,"IX","AOERR1",2.101,1)

"^DD",2,2.101,0,"IX","ASDPSD",2.101,3)

"^DD",2,2.101,0,"IX","ASDPSD1",2.101,1)

"^DD",2,2.101,0,"NM","DISPOSITION LOG-IN DATE/TIME")

"^DD",2,2.101,0,"QUES")
EN^DGHELP
"^DD",2,2.101,0,"UP")
2
"^DD",2,2.101,.01,0)
LOG IN DATE/TIME^MDX^^0;1^S %DT="ETRPX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(
X) S DINUM=9999999-X,LL=+$O(^DPT(DA(1),"DIS",0)) I LL>0,DINUM'<LL!(DINUM'<(99999
99-$P(^(LL,0),"^",6))) K X,DINUM W !!,"Entry must be after last disposition.",!!
,*7
"^DD",2,2.101,.01,1,0)
^.1
"^DD",2,2.101,.01,1,1,0)
^^TRIGGER^2.101^50
"^DD",2,2.101,.01,1,1,1)
X ^DD(2.101,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:"")
,Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_
":",2),$C(59),1) S DIU=X K Y S X=DIV S X="1" X ^DD(2.101,.01,1,1,1.4)
"^DD",2,2.101,.01,1,1,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
"^DD",2,2.101,.01,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)
_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.101,.01,1,1,2)
X ^DD(2.101,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:"")
,Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_
":",2),$C(59),1) S DIU=X K Y S X=DIV S X="" X ^DD(2.101,.01,1,1,2.4)
"^DD",2,2.101,.01,1,1,2.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
"^DD",2,2.101,.01,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)
_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.101,.01,1,1,"CREATE VALUE")
"1"
"^DD",2,2.101,.01,1,1,"DELETE VALUE")
@
"^DD",2,2.101,.01,1,1,"FIELD")
AC
"^DD",2,2.101,.01,1,2,0)
2^ADIS
"^DD",2,2.101,.01,1,2,1)
S ^DPT("ADIS",$E(X,1,30),DA(1),DA)=""
"^DD",2,2.101,.01,1,2,2)
K ^DPT("ADIS",$E(X,1,30),DA(1),DA)
"^DD",2,2.101,.01,1,3,0)
2^ADI^MUMPS
"^DD",2,2.101,.01,1,3,1)
S ^DPT("ADI",$E(X,1,30),DA(1),DA)=""
"^DD",2,2.101,.01,1,3,2)
K ^DPT("ADI",$E(X,1,30),DA(1),DA)
"^DD",2,2.101,.01,1,3,"%D",0)
^^8^8^2920327^
"^DD",2,2.101,.01,1,3,"%D",1,0)
This cross-reference is identical to the ^DPT("ADIS" cross-reference on
"^DD",2,2.101,.01,1,3,"%D",2,0)
this field.  The only difference is that this ADI cross-reference was
"^DD",2,2.101,.01,1,3,"%D",3,0)
also set on disposition if the registration and disposition were in
"^DD",2,2.101,.01,1,3,"%D",4,0)
different months.
"^DD",2,2.101,.01,1,3,"%D",5,0)
 
"^DD",2,2.101,.01,1,3,"%D",6,0)
MAS no longer uses this cross-reference and this serves as notification
"^DD",2,2.101,.01,1,3,"%D",7,0)
that this cross-reference will be removed the first release of MAS
"^DD",2,2.101,.01,1,3,"%D",8,0)
released 18 months after the release of MAS 5.2.
"^DD",2,2.101,.01,1,4,0)
2.101^AODS1^MUMPS
"^DD",2,2.101,.01,1,4,1)
S A1B2TAG="REG" D ^A1B2XFR
"^DD",2,2.101,.01,1,4,2)
S A1B2TAG="REG" D ^A1B2XFR
"^DD",2,2.101,.01,3)
Enter the date and time this patient was logged as a new application for care. D
ate must be before today's date and must be after the last disposition.
"^DD",2,2.101,.01,4)
W !,"Enter '??' (a double question mark) for a list of the available dates and t
imes.",!
"^DD",2,2.101,.01,21,0)
^^4^4^2911214^
"^DD",2,2.101,.01,21,1,0)
The date/time the patient was registered using the 'Register a Patient'
"^DD",2,2.101,.01,21,2,0)
option in ADT should be entered into this field.  Registrations must be
"^DD",2,2.101,.01,21,3,0)
entered using the ADT module and should not be entered or edited using
"^DD",2,2.101,.01,21,4,0)
VA FileMan options.
"^DD",2,2.101,.01,"DT")
2941215
"^DD",2,2.101,.2,0)
10-10T REGISTRATION^S^0:NO;1:YES;^0;20^Q
"^DD",2,2.101,.2,3)

"^DD",2,2.101,.2,21,0)
^^1^1^2961218^
"^DD",2,2.101,.2,21,1,0)
Was the patient registered using the 10-10T
"^DD",2,2.101,.2,"DT")
2961218
"^DD",2,2.101,1,0)
STATUS^RS^0:10/10 VISIT;1:UNSCHEDULED;2:APPLICATION WITHOUT EXAM;^0;2^Q
"^DD",2,2.101,1,1,0)
^.1
"^DD",2,2.101,1,1,1,0)
2.101^AAS^MUMPS
"^DD",2,2.101,1,1,1,1)
S SDX=$S(X=0:2,X=1:4,1:"") K:'SDX SDX I $D(SDX) S ^SC("AAS",SDX,(9999999-DA),DA(
1))=$S('$D(^DPT(DA(1),"DIS",DA,0)):"",1:+$P(^(0),"^",4)) K SDX
"^DD",2,2.101,1,1,1,2)
S SDX=$S(X=0:2,X=1:4,1:"") K:'SDX SDX I $D(SDX) S SDX1=$S($D(^SC("AAS",SDX,(9999
999-DA),DA(1))):9999999-DA,1:$P(9999999-DA,".")) K ^SC("AAS",SDX,SDX1,DA(1)),SDX
,SDX1
"^DD",2,2.101,1,1,2,0)
2.101^ASDPSD1^MUMPS
"^DD",2,2.101,1,1,2,1)
S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",4),1:"") Q:SDX']""  S SDX1=$S('X
:"TT",X=1:"UN",1:"") Q:SDX1']""  I '$D(^DPT("ASDPSD","C"," "_SDX,SDX1,9999999-DA
,DA(1))) S ^(DA(1))=""
"^DD",2,2.101,1,1,2,2)
S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",4),1:"") Q:SDX']""  S SDX1=$S('X
:"TT",X=1:"UN",1:"") Q:SDX1']""  K ^DPT("ASDPSD","C"," "_SDX,SDX1,9999999-DA,DA(
1))
"^DD",2,2.101,1,1,3,0)
2.101^AOERR1^MUMPS
"^DD",2,2.101,1,1,3,1)
D UNSCHED^DGOERNOT
"^DD",2,2.101,1,1,3,2)
K DGOERNOT S:X'=$P(^DPT(DA(1),"DIS",DA,0),U,2) DGOERNOT=X
"^DD",2,2.101,1,1,3,"%D",0)
^^4^4^2910716^^^^
"^DD",2,2.101,1,1,3,"%D",1,0)
     This cross-reference is used in conjunction with ORDER ENTRY/
"^DD",2,2.101,1,1,3,"%D",2,0)
RESULTS REPORTING v2.09 or higher and will cause MAS OE/RR NOTIFICATIONS
"^DD",2,2.101,1,1,3,"%D",3,0)
for UNSCHEDULED (1010) VISITS to be sent to users who are on an OE/RR LIST
"^DD",2,2.101,1,1,3,"%D",4,0)
for the patient.
"^DD",2,2.101,1,1,3,"DT")
2910715
"^DD",2,2.101,1,3)
Enter '0' if this is a 10/10 visit for AMIS, '1' if this is an unscheduled visit
, or '2' if this is an application without exam.
"^DD",2,2.101,1,21,0)
^^4^4^2911214^
"^DD",2,2.101,1,21,1,0)
ter the appropriate code indicating the status of the patient's visit.
"^DD",2,2.101,1,21,2,0)
Enter 0 if this patient had a 1010 visit (application for care).  Enter
"^DD",2,2.101,1,21,3,0)
1 if the patient's visit was not scheduled.  Enter 2 if no exam was needed.
"^DD",2,2.101,1,21,4,0)
This data is used by the AMIS 400 series reports.
"^DD",2,2.101,1,"DT")
2910715
"^DD",2,2.101,2,0)
TYPE OF BENEFIT APPLIED FOR^RS^1:HOSPITAL;2:DOMICILIARY;3:OUTPATIENT MEDICAL;4:O
UTPATIENT DENTAL;5:NURSING HOME CARE;^0;3^Q
"^DD",2,2.101,2,3)
Enter the type of benefit this patient is now applying for.
"^DD",2,2.101,2,21,0)
^^2^2^2911214^
"^DD",2,2.101,2,21,1,0)
Enter the type of care this patient has applied for whether it be inpatient
"^DD",2,2.101,2,21,2,0)
(dom, hospital, or nursing home) or outpatient (dental, or non-dental).
"^DD",2,2.101,2,"DT")
2860115
"^DD",2,2.101,2.1,0)
TYPE OF CARE APPLIED FOR^RSX^1:DENTAL;2:PLASTIC SURGERY;3:STERILIZATION;4:PREGNA
NCY;5:ALL OTHER;^0;11^I X=4,($P(^DPT(DA(1),0),"^",2)="M") K X
"^DD",2,2.101,2.1,3)
Select the type of care this applicant is applying for.  Pregnancy can not be se
lected for male patients.
"^DD",2,2.101,2.1,21,0)
^^4^4^2911214^
"^DD",2,2.101,2.1,21,1,0)
Enter the type of care that the patient is requesting service for.  If
"^DD",2,2.101,2.1,21,2,0)
the patient will be receiving treatment for plastic surgery, dental care,
"^DD",2,2.101,2.1,21,3,0)
sterilization, or pregnancy, enter that choice.  Otherwise, enter all
"^DD",2,2.101,2.1,21,4,0)
other.
"^DD",2,2.101,2.1,"DT")
2890609
"^DD",2,2.101,3,0)
FACILITY APPLYING TO^P40.8'^DG(40.8,^0;4^Q
"^DD",2,2.101,3,1,0)
^.1
"^DD",2,2.101,3,1,1,0)
2.101^AAS1^MUMPS
"^DD",2,2.101,3,1,1,1)
S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):+$P(^(0),"^",2),1:""),SDX=$S(SDX=0:2,SDX=1:4
,1:"") K:'SDX SDX I $D(SDX) S ^SC("AAS",SDX,(9999999-DA),DA(1))=X K SDX
"^DD",2,2.101,3,1,1,2)
S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):+$P(^(0),"^",2),1:""),SDX=$S(SDX=0:2,SDX=1:4
,1:"") K:'SDX SDX I $D(SDX) S SDX1=$S($D(^SC("AAS",SDX,(9999999-DA),DA(1))):9999
999-DA,1:$P(9999999-DA,".")) K ^SC("AAS",SDX,SDX1,DA(1)),SDX,SDX1
"^DD",2,2.101,3,1,2,0)
2.101^ASDPSD^MUMPS
"^DD",2,2.101,3,1,2,1)
S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",2),1:""),SDX=$S(SDX=0:"TT",SDX=1
:"UN",1:"") K:SDX']"" SDX I $D(SDX) S SDIV=" "_X D SSD^DGREG0 K SDIV,SDX
"^DD",2,2.101,3,1,2,2)
S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",2),1:""),SDX=$S(SDX=0:"TT",SDX=1
:"UN",1:"") K:SDX']"" SDX I $D(SDX) S SDIV=" "_X D SSDK^DGREG0 K SDIV,SDX
"^DD",2,2.101,3,3)
Enter the division this patient is applying for care to if it is multidivision.
"^DD",2,2.101,3,21,0)
^^2^2^2911214^
"^DD",2,2.101,3,21,1,0)
Enter the facility (division) at which this patient will be receiving
"^DD",2,2.101,3,21,2,0)
care.  This is a pointer to the MEDICAL CENTER DIVISION file.
"^DD",2,2.101,3,"DT")
2860729
"^DD",2,2.101,4,0)
WHO ENTERED 10/10^P200'^VA(200,^0;5^Q
"^DD",2,2.101,4,3)
Enter the name of the person who entered or verified the data for this applicati
on for care.
"^DD",2,2.101,4,21,0)
^^3^3^2911214^
"^DD",2,2.101,4,21,1,0)
The user who entered the registration (1010 application) for this patient
"^DD",2,2.101,4,21,2,0)
will automatically be stored in this field.  This field can be used for
"^DD",2,2.101,4,21,3,0)
tracking purposes.  It should NOT be edited.
"^DD",2,2.101,4,"DT")
2900719
"^DD",2,2.101,5,0)
LOG OUT DATE TIME^RDX^^0;6^S %DT="ETRX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(
X),X<-(DA-9999999) K X
"^DD",2,2.101,5,1,0)
^.1
"^DD",2,2.101,5,1,1,0)
^^TRIGGER^2.101^50
"^DD",2,2.101,5,1,1,1)
X ^DD(2.101,5,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""),Y
(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":
",2),$C(59),1) S DIU=X K Y S X=DIV S X="" X ^DD(2.101,5,1,1,1.4)
"^DD",2,2.101,5,1,1,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
"^DD",2,2.101,5,1,1,1.4)
S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)
_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.101,5,1,1,2)
X ^DD(2.101,5,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""),Y
(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":
",2),$C(59),1) S DIU=X K Y S X=DIV S X="1" X ^DD(2.101,5,1,1,2.4)
"^DD",2,2.101,5,1,1,2.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
"^DD",2,2.101,5,1,1,2.4)
S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)
_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.101,5,1,1,"CREATE VALUE")
@
"^DD",2,2.101,5,1,1,"DELETE VALUE")
"1"
"^DD",2,2.101,5,1,1,"FIELD")
AC
"^DD",2,2.101,5,1,2,0)
2^ADIS4^MUMPS
"^DD",2,2.101,5,1,2,1)
S L=+^DPT(DA(1),"DIS",DA,0) S:$E(X,1,5)>$E(L,1,5) ^DPT("ADI",X,DA(1),DA)=""
"^DD",2,2.101,5,1,2,2)
K ^DPT("ADI",X,DA(1),DA)
"^DD",2,2.101,5,1,2,"%D",0)
^^3^3^2920327^
"^DD",2,2.101,5,1,2,"%D",1,0)
This cross-reference is also set on the LOG-IN DATE/TIME field.  It is
"^DD",2,2.101,5,1,2,"%D",2,0)
no longer used by MAS and it will be removed in the first release of MAS
"^DD",2,2.101,5,1,2,"%D",3,0)
released 18 months after MAS version 5.2.
"^DD",2,2.101,5,3)
Enter the date and time this application for care was dispositioned.
"^DD",2,2.101,5,21,0)
^^1^1^2911214^
"^DD",2,2.101,5,21,1,0)
Enter in this field the date/time the patient was dispositioned.
"^DD",2,2.101,5,"DT")
2901018
"^DD",2,2.101,6,0)
DISPOSITION^R*P37'^DIC(37,^0;7^S DIC("S")="I '$P(^(0),""^"",10)" D ^DIC K DIC S 
DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.101,6,1,0)
^.1
"^DD",2,2.101,6,1,1,0)
2.101^AODS5^MUMPS
"^DD",2,2.101,6,1,1,1)
S A1B2TAG="REG" D ^A1B2XFR
"^DD",2,2.101,6,1,1,2)
S A1B2TAG="REG" D ^A1B2XFR
"^DD",2,2.101,6,3)
Enter the disposition of this application for care.
"^DD",2,2.101,6,12)
ONLY ACTIVE DISPOSITION TYPES PLEASE!
"^DD",2,2.101,6,12.1)
S DIC("S")="I '$P(^(0),""^"",10)"
"^DD",2,2.101,6,21,0)
^^4^4^2911214^
"^DD",2,2.101,6,21,1,0)
Enter the type of disposition this patient had.  Choose from the available
"^DD",2,2.101,6,21,2,0)
list whether the patient was scheduled for a future appointment, admitted
"^DD",2,2.101,6,21,3,0)
to your facility or another facility, or was released from care without
"^DD",2,2.101,6,21,4,0)
exam, for example.  Many other choices also exist.
"^DD",2,2.101,6,"DT")
2910117
"^DD",2,2.101,8,0)
REASON FOR LATE DISPOSITION^P30'^DIC(30,^0;8^Q
"^DD",2,2.101,8,3)
Enter the reason this application for care took so long to disposition.
"^DD",2,2.101,8,21,0)
^^7^7^2911214^^
"^DD",2,2.101,8,21,1,0)
As part of the 'MAS Parameter Entry/Edit' option, a site can determine how
"^DD",2,2.101,8,21,2,0)
may hours must elapse before a disposition is considered to be entered
"^DD",2,2.101,8,21,3,0)
late.  If the time between the registration (log-in) date/time and the
"^DD",2,2.101,8,21,4,0)
disposition (log-out) date/time is found to be more than the number of
"^DD",2,2.101,8,21,5,0)
hours specified in the MAS parameters, the user will be prompted with
"^DD",2,2.101,8,21,6,0)
a reason for the late disposition.  This is a pointer to the DISPOSITION
"^DD",2,2.101,8,21,7,0)
LATE REASON file.
"^DD",2,2.101,8,"DT")
2831210
"^DD",2,2.101,9,0)
WHO DISPOSITIONED^P200'^VA(200,^0;9^Q
"^DD",2,2.101,9,3)
Enter the name of the person who dispositioned this application for care.
"^DD",2,2.101,9,21,0)
^^3^3^2911214^
"^DD",2,2.101,9,21,1,0)
When a user dispositions a patient, the name of the user will automatically
"^DD",2,2.101,9,21,2,0)
be entered into this field.  This field can be used for tracking purposes
"^DD",2,2.101,9,21,3,0)
at the site and should not be edited.
"^DD",2,2.101,9,"DT")
2900924
"^DD",2,2.101,10,0)
DESCRIPTION OF INCIDENT^F^^1;1^K:$L(X)>250!($L(X)<3) X
"^DD",2,2.101,10,3)
Enter a brief description of what caused the accident, 3-250 characters.
"^DD",2,2.101,10,21,0)
^^2^2^2911214^
"^DD",2,2.101,10,21,1,0)
If the patient was injured in an accident, a brief description (from 3-250
"^DD",2,2.101,10,21,2,0)
characters) should be entered detailing what caused the injury.
"^DD",2,2.101,10,"DT")
2831201
"^DD",2,2.101,12,0)
*ELIGIBLE FOR MEDICAID^S^0:NO;1:YES;^0;12^Q
"^DD",2,2.101,12,1,0)
^.1
"^DD",2,2.101,12,1,1,0)
2.101^AC^MUMPS
"^DD",2,2.101,12,1,1,1)
S DFN=DA(1) D EN^DGMTR
"^DD",2,2.101,12,1,1,2)
Q
"^DD",2,2.101,12,1,1,"DT")
2920227
"^DD",2,2.101,12,3)
Does patient meet eligibility requirements of Medicaid.
"^DD",2,2.101,12,21,0)
^^2^2^2911214^
"^DD",2,2.101,12,21,1,0)
If this patient is eligible for medicaid, enter yes in this field.
"^DD",2,2.101,12,21,2,0)
Otherwise, entere no.  This field is used for billing purposes.
"^DD",2,2.101,12,"DT")
2920227
"^DD",2,2.101,13,0)
REGISTRATION ELIGIBILITY CODE^R*P8'X^DIC(8,^0;13^S DIC("S")="I $P(^(0),""^"",9)=
8!($D(^DPT(""AEL"",DA(1),+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.101,13,1,0)
^.1
"^DD",2,2.101,13,1,1,0)
^^TRIGGER^409.68^.13
"^DD",2,2.101,13,1,1,1)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.101,13,1,1,89.2) S Y(101)=$S($D(^
SCE(D0,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(101),U,13),0)):"",1:$P(^(0),U,1)) 
S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(2.101,13,1,1,1.4)
"^DD",2,2.101,13,1,1,1.4)
S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,13)=DIV,DIH=
409.68,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.101,13,1,1,2)
Q
"^DD",2,2.101,13,1,1,89.2)
S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DPT(D0,"DIS",D
1,0)):^(0),1:""),D0=$P(Y(1),U,18) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0
"^DD",2,2.101,13,1,1,"CREATE VALUE")
S X=X
"^DD",2,2.101,13,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2.101,13,1,1,"DT")
2930722
"^DD",2,2.101,13,1,1,"FIELD")
OUTPATIENT ENCOUNTER:#.13
"^DD",2,2.101,13,12)
ONLY ELIGIBILITIES WHICH HAVE BEEN ASSIGNED TO THIS PATIENT!
"^DD",2,2.101,13,12.1)
S DIC("S")="I $P(^(0),""^"",9)=8!($D(^DPT(""AEL"",DA(1),+Y)))"
"^DD",2,2.101,13,21,0)
^^5^5^2911214^
"^DD",2,2.101,13,21,1,0)
When a patient is registered, the user registering the patient will be
"^DD",2,2.101,13,21,2,0)
asked for the patient's eligibility under which they are receiving care.
"^DD",2,2.101,13,21,3,0)
The default will be the primary eligibility code.  However, if the patient
"^DD",2,2.101,13,21,4,0)
also has other entitled eligibilities (employee, for example), one of
"^DD",2,2.101,13,21,5,0)
the other eligibilities may also be entered.
"^DD",2,2.101,13,"DT")
2930722
"^DD",2,2.101,14,0)
ELIG VERIFIED AT REGISTRATION^RS^0:NO;1:YES;^0;14^Q
"^DD",2,2.101,14,21,0)
^^2^2^2911214^
"^DD",2,2.101,14,21,1,0)
If the eligibility was verified at the time of registration, this field
"^DD",2,2.101,14,21,2,0)
will be YES.  Otherwise, it will be NO.
"^DD",2,2.101,14,"DT")
2880208
"^DD",2,2.101,15,0)
SC AT REGISTRATION^RS^0:NO;1:YES;^0;15^Q
"^DD",2,2.101,15,21,0)
^^4^4^2911214^
"^DD",2,2.101,15,21,1,0)
If the patient being registered was SC (as determined by the SERVICE
"^DD",2,2.101,15,21,2,0)
CONNECTED? field on screen 7 of registration) at the time this application
"^DD",2,2.101,15,21,3,0)
was entered, YES will be stuffed into this field.  Otherwise NO will be
"^DD",2,2.101,15,21,4,0)
filled in here.
"^DD",2,2.101,15,"DT")
2880208
"^DD",2,2.101,16,0)
SC% AT REGISTRATION^RNJ3,0^^0;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
"^DD",2,2.101,16,3)
If SC at registration enter the percentage of service connection.
"^DD",2,2.101,16,21,0)
^^4^4^2911214^
"^DD",2,2.101,16,21,1,0)
If the patient was service connected at the time of this registration (as
"^DD",2,2.101,16,21,2,0)
determined by the SERVICE CONNECTED? field on registration screen 7), the
"^DD",2,2.101,16,21,3,0)
service connected percentage should be entered here.  The default value
"^DD",2,2.101,16,21,4,0)
will be the percentage entered on registration screen 7.
"^DD",2,2.101,16,"DT")
2880208
"^DD",2,2.101,17,0)
AMIS 420 SEGMENT^*P391.1'^DG(391.1,^0;17^S DIC("S")="I Y>400,Y<421" D ^DIC K DIC
 S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.101,17,12)
AMIS 401-420 SEGMENT ON WHICH THIS DISPOSITION IS COUNTED
"^DD",2,2.101,17,12.1)
S DIC("S")="I Y>400,Y<421"
"^DD",2,2.101,17,21,0)
^^5^5^2911214^
"^DD",2,2.101,17,21,1,0)
The AMIS 400 series reports are generated based on data in the DISPOSITION
"^DD",2,2.101,17,21,2,0)
LOG-IN DATE/TIME multiple.  When an application is dispositioned, it is
"^DD",2,2.101,17,21,3,0)
deterined by the module which AMIS segment (401-420) this registration
"^DD",2,2.101,17,21,4,0)
should fall into.  This information is created automatically by the MAS
"^DD",2,2.101,17,21,5,0)
module.
"^DD",2,2.101,17,"DT")
2880208
"^DD",2,2.101,18,0)
OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;18^Q
"^DD",2,2.101,18,"DT")
2930210
"^DD",2,2.101,19,0)
ENCOUNTER CONVERSION STATUS^S^0:NOT CONVERTED;1:CONVERTED;^0;19^Q
"^DD",2,2.101,19,21,0)
^^5^5^2991228^
"^DD",2,2.101,19,21,1,0)
This field indicates whether or not this disposition was converted  
"^DD",2,2.101,19,21,2,0)
during the ACRP Database Conversion (SD*5.3*211).
"^DD",2,2.101,19,21,3,0)
 
"^DD",2,2.101,19,21,4,0)
The field is set to '1' after the disposition has been converted
"^DD",2,2.101,19,21,5,0)
by the conversion software.                        
"^DD",2,2.101,19,"DT")
2980114
"^DD",2,2.101,20,0)
NEED RELATED TO OCCUPATION^RS^Y:YES;N:NO;U:UNKNOWN;^2;1^Q
"^DD",2,2.101,20,3)
Enter 'Y' if this application for care is related to the patient's occupation, '
N' if it is not, 'U' if you do not know.
"^DD",2,2.101,20,21,0)
^^3^3^2911214^
"^DD",2,2.101,20,21,1,0)
If the need for care is related to an injury or condition acquired while
"^DD",2,2.101,20,21,2,0)
the patient was performing work-related duties, yes should be entered here.
"^DD",2,2.101,20,21,3,0)
Otherwise, no should be entered.
"^DD",2,2.101,20,"DT")
2831130
"^DD",2,2.101,21,0)
WORKMEN'S COMP CLAIM FILED^S^Y:YES;N:NO;^2;2^Q
"^DD",2,2.101,21,3)
Enter 'Y' if a workman's comp claim has been filed against this patient's employ
er, 'N' if it has not.
"^DD",2,2.101,21,21,0)
^^4^4^2911214^
"^DD",2,2.101,21,21,1,0)
If the injury or condition for which this patient is being treated occurred
"^DD",2,2.101,21,21,2,0)
while performing duties necessary for his/her job and the patient entered
"^DD",2,2.101,21,21,3,0)
a workmen's compensation claim for this injury or condition, enter yes
"^DD",2,2.101,21,21,4,0)
here.  Otherwise, enter no.
"^DD",2,2.101,21,"DT")
2831130
"^DD",2,2.101,22,0)
WORKMEN'S COMP CLAIM NUMBER^F^^2;3^K:$L(X)>10!($L(X)<4) X
"^DD",2,2.101,22,3)
Enter the workman's comp claim number, 4 to 10 characters.
"^DD",2,2.101,22,21,0)
^^4^4^2911214^
"^DD",2,2.101,22,21,1,0)
If this patient is being seen for an injury or condition s/he received
"^DD",2,2.101,22,21,2,0)
while performing work related duties and s/he filed a claim with workmen's
"^DD",2,2.101,22,21,3,0)
compensation, enter the claim number here.  Otherwise, leave this field
"^DD",2,2.101,22,21,4,0)
blank.
"^DD",2,2.101,22,"DT")
2831130
"^DD",2,2.101,23,0)
NEED RELATED TO AN ACCIDENT^RS^Y:YES;N:NO;U:UNKNOWN;^2;4^Q
"^DD",2,2.101,23,3)
Enter 'Y' if this application for care is due to an accident, 'N' if it is not, 
'U' if unknown.
"^DD",2,2.101,23,21,0)
^^2^2^2911214^
"^DD",2,2.101,23,21,1,0)
If the injury or condition for which this patient is being treated was the
"^DD",2,2.101,23,21,2,0)
result of an accident, enter yes here.  Otherwise, answer no.
"^DD",2,2.101,23,"DT")
2831130
"^DD",2,2.101,24,0)
INJURY CAUSED BY^F^^2;5^K:$L(X)>80!($L(X)<4) X
"^DD",2,2.101,24,3)
Enter who or what was responsible for the accident, 4-80 characters.
"^DD",2,2.101,24,21,0)
^^3^3^2911214^
"^DD",2,2.101,24,21,1,0)
If the reason this patient is being seen at the medical center is due to
"^DD",2,2.101,24,21,2,0)
an injury sustained, enter what caused the injury.  Otherwise, leave this
"^DD",2,2.101,24,21,3,0)
field blank.
"^DD",2,2.101,24,"DT")
2831130
"^DD",2,2.101,25,0)
INJURING PARTIES INSURANCE^P36'^DIC(36,^2;6^Q
"^DD",2,2.101,25,21,0)
^^3^3^2911214^
"^DD",2,2.101,25,21,1,0)
If the reason this patient is being seen at this medical center is due to
"^DD",2,2.101,25,21,2,0)
an injury sustained and there is a liable party, enter that party's
"^DD",2,2.101,25,21,3,0)
insurance policy number.  Otherwise, leave this field blank.
"^DD",2,2.101,25,"DT")
2841022
"^DD",2,2.101,26,0)
FILED AGAINST INJURING PARTY^S^Y:YES;N:NO;^2;7^Q
"^DD",2,2.101,26,21,0)
^^3^3^2911214^
"^DD",2,2.101,26,21,1,0)
If this patient is being seen is due to an injury resulting from another
"^DD",2,2.101,26,21,2,0)
person's negligence, enter yes here if a claim has been filed against the
"^DD",2,2.101,26,21,3,0)
other party's insurance company.  Otherwise, answer no.
"^DD",2,2.101,26,"DT")
2831130
"^DD",2,2.101,30,0)
ATTORNEY'S NAME^F^^3;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=
$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME
"^DD",2,2.101,30,3)
Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in leng
th.
"^DD",2,2.101,30,21,0)
^^4^4^2911214^^
"^DD",2,2.101,30,21,1,0)
Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format.
"^DD",2,2.101,30,21,2,0)
This value must be 3-30 characters in length and may contain only uppercase
"^DD",2,2.101,30,21,3,0)
alpha characters, spaces, apostrophes, hyphens and one comma.  All other
"^DD",2,2.101,30,21,4,0)
characters and parenthetical text will be removed.
"^DD",2,2.101,30,"DT")
3050630
"^DD",2,2.101,31,0)
A-ADDRESS 1^F^^3;2^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.101,31,3)
Enter the first line of the attorney's address (do not include city, state or zi
p code), 3-30 characters.
"^DD",2,2.101,31,21,0)
^^3^3^2911214^^
"^DD",2,2.101,31,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,31,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,31,21,3,0)
incident, enter the first line the street address for the attorney.
"^DD",2,2.101,31,"DT")
2831201
"^DD",2,2.101,32,0)
A-ADDRESS 2^F^^3;3^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.101,32,3)
Enter the second line of the attorney's address (do not include city, state or z
ip code), 3-30 characters.
"^DD",2,2.101,32,21,0)
^^3^3^2911214^
"^DD",2,2.101,32,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,32,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,32,21,3,0)
incident, enter the second line of the street address for the attorney.
"^DD",2,2.101,32,"DT")
2831201
"^DD",2,2.101,33,0)
A-ADDRESS 3^F^^3;4^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.101,33,3)
Enter the third line of the attorney's address (do not include city, state or zi
p code) 3-30 characters.
"^DD",2,2.101,33,21,0)
^^3^3^2911214^
"^DD",2,2.101,33,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,33,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,33,21,3,0)
incident, enter the third line of the street address for the attorney.
"^DD",2,2.101,33,"DT")
2831201
"^DD",2,2.101,34,0)
A-CITY^F^^3;5^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.101,34,3)
Enter the attorney's city address, 3-30 characters.
"^DD",2,2.101,34,21,0)
^^3^3^2911214^
"^DD",2,2.101,34,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,34,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,34,21,3,0)
incident, enter the city where the attorney practices.
"^DD",2,2.101,34,"DT")
2831201
"^DD",2,2.101,35,0)
A-STATE^P5'^DIC(5,^3;6^Q
"^DD",2,2.101,35,3)
Enter the attorney's state address.
"^DD",2,2.101,35,21,0)
^^3^3^2911214^
"^DD",2,2.101,35,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,35,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,35,21,3,0)
incident, enter the the state where the attorney practices.
"^DD",2,2.101,35,"DT")
2831201
"^DD",2,2.101,36,0)
A-ZIP CODE^F^^3;7^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
"^DD",2,2.101,36,1,0)
^.1^^-1
"^DD",2,2.101,36,1,1,0)
2.101^ADISAZIP^MUMPS
"^DD",2,2.101,36,1,1,1)
D SETMULT^DGREGDD1(DA(1),DA,2.101,"DIS",38,3,9,X)
"^DD",2,2.101,36,1,1,2)
D KILLMULT^DGREGDD1(DA(1),DA,2.101,"DIS",38,3,9,X)
"^DD",2,2.101,36,1,1,"%D",0)
^^2^2^2930607^^^
"^DD",2,2.101,36,1,1,"%D",1,0)
This sets the corresponding zip+4 field to be equal to this field's 
"^DD",2,2.101,36,1,1,"%D",2,0)
value.
"^DD",2,2.101,36,1,1,"DT")
2930607
"^DD",2,2.101,36,3)
Enter the 5 numbers in the attorney's zip code (ex: '12345').
"^DD",2,2.101,36,21,0)
3
"^DD",2,2.101,36,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,36,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,36,21,3,0)
incident, enter the zip code of the attorney's address.
"^DD",2,2.101,36,"DT")
2930607
"^DD",2,2.101,37,0)
A-PHONE^F^^3;8^K:$L(X)>20!($L(X)<3) X
"^DD",2,2.101,37,3)
Enter the attorney's phone number, 3-20 characters.
"^DD",2,2.101,37,21,0)
^^3^3^2911214^
"^DD",2,2.101,37,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,37,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,37,21,3,0)
incident, enter the the attorney's business phone number.
"^DD",2,2.101,37,"DT")
2831201
"^DD",2,2.101,38,0)
A-ZIP+4^FOX^^3;9^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D 
ZIPIN^VAFADDR
"^DD",2,2.101,38,1,0)
^.1^^-1
"^DD",2,2.101,38,1,1,0)
2.101^ADISZIP4^MUMPS
"^DD",2,2.101,38,1,1,1)
D SETMULT^DGREGDD1(DA(1),DA,2.101,"DIS",36,3,7,$E(X,1,5))
"^DD",2,2.101,38,1,1,2)
D KILLMULT^DGREGDD1(DA(1),DA,2.101,"DIS",36,3,7,$E(X,1,5))
"^DD",2,2.101,38,1,1,"%D",0)
^^2^2^2930607^^^^
"^DD",2,2.101,38,1,1,"%D",1,0)
This sets the corresponding zip code field to the first 5 digits of this 
"^DD",2,2.101,38,1,1,"%D",2,0)
field.
"^DD",2,2.101,38,1,1,"DT")
2930607
"^DD",2,2.101,38,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2.101,38,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2.101,38,3)
Answer with either 5 digit or 9 digit zip code.
"^DD",2,2.101,38,21,0)
^^5^5^2930603^
"^DD",2,2.101,38,21,1,0)
If the patient is being treated for an injury sustained due to the
"^DD",2,2.101,38,21,2,0)
negligence of another and the patient has an attorney covering the
"^DD",2,2.101,38,21,3,0)
incident, enter the zip code of the attorney's address.  Answer with 
"^DD",2,2.101,38,21,4,0)
either the 5 digit format (e.g. 12345) or the nine digit format (e.g.
"^DD",2,2.101,38,21,5,0)
12345-6789 or 123456789).
"^DD",2,2.101,38,23,0)
^^3^3^2930603^
"^DD",2,2.101,38,23,1,0)
Related to other address fields for the patient's attorney.  This field 
"^DD",2,2.101,38,23,2,0)
'triggers' the A-ZIP CODE (#38) field of the disposition multiple, using
"^DD",2,2.101,38,23,3,0)
the first 5 digits of this field.
"^DD",2,2.101,38,"DT")
2930607
"^DD",2,2.101,50,0)
ACTIVE^S^1:ACTIVE;^0;10^Q
"^DD",2,2.101,50,1,0)
^.1
"^DD",2,2.101,50,1,1,0)
2^ADA
"^DD",2,2.101,50,1,1,1)
S ^DPT("ADA",$E(X,1,30),DA(1),DA)=""
"^DD",2,2.101,50,1,1,2)
K ^DPT("ADA",$E(X,1,30),DA(1),DA)
"^DD",2,2.101,50,3)
Enter 1 if this registration is active (not dispositioned).
"^DD",2,2.101,50,5,1,0)
2.101^.01^1
"^DD",2,2.101,50,5,2,0)
2.101^5^1
"^DD",2,2.101,50,9)
^
"^DD",2,2.101,50,21,0)
^^2^2^2911214^
"^DD",2,2.101,50,21,1,0)
If this registration is currently active (not dispostioned) a 1 will be
"^DD",2,2.101,50,21,2,0)
stored in this field.  Otherwise, the field should be left blank.
"^DD",2,2.101,50,"DT")
2850702
"^DD",2,2.101,99,0)
PROGRAMMERS USE^DC^^ ; ^S Y(2.101,99,1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S 
X=$P(Y(2.101,99,1),U,1)
"^DD",2,2.101,99,9)
^
"^DD",2,2.101,99,9.01)
2.101^.01
"^DD",2,2.101,99,9.1)
#.01
"^DD",2,2.101,99,21,0)
^^2^2^2851121^
"^DD",2,2.101,99,21,1,0)
Used to speed reporting in Multidivisional Facilities.
"^DD",2,2.101,99,21,2,0)
Fileman can not sort by same field twice
"^DD",2,2.101,100.21,0)
ATTORNEY'S NAME COMPONENTS^P20'I^VA(20,^0;21^Q
"^DD",2,2.101,100.21,3)
This field contains a pointer to the NAME COMPONENTS record associated with DISP
OSITION field #30.
"^DD",2,2.101,100.21,9)
^
"^DD",2,2.101,100.21,"DT")
3020419
"^DD",2,2.101,11500.01,0)
ODS AT REGISTRATION?^S^1:YES;0:NO;^ODS;1^Q
"^DD",2,2.101,11500.01,3)
Did this patient have a period of service of ODS at the time of this registratio
n?
"^DD",2,2.101,11500.01,21,0)
^^1^1^2910116^
"^DD",2,2.101,11500.01,21,1,0)
Enter yes if this patient was an ODS patient at the time of this registration.  
Otherwise, respond no.
"^DD",2,2.101,11500.01,21,2,0)
this registration.  Otherwise, respond no.
"^DD",2,2.101,11500.01,"DT")
2910116
"^DD",2,2.101,11500.02,0)
ODS REGISTRATION ENTRY^P11500.4'^A1B2(11500.4,^ODS;2^Q
"^DD",2,2.101,11500.02,1,0)
^.1
"^DD",2,2.101,11500.02,1,1,0)
2^AODSR
"^DD",2,2.101,11500.02,1,1,1)
S ^DPT("AODSR",$E(X,1,30),DA(1),DA)=""
"^DD",2,2.101,11500.02,1,1,2)
K ^DPT("AODSR",$E(X,1,30),DA(1),DA)
"^DD",2,2.101,11500.02,3)
Enter the entry in the ODS REGISTRATIONS file which corresponds to this registra
tion.
"^DD",2,2.101,11500.02,21,0)
^^1^1^2910116^
"^DD",2,2.101,11500.02,21,1,0)
Enter the entry in the ODS REGISTRATIONS file which corresponds to this registra
tion.
"^DD",2,2.101,11500.02,"DT")
2910116
"^DD",2,2.11,0)
DATE OF DENTAL TREATMENT SUB-FIELD^^3^3
"^DD",2,2.11,0,"NM","DATE OF DENTAL TREATMENT")

"^DD",2,2.11,0,"UP")
2
"^DD",2,2.11,.01,0)
DATE OF DENTAL TREATMENT^MDX^^0;1^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:1000
000>X X
"^DD",2,2.11,.01,3)
TYPE A DATE BETWEEN 1800 AND TODAY
"^DD",2,2.11,.01,"DT")
2980302
"^DD",2,2.11,2,0)
CONDITION^F^^0;2^K:$L(X)>100!($L(X)<3) X
"^DD",2,2.11,2,3)
Enter Condition Treated, Place of treatment, and from whom treatment received.
"^DD",2,2.11,2,21,0)
^^3^3^2911214^^
"^DD",2,2.11,2,21,1,0)
Enter the patient's condition on the date in which they received dental
"^DD",2,2.11,2,21,2,0)
treatment.  Also enter the place of treatment and from whom the
"^DD",2,2.11,2,21,3,0)
treatment was received.  This field allows entry of 3-100 characters.
"^DD",2,2.11,2,"DT")
2860624
"^DD",2,2.11,3,0)
DATE CONDITION FIRST NOTICED^DX^^0;3^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y
<1 X
"^DD",2,2.11,3,3)
Enter Approximate date condition was first noticed.
"^DD",2,2.11,3,21,0)
^^2^2^2911214^
"^DD",2,2.11,3,21,1,0)
Enter the date the patient states s/he first noticed this dental
"^DD",2,2.11,3,21,2,0)
condition.
"^DD",2,2.11,3,"DT")
2900418
"^DD",2,2.12,0)
ARCHIVED DATA SUB-FIELD^^1^2
"^DD",2,2.12,0,"IX","AB",2.12,.01)

"^DD",2,2.12,0,"NM","ARCHIVED DATA")

"^DD",2,2.12,0,"UP")
2
"^DD",2,2.12,.01,0)
DATA TYPE^S^DE:CLINIC ENROLLMENT;S:APPOINTMENT;SSD:SPECIAL SURVEY DISP;^0;1^Q
"^DD",2,2.12,.01,1,0)
^.1
"^DD",2,2.12,.01,1,1,0)
2.12^AB
"^DD",2,2.12,.01,1,1,1)
S ^DPT(DA(1),"ARCH","AB",$E(X,1,30),DA)=""
"^DD",2,2.12,.01,1,1,2)
K ^DPT(DA(1),"ARCH","AB",$E(X,1,30),DA)
"^DD",2,2.12,.01,21,0)
^^1^1^2911226^^
"^DD",2,2.12,.01,21,1,0)
This field identifies the type of data that was archived
"^DD",2,2.12,.01,"DT")
2870102
"^DD",2,2.12,1,0)
DATE OF ARCHIVE^2.13DA^^1;0
"^DD",2,2.12,1,21,0)
^^2^2^2911226^
"^DD",2,2.12,1,21,1,0)
This multiple contains data pertaining to each specific archive (the
"^DD",2,2.12,1,21,2,0)
date, the beginning and ending archiving dates, and the tape numbers).
"^DD",2,2.13,0)
DATE OF ARCHIVE SUB-FIELD^^4^5
"^DD",2,2.13,0,"NM","DATE OF ARCHIVE")

"^DD",2,2.13,0,"UP")
2.12
"^DD",2,2.13,.01,0)
DATE OF ARCHIVE^D^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.13,.01,21,0)
^^4^4^2911226^
"^DD",2,2.13,.01,21,1,0)
Enter the date/time the archiving utility was run.
"^DD",2,2.13,.01,21,2,0)
 
"^DD",2,2.13,.01,21,3,0)
This field is not currently used.  The archiving software was not
"^DD",2,2.13,.01,21,4,0)
distributed.
"^DD",2,2.13,.01,"DT")
2861229
"^DD",2,2.13,1,0)
TAPE #^F^^0;2^K:$L(X)>40!($L(X)<1) X
"^DD",2,2.13,1,3)
ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
"^DD",2,2.13,1,21,0)
^^2^2^2911226^
"^DD",2,2.13,1,21,1,0)
Enter the sequential number of the tape on which this archiving data
"^DD",2,2.13,1,21,2,0)
was put.
"^DD",2,2.13,1,"DT")
2870129
"^DD",2,2.13,2,0)
BEGIN ARCHIVE DATE^D^^0;3^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.13,2,21,0)
^^1^1^2911226^
"^DD",2,2.13,2,21,1,0)
Enter the date the user chose to begin the scheduling archive.
"^DD",2,2.13,2,"DT")
2861229
"^DD",2,2.13,3,0)
END ARCHIVE DATE^D^^0;4^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.13,3,3)

"^DD",2,2.13,3,21,0)
^^1^1^2911226^
"^DD",2,2.13,3,21,1,0)
Enter the ending date the user chose for the scheduling archive.
"^DD",2,2.13,4,0)
NUMBER OF RECORDS ARCHIVED^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
"^DD",2,2.13,4,3)
TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
"^DD",2,2.13,4,21,0)
^^5^5^2911226^
"^DD",2,2.13,4,21,1,0)
The number of records archived.  This is created automatically by the
"^DD",2,2.13,4,21,2,0)
software.
"^DD",2,2.13,4,21,3,0)
 
"^DD",2,2.13,4,21,4,0)
This software has not been released and this field is not presently
"^DD",2,2.13,4,21,5,0)
used in DHCP.
"^DD",2,2.13,4,"DT")
2861229
"^DD",2,2.141,0)
CONFIDENTIAL ADDRESS CATEGORY SUB-FIELD^^1^2
"^DD",2,2.141,0,"DT")
3030108
"^DD",2,2.141,0,"IX","B",2.141,.01)

"^DD",2,2.141,0,"NM","CONFIDENTIAL ADDRESS CATEGORY")

"^DD",2,2.141,0,"UP")
2
"^DD",2,2.141,.01,0)
CONFIDENTIAL ADDRESS CATEGORY^MS^1:ELIGIBILITY/ENROLLMENT;2:APPOINTMENT/SCHEDULI
NG;3:COPAYMENTS/VETERAN BILLING;4:MEDICAL RECORDS;5:ALL OTHERS;^0;1^Q
"^DD",2,2.141,.01,.1)

"^DD",2,2.141,.01,1,0)
^.1
"^DD",2,2.141,.01,1,1,0)
2.141^B
"^DD",2,2.141,.01,1,1,1)
S ^DPT(DA(1),.14,"B",$E(X,1,30),DA)=""
"^DD",2,2.141,.01,1,1,2)
K ^DPT(DA(1),.14,"B",$E(X,1,30),DA)
"^DD",2,2.141,.01,3)
Enter the confidential address category for the applicant's confidential communi
cations.
"^DD",2,2.141,.01,21,0)
^.001^3^3^3030313^^
"^DD",2,2.141,.01,21,1,0)
If the 'Confidential Address Active' prompt is answered YES, 
"^DD",2,2.141,.01,21,2,0)
select the confidential address category for this applicant's
"^DD",2,2.141,.01,21,3,0)
confidential communications.
"^DD",2,2.141,.01,"DT")
3060518
"^DD",2,2.141,1,0)
CONFIDENTIAL CATEGORY ACTIVE^S^Y:YES;N:NO;^0;2^Q
"^DD",2,2.141,1,3)
Enter Yes if the confidential address category for the applicant's confidential 
communications is active.
"^DD",2,2.141,1,21,0)
^.001^3^3^3030313^^
"^DD",2,2.141,1,21,1,0)
If the applicant's confidential communications for this category should
"^DD",2,2.141,1,21,2,0)
be sent to the confidential address, Confidential Category Active field
"^DD",2,2.141,1,21,3,0)
should be set to yes.  If not, select N or No.
"^DD",2,2.141,1,"DT")
3060518
"^DD",2,2.16,0)
MISSING OR INELIGIBLE SUB-FIELD^NL^.01^1
"^DD",2,2.16,0,"NM","MISSING OR INELIGIBLE")

"^DD",2,2.16,0,"UP")
2
"^DD",2,2.16,.01,0)
MISSING OR INELIGIBLE^W^^0;1^Q
"^DD",2,2.16,.01,3)

"^DD",2,2.16,.01,21,0)
^^2^2^2911224^
"^DD",2,2.16,.01,21,1,0)
This is a word processing field to contain information on the patient's
"^DD",2,2.16,.01,21,2,0)
ineligibility or information about this missing patient.
"^DD",2,2.16,.01,"DT")
2850321
"^DD",2,2.312,0)
INSURANCE TYPE SUB-FIELD^NL^21^82
"^DD",2,2.312,0,"DT")
2930712
"^DD",2,2.312,0,"ID","WRITE")

"^DD",2,2.312,0,"IX","AC",2.312,16)

"^DD",2,2.312,0,"IX","ADGRU31201",2.312,.01)

"^DD",2,2.312,0,"IX","ADGRU3121",2.312,1)

"^DD",2,2.312,0,"IX","ADGRU31218",2.312,.18)

"^DD",2,2.312,0,"IX","ADGRU3123",2.312,3)

"^DD",2,2.312,0,"IX","ADGRU3128",2.312,8)

"^DD",2,2.312,0,"IX","AENR01",2.312,.01)

"^DD",2,2.312,0,"IX","AENR1",2.312,1)

"^DD",2,2.312,0,"IX","AENR17",2.312,17)

"^DD",2,2.312,0,"IX","AENR18",2.312,.18)

"^DD",2,2.312,0,"IX","AENR2",2.312,2)

"^DD",2,2.312,0,"IX","AENR3",2.312,3)

"^DD",2,2.312,0,"IX","AENR6",2.312,6)

"^DD",2,2.312,0,"IX","AENR8",2.312,8)

"^DD",2,2.312,0,"IX","B",2.312,.01)

"^DD",2,2.312,0,"NM","INSURANCE TYPE")

"^DD",2,2.312,0,"UP")
2
"^DD",2,2.312,.01,0)
INSURANCE TYPE^M*P36'^DIC(36,^0;1^S DIC("S")="I '$P(^(0),""^"",5)" S:$D(DGCRINSS
) DIC("S")=DIC("S")_",$P(^(0),""^"",2)'=""N""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
 X
"^DD",2,2.312,.01,1,0)
^.1
"^DD",2,2.312,.01,1,1,0)
2.312^ADGRU31201^MUMPS
"^DD",2,2.312,.01,1,1,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,.01,1,1,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,.01,1,1,"%D",0)
^^1^1^3000420^
"^DD",2,2.312,.01,1,1,"%D",1,0)
RAI/MDS: field monitored for changes.
"^DD",2,2.312,.01,1,1,"DT")
3000420
"^DD",2,2.312,.01,1,2,0)
2.312^B
"^DD",2,2.312,.01,1,2,1)
S ^DPT(DA(1),.312,"B",$E(X,1,30),DA)=""
"^DD",2,2.312,.01,1,2,2)
K ^DPT(DA(1),.312,"B",$E(X,1,30),DA)
"^DD",2,2.312,.01,1,2,"DT")
2930304
"^DD",2,2.312,.01,1,3,0)
2^AB
"^DD",2,2.312,.01,1,3,1)
S ^DPT("AB",$E(X,1,30),DA(1),DA)=""
"^DD",2,2.312,.01,1,3,2)
K ^DPT("AB",$E(X,1,30),DA(1),DA)
"^DD",2,2.312,.01,1,3,"%D",0)
^^3^3^3000216^^
"^DD",2,2.312,.01,1,3,"%D",1,0)
Index of all insurance companies for the entire patient file.  This will 
"^DD",2,2.312,.01,1,3,"%D",2,0)
be used to prevent deleting of insurance companies that are pointed to
"^DD",2,2.312,.01,1,3,"%D",3,0)
by the patient file.
"^DD",2,2.312,.01,1,3,"DT")
2930304
"^DD",2,2.312,.01,1,4,0)
^^TRIGGER^2.312^1.01
"^DD",2,2.312,.01,1,4,1)
X ^DD(2.312,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"")
 S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(2.312,.01,1,4,1.4)
"^DD",2,2.312,.01,1,4,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.
312,D1,1)):^(1),1:"") S X=$P(Y(1),U,1)=""
"^DD",2,2.312,.01,1,4,1.4)
S DIH=$S($D(^DPT(DIV(0),.312,DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=
2.312,DIG=1.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.312,.01,1,4,2)
Q
"^DD",2,2.312,.01,1,4,"%D",0)
^^1^1^2930602^^
"^DD",2,2.312,.01,1,4,"%D",1,0)
Triggers date entered field to current date only if null.
"^DD",2,2.312,.01,1,4,"CREATE CONDITION")
#1.01=""
"^DD",2,2.312,.01,1,4,"CREATE VALUE")
S X=DT
"^DD",2,2.312,.01,1,4,"DELETE VALUE")
NO EFFECT
"^DD",2,2.312,.01,1,4,"DT")
2930304
"^DD",2,2.312,.01,1,4,"FIELD")
#1.01
"^DD",2,2.312,.01,1,5,0)
^^TRIGGER^2.312^1.02
"^DD",2,2.312,.01,1,5,1)
X ^DD(2.312,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"")
 S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(2.312,.01,1,5,1.4)
"^DD",2,2.312,.01,1,5,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.
312,D1,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
"^DD",2,2.312,.01,1,5,1.4)
S DIH=$S($D(^DPT(DIV(0),.312,DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=
2.312,DIG=1.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.312,.01,1,5,2)
Q
"^DD",2,2.312,.01,1,5,"%D",0)
^^1^1^2930304^
"^DD",2,2.312,.01,1,5,"%D",1,0)
Store user who entered insurance.
"^DD",2,2.312,.01,1,5,"CREATE CONDITION")
#1.02=""
"^DD",2,2.312,.01,1,5,"CREATE VALUE")
S X=DUZ
"^DD",2,2.312,.01,1,5,"DELETE VALUE")
NO EFFECT
"^DD",2,2.312,.01,1,5,"DT")
2930304
"^DD",2,2.312,.01,1,5,"FIELD")
#1.02
"^DD",2,2.312,.01,1,6,0)
2.312^AENR01^MUMPS
"^DD",2,2.312,.01,1,6,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,.01,1,6,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,.01,1,6,3)
 DO NOT DELETE
"^DD",2,2.312,.01,1,6,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,.01,1,6,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,.01,1,6,"%D",2,0)
enrollment.
"^DD",2,2.312,.01,1,6,"DT")
3050913
"^DD",2,2.312,.01,3)
Enter the insurance company with which the patient has insurance coverage.
"^DD",2,2.312,.01,12)
ACTIVE INSURANCE COMPANIES ONLY
"^DD",2,2.312,.01,12.1)
S DIC("S")="I '$P(^(0),""^"",5)" S:$D(DGCRINSS) DIC("S")=DIC("S")_",$P(^(0),""^"
",2)'=""N"""
"^DD",2,2.312,.01,21,0)
^^2^2^3000216^^^^
"^DD",2,2.312,.01,21,1,0)
Choose from the available listing the name(s) of the insurance
"^DD",2,2.312,.01,21,2,0)
company(ies) under which this applicant is covered.
"^DD",2,2.312,.01,"DEL",399,0)
I $$DELP^IBCNSU(DA(1),$P(^DPT(DA(1),.312,DA,0),U),DA) W !!,$C(7),"THERE ARE BILL
S ASSOCIATED WITH THIS COMPANY, DELETION NOT ALLOWED"
"^DD",2,2.312,.01,"DT")
3000420
"^DD",2,2.312,.18,0)
GROUP PLAN^*P355.3^IBA(355.3,^0;18^S DIC("S")="I +$P(^(0),U)=+$G(^DPT(DA(1),.312
,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.312,.18,1,0)
^.1^^-1
"^DD",2,2.312,.18,1,1,0)
2.312^ADGRU31218^MUMPS
"^DD",2,2.312,.18,1,1,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,.18,1,1,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,.18,1,1,"%D",0)
^^1^1^3000420^
"^DD",2,2.312,.18,1,1,"%D",1,0)
RAI/MDS: field monitored for changes.
"^DD",2,2.312,.18,1,1,"DT")
3000420
"^DD",2,2.312,.18,1,2,0)
2.312^AENR18^MUMPS
"^DD",2,2.312,.18,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,.18,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,.18,1,2,3)
 DO NOT DELETE
"^DD",2,2.312,.18,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,.18,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,.18,1,2,"%D",2,0)
enrollment.
"^DD",2,2.312,.18,1,2,"DT")
3050913
"^DD",2,2.312,.18,3)
Enter the name or number of the Insurance Company you are trying to update benef
its for.
"^DD",2,2.312,.18,12)
MUST BE SAME INSURANCE COMPANY
"^DD",2,2.312,.18,12.1)
S DIC("S")="I +$P(^(0),U)=+$G(^DPT(DA(1),.312,DA,0))"
"^DD",2,2.312,.18,21,0)
^^5^5^2931103^^
"^DD",2,2.312,.18,21,1,0)
Select the plan under which this patient is covered by the specified
"^DD",2,2.312,.18,21,2,0)
insurance company.  If this is a group plan then there may already be
"^DD",2,2.312,.18,21,3,0)
an entry for this plan that you may select.  Or, you may add a new
"^DD",2,2.312,.18,21,4,0)
plan.  If this is an individual plan then it will be associated with
"^DD",2,2.312,.18,21,5,0)
only this patient.
"^DD",2,2.312,.18,"DT")
3000420
"^DD",2,2.312,.2,0)
COORDINATION OF BENEFITS^S^1:PRIMARY;2:SECONDARY;3:TERTIARY;^0;20^Q
"^DD",2,2.312,.2,"DT")
2930702
"^DD",2,2.312,1,0)
*SUBSCRIBER ID^FX^^0;2^D SUBID^IBCNSU1
"^DD",2,2.312,1,.1)
INSURANCE NUMBER
"^DD",2,2.312,1,1,0)
^.1
"^DD",2,2.312,1,1,1,0)
2.312^ADGRU3121^MUMPS
"^DD",2,2.312,1,1,1,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,1,1,1,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,1,1,1,"%D",0)
^^1^1^3000420^
"^DD",2,2.312,1,1,1,"%D",1,0)
RAI/MDS: field monitored for changes.
"^DD",2,2.312,1,1,1,"DT")
3000420
"^DD",2,2.312,1,1,2,0)
2.312^AENR1^MUMPS
"^DD",2,2.312,1,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,1,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,1,1,2,3)
 DO NOT DELETE
"^DD",2,2.312,1,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,1,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,1,1,2,"%D",2,0)
enrollment.
"^DD",2,2.312,1,1,2,"DT")
3050913
"^DD",2,2.312,1,1,3,0)
^^TRIGGER^2.312^7.02
"^DD",2,2.312,1,1,3,1)
X ^DD(2.312,1,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,7)):^(7),1:"") S
 X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^DPT(DA(1),.312,DA,0),U,2) X ^DD(
2.312,1,1,3,1.4)
"^DD",2,2.312,1,1,3,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,0),U,2)'=$E($P($G(^DPT(DA(1),.312,DA,7)),U,2),1,20))
"^DD",2,2.312,1,1,3,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),7)),DIV=X S $P(^(7),U,2)=DIV,DIH=2.312,DIG=7.02
 D ^DICR
"^DD",2,2.312,1,1,3,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,0),U,2)="") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,7)):^(7),1:"") S X=$P(
Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2.312,1,1,3,2.4)
"^DD",2,2.312,1,1,3,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),7)),DIV=X S $P(^(7),U,2)=DIV,DIH=2.312,DIG=7.02
 D ^DICR
"^DD",2,2.312,1,1,3,"%D",0)
^.101^1^1^3131029^^
"^DD",2,2.312,1,1,3,"%D",1,0)
Triggers field 2.312/7.02 if first 20 chars of its value differ from the value i
n this field. Deletes field 2.312/7.02 if field 2.312/1 is deleted.
"^DD",2,2.312,1,1,3,"CREATE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,0),U,2)'=$E($P($G(^DPT(DA(1),.312,DA,7)),U,2),1,20))
"^DD",2,2.312,1,1,3,"CREATE VALUE")
S X=$P(^DPT(DA(1),.312,DA,0),U,2)
"^DD",2,2.312,1,1,3,"DELETE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,0),U,2)="")
"^DD",2,2.312,1,1,3,"DELETE VALUE")
@
"^DD",2,2.312,1,1,3,"DT")
3131020
"^DD",2,2.312,1,1,3,"FIELD")
SUBSCRIBER ID
"^DD",2,2.312,1,3)
Answer must be 3-20 characters in length.
"^DD",2,2.312,1,5,1,0)
2.312^7.02^1
"^DD",2,2.312,1,21,0)
^^4^4^3131120^
"^DD",2,2.312,1,21,1,0)
Enter the Subscriber's Primary ID number.  This number is assigned
"^DD",2,2.312,1,21,2,0)
by the payer and can be found on the subscriber's insurance card.
"^DD",2,2.312,1,21,3,0)
 
"^DD",2,2.312,1,21,4,0)
This field is scheduled for deletion in May 2015.
"^DD",2,2.312,1,"DT")
3131120
"^DD",2,2.312,1.01,0)
DATE ENTERED^D^^1;1^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.312,1.01,3)
Enter the Date time this entry was entered
"^DD",2,2.312,1.01,5,1,0)
2.312^.01^4
"^DD",2,2.312,1.01,21,0)
^^3^3^2930603^^
"^DD",2,2.312,1.01,21,1,0)
This is the date this entry was added.  It will be created by the system
"^DD",2,2.312,1.01,21,2,0)
whenever a new policy is added.  Entries created prior the installation
"^DD",2,2.312,1.01,21,3,0)
of IB v2.0 will not have an entry in this field.
"^DD",2,2.312,1.01,"DT")
2930707
"^DD",2,2.312,1.02,0)
ENTERED BY^P200'^VA(200,^1;2^Q
"^DD",2,2.312,1.02,5,1,0)
2.312^.01^5
"^DD",2,2.312,1.02,21,0)
^^3^3^2930603^
"^DD",2,2.312,1.02,21,1,0)
This the user who added this entry.  It will be entered by the system
"^DD",2,2.312,1.02,21,2,0)
whenever a new policy is added.  Entries created prior the installation
"^DD",2,2.312,1.02,21,3,0)
of IB v2.0 will not have an entry in this field.
"^DD",2,2.312,1.02,"DT")
2930303
"^DD",2,2.312,1.03,0)
DATE LAST VERIFIED^D^^1;3^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.312,1.03,3)
Enter the date that this policy was last verified.
"^DD",2,2.312,1.03,21,0)
^^9^9^3000216^^^
"^DD",2,2.312,1.03,21,1,0)
Insurance coverage is generally verified by calling the insurer and
"^DD",2,2.312,1.03,21,2,0)
requesting an explanation of benefits.  When coverage has been
"^DD",2,2.312,1.03,21,3,0)
verified the person verifying the coverage should use the options to
"^DD",2,2.312,1.03,21,4,0)
verify the coverage in VISTA.  
"^DD",2,2.312,1.03,21,5,0)
 
"^DD",2,2.312,1.03,21,6,0)
This is the date that this policy for this patient was last verified 
"^DD",2,2.312,1.03,21,7,0)
with the insurance company.  It is important to update the verification
"^DD",2,2.312,1.03,21,8,0)
date regularly so that other users will know how current the information
"^DD",2,2.312,1.03,21,9,0)
in VISTA is.
"^DD",2,2.312,1.03,"DT")
3000131
"^DD",2,2.312,1.04,0)
VERIFIED BY^P200'^VA(200,^1;4^Q
"^DD",2,2.312,1.04,21,0)
^^4^4^2930603^
"^DD",2,2.312,1.04,21,1,0)
This is the user that last contacted the insurance company to verify
"^DD",2,2.312,1.04,21,2,0)
the policy.  It is updated by using the appropriate DHCP options.
"^DD",2,2.312,1.04,21,3,0)
It is important to update the verification date and user so that other
"^DD",2,2.312,1.04,21,4,0)
users will know the insurance policy information is current.
"^DD",2,2.312,1.04,"DT")
2930303
"^DD",2,2.312,1.05,0)
DATE LAST EDITED^D^^1;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.312,1.05,1,0)
^.1
"^DD",2,2.312,1.05,1,1,0)
^^TRIGGER^2.312^4.04
"^DD",2,2.312,1.05,1,1,1)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,4)
):^(4),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(2.312,1.05,1
,1,1.4)
"^DD",2,2.312,1.05,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=2.312,DIG=4.04
 D ^DICR
"^DD",2,2.312,1.05,1,1,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,4)
):^(4),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(2.312,1.05,1
,1,2.4)
"^DD",2,2.312,1.05,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=2.312,DIG=4.04
 D ^DICR
"^DD",2,2.312,1.05,1,1,"%D",0)
^^1^1^3091006^
"^DD",2,2.312,1.05,1,1,"%D",1,0)
Any change to this field will set EIV AUTO-UPDATE field (4.04) to "NO".
"^DD",2,2.312,1.05,1,1,"CREATE VALUE")
"0"
"^DD",2,2.312,1.05,1,1,"DELETE VALUE")
"0"
"^DD",2,2.312,1.05,1,1,"DT")
3091006
"^DD",2,2.312,1.05,1,1,"FIELD")
EIV AUTO-UPDATE
"^DD",2,2.312,1.05,3)
Enter the date the policy was last edited.
"^DD",2,2.312,1.05,21,0)
^^2^2^3100428^
"^DD",2,2.312,1.05,21,1,0)
This is the date this policy was last edited.  This field is updated by
"^DD",2,2.312,1.05,21,2,0)
the computer whenever anyone edits this patient's policy information.
"^DD",2,2.312,1.05,"DT")
3100428
"^DD",2,2.312,1.06,0)
LAST EDITED BY^P200'^VA(200,^1;6^Q
"^DD",2,2.312,1.06,21,0)
^^2^2^2930603^
"^DD",2,2.312,1.06,21,1,0)
This is the user that last edited the policy.  This field is updated by
"^DD",2,2.312,1.06,21,2,0)
the computer whenever anyone edits this patients policy information.
"^DD",2,2.312,1.06,"DT")
2930303
"^DD",2,2.312,1.08,0)
COMMENT - PATIENT POLICY^F^^1;8^K:$L(X)>80!($L(X)<3) X
"^DD",2,2.312,1.08,3)
Answer must be 3-80 characters in length.  This is a short comment about this pa
tients policy.
"^DD",2,2.312,1.08,21,0)
^^3^3^2930603^^
"^DD",2,2.312,1.08,21,1,0)
This is a place to record a short comment about this patients policy.
"^DD",2,2.312,1.08,21,2,0)
It is specific to this patient and to this policy.  The answer must be
"^DD",2,2.312,1.08,21,3,0)
3 to 80 characters.
"^DD",2,2.312,1.08,"DT")
2930603
"^DD",2,2.312,1.09,0)
SOURCE OF INFORMATION^P355.12'O^IBE(355.12,^1;9^Q
"^DD",2,2.312,1.09,1,0)
^.1
"^DD",2,2.312,1.09,1,1,0)
^^TRIGGER^2.312^1.1
"^DD",2,2.312,1.09,1,1,1)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,1)
):^(1),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=
% X ^DD(2.312,1.09,1,1,1.4)
"^DD",2,2.312,1.09,1,1,1.1)
S X=DIV S %=$P($H,",",2),X=$E(DT_(%\60#60/100+(%\3600)+(%#60/10000)/100),1,12)
"^DD",2,2.312,1.09,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=2.312,DIG=1.1
 D ^DICR
"^DD",2,2.312,1.09,1,1,2)
Q
"^DD",2,2.312,1.09,1,1,"CREATE VALUE")
NOW
"^DD",2,2.312,1.09,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2.312,1.09,1,1,"DT")
3030131
"^DD",2,2.312,1.09,1,1,"FIELD")
#1.1
"^DD",2,2.312,1.09,2)
S Y(0)=Y S Y=$$GET1^DIQ(355.12,Y_",",.02,"E")
"^DD",2,2.312,1.09,2.1)
S Y=$$GET1^DIQ(355.12,Y_",",.02,"E")
"^DD",2,2.312,1.09,3)
Enter the source by which this insurance information was obtained.
"^DD",2,2.312,1.09,21,0)
^.001^11^11^3061206^^^
"^DD",2,2.312,1.09,21,1,0)
Enter the last source of this information.
"^DD",2,2.312,1.09,21,2,0)
If the insurance information was obtained by patient interview, then
"^DD",2,2.312,1.09,21,3,0)
enter interview, etc.  If the information was initially or previously
"^DD",2,2.312,1.09,21,4,0)
obtained by one source but updated by another source, then enter the
"^DD",2,2.312,1.09,21,5,0)
most recent source of the information.
"^DD",2,2.312,1.09,21,6,0)
 
"^DD",2,2.312,1.09,21,7,0)
The data in this field will be initially set to INTERVIEW with IB v2.
"^DD",2,2.312,1.09,21,8,0)
The data may be passed to Accounts Receivable and/or the MCCR NDB.
"^DD",2,2.312,1.09,21,9,0)
 
"^DD",2,2.312,1.09,21,10,0)
If this field is being edited through the use of the pre-registration
"^DD",2,2.312,1.09,21,11,0)
software, the default for this field will be set to PRE-REGISTRATION.
"^DD",2,2.312,1.09,"DT")
3061031
"^DD",2,2.312,1.1,0)
DATE OF SOURCE OF INFORMATION^D^^1;10^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.312,1.1,5,1,0)
2.312^1.09^1
"^DD",2,2.312,1.1,"DT")
2930712
"^DD",2,2.312,2,0)
*GROUP NUMBER^F^^0;3^K:$L(X)>17!($L(X)<1) X
"^DD",2,2.312,2,1,0)
^.1
"^DD",2,2.312,2,1,1,0)
2.312^AENR2^MUMPS
"^DD",2,2.312,2,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,2,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,2,1,1,3)
 DO NOT DELETE
"^DD",2,2.312,2,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,2,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,2,1,1,"%D",2,0)
enrollment.
"^DD",2,2.312,2,1,1,"DT")
3050913
"^DD",2,2.312,2,3)
Answer must be 1-17 characters in length.
"^DD",2,2.312,2,21,0)
^^7^7^2930601^^^^
"^DD",2,2.312,2,21,1,0)
Enter any other appropriate number which identifies this policy, i.e.,
"^DD",2,2.312,2,21,2,0)
group number/code, under which this applicant is covered.  Answer must
"^DD",2,2.312,2,21,3,0)
be between 1 and 17 characters.
"^DD",2,2.312,2,21,4,0)
 
"^DD",2,2.312,2,21,5,0)
This field is moved to the HEALTH INSURANCE POLICY file (355.3) beginning
"^DD",2,2.312,2,21,6,0)
with IB v2.0.  It will be deleted with the first release 18 months after
"^DD",2,2.312,2,21,7,0)
the release of IB V2.
"^DD",2,2.312,2,"DT")
2930601
"^DD",2,2.312,2.01,0)
SEND BILL TO EMPLOYER^S^1:YES;0:NO;^2;1^Q
"^DD",2,2.312,2.01,3)
Enter 'YES' if the employer should be mailed insurance claims for pre-processing
.  Enter 'NO' if the employer does not receive claims.
"^DD",2,2.312,2.01,21,0)
^^11^11^2930603^^^^
"^DD",2,2.312,2.01,21,1,0)
If the employer of the person who holds this policy requires that 
"^DD",2,2.312,2.01,21,2,0)
they pre-processed for the insurance policy then enter 'YES'.  You 
"^DD",2,2.312,2.01,21,3,0)
will then be allowed to enter the company name and address that
"^DD",2,2.312,2.01,21,4,0)
these bills should be sent to.  The bills will then automatically use
"^DD",2,2.312,2.01,21,5,0)
this address.
"^DD",2,2.312,2.01,21,6,0)
 
"^DD",2,2.312,2.01,21,7,0)
If the employer does not require this, or unknown, enter 'NO'.  The bills
"^DD",2,2.312,2.01,21,8,0)
will then be sent to the insurance company.
"^DD",2,2.312,2.01,21,9,0)
 
"^DD",2,2.312,2.01,21,10,0)
If the policy is held by other than the patient then this will not be the
"^DD",2,2.312,2.01,21,11,0)
patient's employer but the employer of the person who is insured.
"^DD",2,2.312,2.01,"DT")
2930303
"^DD",2,2.312,2.015,0)
SUBSCRIBER'S EMPLOYER NAME^F^^2;9^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.312,2.015,3)
Answer must be 3-30 characters in length.  This is the name of the subsriber's e
mployer that will appear on the UB-04 if this employer pre-processes insurance c
laims.
"^DD",2,2.312,2.015,21,0)
^^2^2^3070115^
"^DD",2,2.312,2.015,21,1,0)
This is the name of the employer that will appear on the UB-04 if the
"^DD",2,2.312,2.015,21,2,0)
bills should be sent to the employer for pre-processing.
"^DD",2,2.312,2.015,"DT")
3070115
"^DD",2,2.312,2.02,0)
EMPLOYER CLAIMS STREET ADDRESS^F^^2;2^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.312,2.02,3)
Answer must be 3-30 characters in length.  This is the street address, line 1, o
f the employer who should receive claims to pre-processs.
"^DD",2,2.312,2.02,21,0)
^^3^3^2930603^
"^DD",2,2.312,2.02,21,1,0)
This is the street address of the employer who should receive claims to be
"^DD",2,2.312,2.02,21,2,0)
pre-processed before the are forwarded to the insurance carrier.
"^DD",2,2.312,2.02,21,3,0)
The answer should be 3 to 30 characters.
"^DD",2,2.312,2.02,"DT")
2930303
"^DD",2,2.312,2.03,0)
EMPLOY CLAIM ST ADDRESS LINE 2^F^^2;3^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.312,2.03,3)
Answer must be 3-30 characters in length.  This is line 2 of the street address 
for employers who pre-process insurance claims.
"^DD",2,2.312,2.03,21,0)
^^3^3^2930603^
"^DD",2,2.312,2.03,21,1,0)
This is line 2 of the street address for employers who pre-process 
"^DD",2,2.312,2.03,21,2,0)
insurance claims before they are forwarded to the insurance carrier
"^DD",2,2.312,2.03,21,3,0)
for processing.  Answer must be 3-30 characters.
"^DD",2,2.312,2.03,"DT")
2930303
"^DD",2,2.312,2.04,0)
EMPLOY CLAIM ST ADDRESS LINE 3^F^^2;4^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.312,2.04,3)
Answer must be 3-30 characters in length.  This is line 3 of the street address 
for employers who pre-process insurance claims.
"^DD",2,2.312,2.04,21,0)
^^3^3^2930603^
"^DD",2,2.312,2.04,21,1,0)
This is line 3 of the street address for employers who pre-process 
"^DD",2,2.312,2.04,21,2,0)
insurance claims before they are forwarded to the insurance carrier 
"^DD",2,2.312,2.04,21,3,0)
for processing.  Answer must be 3-30 characters.
"^DD",2,2.312,2.04,"DT")
2930303
"^DD",2,2.312,2.05,0)
EMPLOYER CLAIMS CITY^F^^2;5^K:$L(X)>20!($L(X)<3) X
"^DD",2,2.312,2.05,3)
Answer must be 3-20 characters in length.  Enter the city of the employer's addr
ess if the employer pre-processes insurance claims.
"^DD",2,2.312,2.05,21,0)
^^4^4^2930603^^^^
"^DD",2,2.312,2.05,21,1,0)
If the employer of the person who holds this policy pre-processes
"^DD",2,2.312,2.05,21,2,0)
insurance claims prior to forwarding to the insurance carrier enter
"^DD",2,2.312,2.05,21,3,0)
the city that claim should be sent to.  This will be printed on the
"^DD",2,2.312,2.05,21,4,0)
claim form.  Answer must be 3 to 20 characters.
"^DD",2,2.312,2.05,"DT")
2930303
"^DD",2,2.312,2.06,0)
EMPLOYER CLAIMS STATE^P5'^DIC(5,^2;6^Q
"^DD",2,2.312,2.06,21,0)
^^4^4^2930603^
"^DD",2,2.312,2.06,21,1,0)
If the employer of the person who holds this policy pre-processes
"^DD",2,2.312,2.06,21,2,0)
insurance claims prior to forwarding to the insurance carrier enter
"^DD",2,2.312,2.06,21,3,0)
the state that the claim should be sent to.  This will be printed on the
"^DD",2,2.312,2.06,21,4,0)
claim form.  Answer must be 3 to 20 characters.
"^DD",2,2.312,2.06,"DT")
2930303
"^DD",2,2.312,2.07,0)
EMPLOYER CLAIMS ZIP CODE^FX^^2;7^K:$L(X)>20!($L(X)<5) X D:$D(X) ZIPIN^VAFADDR
"^DD",2,2.312,2.07,3)
Answer with either the 5 or 9 digit zip code.
"^DD",2,2.312,2.07,21,0)
^^4^4^2930603^
"^DD",2,2.312,2.07,21,1,0)
Enter the zip code of the mailing address for this employer.
"^DD",2,2.312,2.07,21,2,0)
Answer with either the 5 digit zip code (format 12345) or with the 9 
"^DD",2,2.312,2.07,21,3,0)
digit zip code (in format 123456789 or 12345-6789).
"^DD",2,2.312,2.07,21,4,0)
 
"^DD",2,2.312,2.07,"DT")
2930603
"^DD",2,2.312,2.08,0)
EMPLOYER CLAIMS PHONE^F^^2;8^K:$L(X)>15!($L(X)<7) X
"^DD",2,2.312,2.08,3)
Answer must be 7-15 characters in length.
"^DD",2,2.312,2.08,21,0)
^^2^2^2930603^
"^DD",2,2.312,2.08,21,1,0)
Enter the phone number of the employer.  This should be the phone number
"^DD",2,2.312,2.08,21,2,0)
of the person to contact regarding insurance claims.
"^DD",2,2.312,2.08,"DT")
2930304
"^DD",2,2.312,2.1,0)
ESGHP^S^1:YES;0:NO;^2;10^Q
"^DD",2,2.312,2.1,3)
Enter 'Yes' if this policy is part of an Employer Sponsored Group Health Plan.
"^DD",2,2.312,2.1,21,0)
^^2^2^2971212^^^
"^DD",2,2.312,2.1,21,1,0)
Enter 'Yes' if this policy is part of a plan that is sponsored or
"^DD",2,2.312,2.1,21,2,0)
provided by the insured's current or past employer.
"^DD",2,2.312,2.1,"DT")
2970813
"^DD",2,2.312,2.11,0)
EMPLOYMENT STATUS^S^1:FULL TIME;2:PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RET
IRED;6:ACTIVE MILITARY;9:UNKNOWN;^2;11^Q
"^DD",2,2.312,2.11,3)
Enter the insured's employment status with the employer that sponsors this plan.
"^DD",2,2.312,2.11,21,0)
^^2^2^2970813^^^
"^DD",2,2.312,2.11,21,1,0)
If this is an Employer Sponsored Group Health Plan then this should be the
"^DD",2,2.312,2.11,21,2,0)
employment status of the insured with the employer that sponsors the plan.
"^DD",2,2.312,2.11,"DT")
2970813
"^DD",2,2.312,2.12,0)
RETIREMENT DATE^D^^2;12^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.312,2.12,3)
Enter the date the insured retired from the employer that sponsors this plan.
"^DD",2,2.312,2.12,21,0)
^^2^2^2970813^
"^DD",2,2.312,2.12,21,1,0)
If this is an Employer Sponsored Group Health Plan then this should be
"^DD",2,2.312,2.12,21,2,0)
the date the insured retired from the employer that sponsors the plan.
"^DD",2,2.312,2.12,"DT")
2970813
"^DD",2,2.312,3,0)
INSURANCE EXPIRATION DATE^DX^^0;4^S %DT="E" D ^%DT S X=Y K:((Y<1)!(X<$P($G(^DPT(
DA(1),.312,DA,0)),"^",8))) X
"^DD",2,2.312,3,1,0)
^.1
"^DD",2,2.312,3,1,1,0)
2.312^ADGRU3123^MUMPS
"^DD",2,2.312,3,1,1,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,3,1,1,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,3,1,1,"%D",0)
^^2^2^3000420^
"^DD",2,2.312,3,1,1,"%D",1,0)
RAI/MDS: field monitored for changes.
"^DD",2,2.312,3,1,1,"%D",2,0)
Cross reference also needed to force filing so input transform works.
"^DD",2,2.312,3,1,1,"DT")
3000420
"^DD",2,2.312,3,1,2,0)
2.312^AENR3^MUMPS
"^DD",2,2.312,3,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,3,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,3,1,2,3)
 DO NOT DELETE
"^DD",2,2.312,3,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,3,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,3,1,2,"%D",2,0)
enrollment.
"^DD",2,2.312,3,1,2,"DT")
3050913
"^DD",2,2.312,3,3)

"^DD",2,2.312,3,21,0)
^^2^2^2930820^^^^
"^DD",2,2.312,3,21,1,0)
If this insurance policy under which this applicant is covered expires on
"^DD",2,2.312,3,21,2,0)
a specified date enter that date, otherwise, leave this field blank.
"^DD",2,2.312,3,"DT")
3000420
"^DD",2,2.312,3.01,0)
INSURED'S DOB^DX^^3;1^S %DT="EXP",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X
"^DD",2,2.312,3.01,3)
Please enter the insured person's date of birth.
"^DD",2,2.312,3.01,21,0)
^^3^3^3060905^
"^DD",2,2.312,3.01,21,1,0)
The field is used to store the date of birth of the insured person.
"^DD",2,2.312,3.01,21,2,0)
The field value may be printed in block 11a of the CMS-1500 claim
"^DD",2,2.312,3.01,21,3,0)
form.  This is a required field for billing ChampUS patients.
"^DD",2,2.312,3.01,"DT")
3060905
"^DD",2,2.312,3.02,0)
INSURED'S BRANCH^P23'^DIC(23,^3;2^Q
"^DD",2,2.312,3.02,3)
Please enter the Service Branch of the insured person.
"^DD",2,2.312,3.02,21,0)
^^5^5^3060905^
"^DD",2,2.312,3.02,21,1,0)
This field may be used to store the service branch of the insured
"^DD",2,2.312,3.02,21,2,0)
person.  The field will be used primarily for CHAMPUS policies,
"^DD",2,2.312,3.02,21,3,0)
where the subscriber, or sponsor, may be an active duty member
"^DD",2,2.312,3.02,21,4,0)
of the military.  The field value may be printed in block 11b
"^DD",2,2.312,3.02,21,5,0)
of the CMS-1500 claim form.
"^DD",2,2.312,3.02,"DT")
3060905
"^DD",2,2.312,3.03,0)
INSURED'S RANK^F^^3;3^K:$L(X)>12!($L(X)<2) X
"^DD",2,2.312,3.03,3)
Answer must be 2-12 characters in length.
"^DD",2,2.312,3.03,21,0)
^^5^5^3060905^
"^DD",2,2.312,3.03,21,1,0)
This field contains the insured person's military rank.  The
"^DD",2,2.312,3.03,21,2,0)
field will be used primarily for CHAMPUS policies, where the
"^DD",2,2.312,3.03,21,3,0)
subscriber, or sponsor, may be an active duty member of the
"^DD",2,2.312,3.03,21,4,0)
military.  The field value may be printed in block 11c of
"^DD",2,2.312,3.03,21,5,0)
the CMS-1500 claim form.
"^DD",2,2.312,3.03,"DT")
3060905
"^DD",2,2.312,3.04,0)
POLICY NOT BILLABLE^S^0:NO;1:YES;^3;4^Q
"^DD",2,2.312,3.04,3)
Enter YES if claims should not be created against this policy.
"^DD",2,2.312,3.04,21,0)
^^4^4^2960813^
"^DD",2,2.312,3.04,21,1,0)
This field is used primarily for CHAMPUS policies.  If the patient is
"^DD",2,2.312,3.04,21,2,0)
covered under CHAMPUS, but it is known that claims should never be
"^DD",2,2.312,3.04,21,3,0)
submitted to the CHAMPUS Fiscal Intermediary, then entering YES in
"^DD",2,2.312,3.04,21,4,0)
this field will cause Pharmacy claims to the FI not to be created.
"^DD",2,2.312,3.04,"DT")
2960813
"^DD",2,2.312,3.05,0)
INSURED'S SSN^FOX^^3;5^K:$L(X)>13!($L(X)<9) X I $D(X) S X=$TR(X,"-","")
"^DD",2,2.312,3.05,2)
S Y(0)=Y S Y=$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,6,9)
"^DD",2,2.312,3.05,2.1)
S Y=$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,6,9)
"^DD",2,2.312,3.05,3)
Answer must be 9-13 characters in length.
"^DD",2,2.312,3.05,21,0)
^^4^4^2970505^
"^DD",2,2.312,3.05,21,1,0)
This field contains the policyholder's social security number,
"^DD",2,2.312,3.05,21,2,0)
if it is different than the Subscriber ID.  For CHAMPUS policies,
"^DD",2,2.312,3.05,21,3,0)
this value may be automatically inserted into this field from
"^DD",2,2.312,3.05,21,4,0)
the PATIENT (#2) or SPONSOR PERSON (#355.82) files.
"^DD",2,2.312,3.05,"DT")
2970506
"^DD",2,2.312,3.06,0)
INSURED'S STREET 1^FX^^3;6^K:$L(X)>55!($L(X)<3)!'$$LENCHK^IBCNEUT1(X,30,0) X
"^DD",2,2.312,3.06,3)
Answer must be 3-30 characters in length.
"^DD",2,2.312,3.06,21,0)
^.001^1^1^3130211^^^^
"^DD",2,2.312,3.06,21,1,0)
This field contains the first street address of the policyholder.
"^DD",2,2.312,3.06,23,0)
^^1^1^3130605^
"^DD",2,2.312,3.06,23,1,0)
Length of this field is temporarily limited to 30 characters.
"^DD",2,2.312,3.06,"DT")
3130605
"^DD",2,2.312,3.07,0)
INSURED'S STREET 2^FX^^3;7^K:$L(X)>55!($L(X)<3)!'$$LENCHK^IBCNEUT1(X,30,0) X
"^DD",2,2.312,3.07,3)
Answer must be 3-30 characters in length.
"^DD",2,2.312,3.07,21,0)
^^2^2^3130605^
"^DD",2,2.312,3.07,21,1,0)
This field contains the second line of the street address of
"^DD",2,2.312,3.07,21,2,0)
the policyholder.
"^DD",2,2.312,3.07,23,0)
^^1^1^3130605^
"^DD",2,2.312,3.07,23,1,0)
Length of this field is temporarily limited to 30 characters.
"^DD",2,2.312,3.07,"DT")
3130605
"^DD",2,2.312,3.08,0)
INSURED'S CITY^FX^^3;8^K:$L(X)>30!($L(X)<2)!'$$LENCHK^IBCNEUT1(X,25,0) X
"^DD",2,2.312,3.08,3)
Answer must be 2-25 characters in length.
"^DD",2,2.312,3.08,21,0)
^.001^1^1^3130205^^^^
"^DD",2,2.312,3.08,21,1,0)
This field contains the city of the policyholder.
"^DD",2,2.312,3.08,23,0)
^^1^1^3130605^
"^DD",2,2.312,3.08,23,1,0)
Length of this field is temporarily limited to 25 characters.
"^DD",2,2.312,3.08,"DT")
3130605
"^DD",2,2.312,3.09,0)
INSURED'S STATE^P5'^DIC(5,^3;9^Q
"^DD",2,2.312,3.09,21,0)
^^1^1^2970505^
"^DD",2,2.312,3.09,21,1,0)
This field contains the state of the policyholder.
"^DD",2,2.312,3.09,"DT")
2970505
"^DD",2,2.312,3.1,0)
INSURED'S ZIP^FXO^^3;10^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
"^DD",2,2.312,3.1,2)
S Y(0)=Y D ZIPOUT^VAFADDR
"^DD",2,2.312,3.1,2.1)
D ZIPOUT^VAFADDR
"^DD",2,2.312,3.1,3)
Answer must be 5-20 characters in length.
"^DD",2,2.312,3.1,21,0)
^^1^1^2970505^
"^DD",2,2.312,3.1,21,1,0)
This field contains the zip code of the policyholder.
"^DD",2,2.312,3.1,"DT")
2970505
"^DD",2,2.312,3.11,0)
INSURED'S PHONE^F^^3;11^K:$L(X)>20!($L(X)<7) X
"^DD",2,2.312,3.11,3)
Answer must be 7-20 characters in length.
"^DD",2,2.312,3.11,21,0)
^^1^1^2970505^
"^DD",2,2.312,3.11,21,1,0)
This field contains the phone number of the policyholder.
"^DD",2,2.312,3.11,"DT")
2970505
"^DD",2,2.312,3.12,0)
INSURED'S SEX^S^F:FEMALE;M:MALE;^3;12^Q
"^DD",2,2.312,3.12,3)
Enter the sex (M or F) of the policy holder.
"^DD",2,2.312,3.12,21,0)
^.001^6^6^3061002^^
"^DD",2,2.312,3.12,21,1,0)
This field is used in insurance billing to help verify the
"^DD",2,2.312,3.12,21,2,0)
policy coverage when the bill is submitted to the carrier.
"^DD",2,2.312,3.12,21,3,0)
If the patient is the policy holder, this value should match
"^DD",2,2.312,3.12,21,4,0)
the patient's sex.  If the patient's spouse or other relative
"^DD",2,2.312,3.12,21,5,0)
is the policy holder, the appropriate value should be
"^DD",2,2.312,3.12,21,6,0)
determined and entered.
"^DD",2,2.312,3.12,"DT")
3061002
"^DD",2,2.312,3.13,0)
INSURED'S COUNTRY^F^^3;13^K:$L(X)>3!($L(X)<2) X
"^DD",2,2.312,3.13,3)
Answer must be 2-3 characters in length.
"^DD",2,2.312,3.13,21,0)
^^1^1^3100810^
"^DD",2,2.312,3.13,21,1,0)
This field contains the country code of the policyholder.
"^DD",2,2.312,3.13,23,0)
^^1^1^3100916^
"^DD",2,2.312,3.13,23,1,0)
Source: 271 HL7 message, PID.11.6.
"^DD",2,2.312,3.13,"DT")
3100916
"^DD",2,2.312,3.14,0)
INSURED'S COUNTRY SUBDIVISION^F^^3;14^K:$L(X)>3!($L(X)<1) X
"^DD",2,2.312,3.14,3)
Answer must be 1-3 characters in length.
"^DD",2,2.312,3.14,21,0)
^^1^1^3100810^
"^DD",2,2.312,3.14,21,1,0)
This field contains the country subdivision code of the policyholder.
"^DD",2,2.312,3.14,23,0)
^^1^1^3100916^
"^DD",2,2.312,3.14,23,1,0)
Source: 271 HL7 message, PID.11.8.
"^DD",2,2.312,3.14,"DT")
3100916
"^DD",2,2.312,4.01,0)
PRIMARY CARE PROVIDER^F^^4;1^K:$L(X)>30!($L(X)<3) X
"^DD",2,2.312,4.01,3)
Answer must be 3-30 characters in length.  Non-VA Provider to obtain a referral 
from for this patient.
"^DD",2,2.312,4.01,21,0)
^^2^2^2970814^
"^DD",2,2.312,4.01,21,1,0)
This is the patient's Primary Care Provider within their managed care
"^DD",2,2.312,4.01,21,2,0)
network that may refer the patient to the VA.
"^DD",2,2.312,4.01,"DT")
2970814
"^DD",2,2.312,4.02,0)
PRIMARY PROVIDER PHONE^F^^4;2^K:$L(X)>20!($L(X)<7) X
"^DD",2,2.312,4.02,3)
Answer must be 7-20 characters in length.  The phone number of the PCP a referra
l may be obtained from.
"^DD",2,2.312,4.02,21,0)
^^2^2^2970814^
"^DD",2,2.312,4.02,21,1,0)
This is the phone number of the Primary Care Provider that may refer the
"^DD",2,2.312,4.02,21,2,0)
patient to the VA.
"^DD",2,2.312,4.02,"DT")
2970814
"^DD",2,2.312,4.03,0)
PT. RELATIONSHIP - HIPAA^RS^01:SPOUSE;18:SELF;19:CHILD;20:EMPLOYEE;29:SIGNIFICAN
T OTHER;32:MOTHER;33:FATHER;39:ORGAN DONOR;41:INJURED PLAINTIFF;53:LIFE PARTNER;
G8:OTHER RELATIONSHIP;^4;3^Q
"^DD",2,2.312,4.03,1,0)
^.1
"^DD",2,2.312,4.03,1,1,0)
^^TRIGGER^2.312^16
"^DD",2,2.312,4.03,1,1,1)
X ^DD(2.312,4.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:""
) S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),
.312,DA,4),U,3),0) X ^DD(2.312,4.03,1,1,1.4)
"^DD",2,2.312,4.03,1,1,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 N Z S Z=$$PRELCNV^IBCNSP1($P(^D
PT(D0,.312,D1,4),U,3),0),X=(Z'=""&(Z'=$P(^DPT(D0,.312,D1,0),U,16)))
"^DD",2,2.312,4.03,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=2.312,DIG=16 
D ^DICR
"^DD",2,2.312,4.03,1,1,2)
Q
"^DD",2,2.312,4.03,1,1,"%D",0)
^^1^1^3080204^
"^DD",2,2.312,4.03,1,1,"%D",1,0)
Triggers field 16 if its value differs from value in this field.
"^DD",2,2.312,4.03,1,1,"CREATE CONDITION")
N Z S Z=$$PRELCNV^IBCNSP1($P(^DPT(D0,.312,D1,4),U,3),0),X=(Z'=""&(Z'=$P(^DPT(D0,
.312,D1,0),U,16)))
"^DD",2,2.312,4.03,1,1,"CREATE VALUE")
S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.312,DA,4),U,3),0)
"^DD",2,2.312,4.03,1,1,"DELETE VALUE")
NO EFFECT
"^DD",2,2.312,4.03,1,1,"DT")
3071203
"^DD",2,2.312,4.03,1,1,"FIELD")
#16
"^DD",2,2.312,4.03,3)
Select the HIPAA relationship code that describes the relationship this patient 
has to the holder of this insurance policy.
"^DD",2,2.312,4.03,5,1,0)
2.312^16^2
"^DD",2,2.312,4.03,21,0)
^^2^2^3080108^
"^DD",2,2.312,4.03,21,1,0)
Enter the code which best describes the patient's relationship
"^DD",2,2.312,4.03,21,2,0)
to the person who holds this policy (or insured).
"^DD",2,2.312,4.03,"DT")
3080108
"^DD",2,2.312,4.04,0)
EIV AUTO-UPDATE^S^0:NO;1:YES;^4;4^Q
"^DD",2,2.312,4.04,3)
Set this to YES if last update to INSURANCE TYPE sub-file was done via eIV auto-
update.
"^DD",2,2.312,4.04,5,1,0)
2.312^1.05^1
"^DD",2,2.312,4.04,21,0)
^.001^4^4^3090802^^
"^DD",2,2.312,4.04,21,1,0)
Flag that determines how the last update to INSURANCE TYPE sub-file was 
"^DD",2,2.312,4.04,21,2,0)
done. Value of "YES" means that data was last updated via eIV 
"^DD",2,2.312,4.04,21,3,0)
auto-update, value of "NO" means that data was last updated via other 
"^DD",2,2.312,4.04,21,4,0)
means.
"^DD",2,2.312,4.04,23,0)
^^2^2^3090802^
"^DD",2,2.312,4.04,23,1,0)
This flag is set by eIV processing code (IBCNEHL* series) and cleared by 
"^DD",2,2.312,4.04,23,2,0)
a trigger on field 2.312/1.05 (DATE LAST EDITED).
"^DD",2,2.312,4.04,"DT")
3090802
"^DD",2,2.312,4.05,0)
PHARMACY RELATIONSHIP CODE^P9002313.19'^BPS(9002313.19,^4;5^Q
"^DD",2,2.312,4.05,3)
Select the relationship of the patient to the cardholder.
"^DD",2,2.312,4.05,21,0)
^^10^10^3110620^
"^DD",2,2.312,4.05,21,1,0)
This is the relationship of the patient to the cardholder.
"^DD",2,2.312,4.05,21,2,0)
 
"^DD",2,2.312,4.05,21,3,0)
Code  Description
"^DD",2,2.312,4.05,21,4,0)
----  -----------
"^DD",2,2.312,4.05,21,5,0)
 0    Not Specified
"^DD",2,2.312,4.05,21,6,0)
 1    Cardholder - The individual that is enrolled in and receives 
"^DD",2,2.312,4.05,21,7,0)
      benefits from a health plan
"^DD",2,2.312,4.05,21,8,0)
 2    Spouse - Patient is the husband/wife/partner of the cardholder
"^DD",2,2.312,4.05,21,9,0)
 3    Child - Patient is a child of the cardholder
"^DD",2,2.312,4.05,21,10,0)
 4    Other - Relationship to cardholder is not precise
"^DD",2,2.312,4.05,23,0)
^^1^1^3110620^
"^DD",2,2.312,4.05,23,1,0)
This field is NCPDP field 306-C6 - Patient Relationship Code
"^DD",2,2.312,4.05,"DT")
3110620
"^DD",2,2.312,4.06,0)
PHARMACY PERSON CODE^F^^4;6^K:$L(X)>3!($L(X)<1) X
"^DD",2,2.312,4.06,3)
Answer must be 1-3 characters in length.
"^DD",2,2.312,4.06,21,0)
^^10^10^3110621^
"^DD",2,2.312,4.06,21,1,0)
This is the code that is assigned by the payer to identify the patient.  
"^DD",2,2.312,4.06,21,2,0)
The payer may use a unique person code to identify each specific person on
"^DD",2,2.312,4.06,21,3,0)
the pharmacy insurance policy. This code may also describe the patient's
"^DD",2,2.312,4.06,21,4,0)
relationship to the cardholder.
"^DD",2,2.312,4.06,21,5,0)
 
"^DD",2,2.312,4.06,21,6,0)
Enrollment Standard Examples:
"^DD",2,2.312,4.06,21,7,0)
 
"^DD",2,2.312,4.06,21,8,0)
  001 = Cardholder
"^DD",2,2.312,4.06,21,9,0)
  002 = Spouse
"^DD",2,2.312,4.06,21,10,0)
  003 - 999 = Dependents and Others (including second spouses, etc.)
"^DD",2,2.312,4.06,23,0)
^^1^1^3110621^
"^DD",2,2.312,4.06,23,1,0)
This is NCPDP field 303-C3 - Person Code
"^DD",2,2.312,4.06,"DT")
3110621
"^DD",2,2.312,5.01,0)
PATIENT ID^F^^5;1^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.01,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.01,21,0)
^^8^8^3070620^
"^DD",2,2.312,5.01,21,1,0)
This is the patient's primary ID number for this insurance company.
"^DD",2,2.312,5.01,21,2,0)
Enter this field when the patient and the subscriber are different
"^DD",2,2.312,5.01,21,3,0)
and the patient has been given a unique ID number.  If issued by
"^DD",2,2.312,5.01,21,4,0)
this payer, the number should be present on the patient's insurance
"^DD",2,2.312,5.01,21,5,0)
card.
"^DD",2,2.312,5.01,21,6,0)
 
"^DD",2,2.312,5.01,21,7,0)
This data will print in box 8a on the UB-04 for institutional claims
"^DD",2,2.312,5.01,21,8,0)
when the patient and the subscriber are different.
"^DD",2,2.312,5.01,"DT")
3070620
"^DD",2,2.312,5.02,0)
SUBSCRIBER'S SEC QUALIFIER(1)^SX^23:Client Number;IG:Insurance Policy Number;SY:
Social Security Number;^5;2^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,4,6) X Q
"^DD",2,2.312,5.02,3)
Enter a Qualifier to identify the type of ID number.
"^DD",2,2.312,5.02,21,0)
^^6^6^3070626^
"^DD",2,2.312,5.02,21,1,0)
Enter the subscriber secondary ID qualifier# 1.  The qualifier
"^DD",2,2.312,5.02,21,2,0)
describes the type of ID number.
"^DD",2,2.312,5.02,21,3,0)
 
"^DD",2,2.312,5.02,21,4,0)
Up to 3 secondary ID's and qualifiers may be entered, but you
"^DD",2,2.312,5.02,21,5,0)
cannot use the same qualifier more than once.
"^DD",2,2.312,5.02,21,6,0)
SY is not a valid qualifier when the payer is Medicare.
"^DD",2,2.312,5.02,"DT")
3070626
"^DD",2,2.312,5.03,0)
SUBSCRIBER'S SEC ID(1)^F^^5;3^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.03,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.03,21,0)
^^2^2^3070626^
"^DD",2,2.312,5.03,21,1,0)
Enter the subscriber's secondary ID #1.  You may enter up to 3 secondary
"^DD",2,2.312,5.03,21,2,0)
ID's and qualifiers.
"^DD",2,2.312,5.03,"DT")
3070626
"^DD",2,2.312,5.04,0)
SUBSCRIBER'S SEC QUALIFIER(2)^SX^23:Client Number;IG:Insurance Policy Number;SY:
Social Security Number;^5;4^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,2,6) X Q
"^DD",2,2.312,5.04,3)
Enter a Qualifier to identify the type of ID number.
"^DD",2,2.312,5.04,21,0)
^^6^6^3070626^
"^DD",2,2.312,5.04,21,1,0)
Enter the subscriber secondary ID qualifier# 2.  The qualifier
"^DD",2,2.312,5.04,21,2,0)
describes the type of ID number.
"^DD",2,2.312,5.04,21,3,0)
 
"^DD",2,2.312,5.04,21,4,0)
Up to 3 secondary ID's and qualifiers may be entered, but you
"^DD",2,2.312,5.04,21,5,0)
cannot use the same qualifier more than once.
"^DD",2,2.312,5.04,21,6,0)
SY is not a valid qualifier when the payer is Medicare.
"^DD",2,2.312,5.04,"DT")
3070626
"^DD",2,2.312,5.05,0)
SUBSCRIBER'S SEC ID(2)^F^^5;5^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.05,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.05,21,0)
^^2^2^3070626^
"^DD",2,2.312,5.05,21,1,0)
Enter the subscriber's secondary ID #2.  You may enter up to 3 secondary
"^DD",2,2.312,5.05,21,2,0)
ID's and qualifiers.
"^DD",2,2.312,5.05,"DT")
3070626
"^DD",2,2.312,5.06,0)
SUBSCRIBER'S SEC QUALIFIER(3)^SX^23:Client Number;IG:Insurance Policy Number;SY:
Social Security Number;^5;6^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,2,4) X Q
"^DD",2,2.312,5.06,3)
Enter a Qualifier to identify the type of ID number.
"^DD",2,2.312,5.06,21,0)
^^6^6^3070626^
"^DD",2,2.312,5.06,21,1,0)
Enter the subscriber secondary ID qualifier# 3.  The qualifier
"^DD",2,2.312,5.06,21,2,0)
describes the type of ID number.
"^DD",2,2.312,5.06,21,3,0)
 
"^DD",2,2.312,5.06,21,4,0)
Up to 3 secondary ID's and qualifiers may be entered, but you
"^DD",2,2.312,5.06,21,5,0)
cannot use the same qualifier more than once.
"^DD",2,2.312,5.06,21,6,0)
SY is not a valid qualifier when the payer is Medicare.
"^DD",2,2.312,5.06,"DT")
3070626
"^DD",2,2.312,5.07,0)
SUBSCRIBER'S SEC ID(3)^F^^5;7^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.07,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.07,21,0)
^^2^2^3070626^
"^DD",2,2.312,5.07,21,1,0)
Enter the subscriber's secondary ID #3.  You may enter up to 3 secondary
"^DD",2,2.312,5.07,21,2,0)
ID's and qualifiers.
"^DD",2,2.312,5.07,"DT")
3070626
"^DD",2,2.312,5.08,0)
PATIENT'S SEC QUALIFIER(1)^SX^23:Client Number;IG:Insurance Policy Number;SY:Soc
ial Security Number;^5;8^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,10,12) X Q
"^DD",2,2.312,5.08,3)
Enter a Qualifier to identify the type of ID number.
"^DD",2,2.312,5.08,21,0)
^^7^7^3070626^
"^DD",2,2.312,5.08,21,1,0)
Enter the patient secondary ID qualifier# 1.  The qualifier
"^DD",2,2.312,5.08,21,2,0)
describes the type of ID number.  This should only be used when
"^DD",2,2.312,5.08,21,3,0)
the patient and the subscriber are different.
"^DD",2,2.312,5.08,21,4,0)
 
"^DD",2,2.312,5.08,21,5,0)
Up to 3 secondary ID's and qualifiers may be entered, but you
"^DD",2,2.312,5.08,21,6,0)
cannot use the same qualifier more than once.
"^DD",2,2.312,5.08,21,7,0)
SY is not a valid qualifier when the payer is Medicare.
"^DD",2,2.312,5.08,"DT")
3070626
"^DD",2,2.312,5.09,0)
PATIENT'S SECONDARY ID(1)^F^^5;9^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.09,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.09,21,0)
^^3^3^3070626^
"^DD",2,2.312,5.09,21,1,0)
Enter the patient secondary ID #1.  You may enter up to 3 secondary
"^DD",2,2.312,5.09,21,2,0)
ID's and qualifiers.  This should only be used when the patient and
"^DD",2,2.312,5.09,21,3,0)
the subscriber are different.
"^DD",2,2.312,5.09,"DT")
3070626
"^DD",2,2.312,5.1,0)
PATIENT'S SEC QUALIFIER(2)^SX^23:Client Number;IG:Insurance Policy Number;SY:Soc
ial Security Number;^5;10^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,8,12) X Q
"^DD",2,2.312,5.1,3)
Enter a Qualifier to identify the type of ID number.
"^DD",2,2.312,5.1,21,0)
^^7^7^3070626^
"^DD",2,2.312,5.1,21,1,0)
Enter the patient secondary ID qualifier# 2.  The qualifier
"^DD",2,2.312,5.1,21,2,0)
describes the type of ID number.  This should only be used when
"^DD",2,2.312,5.1,21,3,0)
the patient and the subscriber are different.
"^DD",2,2.312,5.1,21,4,0)
 
"^DD",2,2.312,5.1,21,5,0)
Up to 3 secondary ID's and qualifiers may be entered, but you
"^DD",2,2.312,5.1,21,6,0)
cannot use the same qualifier more than once.
"^DD",2,2.312,5.1,21,7,0)
SY is not a valid qualifier when the payer is Medicare.
"^DD",2,2.312,5.1,"DT")
3070626
"^DD",2,2.312,5.11,0)
PATIENT'S SECONDARY ID(2)^F^^5;11^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.11,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.11,21,0)
^^3^3^3070626^
"^DD",2,2.312,5.11,21,1,0)
Enter the patient secondary ID #2.  You may enter up to 3 secondary
"^DD",2,2.312,5.11,21,2,0)
ID's and qualifiers.  This should only be used when the patient and
"^DD",2,2.312,5.11,21,3,0)
the subscriber are different.
"^DD",2,2.312,5.11,"DT")
3070626
"^DD",2,2.312,5.12,0)
PATIENT'S SEC QUALIFIER(3)^SX^23:Client Number;IG:Insurance Policy Number;SY:Soc
ial Security Number;^5;12^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,8,10) X Q
"^DD",2,2.312,5.12,3)
Enter a Qualifier to identify the type of ID number.
"^DD",2,2.312,5.12,21,0)
^^7^7^3070626^
"^DD",2,2.312,5.12,21,1,0)
Enter the patient secondary ID qualifier# 3.  The qualifier
"^DD",2,2.312,5.12,21,2,0)
describes the type of ID number.  This should only be used when
"^DD",2,2.312,5.12,21,3,0)
the patient and the subscriber are different.
"^DD",2,2.312,5.12,21,4,0)
 
"^DD",2,2.312,5.12,21,5,0)
Up to 3 secondary ID's and qualifiers may be entered, but you
"^DD",2,2.312,5.12,21,6,0)
cannot use the same qualifier more than once.
"^DD",2,2.312,5.12,21,7,0)
SY is not a valid qualifier when the payer is Medicare.
"^DD",2,2.312,5.12,"DT")
3070626
"^DD",2,2.312,5.13,0)
PATIENT'S SECONDARY ID(3)^F^^5;13^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.312,5.13,3)
Answer must be 1-30 characters in length
"^DD",2,2.312,5.13,21,0)
^^3^3^3070626^
"^DD",2,2.312,5.13,21,1,0)
Enter the patient secondary ID #3.  You may enter up to 3 secondary
"^DD",2,2.312,5.13,21,2,0)
ID's and qualifiers.  This should only be used when the patient and
"^DD",2,2.312,5.13,21,3,0)
the subscriber are different.
"^DD",2,2.312,5.13,"DT")
3070626
"^DD",2,2.312,6,0)
WHOSE INSURANCE^RSX^v:VETERAN;s:SPOUSE;o:OTHER;^0;6^Q
"^DD",2,2.312,6,1,0)
^.1
"^DD",2,2.312,6,1,1,0)
2.312^AENR6^MUMPS
"^DD",2,2.312,6,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,6,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,6,1,1,3)
 DO NOT DELETE
"^DD",2,2.312,6,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,6,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,6,1,1,"%D",2,0)
enrollment.
"^DD",2,2.312,6,1,1,"DT")
3050913
"^DD",2,2.312,6,3)

"^DD",2,2.312,6,5,1,0)
2.312^16^1
"^DD",2,2.312,6,21,0)
^^4^4^2861117^
"^DD",2,2.312,6,21,1,0)
Enter 'v' if this insurance policy is held by the veteran (applicant),
"^DD",2,2.312,6,21,2,0)
's' if the veteran is married and the spouse holds the policy, or 'o'
"^DD",2,2.312,6,21,3,0)
if someone other than the veteran or his/her spouse hold the policy, i.e.,
"^DD",2,2.312,6,21,4,0)
employer.
"^DD",2,2.312,6,"DT")
2860930
"^DD",2,2.312,7.01,0)
NAME OF INSURED^RFX^^7;1^K:$L(X)>130!($L(X)<2)!'$$LENCHK^IBCNEUT1(X,50,0)!(X'[",
") X
"^DD",2,2.312,7.01,.1)

"^DD",2,2.312,7.01,1,0)
^.1
"^DD",2,2.312,7.01,1,1,0)
^^TRIGGER^2.312^17
"^DD",2,2.312,7.01,1,1,1)
X ^DD(2.312,7.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:""
) S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$E($P(^DPT(DA(1),.312,DA,7),U),1
,50) X ^DD(2.312,7.01,1,1,1.4)
"^DD",2,2.312,7.01,1,1,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,0),U,17)'=$E($P(^DPT(DA(1),.312,DA,7),U),1,50))
"^DD",2,2.312,7.01,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=2.312,DIG=17 
D ^DICR
"^DD",2,2.312,7.01,1,1,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,7),U)="") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"") S X=$P(Y(
1),U,17),X=X S DIU=X K Y S X="" X ^DD(2.312,7.01,1,1,2.4)
"^DD",2,2.312,7.01,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=2.312,DIG=17 
D ^DICR
"^DD",2,2.312,7.01,1,1,"%D",0)
^.101^1^1^3131029^^
"^DD",2,2.312,7.01,1,1,"%D",1,0)
Triggers field 2.312/17 if its value differs from first 50 chars of the value in
 this field. Deletes field 2.312/17 if field 2.312/7.01 is deleted.
"^DD",2,2.312,7.01,1,1,"CREATE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,0),U,17)'=$E($P(^DPT(DA(1),.312,DA,7),U),1,50))
"^DD",2,2.312,7.01,1,1,"CREATE VALUE")
S X=$E($P(^DPT(DA(1),.312,DA,7),U),1,50)
"^DD",2,2.312,7.01,1,1,"DELETE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,7),U)="")
"^DD",2,2.312,7.01,1,1,"DELETE VALUE")
@
"^DD",2,2.312,7.01,1,1,"DT")
3131020
"^DD",2,2.312,7.01,1,1,"FIELD")
*NAME OF INSURED
"^DD",2,2.312,7.01,3)
Answer must be 2-50 characters in length.
"^DD",2,2.312,7.01,5,1,0)
2.312^17^2
"^DD",2,2.312,7.01,21,0)
^^5^5^3130419^
"^DD",2,2.312,7.01,21,1,0)
Enter the name of the individual for which this insurance policy was 
"^DD",2,2.312,7.01,21,2,0)
issued. If the patient and the insurance subscriber are the same, then 
"^DD",2,2.312,7.01,21,3,0)
this field will be defaulted from the patient name field.
"^DD",2,2.312,7.01,21,4,0)
 
"^DD",2,2.312,7.01,21,5,0)
The name must contain a comma and be entered in Last,First format.
"^DD",2,2.312,7.01,23,0)
^^2^2^3130605^
"^DD",2,2.312,7.01,23,1,0)
Replaces field 17. Length of this field is temporarily limited to 50 
"^DD",2,2.312,7.01,23,2,0)
characters.
"^DD",2,2.312,7.01,"DT")
3140115
"^DD",2,2.312,7.02,0)
SUBSCRIBER ID^FX^^7;2^K:$L(X)>80!($L(X)<1)!'$$LENCHK^IBCNEUT1(X,20,0) X
"^DD",2,2.312,7.02,1,0)
^.1
"^DD",2,2.312,7.02,1,1,0)
^^TRIGGER^2.312^1
"^DD",2,2.312,7.02,1,1,1)
X ^DD(2.312,7.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:""
) S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$E($P(^DPT(DA(1),.312,DA,7),U,2),
1,20) X ^DD(2.312,7.02,1,1,1.4)
"^DD",2,2.312,7.02,1,1,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,0),U,2)'=$E($P(^DPT(DA(1),.312,DA,7),U,2),1,20))
"^DD",2,2.312,7.02,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.312,DIG=1 D 
^DICR
"^DD",2,2.312,7.02,1,1,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,7),U,2)="") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"") S X=$P(
Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2.312,7.02,1,1,2.4)
"^DD",2,2.312,7.02,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.312,DIG=1 D 
^DICR
"^DD",2,2.312,7.02,1,1,"%D",0)
^.101^1^1^3131029^^
"^DD",2,2.312,7.02,1,1,"%D",1,0)
Triggers field 2.312/1 if its value differs from first 20 chars of the value in 
this field. Deletes field 2.312/1 if field 2.312/7.02 is deleted.
"^DD",2,2.312,7.02,1,1,"CREATE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,0),U,2)'=$E($P(^DPT(DA(1),.312,DA,7),U,2),1,20))
"^DD",2,2.312,7.02,1,1,"CREATE VALUE")
S X=$E($P(^DPT(DA(1),.312,DA,7),U,2),1,20)
"^DD",2,2.312,7.02,1,1,"DELETE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,7),U,2)="")
"^DD",2,2.312,7.02,1,1,"DELETE VALUE")
@
"^DD",2,2.312,7.02,1,1,"DT")
3131020
"^DD",2,2.312,7.02,1,1,"FIELD")
*SUBSCRIBER ID
"^DD",2,2.312,7.02,3)
Answer must be 1-20 characters in length.
"^DD",2,2.312,7.02,5,1,0)
2.312^1^3
"^DD",2,2.312,7.02,21,0)
^^2^2^3130419^
"^DD",2,2.312,7.02,21,1,0)
Enter the Subscriber's Primary ID number. This number is assigned by the 
"^DD",2,2.312,7.02,21,2,0)
payer and can be found on the subscriber's insurance card.
"^DD",2,2.312,7.02,23,0)
^^2^2^3130605^
"^DD",2,2.312,7.02,23,1,0)
Replaces field 1. Length of this field is temporarily limited to 20 
"^DD",2,2.312,7.02,23,2,0)
characters.
"^DD",2,2.312,7.02,"DT")
3131120
"^DD",2,2.312,8,0)
EFFECTIVE DATE OF POLICY^DX^^0;8^S %DT="E" D ^%DT S X=Y K:(Y<1) X I $D(X),$P($G(
^DPT(DA(1),.312,DA,0)),"^",4)'="",X>$P($G(^DPT(DA(1),.312,DA,0)),"^",4) K X
"^DD",2,2.312,8,1,0)
^.1
"^DD",2,2.312,8,1,1,0)
2.312^ADGRU3128^MUMPS
"^DD",2,2.312,8,1,1,1)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,8,1,1,2)
D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(+$G(DA(1)))
"^DD",2,2.312,8,1,1,"%D",0)
^^2^2^3000420^
"^DD",2,2.312,8,1,1,"%D",1,0)
RAI/MDS: field monitored for changes.
"^DD",2,2.312,8,1,1,"%D",2,0)
Cross reference also needed to force filing so input transform works.
"^DD",2,2.312,8,1,1,"DT")
3000420
"^DD",2,2.312,8,1,2,0)
2.312^AENR8^MUMPS
"^DD",2,2.312,8,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,8,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,8,1,2,3)
 DO NOT DELETE
"^DD",2,2.312,8,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,8,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,8,1,2,"%D",2,0)
enrollment.
"^DD",2,2.312,8,1,2,"DT")
3050913
"^DD",2,2.312,8,3)
ANSWER MUST BE 3-10 CHARACTERS IN LENGTH
"^DD",2,2.312,8,21,0)
^^2^2^2930823^^
"^DD",2,2.312,8,21,1,0)
Enter the date that this insurance policy initially went into effect (the
"^DD",2,2.312,8,21,2,0)
date the patient acquired this policy).
"^DD",2,2.312,8,"DT")
3000420
"^DD",2,2.312,8.01,0)
REQUESTED SERVICE DATE^D^^8;1^S %DT="E" D ^%DT S X=Y K:X<1 X
"^DD",2,2.312,8.01,.1)
SERVICE DATE
"^DD",2,2.312,8.01,3)
Enter the Service Date of the Response.
"^DD",2,2.312,8.01,21,0)
^^3^3^3130912^^
"^DD",2,2.312,8.01,21,1,0)
This is the Eligibility/Service Date that is received on the eIV 
"^DD",2,2.312,8.01,21,2,0)
Response message.  If it is not present on the Response message then this 
"^DD",2,2.312,8.01,21,3,0)
is the Eligibility Date that was sent on the Inquiry message.
"^DD",2,2.312,8.01,23,0)
^^4^4^3130912^^^
"^DD",2,2.312,8.01,23,1,0)
The Service Date associated with the Eligibility Benefits when the 
"^DD",2,2.312,8.01,23,2,0)
Eligibility Benefits are saved from the Insurance Buffer to the Patient's 
"^DD",2,2.312,8.01,23,3,0)
Policy. This is the Service Date the Payer responded to at the top of the 
"^DD",2,2.312,8.01,23,4,0)
Eligibility Benefit section above the Insurance Status.
"^DD",2,2.312,8.01,"DT")
3130912
"^DD",2,2.312,8.02,0)
REQUESTED SERVICE TYPE^P365.013'^IBE(365.013,^8;2^Q
"^DD",2,2.312,8.02,.1)
SERVICE TYPE
"^DD",2,2.312,8.02,3)
Enter the Service Type of the Response
"^DD",2,2.312,8.02,21,0)
^^1^1^3130912^
"^DD",2,2.312,8.02,21,1,0)
This is the Service Type that is received on the Response message.
"^DD",2,2.312,8.02,23,0)
^^4^4^3130731^^
"^DD",2,2.312,8.02,23,1,0)
The Service Type that was inquired about when the Eligibility Benefits 
"^DD",2,2.312,8.02,23,2,0)
are saved from the Insurance Buffer to the Patient's Policy. This is the 
"^DD",2,2.312,8.02,23,3,0)
Service Type inquired about at the top of the Eligibility Benefit section 
"^DD",2,2.312,8.02,23,4,0)
above the Insurance Status.
"^DD",2,2.312,8.02,"DT")
3130912
"^DD",2,2.312,9,0)
GROUP REFERENCE INFORMATION^2.3129^^9;0
"^DD",2,2.312,9,21,0)
^^1^1^3130522^
"^DD",2,2.312,9,21,1,0)
Subscriber/Dependent additional identification data.
"^DD",2,2.312,10,0)
GROUP PROVIDER INFO^2.332^^10;0
"^DD",2,2.312,10,21,0)
^^1^1^3130516^
"^DD",2,2.312,10,21,1,0)
Entries in this sub-file identify the characteristics of a provider.
"^DD",2,2.312,11,0)
HEALTH CARE CODE INFORMATION^2.31211^^11;0
"^DD",2,2.312,11,21,0)
^^1^1^3130516^
"^DD",2,2.312,11,21,1,0)
To supply information related to the delivery of health care.
"^DD",2,2.312,12.01,0)
MILITARY INFO STATUS CODE^P365.039^IBE(365.039,^12;1^Q
"^DD",2,2.312,12.01,3)
Enter the military information status code.
"^DD",2,2.312,12.01,21,0)
^^1^1^3130520^
"^DD",2,2.312,12.01,21,1,0)
Code to indicate the status of the military information sent by the payer.
"^DD",2,2.312,12.01,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.01,23,1,0)
Source: 271 HL7 message ZMP.2
"^DD",2,2.312,12.01,"DT")
3130520
"^DD",2,2.312,12.02,0)
MILITARY EMPLOYMENT STATUS^P365.046^IBE(365.046,^12;2^Q
"^DD",2,2.312,12.02,3)
Select the appropriate code for claimant's military employment status.
"^DD",2,2.312,12.02,21,0)
^^2^2^3130520^
"^DD",2,2.312,12.02,21,1,0)
Code showing the general military employment status of an
"^DD",2,2.312,12.02,21,2,0)
employee/claimant.  
"^DD",2,2.312,12.02,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.02,23,1,0)
Source: 271 HL7 message ZMP.3
"^DD",2,2.312,12.02,"DT")
3130520
"^DD",2,2.312,12.03,0)
MILITARY GOVT AFFILIATION CODE^P365.041'^IBE(365.041,^12;3^Q
"^DD",2,2.312,12.03,3)
Select the code that supports the claimant's military affiliation.
"^DD",2,2.312,12.03,21,0)
^^1^1^3130520^
"^DD",2,2.312,12.03,21,1,0)
Code specifying the military service affiliation.
"^DD",2,2.312,12.03,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.03,23,1,0)
Source: 271 HL7 message ZMP.4
"^DD",2,2.312,12.03,"DT")
3130612
"^DD",2,2.312,12.04,0)
MILITARY PERSONNEL DESCRIPTION^F^^12;4^K:$L(X)>80!($L(X)<1) X
"^DD",2,2.312,12.04,3)
Answer must be 1-80 characters in length.
"^DD",2,2.312,12.04,21,0)
^^1^1^3130520^
"^DD",2,2.312,12.04,21,1,0)
This field further identifies the exact military unit.
"^DD",2,2.312,12.04,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.04,23,1,0)
Source: 271 HL7 message ZMP.5 
"^DD",2,2.312,12.04,"DT")
3130520
"^DD",2,2.312,12.05,0)
MILITARY SERVICE RANK CODE^P365.042^IBE(365.042,^12;5^Q
"^DD",2,2.312,12.05,3)
Select the Military Service Rank code.
"^DD",2,2.312,12.05,21,0)
^^1^1^3130520^
"^DD",2,2.312,12.05,21,1,0)
Code specifying the military service rank. 
"^DD",2,2.312,12.05,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.05,23,1,0)
Source: 271 HL7 message ZMP.6
"^DD",2,2.312,12.05,"DT")
3130521
"^DD",2,2.312,12.06,0)
DATE TIME PERIOD FORMAT QUAL^P365.032^IBE(365.032,^12;6^Q
"^DD",2,2.312,12.06,3)
Select the qualifier for the date time period.
"^DD",2,2.312,12.06,21,0)
^^2^2^3130520^
"^DD",2,2.312,12.06,21,1,0)
Code qualifier indicating the date format, time format, or date and time
"^DD",2,2.312,12.06,21,2,0)
format respective of the DATE TIME PERIOD field (#12.07).
"^DD",2,2.312,12.06,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.06,23,1,0)
Source: 271 HL7 message ZMP.7
"^DD",2,2.312,12.06,"DT")
3130520
"^DD",2,2.312,12.07,0)
DATE TIME PERIOD^FX^^12;7^K:$L(X)>17!($L(X)<8)!'(X?8N!(X?8N1"-"8N)) X
"^DD",2,2.312,12.07,3)
Enter the date or range of dates in CCYYMMD or CCYYMMDD-CCYYMMDD format
"^DD",2,2.312,12.07,21,0)
^^2^2^3130520^
"^DD",2,2.312,12.07,21,1,0)
Expression of a date or range of dates that indicates the date span of
"^DD",2,2.312,12.07,21,2,0)
military service.
"^DD",2,2.312,12.07,23,0)
^^1^1^3130520^
"^DD",2,2.312,12.07,23,1,0)
Source: 271 HL7 message ZMP.8
"^DD",2,2.312,12.07,"DT")
3130520
"^DD",2,2.312,15,0)
*GROUP NAME^F^^0;15^K:$L(X)>20!($L(X)<1) X
"^DD",2,2.312,15,3)
ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
"^DD",2,2.312,15,21,0)
^^5^5^2930601^^
"^DD",2,2.312,15,21,1,0)
If this insurance policy is a group policy, enter the name of the group.
"^DD",2,2.312,15,21,2,0)
 
"^DD",2,2.312,15,21,3,0)
This field is moved to the HEALTH INSURANCE POLICY file (355.3) beginning
"^DD",2,2.312,15,21,4,0)
with IB v2.0.  It will be deleted with the first release 18 months after
"^DD",2,2.312,15,21,5,0)
the release of IB V2.
"^DD",2,2.312,15,"DT")
2930601
"^DD",2,2.312,16,0)
PT. RELATIONSHIP TO INSURED^R*S^01:PATIENT;02:SPOUSE;03:NATURAL CHILD;08:EMPLOYE
E;09:DO NOT USE;11:ORGAN DONOR;15:INJURED PLANTIFF;18:DO NOT USE;32:MOTHER;33:FA
THER;34:SIGNIFICANT OTHER;35:LIFE PARTNER;36:OTHER RELATIONSHIP;^0;16^Q
"^DD",2,2.312,16,1,0)
^.1
"^DD",2,2.312,16,1,1,0)
^^TRIGGER^2.312^6
"^DD",2,2.312,16,1,1,1)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,0)
):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$S(+X=1:"v",+X=2:"s",1
:"o") X ^DD(2.312,16,1,1,1.4)
"^DD",2,2.312,16,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=2.312,DIG=6 D 
^DICR
"^DD",2,2.312,16,1,1,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,0)
):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.312,D
IV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=2.312,DIG=6 D ^DICR
"^DD",2,2.312,16,1,1,"%D",0)
^^2^2^3070611^
"^DD",2,2.312,16,1,1,"%D",1,0)
This trigger will set the WHOSE INSURANCE field (#6).  WHOSE INSURANCE 
"^DD",2,2.312,16,1,1,"%D",2,0)
will no longer be asked on user interface screens.
"^DD",2,2.312,16,1,1,"CREATE VALUE")
S X=$S(+X=1:"v",+X=2:"s",1:"o")
"^DD",2,2.312,16,1,1,"DELETE VALUE")
@
"^DD",2,2.312,16,1,1,"DT")
3070611
"^DD",2,2.312,16,1,1,"FIELD")
WHOSE INSURANCE
"^DD",2,2.312,16,1,2,0)
^^TRIGGER^2.312^4.03
"^DD",2,2.312,16,1,2,1)
X ^DD(2.312,16,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,4)):^(4),1:"") 
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.31
2,DA,0),U,16),1) X ^DD(2.312,16,1,2,1.4)
"^DD",2,2.312,16,1,2,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 N Z S Z=$$PRELCNV^IBCNSP1($P(^D
PT(D0,.312,D1,0),U,16),1),X=(Z'=""&(Z'=$P($G(^DPT(D0,.312,D1,4)),U,3)))
"^DD",2,2.312,16,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=2.312,DIG=4.03
 D ^DICR
"^DD",2,2.312,16,1,2,2)
Q
"^DD",2,2.312,16,1,2,"%D",0)
^^1^1^3080204^
"^DD",2,2.312,16,1,2,"%D",1,0)
Triggers field 4.03 if its value differs from value in this field.
"^DD",2,2.312,16,1,2,"CREATE CONDITION")
N Z S Z=$$PRELCNV^IBCNSP1($P(^DPT(D0,.312,D1,0),U,16),1),X=(Z'=""&(Z'=$P($G(^DPT
(D0,.312,D1,4)),U,3)))
"^DD",2,2.312,16,1,2,"CREATE VALUE")
S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.312,DA,0),U,16),1)
"^DD",2,2.312,16,1,2,"DELETE VALUE")
NO EFFECT
"^DD",2,2.312,16,1,2,"DT")
3071203
"^DD",2,2.312,16,1,2,"FIELD")
#4.03
"^DD",2,2.312,16,3)
Enter the code which indicates the patient's relationship to the insured party.
"^DD",2,2.312,16,5,1,0)
2.312^4.03^1
"^DD",2,2.312,16,12)
Cannot use 09 or 18 anymore
"^DD",2,2.312,16,12.1)
S DIC("S")="I X'=""09"",X'=""18"""
"^DD",2,2.312,16,21,0)
^.001^4^4^3030910^^^^
"^DD",2,2.312,16,21,1,0)
Select the relationship code that describes the relationship this
"^DD",2,2.312,16,21,2,0)
patient has to the holder of this insurance policy. If the policy
"^DD",2,2.312,16,21,3,0)
belongs to the patient enter '01' for patient. If the policy
"^DD",2,2.312,16,21,4,0)
belongs to the spouse enter '02' for spouse, etc.
"^DD",2,2.312,16,"DT")
3071203
"^DD",2,2.312,17,0)
*NAME OF INSURED^RFX^^0;17^K:$L(X)>50!($L(X)<2)!(X'[",") X
"^DD",2,2.312,17,1,0)
^.1
"^DD",2,2.312,17,1,1,0)
2.312^AENR17^MUMPS
"^DD",2,2.312,17,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,17,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.312,17,1,1,3)
 DO NOT DELETE
"^DD",2,2.312,17,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.312,17,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.312,17,1,1,"%D",2,0)
enrollment.
"^DD",2,2.312,17,1,1,"DT")
3050913
"^DD",2,2.312,17,1,2,0)
^^TRIGGER^2.312^7.01
"^DD",2,2.312,17,1,2,1)
X ^DD(2.312,17,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,7)):^(7),1:"") 
S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^DPT(DA(1),.312,DA,0),U,17) X ^D
D(2.312,17,1,2,1.4)
"^DD",2,2.312,17,1,2,1.3)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,0),U,17)'=$E($P($G(^DPT(DA(1),.312,DA,7)),U),1,50))
"^DD",2,2.312,17,1,2,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),7)),DIV=X S $P(^(7),U,1)=DIV,DIH=2.312,DIG=7.01
 D ^DICR
"^DD",2,2.312,17,1,2,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=($P(^DPT(DA(1),.31
2,DA,0),U,17)="") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,7)):^(7),1:"") S X=$P
(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2.312,17,1,2,2.4)
"^DD",2,2.312,17,1,2,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),7)),DIV=X S $P(^(7),U,1)=DIV,DIH=2.312,DIG=7.01
 D ^DICR
"^DD",2,2.312,17,1,2,"%D",0)
^.101^1^1^3131029^^
"^DD",2,2.312,17,1,2,"%D",1,0)
Triggers field 2.312/7.01 if first 50 chars of its value differ from the value i
n this field. Deletes field 2.312/7.01 if field 2.312/17 is deleted.
"^DD",2,2.312,17,1,2,"CREATE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,0),U,17)'=$E($P($G(^DPT(DA(1),.312,DA,7)),U),1,50))
"^DD",2,2.312,17,1,2,"CREATE VALUE")
S X=$P(^DPT(DA(1),.312,DA,0),U,17)
"^DD",2,2.312,17,1,2,"DELETE CONDITION")
S X=($P(^DPT(DA(1),.312,DA,0),U,17)="")
"^DD",2,2.312,17,1,2,"DELETE VALUE")
@
"^DD",2,2.312,17,1,2,"DT")
3131020
"^DD",2,2.312,17,1,2,"FIELD")
NAME OF INSURED
"^DD",2,2.312,17,3)
Enter 2-50 character name of person who holds this insurance policy.
"^DD",2,2.312,17,5,1,0)
2.312^7.01^1
"^DD",2,2.312,17,21,0)
^^7^7^3131120^
"^DD",2,2.312,17,21,1,0)
Enter the name of the individual for which this insurance policy was
"^DD",2,2.312,17,21,2,0)
issued.  If the patient and the insurance subscriber are the same,
"^DD",2,2.312,17,21,3,0)
then this field will be defaulted from the patient name field.
"^DD",2,2.312,17,21,4,0)
 
"^DD",2,2.312,17,21,5,0)
The name must contain a comma and be entered in Last,First format.
"^DD",2,2.312,17,21,6,0)
 
"^DD",2,2.312,17,21,7,0)
This field is scheduled for deletion in May 2015.
"^DD",2,2.312,17,"DT")
3140115
"^DD",2,2.312,20,0)
NEW GROUP NAME^CJ20^^ ; ^X ^DD(2.312,20,9.2) S D0=$P(Y(2.312,20,1),U,18) S:'$D(^
IBA(355.3,+D0,0)) D0=-1 S Y(2.312,20,101)=$S($D(^IBA(355.3,D0,0)):^(0),1:"") S X
=$P(Y(2.312,20,101),U,3) S D0=Y(2.312,20,80) S D1=Y(2.312,20,81)
"^DD",2,2.312,20,9)
^
"^DD",2,2.312,20,9.01)
355.3^.03;2.312^.18
"^DD",2,2.312,20,9.1)
#.18:GROUP NAME
"^DD",2,2.312,20,9.2)
S Y(2.312,20,81)=$S($D(D1):D1,1:""),Y(2.312,20,80)=$S($D(D0):D0,1:""),Y(2.312,20
,1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"")
"^DD",2,2.312,21,0)
NEW GROUP NUMBER^CJ20^^ ; ^X ^DD(2.312,21,9.2) S D0=$P(Y(2.312,21,1),U,18) S:'$D
(^IBA(355.3,+D0,0)) D0=-1 S Y(2.312,21,101)=$S($D(^IBA(355.3,D0,0)):^(0),1:"") S
 X=$P(Y(2.312,21,101),U,4) S D0=Y(2.312,21,80) S D1=Y(2.312,21,81)
"^DD",2,2.312,21,9)
^
"^DD",2,2.312,21,9.01)
355.3^.04;2.312^.18
"^DD",2,2.312,21,9.1)
#.18:GROUP NUMBER
"^DD",2,2.312,21,9.2)
S Y(2.312,21,81)=$S($D(D1):D1,1:""),Y(2.312,21,80)=$S($D(D0):D0,1:""),Y(2.312,21
,1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"")
"^DD",2,2.312,60,0)
ELIGIBILITY/BENEFIT^2.322A^^6;0
"^DD",2,2.312,60,21,0)
^^2^2^3090722^
"^DD",2,2.312,60,21,1,0)
This multiple contains all of the eligibility and benefit data
"^DD",2,2.312,60,21,2,0)
for a specific insured person returned from the Payer.
"^DD",2,2.312,60,"DT")
3090722
"^DD",2,2.31211,0)
HEALTH CARE CODE INFORMATION SUB-FIELD^^.04^4
"^DD",2,2.31211,0,"DT")
3130522
"^DD",2,2.31211,0,"IX","B",2.31211,.01)

"^DD",2,2.31211,0,"NM","HEALTH CARE CODE INFORMATION")

"^DD",2,2.31211,0,"UP")
2.312
"^DD",2,2.31211,.01,0)
SEQUENCE^MRNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.31211,.01,1,0)
^.1
"^DD",2,2.31211,.01,1,1,0)
2.31211^B
"^DD",2,2.31211,.01,1,1,1)
S ^DPT(DA(2),.312,DA(1),11,"B",$E(X,1,30),DA)=""
"^DD",2,2.31211,.01,1,1,2)
K ^DPT(DA(2),.312,DA(1),11,"B",$E(X,1,30),DA)
"^DD",2,2.31211,.01,3)
Type a number between 1 and 99999, 0 decimal digits.
"^DD",2,2.31211,.01,21,0)
^^2^2^3130610^
"^DD",2,2.31211,.01,21,1,0)
This field contains a sequential number generated at the time a record is
"^DD",2,2.31211,.01,21,2,0)
stored in the subfile.  
"^DD",2,2.31211,.01,23,0)
^^1^1^3130522^
"^DD",2,2.31211,.01,23,1,0)
Sequential number 1..N, assigned automatically.
"^DD",2,2.31211,.01,"DT")
3130610
"^DD",2,2.31211,.02,0)
DIAGNOSIS CODE^P80'^ICD9(^0;2^Q
"^DD",2,2.31211,.02,3)
Select the diagnosis code.
"^DD",2,2.31211,.02,21,0)
^^2^2^3130522^
"^DD",2,2.31211,.02,21,1,0)
Diagnosis Code sent by the payer in response to the insurance eligibility
"^DD",2,2.31211,.02,21,2,0)
inquiry.
"^DD",2,2.31211,.02,23,0)
^^2^2^3130522^
"^DD",2,2.31211,.02,23,1,0)
Source:  Health Care Diagnosis Code information in the X12 271 HI segment
"^DD",2,2.31211,.02,23,2,0)
in these X12 loops: 2100C, 2100D.   271 HL7 message DG1.3.1
"^DD",2,2.31211,.02,"DT")
3130522
"^DD",2,2.31211,.03,0)
DIAGNOSIS CODE QUALIFIER^F^^0;3^K:$L(X)>10!($L(X)<1) X
"^DD",2,2.31211,.03,3)
Answer must be 1-10 characters in length.
"^DD",2,2.31211,.03,21,0)
^^2^2^3130522^
"^DD",2,2.31211,.03,21,1,0)
Diagnosis Type Code identifying a specific industry code list ICD-9 or
"^DD",2,2.31211,.03,21,2,0)
ICD-10.
"^DD",2,2.31211,.03,23,0)
^^11^11^3130522^
"^DD",2,2.31211,.03,23,1,0)
Source: 271 HL7 message DG1.3.3 
"^DD",2,2.31211,.03,23,2,0)
"ABK or BK" - represent ICD-10-CM and
"^DD",2,2.31211,.03,23,3,0)
ICD-9-CM principal diagnosis code qualifiers. These qualifiers also
"^DD",2,2.31211,.03,23,4,0)
represent the code as a primary code.
"^DD",2,2.31211,.03,23,5,0)
 
"^DD",2,2.31211,.03,23,6,0)
"ABF or BF" - also represent ICD-10-CM and ICD-9-CM diagnosis code
"^DD",2,2.31211,.03,23,7,0)
qualifiers and these qualifiers represent the code as a secondary code.
"^DD",2,2.31211,.03,23,8,0)
 
"^DD",2,2.31211,.03,23,9,0)
When the payer sends an ABK or an ABF, the Eligibility Communicator will
"^DD",2,2.31211,.03,23,10,0)
map these to the HL7 code "I10C". When the payer sends an ABK or an ABF,
"^DD",2,2.31211,.03,23,11,0)
the Eligibility Communicator will map these to the HL7 code "I9C".
"^DD",2,2.31211,.03,"DT")
3130522
"^DD",2,2.31211,.04,0)
PRIMARY OR SECONDARY?^S^P:PRIMARY;S:SECONDARY;^0;4^Q
"^DD",2,2.31211,.04,3)
Does this code represent a primary or secondary diagnosis?
"^DD",2,2.31211,.04,21,0)
^^2^2^3130522^
"^DD",2,2.31211,.04,21,1,0)
This field indicates whether the code in the DIAGNOSIS CODE (#.02) field
"^DD",2,2.31211,.04,21,2,0)
is a primary or secondary diagnosis.
"^DD",2,2.31211,.04,"DT")
3130522
"^DD",2,2.3129,0)
GROUP REFERENCE INFORMATION SUB-FIELD^^.04^4
"^DD",2,2.3129,0,"DT")
3130522
"^DD",2,2.3129,0,"IX","B",2.3129,.01)

"^DD",2,2.3129,0,"NM","GROUP REFERENCE INFORMATION")

"^DD",2,2.3129,0,"UP")
2.312
"^DD",2,2.3129,.01,0)
SEQUENCE^MRNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.3129,.01,1,0)
^.1
"^DD",2,2.3129,.01,1,1,0)
2.3129^B
"^DD",2,2.3129,.01,1,1,1)
S ^DPT(DA(2),.312,DA(1),9,"B",$E(X,1,30),DA)=""
"^DD",2,2.3129,.01,1,1,2)
K ^DPT(DA(2),.312,DA(1),9,"B",$E(X,1,30),DA)
"^DD",2,2.3129,.01,3)
Type a number between 1 and 99999, 0 decimal digits.
"^DD",2,2.3129,.01,21,0)
^^2^2^3130610^
"^DD",2,2.3129,.01,21,1,0)
This field contains a sequential number generated at the time a record is
"^DD",2,2.3129,.01,21,2,0)
stored in the subfile.  
"^DD",2,2.3129,.01,23,0)
^^1^1^3130522^
"^DD",2,2.3129,.01,23,1,0)
Sequential number 1..N, assigned automatically.
"^DD",2,2.3129,.01,"DT")
3130610
"^DD",2,2.3129,.02,0)
REFERENCE ID (GROUP)^F^^0;2^K:$L(X)>50!($L(X)<1) X
"^DD",2,2.3129,.02,3)
Answer must be 1-50 characters in length.
"^DD",2,2.3129,.02,21,0)
^^1^1^3130522^
"^DD",2,2.3129,.02,21,1,0)
Subscriber Supplemental Identifier.
"^DD",2,2.3129,.02,23,0)
^^2^2^3130522^
"^DD",2,2.3129,.02,23,1,0)
X12: 271, 2100C/2100D, REF02 Reference Identification.  Source: 271 HL7
"^DD",2,2.3129,.02,23,2,0)
message, ZRF.3
"^DD",2,2.3129,.02,"DT")
3130522
"^DD",2,2.3129,.03,0)
REF ID QUALIFIER (GROUP)^P365.028^IBE(365.028,^0;3^Q
"^DD",2,2.3129,.03,3)
Select the reference ID qualifier.
"^DD",2,2.3129,.03,21,0)
^^2^2^3130522^
"^DD",2,2.3129,.03,21,1,0)
 Describes the type of reference ID at the REFERENCE ID (GROUP) (#.02)
"^DD",2,2.3129,.03,21,2,0)
field. 
"^DD",2,2.3129,.03,23,0)
^^2^2^3130522^
"^DD",2,2.3129,.03,23,1,0)
X12: 271, 2100C/2100D, REF01 Reference Identification Qualifier.  Source:
"^DD",2,2.3129,.03,23,2,0)
271 HL7 message, ZRF.2.1
"^DD",2,2.3129,.03,"DT")
3130522
"^DD",2,2.3129,.04,0)
DESCRIPTION^F^^0;4^K:$L(X)>80!($L(X)<1) X
"^DD",2,2.3129,.04,3)
Answer must be 1-80 characters in length.
"^DD",2,2.3129,.04,21,0)
^^3^3^3130522^
"^DD",2,2.3129,.04,21,1,0)
A free-form description to clarify the Reference ID in the REFERENCE ID
"^DD",2,2.3129,.04,21,2,0)
(GROUP) (#.02) field.  It will be populated with the Plan, Group or Plan
"^DD",2,2.3129,.04,21,3,0)
Network Name.
"^DD",2,2.3129,.04,23,0)
^^1^1^3130522^
"^DD",2,2.3129,.04,23,1,0)
X12: 271, 2100C/2100D, REF03 DESCRIPTION.  271 HL7 message, ZRF.4
"^DD",2,2.3129,.04,"DT")
3130522
"^DD",2,2.3215,0)
SERVICE [OEF OR OIF] SUB-FIELD^^.06^6
"^DD",2,2.3215,0,"DT")
3060627
"^DD",2,2.3215,0,"ID",.02)
W "   ",$$FMTE^DILIBF($P(^(0),U,2),5)
"^DD",2,2.3215,0,"ID",.03)
W "   ",$$FMTE^DILIBF($P(^(0),U,3),5)
"^DD",2,2.3215,0,"IX","AENR321501",2.3215,.01)

"^DD",2,2.3215,0,"IX","AENR321502",2.3215,.02)

"^DD",2,2.3215,0,"IX","AENR321503",2.3215,.03)

"^DD",2,2.3215,0,"IX","B",2.3215,.01)

"^DD",2,2.3215,0,"NM","SERVICE [OEF OR OIF]")

"^DD",2,2.3215,0,"UP")
2
"^DD",2,2.3215,.01,0)
LOCATION OF SERVICE^*S^1:OIF;2:OEF;3:UNKNOWN OEF/OIF;^0;1^Q
"^DD",2,2.3215,.01,1,0)
^.1
"^DD",2,2.3215,.01,1,1,0)
2.3215^B
"^DD",2,2.3215,.01,1,1,1)
S ^DPT(DA(1),.3215,"B",$E(X,1,30),DA)=""
"^DD",2,2.3215,.01,1,1,2)
K ^DPT(DA(1),.3215,"B",$E(X,1,30),DA)
"^DD",2,2.3215,.01,1,2,0)
2.3215^AENR321501^MUMPS
"^DD",2,2.3215,.01,1,2,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3215,.01,1,2,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3215,.01,1,2,"%D",0)
^^2^2^3060123^
"^DD",2,2.3215,.01,1,2,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2.3215,.01,1,2,"%D",2,0)
LOCATION OF SERVICE field.
"^DD",2,2.3215,.01,1,2,"DT")
3060123
"^DD",2,2.3215,.01,3)
Enter OEF or OIF operation where this patient was in combat.
"^DD",2,2.3215,.01,12)
CANNOT CHANGE THE LOCATION ONCE SET
"^DD",2,2.3215,.01,12.1)
S DIC("S")="I $P($G(^DPT(DA(1),.3215,DA,0)),U),$P(^(0),U)=Y"
"^DD",2,2.3215,.01,21,0)
^.001^2^2^3060627^^^^
"^DD",2,2.3215,.01,21,1,0)
This is the operation in which the patient was in combat during the
"^DD",2,2.3215,.01,21,2,0)
specified time period.
"^DD",2,2.3215,.01,"DT")
3060627
"^DD",2,2.3215,.02,0)
OEF/OIF FROM DATE^DX^^0;2^S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON1^DGRPMS(DA(
1),DA,X,0) X I $D(X) S DFN=DA(1) D OEIF^DGLOCK S:$D(X) DGFRDT=X
"^DD",2,2.3215,.02,1,0)
^.1
"^DD",2,2.3215,.02,1,1,0)
2.3215^AENR321502^MUMPS
"^DD",2,2.3215,.02,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3215,.02,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3215,.02,1,1,"%D",0)
^^2^2^3060123^
"^DD",2,2.3215,.02,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2.3215,.02,1,1,"%D",2,0)
OEF/OIF FROM DATE field.
"^DD",2,2.3215,.02,1,1,"DT")
3060123
"^DD",2,2.3215,.02,3)
Enter the date the patient was deployed to the OEF/OIF area, if known.  Otherwis
e, enter the military pay start date for this OEF/OIF deployment.
"^DD",2,2.3215,.02,21,0)
^.001^10^10^3060508^^^^
"^DD",2,2.3215,.02,21,1,0)
If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on
"^DD",2,2.3215,.02,21,2,0)
or after 9/01/2001 and the end date must be after 9/11/2001.  If the
"^DD",2,2.3215,.02,21,3,0)
service indicated is OIF, this date must be on or after 3/01/2003 and
"^DD",2,2.3215,.02,21,4,0)
the end date must be after 3/19/2003.
"^DD",2,2.3215,.02,21,5,0)
 
"^DD",2,2.3215,.02,21,6,0)
The meaning of this date depends on where the information was obtained
"^DD",2,2.3215,.02,21,7,0)
from.  If the data came from the VIS, Environmental Medicine or FHIE
"^DD",2,2.3215,.02,21,8,0)
systems, this is the start date of military pay for the assignment to
"^DD",2,2.3215,.02,21,9,0)
the OEF/OIF operation.  If it came from any other source, it is the date
"^DD",2,2.3215,.02,21,10,0)
the patient was actually deployed to the OEF/OIF area.
"^DD",2,2.3215,.02,"DT")
3060313
"^DD",2,2.3215,.03,0)
OEF/OIF TO DATE^DX^^0;3^S %DT="E" D ^%DT S X=Y I $D(X) K:'$$VALCON1^DGRPMS(DA(1)
,DA,X,1) X I $D(X) S DFN=DA(1) D OEIF^DGLOCK
"^DD",2,2.3215,.03,1,0)
^.1
"^DD",2,2.3215,.03,1,1,0)
2.3215^AENR321503^MUMPS
"^DD",2,2.3215,.03,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3215,.03,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3215,.03,1,1,"%D",0)
^^2^2^3060123^
"^DD",2,2.3215,.03,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of changes to the
"^DD",2,2.3215,.03,1,1,"%D",2,0)
OEF/OIF TO DATE field.
"^DD",2,2.3215,.03,1,1,"DT")
3060123
"^DD",2,2.3215,.03,3)
Enter the date the patient left the OEF/OIF area if known.  Otherwise, enter the
 end date of military pay for this OEF/OIF deployment.
"^DD",2,2.3215,.03,4)

"^DD",2,2.3215,.03,21,0)
^.001^9^9^3060322^^^^
"^DD",2,2.3215,.03,21,1,0)
If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on
"^DD",2,2.3215,.03,21,2,0)
or after 9/11/2001. If the service indicated is OIF, this date must be on
"^DD",2,2.3215,.03,21,3,0)
or after 3/19/2003.
"^DD",2,2.3215,.03,21,4,0)
 
"^DD",2,2.3215,.03,21,5,0)
The meaning of this date depends on where the information was obtained
"^DD",2,2.3215,.03,21,6,0)
from.  If the data came from the VIS, Environmental Medicine or FHIE
"^DD",2,2.3215,.03,21,7,0)
systems, this is the military pay end date for the assignment to
"^DD",2,2.3215,.03,21,8,0)
the OEF/OIF operation.  If it came from any other source, it is the date
"^DD",2,2.3215,.03,21,9,0)
the patient actually left the OEF/OIF area.
"^DD",2,2.3215,.03,"DT")
3090622
"^DD",2,2.3215,.04,0)
DATA LOCKED^S^0:NO;1:YES;^0;4^Q
"^DD",2,2.3215,.04,3)
Enter YES (1) to lock the data in VistA so no changes or deletions can be made.
"^DD",2,2.3215,.04,21,0)
^.001^3^3^3051017^^
"^DD",2,2.3215,.04,21,1,0)
This is a flag that indicates the data is 'locked' at the site and can't
"^DD",2,2.3215,.04,21,2,0)
be changed or deleted.  This flag is set to 1 if the source of the data
"^DD",2,2.3215,.04,21,3,0)
is the HEC system.
"^DD",2,2.3215,.04,"DT")
3051017
"^DD",2,2.3215,.05,0)
RECORDED DATE/TIME^D^^0;5^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.3215,.05,3)
Enter the date/time this data was last entered/updated.
"^DD",2,2.3215,.05,21,0)
^.001^1^1^3051025^^
"^DD",2,2.3215,.05,21,1,0)
This is a time stamp for when the data was last added/updated.
"^DD",2,2.3215,.05,"DT")
3050909
"^DD",2,2.3215,.06,0)
ENTERED BY SITE^*P4'^DIC(4,^0;6^S DIC("S")="I $P($G(^(99)),""^"")]""""" D ^DIC K
 DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.3215,.06,3)
Enter the facility where the data for this episode was entered.
"^DD",2,2.3215,.06,12)
Facility must have a station number assigned.
"^DD",2,2.3215,.06,12.1)
S DIC("S")="I $P($G(^(99)),""^"")]"""""
"^DD",2,2.3215,.06,21,0)
^.001^3^3^3051118^^^^
"^DD",2,2.3215,.06,21,1,0)
This is the facility where the data was originally entered.  If the
"^DD",2,2.3215,.06,21,2,0)
data's source was not from a facility, it will be assumed to be generated
"^DD",2,2.3215,.06,21,3,0)
from HEC (CEV) and this field will be blank.
"^DD",2,2.3215,.06,"DT")
3051116
"^DD",2,2.3216,0)
MILITARY SERVICE EPISODE SUB-FIELD^^.07^7
"^DD",2,2.3216,0,"DT")
3090126
"^DD",2,2.3216,0,"IX","ADGRU321601",2.3216,.01)

"^DD",2,2.3216,0,"IX","ADGRU321602",2.3216,.02)

"^DD",2,2.3216,0,"IX","AENR321601",2.3216,.01)

"^DD",2,2.3216,0,"IX","AENR321602",2.3216,.02)

"^DD",2,2.3216,0,"IX","AENR321603",2.3216,.03)

"^DD",2,2.3216,0,"IX","AENR321604",2.3216,.04)

"^DD",2,2.3216,0,"IX","AENR321605",2.3216,.05)

"^DD",2,2.3216,0,"IX","AENR321606",2.3216,.06)

"^DD",2,2.3216,0,"IX","AFV3216",2.3216,.03)

"^DD",2,2.3216,0,"IX","B",2.3216,.01)

"^DD",2,2.3216,0,"NM","MILITARY SERVICE EPISODE")

"^DD",2,2.3216,0,"UP")
2
"^DD",2,2.3216,.01,0)
SERVICE ENTRY DATE^MRDX^^0;1^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $
D(X) S DFN=DA(1) K:'$$AGE^DGRPDD1(DFN,X) X I $D(X),$G(DA) D MSE^DGLOCK I $D(X) K
:'$$VALMSE^DGRPMS(DFN,X,0,"MSE-"_DA) X I $D(X) S DGFRDT=X
"^DD",2,2.3216,.01,1,0)
^.1
"^DD",2,2.3216,.01,1,1,0)
2.3216^B
"^DD",2,2.3216,.01,1,1,1)
S ^DPT(DA(1),.3216,"B",$E(X,1,30),DA)=""
"^DD",2,2.3216,.01,1,1,2)
K ^DPT(DA(1),.3216,"B",$E(X,1,30),DA)
"^DD",2,2.3216,.01,1,2,0)
2.3216^AENR321601^MUMPS
"^DD",2,2.3216,.01,1,2,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.01,1,2,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.01,1,2,"%D",0)
^^2^2^3090219^
"^DD",2,2.3216,.01,1,2,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2.3216,.01,1,2,"%D",2,0)
SERVICE ENTRY DATE field.
"^DD",2,2.3216,.01,1,2,"DT")
3090219
"^DD",2,2.3216,.01,1,3,0)
2.3216^ADGRU321601^MUMPS
"^DD",2,2.3216,.01,1,3,1)
D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U)) ADGRU^DGRUDD01(D
A(1))
"^DD",2,2.3216,.01,1,3,2)
D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U)) ADGRU^DGRUDD01(D
A(1))
"^DD",2,2.3216,.01,1,3,"%D",0)
^^9^9^3090622^
"^DD",2,2.3216,.01,1,3,"%D",1,0)
This cross reference is used to remember that changes were made to a
"^DD",2,2.3216,.01,1,3,"%D",2,0)
monitored data field in the PATIENT file (#2) required for a vendor
"^DD",2,2.3216,.01,1,3,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2.3216,.01,1,3,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2.3216,.01,1,3,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2.3216,.01,1,3,"%D",6,0)
interface.
"^DD",2,2.3216,.01,1,3,"%D",7,0)
 
"^DD",2,2.3216,.01,1,3,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2.3216,.01,1,3,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2.3216,.01,1,3,"DT")
3090622
"^DD",2,2.3216,.01,3)
Enter the date the patient entered this episode of military service.
"^DD",2,2.3216,.01,21,0)
^.001^8^8^3090126^^
"^DD",2,2.3216,.01,21,1,0)
For this veteran applicant, enter the date s/he commenced this episode of
"^DD",2,2.3216,.01,21,2,0)
military service.  If the military service component is ACTIVATED NATIONAL
"^DD",2,2.3216,.01,21,3,0)
GUARD or ACTIVATED RESERVE, the period entered should be the period of
"^DD",2,2.3216,.01,21,4,0)
activation, so this date is their first day of active duty for the
"^DD",2,2.3216,.01,21,5,0)
episode. 
"^DD",2,2.3216,.01,21,6,0)
                                 
"^DD",2,2.3216,.01,21,7,0)
If the military service episode has been sent from the Health Eligibility
"^DD",2,2.3216,.01,21,8,0)
Center (HEC), the data will be locked and cannot be edited or deleted.
"^DD",2,2.3216,.01,"DT")
3090622
"^DD",2,2.3216,.02,0)
SERVICE SEPARATION DATE^RDX^^0;2^S %DT="E",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X
 I $D(X) S DFN=DA(1) D MSE^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,"MSE-"_DA) 
X
"^DD",2,2.3216,.02,1,0)
^.1
"^DD",2,2.3216,.02,1,1,0)
2.3216^AENR321602^MUMPS
"^DD",2,2.3216,.02,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.02,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.02,1,1,"%D",0)
^^2^2^3090219^
"^DD",2,2.3216,.02,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2.3216,.02,1,1,"%D",2,0)
SERVICE SEPARATION DATE field.
"^DD",2,2.3216,.02,1,1,"DT")
3090219
"^DD",2,2.3216,.02,1,2,0)
2.3216^ADGRU321602^MUMPS
"^DD",2,2.3216,.02,1,2,1)
D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U,2)) ADGRU^DGRUDD01
(DA(1))
"^DD",2,2.3216,.02,1,2,2)
D:($T(ADGRU^DGRUDD01)'="")&($G(X)=$P($$LAST^DGMSEUTL(DA(1)),U,2)) ADGRU^DGRUDD01
(DA(1))
"^DD",2,2.3216,.02,1,2,"%D",0)
^^9^9^3090622^
"^DD",2,2.3216,.02,1,2,"%D",1,0)
This cross reference is used to remember that changes were made to a
"^DD",2,2.3216,.02,1,2,"%D",2,0)
monitored data field in the PATIENT file (#2) required for a vendor
"^DD",2,2.3216,.02,1,2,"%D",3,0)
RAI/MDS COTS system.  Execution of this cross reference will create
"^DD",2,2.3216,.02,1,2,"%D",4,0)
an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring
"^DD",2,2.3216,.02,1,2,"%D",5,0)
transmission of an HL7 demographic A08 update message to the COTS
"^DD",2,2.3216,.02,1,2,"%D",6,0)
interface.
"^DD",2,2.3216,.02,1,2,"%D",7,0)
 
"^DD",2,2.3216,.02,1,2,"%D",8,0)
The local variable DGRUGA08 will be set to 1 if the cross reference is
"^DD",2,2.3216,.02,1,2,"%D",9,0)
not to be executed as part of a re-indexing.
"^DD",2,2.3216,.02,1,2,"DT")
3090622
"^DD",2,2.3216,.02,3)
Enter the date on which this patient was separated from this episode of military
 service.
"^DD",2,2.3216,.02,21,0)
^^8^8^3090126^
"^DD",2,2.3216,.02,21,1,0)
For this veteran applicant, enter the date s/he ended this episode of
"^DD",2,2.3216,.02,21,2,0)
military service. If the military service component is ACTIVATED NATIONAL
"^DD",2,2.3216,.02,21,3,0)
GUARD or ACTIVATED RESERVE, the period entered should be the period of
"^DD",2,2.3216,.02,21,4,0)
activation, so this date is their last day of active duty for this
"^DD",2,2.3216,.02,21,5,0)
episode.  
"^DD",2,2.3216,.02,21,6,0)
                                 
"^DD",2,2.3216,.02,21,7,0)
If the military service episode has been sent from the Health Eligibility
"^DD",2,2.3216,.02,21,8,0)
Center (HEC), the data will be locked and cannot be edited or deleted.
"^DD",2,2.3216,.02,"DT")
3090623
"^DD",2,2.3216,.03,0)
SERVICE BRANCH^RP23'X^DIC(23,^0;3^S DFN=DA(1) K:X=$O(^DIC(23,"B","B.E.C.","")) X
 I $D(X) D MSE^DGLOCK S DGCOMBR=$G(Y) Q
"^DD",2,2.3216,.03,1,0)
^.1
"^DD",2,2.3216,.03,1,1,0)
2.3216^AENR321603^MUMPS
"^DD",2,2.3216,.03,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.03,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.03,1,1,"%D",0)
^^2^2^3090219^
"^DD",2,2.3216,.03,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2.3216,.03,1,1,"%D",2,0)
SERVICE BRANCH field.
"^DD",2,2.3216,.03,1,1,"DT")
3090219
"^DD",2,2.3216,.03,1,2,0)
2.3216^AFV3216^MUMPS
"^DD",2,2.3216,.03,1,2,1)
Q
"^DD",2,2.3216,.03,1,2,2)
I $P($G(^DPT(DA(1),.321)),U,14)]"" D FVP1^DGRPMS
"^DD",2,2.3216,.03,1,2,"%D",0)
^^4^4^3090226^
"^DD",2,2.3216,.03,1,2,"%D",1,0)
This MUMPS cross-reference acts like a trigger cross-reference.  If the
"^DD",2,2.3216,.03,1,2,"%D",2,0)
Service Branch fields in the Military Service Episode multiple do not
"^DD",2,2.3216,.03,1,2,"%D",3,0)
contain a Filipino Veteran branch of service, the Filipino Vet Proof field
"^DD",2,2.3216,.03,1,2,"%D",4,0)
(#.3214) is deleted.
"^DD",2,2.3216,.03,1,2,"DT")
3090226
"^DD",2,2.3216,.03,1,3,0)
^^TRIGGER^2.3216^.04
"^DD",2,2.3216,.03,1,3,1)
Q
"^DD",2,2.3216,.03,1,3,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.3216,D1,0
)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),.3216
,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=2.3216,DIG=.04 D ^DICR
"^DD",2,2.3216,.03,1,3,"%D",0)
^^2^2^3090618^
"^DD",2,2.3216,.03,1,3,"%D",1,0)
This trigger will delete the SERVICE COMPONENT sub-field #.04
"^DD",2,2.3216,.03,1,3,"%D",2,0)
when the SERVICE BRANCH sub-field #.03 is changed or deleted.
"^DD",2,2.3216,.03,1,3,"CREATE VALUE")
NO EFFECT
"^DD",2,2.3216,.03,1,3,"DELETE VALUE")
@
"^DD",2,2.3216,.03,1,3,"DT")
3090618
"^DD",2,2.3216,.03,1,3,"FIELD")
SERVICE COMP
"^DD",2,2.3216,.03,3)
Enter the branch of service in which the patient served for this episode of mili
tary service.
"^DD",2,2.3216,.03,21,0)
^^4^4^3090126^
"^DD",2,2.3216,.03,21,1,0)
Enter the service branch for this episode of military service.
"^DD",2,2.3216,.03,21,2,0)
                                 
"^DD",2,2.3216,.03,21,3,0)
If the military service episode has been sent from the Health Eligibility
"^DD",2,2.3216,.03,21,4,0)
Center (HEC), the data will be locked and cannot be edited or deleted.
"^DD",2,2.3216,.03,"DT")
3090618
"^DD",2,2.3216,.04,0)
SERVICE COMPONENT^*S^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^0;4^Q
"^DD",2,2.3216,.04,1,0)
^.1
"^DD",2,2.3216,.04,1,1,0)
2.3216^AENR321604^MUMPS
"^DD",2,2.3216,.04,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.04,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.04,1,1,"%D",0)
^^2^2^3090219^
"^DD",2,2.3216,.04,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2.3216,.04,1,1,"%D",2,0)
SERVICE COMPONENT field.
"^DD",2,2.3216,.04,1,1,"DT")
3090219
"^DD",2,2.3216,.04,3)
Enter the military service component of the patient for this military service ep
isode.
"^DD",2,2.3216,.04,5,1,0)
2.3216^.03^3
"^DD",2,2.3216,.04,12)
Component must be consistent with branch of service. Branch of service is requir
ed to enter component.
"^DD",2,2.3216,.04,12.1)
S DIC("S")="I $$VALCOMP^DGRPMS(DA(1),Y,DA_""^MSE"")"
"^DD",2,2.3216,.04,21,0)
^.001^7^7^3090226^^^^
"^DD",2,2.3216,.04,21,1,0)
For this veteran applicant, enter the military service component for this
"^DD",2,2.3216,.04,21,2,0)
episode of military service.
"^DD",2,2.3216,.04,21,3,0)
                                                                 
"^DD",2,2.3216,.04,21,4,0)
If the military service episode has been sent from the Health Eligibility
"^DD",2,2.3216,.04,21,5,0)
Center (HEC), the data will be locked and cannot be edited or deleted.
"^DD",2,2.3216,.04,21,6,0)
                                 
"^DD",2,2.3216,.04,21,7,0)
NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE.
"^DD",2,2.3216,.04,"DT")
3090226
"^DD",2,2.3216,.05,0)
SERVICE NUMBER^FX^^0;5^S DFN=DA(1) D MSE^DGLOCK I $D(X) S:X?1"SS".E L=$S($D(^DPT
(DA(1),0)):$P(^(0),U,9),1:X) D:X?1"SS".E EN^DDIOL(" "_L,"","?$X+2") S:X?1"SS".E 
X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X
"^DD",2,2.3216,.05,1,0)
^.1
"^DD",2,2.3216,.05,1,1,0)
2.3216^AENR321605^MUMPS
"^DD",2,2.3216,.05,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.05,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.05,1,1,"%D",0)
^^2^2^3090219^
"^DD",2,2.3216,.05,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2.3216,.05,1,1,"%D",2,0)
SERVICE NUMBER field.
"^DD",2,2.3216,.05,1,1,"DT")
3090219
"^DD",2,2.3216,.05,3)
Enter the service number assigned to this patient during this episode of militar
y service or 'SS' if it's the same as the SSN. Answer must be 1-15 characters in
 length.
"^DD",2,2.3216,.05,21,0)
^^1^1^3090126^
"^DD",2,2.3216,.05,21,1,0)
Enter the service number for this episode of military service.
"^DD",2,2.3216,.05,"DT")
3090811
"^DD",2,2.3216,.06,0)
SERVICE DISCHARGE TYPE^RP25'X^DIC(25,^0;6^S DFN=DA(1) D MSE^DGLOCK Q
"^DD",2,2.3216,.06,1,0)
^.1
"^DD",2,2.3216,.06,1,1,0)
2.3216^AENR321606^MUMPS
"^DD",2,2.3216,.06,1,1,1)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.06,1,1,2)
D EVENT^IVMPLOG(DA(1))
"^DD",2,2.3216,.06,1,1,"%D",0)
^^2^2^3090219^
"^DD",2,2.3216,.06,1,1,"%D",1,0)
This MUMPS cross-reference is used to notify HEC of any changes to the
"^DD",2,2.3216,.06,1,1,"%D",2,0)
SERVICE DISCHARGE TYPE field.
"^DD",2,2.3216,.06,1,1,"DT")
3090219
"^DD",2,2.3216,.06,3)
Select from the list the discharge type for this episode of military service.
"^DD",2,2.3216,.06,21,0)
^^5^5^3090126^
"^DD",2,2.3216,.06,21,1,0)
For this veteran applicant, select from the available list the discharge
"^DD",2,2.3216,.06,21,2,0)
type which s/he received for this episode of military service.
"^DD",2,2.3216,.06,21,3,0)
                                 
"^DD",2,2.3216,.06,21,4,0)
If the military service episode has been sent from the Health Eligibility
"^DD",2,2.3216,.06,21,5,0)
Center (HEC), the data will be locked and cannot be edited or deleted.
"^DD",2,2.3216,.06,"DT")
3090224
"^DD",2,2.3216,.07,0)
DATA LOCKED^SX^0:NO;1:YES;^0;7^S DFN=DA(1) D MSE^DGLOCK Q
"^DD",2,2.3216,.07,3)
This field is set to '1' (YES) when the military service episode data can no lon
ger be changed or deleted.
"^DD",2,2.3216,.07,21,0)
^.001^3^3^3090127^^
"^DD",2,2.3216,.07,21,1,0)
When a military service episode is sent from HEC, the Data Locked field
"^DD",2,2.3216,.07,21,2,0)
will be set to '1' (YES).  The data in the military service episode can no
"^DD",2,2.3216,.07,21,3,0)
longer be changed or deleted.
"^DD",2,2.3216,.07,"DT")
3090224
"^DD",2,2.322,0)
ELIGIBILITY/BENEFIT SUB-FIELD^^10^44
"^DD",2,2.322,0,"DT")
3091013
"^DD",2,2.322,0,"IX","B",2.322,.01)

"^DD",2,2.322,0,"NM","ELIGIBILITY/BENEFIT")

"^DD",2,2.322,0,"UP")
2.312
"^DD",2,2.322,.01,0)
EB NUMBER^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.322,.01,1,0)
^.1
"^DD",2,2.322,.01,1,1,0)
2.322^B
"^DD",2,2.322,.01,1,1,1)
S ^DPT(DA(2),.312,DA(1),6,"B",$E(X,1,30),DA)=""
"^DD",2,2.322,.01,1,1,2)
K ^DPT(DA(2),.312,DA(1),6,"B",$E(X,1,30),DA)
"^DD",2,2.322,.01,1,1,"DT")
3090722
"^DD",2,2.322,.01,3)
Type a number between 1 and 999, 0 Decimal Digits.
"^DD",2,2.322,.01,21,0)
^^3^3^3090722^
"^DD",2,2.322,.01,21,1,0)
This is a sequential number corresponding to the Set-ID for all
"^DD",2,2.322,.01,21,2,0)
of the eligibility/benefit (X.12 EB segments) segments coming
"^DD",2,2.322,.01,21,3,0)
into VISTA.
"^DD",2,2.322,.01,"DT")
3090911
"^DD",2,2.322,.02,0)
ELIGIBILITY/BENEFIT INFO^P365.011^IBE(365.011,^0;2^Q
"^DD",2,2.322,.02,.1)
Elig/Ben Info
"^DD",2,2.322,.02,3)
Enter an eligibility/benefit code from the list.
"^DD",2,2.322,.02,21,0)
^^2^2^3091013^
"^DD",2,2.322,.02,21,1,0)
This field contains a code identifying the eligibility status
"^DD",2,2.322,.02,21,2,0)
of the individual or the benefit returned by the Payer.
"^DD",2,2.322,.02,23,0)
^^1^1^3091013^
"^DD",2,2.322,.02,23,1,0)
It corresponds to X.12 271 EB01 data element.
"^DD",2,2.322,.02,"DT")
3130307
"^DD",2,2.322,.03,0)
COVERAGE LEVEL^P365.012^IBE(365.012,^0;3^Q
"^DD",2,2.322,.03,.1)
Coverage Level
"^DD",2,2.322,.03,3)
Enter a coverage level code from the list.
"^DD",2,2.322,.03,21,0)
^^1^1^3091013^
"^DD",2,2.322,.03,21,1,0)
This field identifies the level of coverage of benefits.
"^DD",2,2.322,.03,23,0)
^^1^1^3091013^
"^DD",2,2.322,.03,23,1,0)
It corresponds to X.12 271 EB02 data element.
"^DD",2,2.322,.03,"DT")
3130307
"^DD",2,2.322,.04,0)
*SERVICE TYPE^P365.013'^IBE(365.013,^0;4^Q
"^DD",2,2.322,.04,.1)
Service Type
"^DD",2,2.322,.04,3)
Enter the service type code from the list.
"^DD",2,2.322,.04,21,0)
^.001^1^1^3101130^^
"^DD",2,2.322,.04,21,1,0)
This field is a code identifying the classification of service.
"^DD",2,2.322,.04,23,0)
^^3^3^3101130^
"^DD",2,2.322,.04,23,1,0)
It corresponds to X.12 271 EB03 data element.
"^DD",2,2.322,.04,23,2,0)
This field is deprecated via IB*2.0*438.
"^DD",2,2.322,.04,23,3,0)
Replaced with 2.322/11 which is a multiple with #2.32292/.01.
"^DD",2,2.322,.04,"DT")
3101130
"^DD",2,2.322,.05,0)
INSURANCE TYPE^P365.014^IBE(365.014,^0;5^Q
"^DD",2,2.322,.05,.1)
Insurance Type
"^DD",2,2.322,.05,3)
Enter the insurance type code from the list.
"^DD",2,2.322,.05,21,0)
^^2^2^3100428^
"^DD",2,2.322,.05,21,1,0)
This is a code identifying the type of insurance policy within
"^DD",2,2.322,.05,21,2,0)
a specific insurance program.
"^DD",2,2.322,.05,23,0)
^^1^1^3091013^
"^DD",2,2.322,.05,23,1,0)
It corresponds to X.12 271 EB04 data element.
"^DD",2,2.322,.05,"DT")
3130307
"^DD",2,2.322,.06,0)
PLAN COVERAGE DESCRIPTION^F^^0;6^K:$L(X)>50!($L(X)<1) X
"^DD",2,2.322,.06,.1)
Plan Coverage Description
"^DD",2,2.322,.06,3)
Answer must be 1-50 characters in length.
"^DD",2,2.322,.06,21,0)
^^2^2^3091013^
"^DD",2,2.322,.06,21,1,0)
This code is a description or number that identifies the plan
"^DD",2,2.322,.06,21,2,0)
or coverage.
"^DD",2,2.322,.06,23,0)
^^1^1^3091013^
"^DD",2,2.322,.06,23,1,0)
It corresponds to X.12 271 EB05 data element.
"^DD",2,2.322,.06,"DT")
3091013
"^DD",2,2.322,.07,0)
TIME PERIOD QUALIFIER^P365.015^IBE(365.015,^0;7^Q
"^DD",2,2.322,.07,.1)
Time Period
"^DD",2,2.322,.07,3)
Enter the type of time period code from the list.
"^DD",2,2.322,.07,21,0)
^^2^2^3100428^
"^DD",2,2.322,.07,21,1,0)
This is a code for the time period category that determines
"^DD",2,2.322,.07,21,2,0)
for how long the benefits are available.
"^DD",2,2.322,.07,23,0)
^^1^1^3091013^
"^DD",2,2.322,.07,23,1,0)
It corresponds to X.12 271 EB06 data element.
"^DD",2,2.322,.07,"DT")
3130307
"^DD",2,2.322,.08,0)
MONETARY AMOUNT^FX^^0;8^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(+X>99999999999999
9)!(+X<0)!(X?.E1"."3.N) X
"^DD",2,2.322,.08,3)
Type a dollar amount between 0 and 999999999999999, 2 decimal digits.
"^DD",2,2.322,.08,21,0)
^.001^2^2^3130211^^^
"^DD",2,2.322,.08,21,1,0)
This field is populated if eligibility or benefit must be
"^DD",2,2.322,.08,21,2,0)
qualified by a monetary amount.
"^DD",2,2.322,.08,23,0)
^.001^1^1^3130211^^^
"^DD",2,2.322,.08,23,1,0)
It corresponds to X.12 271 EB07 data element.
"^DD",2,2.322,.08,"DT")
3130612
"^DD",2,2.322,.09,0)
PERCENT^NJ9,5^^0;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"."6.N) X
"^DD",2,2.322,.09,.1)
Percentage
"^DD",2,2.322,.09,3)
Type a number between 0 and 100, 5 Decimal Digits.
"^DD",2,2.322,.09,21,0)
^^2^2^3091013^
"^DD",2,2.322,.09,21,1,0)
This field is used if eligibility or benefit must be qualified
"^DD",2,2.322,.09,21,2,0)
by a percentage.
"^DD",2,2.322,.09,23,0)
^^1^1^3091013^
"^DD",2,2.322,.09,23,1,0)
It corresponds to X.12 271 EB08 data element.
"^DD",2,2.322,.09,"DT")
3091013
"^DD",2,2.322,.1,0)
QUANTITY QUALIFIER^P365.016^IBE(365.016,^0;10^Q
"^DD",2,2.322,.1,.1)
Quantity
"^DD",2,2.322,.1,3)
Enter the type of quantity code from the list.
"^DD",2,2.322,.1,21,0)
^^2^2^3091013^
"^DD",2,2.322,.1,21,1,0)
This field is used to identify the type of units that are being
"^DD",2,2.322,.1,21,2,0)
conveyed in the QUANTITY field (#.11).
"^DD",2,2.322,.1,23,0)
^^1^1^3091013^
"^DD",2,2.322,.1,23,1,0)
It corresponds to X.12 271 EB09 data element.
"^DD",2,2.322,.1,"DT")
3130307
"^DD",2,2.322,.11,0)
QUANTITY^F^^0;11^K:$L(X)>15!($L(X)<1) X
"^DD",2,2.322,.11,3)
Answer must be 1-15 characters in length.
"^DD",2,2.322,.11,21,0)
^^2^2^3100428^^
"^DD",2,2.322,.11,21,1,0)
This field number is used for the quantity value as qualified by
"^DD",2,2.322,.11,21,2,0)
the QUANTITY QUALIFIER field.
"^DD",2,2.322,.11,23,0)
^^1^1^3091013^
"^DD",2,2.322,.11,23,1,0)
It corresponds to X.12 271 EB10 data element.
"^DD",2,2.322,.11,"DT")
3100428
"^DD",2,2.322,.12,0)
AUTHORIZATION/CERTIFICATION^P365.033^IBE(365.033,^0;12^Q
"^DD",2,2.322,.12,.1)
Authorization/Certification
"^DD",2,2.322,.12,3)
Enter YES if authorization or certification is required.
"^DD",2,2.322,.12,21,0)
^^2^2^3091013^
"^DD",2,2.322,.12,21,1,0)
This field indicates that an authorization or certification
"^DD",2,2.322,.12,21,2,0)
is required per plan provisions.
"^DD",2,2.322,.12,23,0)
^^1^1^3091013^
"^DD",2,2.322,.12,23,1,0)
It corresponds to X.12 271 EB11 data element.
"^DD",2,2.322,.12,"DT")
3130326
"^DD",2,2.322,.13,0)
IN PLAN^P365.033^IBE(365.033,^0;13^Q
"^DD",2,2.322,.13,.1)
In-Plan-Network
"^DD",2,2.322,.13,3)
Enter YES if the benefits identified are In-Plan-Network.
"^DD",2,2.322,.13,21,0)
^^5^5^3091013^
"^DD",2,2.322,.13,21,1,0)
This field indicates the plan network indicator.  A YES value indicates
"^DD",2,2.322,.13,21,2,0)
the benefits identified are considered In-Plan-Network.  A NO value
"^DD",2,2.322,.13,21,3,0)
indicates that the benefits identified are considered 
"^DD",2,2.322,.13,21,4,0)
Out-Of-Plan-Network.  A "U" value indicates it is unknown whether the
"^DD",2,2.322,.13,21,5,0)
benefits identified are part of the Plan Network.
"^DD",2,2.322,.13,23,0)
^^1^1^3091013^
"^DD",2,2.322,.13,23,1,0)
It corresponds to X.12 271 EB12 data element.
"^DD",2,2.322,.13,"DT")
3130326
"^DD",2,2.322,1.01,0)
PROCEDURE CODING METHOD^P365.035^IBE(365.035,^1;1^Q
"^DD",2,2.322,1.01,3)
Enter the code describing procedure coding method.
"^DD",2,2.322,1.01,21,0)
^^1^1^3090922^
"^DD",2,2.322,1.01,21,1,0)
Two character code describing procedure coding method.
"^DD",2,2.322,1.01,23,0)
^^1^1^3090922^
"^DD",2,2.322,1.01,23,1,0)
Source: 271 HL7 message, ZEB.14.1
"^DD",2,2.322,1.01,"DT")
3130307
"^DD",2,2.322,1.02,0)
PROCEDURE CODE^F^^1;2^K:$L(X)>48!($L(X)<1) X
"^DD",2,2.322,1.02,3)
Answer must be 1-48 characters in length.
"^DD",2,2.322,1.02,21,0)
^^1^1^3090723^
"^DD",2,2.322,1.02,21,1,0)
Identification code for the procedure.
"^DD",2,2.322,1.02,23,0)
^^1^1^3090723^
"^DD",2,2.322,1.02,23,1,0)
Source: 271 HL7 message, ZEB.15
"^DD",2,2.322,1.02,"DT")
3090723
"^DD",2,2.322,1.03,0)
PROCEDURE MODIFIER 1^F^^1;3^K:$L(X)>2!($L(X)<1) X
"^DD",2,2.322,1.03,3)
Answer must be 1-2 characters in length.
"^DD",2,2.322,1.03,21,0)
^^1^1^3090723^
"^DD",2,2.322,1.03,21,1,0)
Identifies special circumstances related to the procedure; first modifier.
"^DD",2,2.322,1.03,23,0)
^^1^1^3090723^
"^DD",2,2.322,1.03,23,1,0)
Source: 271 HL7 message, ZEB.16 (repetition 1)
"^DD",2,2.322,1.03,"DT")
3090723
"^DD",2,2.322,1.04,0)
PROCEDURE MODIFIER 2^F^^1;4^K:$L(X)>2!($L(X)<1) X
"^DD",2,2.322,1.04,3)
Answer must be 1-2 characters in length.
"^DD",2,2.322,1.04,21,0)
^^2^2^3090723^
"^DD",2,2.322,1.04,21,1,0)
Identifies special circumstances related to the procedure; second
"^DD",2,2.322,1.04,21,2,0)
modifier.
"^DD",2,2.322,1.04,23,0)
^^1^1^3090723^
"^DD",2,2.322,1.04,23,1,0)
Source: 271 HL7 message, ZEB.16 (repetition 2)
"^DD",2,2.322,1.04,"DT")
3090723
"^DD",2,2.322,1.05,0)
PROCEDURE MODIFIER 3^F^^1;5^K:$L(X)>2!($L(X)<1) X
"^DD",2,2.322,1.05,3)
Answer must be 1-2 characters in length.
"^DD",2,2.322,1.05,21,0)
^^1^1^3090723^
"^DD",2,2.322,1.05,21,1,0)
Identifies special circumstances related to the procedure; third modifier.
"^DD",2,2.322,1.05,23,0)
^^1^1^3090723^
"^DD",2,2.322,1.05,23,1,0)
Source: 271 HL7 message, ZEB.16 (repetition 3)
"^DD",2,2.322,1.05,"DT")
3090723
"^DD",2,2.322,1.06,0)
PROCEDURE MODIFIER 4^F^^1;6^K:$L(X)>2!($L(X)<1) X
"^DD",2,2.322,1.06,3)
Answer must be 1-2 characters in length.
"^DD",2,2.322,1.06,21,0)
^^2^2^3090723^
"^DD",2,2.322,1.06,21,1,0)
Identifies special circumstances related to the procedure; fourth
"^DD",2,2.322,1.06,21,2,0)
modifier.
"^DD",2,2.322,1.06,23,0)
^^1^1^3090723^
"^DD",2,2.322,1.06,23,1,0)
Source: 271 HL7 message, ZEB.16 (repetition 4)
"^DD",2,2.322,1.06,"DT")
3090723
"^DD",2,2.322,2,0)
NOTES^2.3222^^2;0
"^DD",2,2.322,2,21,0)
^^2^2^3090910^
"^DD",2,2.322,2,21,1,0)
This field contains any additional text about the eligibility
"^DD",2,2.322,2,21,2,0)
benefit information.  It is transcribed from X.12 271 MSG segments.
"^DD",2,2.322,3.01,0)
ENTITY ID CODE^P365.022^IBE(365.022,^3;1^Q
"^DD",2,2.322,3.01,3)
Select X12 code for entity identifier.
"^DD",2,2.322,3.01,21,0)
^^1^1^3090723^
"^DD",2,2.322,3.01,21,1,0)
X12 Entity Identifier Code.
"^DD",2,2.322,3.01,23,0)
^^1^1^3090723^
"^DD",2,2.322,3.01,23,1,0)
Source: 271 HL7 message, ZTY.2.1
"^DD",2,2.322,3.01,"DT")
3130305
"^DD",2,2.322,3.02,0)
ENTITY TYPE^P365.043^IBE(365.043,^3;2^Q
"^DD",2,2.322,3.02,3)
Select type of the entity.
"^DD",2,2.322,3.02,21,0)
^^1^1^3090723^
"^DD",2,2.322,3.02,21,1,0)
Entity Type Qualifier.
"^DD",2,2.322,3.02,23,0)
^^1^1^3090723^
"^DD",2,2.322,3.02,23,1,0)
Source: 271 HL7 message, ZTY.3.1
"^DD",2,2.322,3.02,"DT")
3130305
"^DD",2,2.322,3.03,0)
NAME^F^^3;3^K:$L(X)>98!($L(X)<1) X
"^DD",2,2.322,3.03,3)
Answer must be 1-98 characters in length.
"^DD",2,2.322,3.03,21,0)
^^1^1^3090723^
"^DD",2,2.322,3.03,21,1,0)
Name of person or organization.
"^DD",2,2.322,3.03,23,0)
^^3^3^3090723^
"^DD",2,2.322,3.03,23,1,0)
Source: 271 HL7 message, combined elements ZTY.4.1.1 (last name or
"^DD",2,2.322,3.03,23,2,0)
organization name), ZTY.4.2 (first name) , ZTY.4.3 (middle name), and
"^DD",2,2.322,3.03,23,3,0)
ZTY.4.4 (suffix).
"^DD",2,2.322,3.03,"DT")
3090723
"^DD",2,2.322,3.04,0)
ENTITY ID^F^^3;4^K:$L(X)>80!($L(X)<1) X
"^DD",2,2.322,3.04,3)
Answer must be 1-80 characters in length.
"^DD",2,2.322,3.04,21,0)
^^1^1^3090723^
"^DD",2,2.322,3.04,21,1,0)
Entity identifier.
"^DD",2,2.322,3.04,23,0)
^^1^1^3090723^
"^DD",2,2.322,3.04,23,1,0)
Source: 271 HL7 message, ZTY.6
"^DD",2,2.322,3.04,"DT")
3090723
"^DD",2,2.322,3.05,0)
ENTITY ID QUALIFIER^P365.023^IBE(365.023,^3;5^Q
"^DD",2,2.322,3.05,3)
Select X12 code for ID qualifier.
"^DD",2,2.322,3.05,21,0)
^^1^1^3090723^
"^DD",2,2.322,3.05,21,1,0)
Code designating the system/method used for Identification.
"^DD",2,2.322,3.05,23,0)
^^1^1^3090723^
"^DD",2,2.322,3.05,23,1,0)
Source: 271 HL7 message, ZTY.5.1
"^DD",2,2.322,3.05,"DT")
3130306
"^DD",2,2.322,3.06,0)
ENTITY RELATIONSHIP CODE^P365.031^IBE(365.031,^3;6^Q
"^DD",2,2.322,3.06,3)
Enter the code that represents the relationship to the patient.
"^DD",2,2.322,3.06,21,0)
^^1^1^3130305^
"^DD",2,2.322,3.06,21,1,0)
Benefit Related Entity's relationship to the patient.
"^DD",2,2.322,3.06,23,0)
^^2^2^3130305^
"^DD",2,2.322,3.06,23,1,0)
Populated by the eInsurance application when processing the data from the 
"^DD",2,2.322,3.06,23,2,0)
incoming HL7 271 MESSAGE.
"^DD",2,2.322,3.06,"DT")
3130305
"^DD",2,2.322,4.01,0)
ADDRESS LINE 1^F^^4;1^K:$L(X)>55!($L(X)<1) X
"^DD",2,2.322,4.01,3)
Answer must be 1-55 characters in length.
"^DD",2,2.322,4.01,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.01,21,1,0)
Entity address, line 1.
"^DD",2,2.322,4.01,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.01,23,1,0)
Source: 271 HL message, ZTY.7.1.1
"^DD",2,2.322,4.01,"DT")
3090723
"^DD",2,2.322,4.02,0)
ADDRESS LINE 2^F^^4;2^K:$L(X)>55!($L(X)<1) X
"^DD",2,2.322,4.02,3)
Answer must be 1-55 characters in length.
"^DD",2,2.322,4.02,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.02,21,1,0)
Entity address, line 2.
"^DD",2,2.322,4.02,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.02,23,1,0)
Source: 271 HL7 message, ZTY.7.2
"^DD",2,2.322,4.02,"DT")
3090723
"^DD",2,2.322,4.03,0)
CITY^F^^4;3^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.322,4.03,3)
Answer must be 1-30 characters in length.
"^DD",2,2.322,4.03,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.03,21,1,0)
Entity address, city.
"^DD",2,2.322,4.03,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.03,23,1,0)
Source: 271 HL7 message, ZTY.7.3
"^DD",2,2.322,4.03,"DT")
3090723
"^DD",2,2.322,4.04,0)
STATE^P5'^DIC(5,^4;4^Q
"^DD",2,2.322,4.04,3)
Select state/province code.
"^DD",2,2.322,4.04,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.04,21,1,0)
Entity address, state or province code.
"^DD",2,2.322,4.04,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.04,23,1,0)
Source: 271 HL7 message, ZTY.7.4
"^DD",2,2.322,4.04,"DT")
3090723
"^DD",2,2.322,4.05,0)
ZIP^F^^4;5^K:$L(X)>15!($L(X)<1) X
"^DD",2,2.322,4.05,3)
Answer must be 1-15 characters in length.
"^DD",2,2.322,4.05,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.05,21,1,0)
Entity address, zip or postal code.
"^DD",2,2.322,4.05,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.05,23,1,0)
Source: 271 HL7 message, ZTY.7.5
"^DD",2,2.322,4.05,"DT")
3090723
"^DD",2,2.322,4.06,0)
COUNTRY CODE^F^^4;6^K:$L(X)>3!($L(X)<2) X
"^DD",2,2.322,4.06,3)
Answer must be 2-3 characters in length.
"^DD",2,2.322,4.06,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.06,21,1,0)
Entity address, country code.
"^DD",2,2.322,4.06,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.06,23,1,0)
Source: 271 HL7 message, ZTY.7.6
"^DD",2,2.322,4.06,"DT")
3090723
"^DD",2,2.322,4.07,0)
LOCATION^F^^4;7^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.322,4.07,3)
Answer must be 1-30 characters in length.
"^DD",2,2.322,4.07,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.07,21,1,0)
Entity address, location identifier.
"^DD",2,2.322,4.07,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.07,23,1,0)
Source: 271 HL7 message, ZTY.9
"^DD",2,2.322,4.07,"DT")
3090723
"^DD",2,2.322,4.08,0)
LOCATION QUALIFIER^P365.034^IBE(365.034,^4;8^Q
"^DD",2,2.322,4.08,3)
Select location qualifier.
"^DD",2,2.322,4.08,21,0)
^^1^1^3090723^
"^DD",2,2.322,4.08,21,1,0)
Entity address, location qualifier.
"^DD",2,2.322,4.08,23,0)
^^1^1^3090723^
"^DD",2,2.322,4.08,23,1,0)
Source: 271 HL7 message, ZTY.8
"^DD",2,2.322,4.08,"DT")
3130306
"^DD",2,2.322,4.09,0)
SUBDIVISION CODE^F^^4;9^K:$L(X)>3!($L(X)<1) X
"^DD",2,2.322,4.09,3)
Answer must be 1-3 characters in length.
"^DD",2,2.322,4.09,21,0)
^.001^1^1^3100810^^
"^DD",2,2.322,4.09,21,1,0)
Entity address, country subdivision code.
"^DD",2,2.322,4.09,23,0)
^^1^1^3100810^
"^DD",2,2.322,4.09,23,1,0)
Source: 271 HL7 message, ZTY.7.8.
"^DD",2,2.322,4.09,"DT")
3100810
"^DD",2,2.322,5.01,0)
PROVIDER CODE^P365.024^IBE(365.024,^5;1^Q
"^DD",2,2.322,5.01,3)
Select provider code.
"^DD",2,2.322,5.01,21,0)
^^1^1^3090724^
"^DD",2,2.322,5.01,21,1,0)
Code identifying the type of provider.
"^DD",2,2.322,5.01,23,0)
^^1^1^3090724^
"^DD",2,2.322,5.01,23,1,0)
Source: 271 HL7 message, ZTY.10.1
"^DD",2,2.322,5.01,"DT")
3130306
"^DD",2,2.322,5.02,0)
REFERENCE ID^F^^5;2^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.322,5.02,3)
Answer must be 1-30 characters in length.
"^DD",2,2.322,5.02,21,0)
^^1^1^3090724^
"^DD",2,2.322,5.02,21,1,0)
Reference identifier.
"^DD",2,2.322,5.02,23,0)
^^1^1^3090724^
"^DD",2,2.322,5.02,23,1,0)
Source: 271 HL7 message, ZTY.12
"^DD",2,2.322,5.02,"DT")
3090724
"^DD",2,2.322,5.03,0)
REFERENCE ID QUALIFIER^P365.028^IBE(365.028,^5;3^Q
"^DD",2,2.322,5.03,3)
Select reference id qualifier.
"^DD",2,2.322,5.03,21,0)
^^1^1^3090724^
"^DD",2,2.322,5.03,21,1,0)
Reference identifier type.
"^DD",2,2.322,5.03,23,0)
^^1^1^3090724^
"^DD",2,2.322,5.03,23,1,0)
Source: 271 HL7 message, ZTY.11.1
"^DD",2,2.322,5.03,"DT")
3130306
"^DD",2,2.322,6,0)
CONTACT INFORMATION^2.3226A^^6;0
"^DD",2,2.322,6,21,0)
^^2^2^3090724^
"^DD",2,2.322,6,21,1,0)
This multiple contains contact information for an eligibility/benefit
"^DD",2,2.322,6,21,2,0)
entity.
"^DD",2,2.322,6,23,0)
^^1^1^3090724^
"^DD",2,2.322,6,23,1,0)
Source: 271 HL7 message, CTD segment within G2O group.
"^DD",2,2.322,7,0)
HEALTHCARE SERVICES DELIVERY^2.3227A^^7;0
"^DD",2,2.322,7,21,0)
^^1^1^3090727^
"^DD",2,2.322,7,21,1,0)
Healthcare services delivery multiple.
"^DD",2,2.322,7,23,0)
^^1^1^3090727^
"^DD",2,2.322,7,23,1,0)
Source: 271 HL7 ZHS segment.
"^DD",2,2.322,8,0)
SUBSCRIBER DATES^2.3228A^^8;0
"^DD",2,2.322,8,21,0)
^^1^1^3090727^
"^DD",2,2.322,8,21,1,0)
Subscriber dates multiple.
"^DD",2,2.322,8,23,0)
^^1^1^3090727^
"^DD",2,2.322,8,23,1,0)
Source: 271 HL7 message, ZSD segment.
"^DD",2,2.322,9,0)
SUBSCRIBER ADDITIONAL INFO^2.3229A^^9;0
"^DD",2,2.322,9,21,0)
^^1^1^3090727^
"^DD",2,2.322,9,21,1,0)
Additional subscriber information multiple.
"^DD",2,2.322,9,23,0)
^^1^1^3090727^
"^DD",2,2.322,9,23,1,0)
Source: 271 HL7 message, ZII segment.
"^DD",2,2.322,10,0)
SUBSCRIBER REFERENCE ID^2.32291^^10;0
"^DD",2,2.322,10,21,0)
^^1^1^3090910^
"^DD",2,2.322,10,21,1,0)
Subscriber reference id multiple.
"^DD",2,2.322,10,23,0)
^^1^1^3090910^
"^DD",2,2.322,10,23,1,0)
Source: 271 HL7 message, ZRF segment.
"^DD",2,2.322,11,0)
SERVICE TYPES^2.32292PA^^11;0
"^DD",2,2.3222,0)
NOTES SUB-FIELD^^.01^1
"^DD",2,2.3222,0,"DT")
3090910
"^DD",2,2.3222,0,"NM","NOTES")

"^DD",2,2.3222,0,"UP")
2.322
"^DD",2,2.3222,.01,0)
NOTES^W^^0;1
"^DD",2,2.3222,.01,21,0)
^^2^2^3090910^
"^DD",2,2.3222,.01,21,1,0)
This field contains any additional text about the eligibility
"^DD",2,2.3222,.01,21,2,0)
benefit information.  It is transcribed from X.12 271 MSG segments.
"^DD",2,2.3222,.01,"DT")
3090910
"^DD",2,2.3226,0)
CONTACT INFORMATION SUB-FIELD^^.04^5
"^DD",2,2.3226,0,"DT")
3090910
"^DD",2,2.3226,0,"IX","B",2.3226,.01)

"^DD",2,2.3226,0,"NM","CONTACT INFORMATION")

"^DD",2,2.3226,0,"UP")
2.322
"^DD",2,2.3226,.01,0)
SEQUENCE^RNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.3226,.01,1,0)
^.1
"^DD",2,2.3226,.01,1,1,0)
2.3226^B
"^DD",2,2.3226,.01,1,1,1)
S ^DPT(DA(3),.312,DA(2),6,DA(1),6,"B",$E(X,1,30),DA)=""
"^DD",2,2.3226,.01,1,1,2)
K ^DPT(DA(3),.312,DA(2),6,DA(1),6,"B",$E(X,1,30),DA)
"^DD",2,2.3226,.01,3)
Type a number between 1 and 99999, 0 Decimal Digits.
"^DD",2,2.3226,.01,21,0)
^^1^1^3090724^
"^DD",2,2.3226,.01,21,1,0)
Sequential entry number.
"^DD",2,2.3226,.01,23,0)
^^1^1^3090724^
"^DD",2,2.3226,.01,23,1,0)
Sequential number of G2O.CTD segment.
"^DD",2,2.3226,.01,"DT")
3090910
"^DD",2,2.3226,.02,0)
NAME^F^^0;2^K:$L(X)>98!($L(X)<1) X
"^DD",2,2.3226,.02,3)
Answer must be 1-98 characters in length.
"^DD",2,2.3226,.02,21,0)
^^1^1^3090724^
"^DD",2,2.3226,.02,21,1,0)
Name of the contact.
"^DD",2,2.3226,.02,23,0)
^^3^3^3090724^
"^DD",2,2.3226,.02,23,1,0)
Source: 271 HL7 message, G2O.CTD.2 - combined data from CTD.2.5 (prefix),
"^DD",2,2.3226,.02,23,2,0)
CTD.2.1.1 (last name), CTD.2.2 (first name), CTD.2.3 (middle name),
"^DD",2,2.3226,.02,23,3,0)
CTD.2.4 (suffix), and CTD.2.6 (degree).
"^DD",2,2.3226,.02,"DT")
3090724
"^DD",2,2.3226,.03,0)
*COMMUNICATION NUMBER^F^^0;3^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.3226,.03,1,0)
^.1
"^DD",2,2.3226,.03,1,1,0)
^^TRIGGER^2.3226^1
"^DD",2,2.3226,.03,1,1,1)
X ^DD(2.3226,.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,1))
:^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(2.3226,.03,1,1,1.1) X ^DD(2.3
226,.03,1,1,1.4)
"^DD",2,2.3226,.03,1,1,1.1)
S X=DIV S X=$P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)
"^DD",2,2.3226,.03,1,1,1.3)
K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV
(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P($G(^DP
T(DA(3),.312,DA(2),6,DA(1),6,DA,1)),U),1,30))
"^DD",2,2.3226,.03,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),1)),DIV=X S $P(^(1),U,1)=DIV,
DIH=2.3226,DIG=1 D ^DICR
"^DD",2,2.3226,.03,1,1,2)
X ^DD(2.3226,.03,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,1))
:^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2.3226,.03,1,1,2.4)
"^DD",2,2.3226,.03,1,1,2.3)
K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV
(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)="")
"^DD",2,2.3226,.03,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),1)),DIV=X S $P(^(1),U,1)=DIV,
DIH=2.3226,DIG=1 D ^DICR
"^DD",2,2.3226,.03,1,1,"%D",0)
^.101^1^1^3131029^^
"^DD",2,2.3226,.03,1,1,"%D",1,0)
Triggers field 2.3226/1 if first 30 chars of its value differ from the value in 
this field. Deletes field 2.3226/1 if field 2.3226/.03 is deleted.
"^DD",2,2.3226,.03,1,1,"CREATE CONDITION")
S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P($G(^DPT(DA(3),.312,DA(
2),6,DA(1),6,DA,1)),U),1,30))
"^DD",2,2.3226,.03,1,1,"CREATE VALUE")
S X=$P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)
"^DD",2,2.3226,.03,1,1,"DELETE CONDITION")
S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)="")
"^DD",2,2.3226,.03,1,1,"DELETE VALUE")
@
"^DD",2,2.3226,.03,1,1,"DT")
3131020
"^DD",2,2.3226,.03,1,1,"FIELD")
COMMUNICATION NUMBER (LONG)
"^DD",2,2.3226,.03,3)
Answer must be 1-30 characters in length.
"^DD",2,2.3226,.03,5,1,0)
2.3226^1^1
"^DD",2,2.3226,.03,21,0)
^^3^3^3131120^
"^DD",2,2.3226,.03,21,1,0)
Phone, fax, email, etc.
"^DD",2,2.3226,.03,21,2,0)
 
"^DD",2,2.3226,.03,21,3,0)
This field is scheduled for deletion in May 2015.
"^DD",2,2.3226,.03,23,0)
^^2^2^3130605^
"^DD",2,2.3226,.03,23,1,0)
This field has been moved to 2.3226/1 Source:
"^DD",2,2.3226,.03,23,2,0)
271 HL7 message, G2O.CTD.5.1
"^DD",2,2.3226,.03,"DT")
3131120
"^DD",2,2.3226,.04,0)
COMMUNICATION QUALIFIER^P365.021^IBE(365.021,^0;4^Q
"^DD",2,2.3226,.04,3)
Select type of communication number.
"^DD",2,2.3226,.04,21,0)
^^1^1^3090724^
"^DD",2,2.3226,.04,21,1,0)
Code describing type of communication number.
"^DD",2,2.3226,.04,23,0)
^^1^1^3090724^
"^DD",2,2.3226,.04,23,1,0)
Source: 271 HL7 message, G2O.CTD.5.9
"^DD",2,2.3226,.04,"DT")
3130306
"^DD",2,2.3226,1,0)
COMMUNICATION NUMBER^FX^^1;1^K:$L(X)>245!($L(X)<1) X
"^DD",2,2.3226,1,1,0)
^.1
"^DD",2,2.3226,1,1,1,0)
^^TRIGGER^2.3226^.03
"^DD",2,2.3226,1,1,1,1)
X ^DD(2.3226,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,0)):^
(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2.3226,1,1,1,1.1) X ^DD(2.3226,
1,1,1,1.4)
"^DD",2,2.3226,1,1,1,1.1)
S X=DIV S X=$E($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30)
"^DD",2,2.3226,1,1,1,1.3)
K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV
(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P(^DPT(D
A(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30))
"^DD",2,2.3226,1,1,1,1.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),0)),DIV=X S $P(^(0),U,3)=DIV,
DIH=2.3226,DIG=.03 D ^DICR
"^DD",2,2.3226,1,1,1,2)
X ^DD(2.3226,1,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,6,D2,6,D3,0)):^
(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2.3226,1,1,1,2.4)
"^DD",2,2.3226,1,1,1,2.3)
K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV
(3)=D3 S Y(0)=X S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U)="")
"^DD",2,2.3226,1,1,1,2.4)
S DIH=$G(^DPT(DIV(0),.312,DIV(1),6,DIV(2),6,DIV(3),0)),DIV=X S $P(^(0),U,3)=DIV,
DIH=2.3226,DIG=.03 D ^DICR
"^DD",2,2.3226,1,1,1,"%D",0)
^.101^1^1^3131029^^
"^DD",2,2.3226,1,1,1,"%D",1,0)
Triggers field 2.3226/.03 if its value differs from first 30 chars of the value 
in this field. Deletes field 2.3226/.03 if field 2.3226/1 is deleted.
"^DD",2,2.3226,1,1,1,"CREATE CONDITION")
S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,0),U,3)'=$E($P(^DPT(DA(3),.312,DA(2),
6,DA(1),6,DA,1),U),1,30))
"^DD",2,2.3226,1,1,1,"CREATE VALUE")
S X=$E($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U),1,30)
"^DD",2,2.3226,1,1,1,"DELETE CONDITION")
S X=($P(^DPT(DA(3),.312,DA(2),6,DA(1),6,DA,1),U)="")
"^DD",2,2.3226,1,1,1,"DELETE VALUE")
@
"^DD",2,2.3226,1,1,1,"DT")
3131020
"^DD",2,2.3226,1,1,1,"FIELD")
COMMUNICATION NUMBER
"^DD",2,2.3226,1,3)
Answer must be 1-245 characters in length.
"^DD",2,2.3226,1,5,1,0)
2.3226^.03^1
"^DD",2,2.3226,1,21,0)
^^1^1^3130225^
"^DD",2,2.3226,1,21,1,0)
Phone, fax, email, URL
"^DD",2,2.3226,1,23,0)
^^1^1^3130605^
"^DD",2,2.3226,1,23,1,0)
Replaces field .03. Source: 271 HL7 message, G2O.CTD.5.1
"^DD",2,2.3226,1,"DT")
3131120
"^DD",2,2.3227,0)
HEALTHCARE SERVICES DELIVERY SUB-FIELD^^.09^9
"^DD",2,2.3227,0,"DT")
3090727
"^DD",2,2.3227,0,"IX","B",2.3227,.01)

"^DD",2,2.3227,0,"NM","HEALTHCARE SERVICES DELIVERY")

"^DD",2,2.3227,0,"UP")
2.322
"^DD",2,2.3227,.01,0)
SEQUENCE^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.3227,.01,1,0)
^.1
"^DD",2,2.3227,.01,1,1,0)
2.3227^B
"^DD",2,2.3227,.01,1,1,1)
S ^DPT(DA(3),.312,DA(2),6,DA(1),7,"B",$E(X,1,30),DA)=""
"^DD",2,2.3227,.01,1,1,2)
K ^DPT(DA(3),.312,DA(2),6,DA(1),7,"B",$E(X,1,30),DA)
"^DD",2,2.3227,.01,3)
Type a number between 1 and 99999, 0 Decimal Digits.
"^DD",2,2.3227,.01,21,0)
^^1^1^3090727^
"^DD",2,2.3227,.01,21,1,0)
Sequential entry number.
"^DD",2,2.3227,.01,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.01,23,1,0)
Sequential number of ZHS segment.
"^DD",2,2.3227,.01,"DT")
3090727
"^DD",2,2.3227,.02,0)
BENEFIT QUANTITY^NJ9,3^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4.N) X
"^DD",2,2.3227,.02,3)
Type a number between 0 and 99999, 3 Decimal Digits.
"^DD",2,2.3227,.02,21,0)
^^2^2^3100428^
"^DD",2,2.3227,.02,21,1,0)
Numeric value of benefit quantity as qualified by QUANTITY QUALIFIER
"^DD",2,2.3227,.02,21,2,0)
field.
"^DD",2,2.3227,.02,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.02,23,1,0)
Source: 271 HL7 message, ZHS.3
"^DD",2,2.3227,.02,"DT")
3100428
"^DD",2,2.3227,.03,0)
QUANTITY QUALIFIER^P365.016^IBE(365.016,^0;3^Q
"^DD",2,2.3227,.03,3)
Select benefit quantity qualifier.
"^DD",2,2.3227,.03,21,0)
^^1^1^3090727^
"^DD",2,2.3227,.03,21,1,0)
Benefit quantity qualifier.
"^DD",2,2.3227,.03,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.03,23,1,0)
Source: 271 HL7 message, ZHS.2.1
"^DD",2,2.3227,.03,"DT")
3130502
"^DD",2,2.3227,.04,0)
SAMPLE SELECTION MODULUS^F^^0;4^K:$L(X)>6!($L(X)<1) X
"^DD",2,2.3227,.04,3)
Answer must be 1-6 characters in length.
"^DD",2,2.3227,.04,21,0)
^^2^2^3100428^
"^DD",2,2.3227,.04,21,1,0)
Sampling frequency in terms of a modulus of the Unit of Measure. Qualified
"^DD",2,2.3227,.04,21,2,0)
by UNITS OF MEASUREMENT field.
"^DD",2,2.3227,.04,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.04,23,1,0)
Source: 271 HL7 message, ZHS.5
"^DD",2,2.3227,.04,"DT")
3100428
"^DD",2,2.3227,.05,0)
UNITS OF MEASUREMENT^P365.029^IBE(365.029,^0;5^Q
"^DD",2,2.3227,.05,3)
Select units of measurement.
"^DD",2,2.3227,.05,21,0)
^^1^1^3090727^
"^DD",2,2.3227,.05,21,1,0)
Units of measurement for frequency of the benefits.
"^DD",2,2.3227,.05,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.05,23,1,0)
Source: 271 HL7 message, ZHS.4.1
"^DD",2,2.3227,.05,"DT")
3130307
"^DD",2,2.3227,.06,0)
TIME PERIODS^NJ8,2^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3.N) X
"^DD",2,2.3227,.06,3)
Type a number between 0 and 99999, 2 Decimal Digits.
"^DD",2,2.3227,.06,21,0)
^^1^1^3100428^
"^DD",2,2.3227,.06,21,1,0)
Number of time periods as qualified by TIME PERIOD QUALIFIER field.
"^DD",2,2.3227,.06,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.06,23,1,0)
Source: 271 HL7 message, ZHS.7
"^DD",2,2.3227,.06,"DT")
3100428
"^DD",2,2.3227,.07,0)
TIME PERIOD QUALIFIER^P365.015^IBE(365.015,^0;7^Q
"^DD",2,2.3227,.07,3)
Select qualifier for the time period.
"^DD",2,2.3227,.07,21,0)
^^1^1^3090727^
"^DD",2,2.3227,.07,21,1,0)
Code that defines a time period.
"^DD",2,2.3227,.07,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.07,23,1,0)
Source: 271 HL7 message, ZHS.6.1
"^DD",2,2.3227,.07,"DT")
3130502
"^DD",2,2.3227,.08,0)
DELIVERY FREQUENCY^P365.025^IBE(365.025,^0;8^Q
"^DD",2,2.3227,.08,3)
Select code for delivery frequency.
"^DD",2,2.3227,.08,21,0)
^^1^1^3090727^
"^DD",2,2.3227,.08,21,1,0)
Code that defines frequency of deliveries.
"^DD",2,2.3227,.08,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.08,23,1,0)
Source: 271 HL7 message, ZHS.8.1
"^DD",2,2.3227,.08,"DT")
3130307
"^DD",2,2.3227,.09,0)
DELIVERY PATTERN^P365.036^IBE(365.036,^0;9^Q
"^DD",2,2.3227,.09,3)
Select delivery pattern.
"^DD",2,2.3227,.09,21,0)
^^1^1^3090727^
"^DD",2,2.3227,.09,21,1,0)
Code that defines pattern of deliveries.
"^DD",2,2.3227,.09,23,0)
^^1^1^3090727^
"^DD",2,2.3227,.09,23,1,0)
Source: 271 HL7 message, ZHS.9.1
"^DD",2,2.3227,.09,"DT")
3130307
"^DD",2,2.3228,0)
SUBSCRIBER DATES SUB-FIELD^^.04^4
"^DD",2,2.3228,0,"DT")
3090727
"^DD",2,2.3228,0,"IX","B",2.3228,.01)

"^DD",2,2.3228,0,"NM","SUBSCRIBER DATES")

"^DD",2,2.3228,0,"UP")
2.322
"^DD",2,2.3228,.01,0)
SEQUENCE^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.3228,.01,1,0)
^.1
"^DD",2,2.3228,.01,1,1,0)
2.3228^B
"^DD",2,2.3228,.01,1,1,1)
S ^DPT(DA(3),.312,DA(2),6,DA(1),8,"B",$E(X,1,30),DA)=""
"^DD",2,2.3228,.01,1,1,2)
K ^DPT(DA(3),.312,DA(2),6,DA(1),8,"B",$E(X,1,30),DA)
"^DD",2,2.3228,.01,3)
Type a number between 1 and 99999, 0 Decimal Digits.
"^DD",2,2.3228,.01,21,0)
^^1^1^3090727^
"^DD",2,2.3228,.01,21,1,0)
Sequential number of ZSD segment.
"^DD",2,2.3228,.01,23,0)
^^1^1^3090727^
"^DD",2,2.3228,.01,23,1,0)
Sequential number 1..N, assigned automatically.
"^DD",2,2.3228,.01,"DT")
3090727
"^DD",2,2.3228,.02,0)
DATE^F^^0;2^K:$L(X)>50!($L(X)<8) X
"^DD",2,2.3228,.02,3)
Answer must be 8-50 characters in length.
"^DD",2,2.3228,.02,21,0)
^^1^1^3090727^
"^DD",2,2.3228,.02,21,1,0)
Date or range of dates.
"^DD",2,2.3228,.02,23,0)
^^1^1^3090727^
"^DD",2,2.3228,.02,23,1,0)
Source: 271 HL7 message, ZSD.4.1
"^DD",2,2.3228,.02,"DT")
3090727
"^DD",2,2.3228,.03,0)
DATE QUALIFIER^P365.026^IBE(365.026,^0;3^Q
"^DD",2,2.3228,.03,3)
Select date qualifier.
"^DD",2,2.3228,.03,21,0)
^^1^1^3090727^
"^DD",2,2.3228,.03,21,1,0)
Code describing the type of date.
"^DD",2,2.3228,.03,23,0)
^^1^1^3090727^
"^DD",2,2.3228,.03,23,1,0)
Source: 271 HL7 message, ZSD.2.1
"^DD",2,2.3228,.03,"DT")
3130306
"^DD",2,2.3228,.04,0)
DATE FORMAT^P365.032^IBE(365.032,^0;4^Q
"^DD",2,2.3228,.04,3)
Select date format.
"^DD",2,2.3228,.04,21,0)
^^1^1^3090727^
"^DD",2,2.3228,.04,21,1,0)
Format of the date representation.
"^DD",2,2.3228,.04,23,0)
^^1^1^3090727^
"^DD",2,2.3228,.04,23,1,0)
Source: 271 HL7 message, ZSD.3.1
"^DD",2,2.3228,.04,"DT")
3130307
"^DD",2,2.3229,0)
SUBSCRIBER ADDITIONAL INFO SUB-FIELD^^.04^7
"^DD",2,2.3229,0,"DT")
3090922
"^DD",2,2.3229,0,"IX","B",2.3229,.01)

"^DD",2,2.3229,0,"NM","SUBSCRIBER ADDITIONAL INFO")

"^DD",2,2.3229,0,"UP")
2.322
"^DD",2,2.3229,.01,0)
SEQUENCE^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.3229,.01,1,0)
^.1
"^DD",2,2.3229,.01,1,1,0)
2.3229^B
"^DD",2,2.3229,.01,1,1,1)
S ^DPT(DA(3),.312,DA(2),6,DA(1),9,"B",$E(X,1,30),DA)=""
"^DD",2,2.3229,.01,1,1,2)
K ^DPT(DA(3),.312,DA(2),6,DA(1),9,"B",$E(X,1,30),DA)
"^DD",2,2.3229,.01,3)
Type a number between 1 and 99999, 0 Decimal Digits.
"^DD",2,2.3229,.01,21,0)
^^1^1^3090727^
"^DD",2,2.3229,.01,21,1,0)
Sequential number of ZII segment.
"^DD",2,2.3229,.01,23,0)
^^1^1^3090727^
"^DD",2,2.3229,.01,23,1,0)
Sequential number 1..N, assigned automatically.
"^DD",2,2.3229,.01,"DT")
3090727
"^DD",2,2.3229,.02,0)
PLACE OF SERVICE^P353.1^IBE(353.1,^0;2^Q
"^DD",2,2.3229,.02,3)
Select code for place of service.
"^DD",2,2.3229,.02,21,0)
^^1^1^3090922^
"^DD",2,2.3229,.02,21,1,0)
Place of service code.
"^DD",2,2.3229,.02,23,0)
^^1^1^3090922^
"^DD",2,2.3229,.02,23,1,0)
Source: 271 HL7 message, ZII.3.1 when ZII.2.1 has value of "ZZ"
"^DD",2,2.3229,.02,"DT")
3130306
"^DD",2,2.3229,.03,0)
DIAGNOSIS^P80'^ICD9(^0;3^Q
"^DD",2,2.3229,.03,3)
Select diagnosis code.
"^DD",2,2.3229,.03,21,0)
^^1^1^3090727^
"^DD",2,2.3229,.03,21,1,0)
Diagnosis code.
"^DD",2,2.3229,.03,23,0)
^^1^1^3090727^
"^DD",2,2.3229,.03,23,1,0)
Source: 271 HL7 message, ZII.3.1 when ZII.2.1 has value of "BF" or "BK"
"^DD",2,2.3229,.03,"DT")
3090727
"^DD",2,2.3229,.04,0)
QUALIFIER^P365.044^IBE(365.044,^0;4^Q
"^DD",2,2.3229,.04,3)
Select additional information qualifier.
"^DD",2,2.3229,.04,21,0)
^^1^1^3090727^
"^DD",2,2.3229,.04,21,1,0)
Additional information qualifier.
"^DD",2,2.3229,.04,23,0)
^^1^1^3090727^
"^DD",2,2.3229,.04,23,1,0)
Source: 271 HL7 message, ZII.2.1
"^DD",2,2.3229,.04,"DT")
3130306
"^DD",2,2.3229,.05,0)
NATURE OF INJURY CODE^P365.045^IBE(365.045,^0;5^Q
"^DD",2,2.3229,.05,3)
Enter the nature of injury code.
"^DD",2,2.3229,.05,21,0)
^^1^1^3130306^
"^DD",2,2.3229,.05,21,1,0)
Code that represents the nature of the patient injury.
"^DD",2,2.3229,.05,23,0)
^^1^1^3130306^
"^DD",2,2.3229,.05,23,1,0)
Source: 271 HL7 message, ZII.4 when ZII.2.1 has value of "GR" or "NI".
"^DD",2,2.3229,.05,"DT")
3130306
"^DD",2,2.3229,.06,0)
NATURE OF INJURY CATEGORY^F^^0;6^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.3229,.06,3)
Answer must be 1-30 characters in length.
"^DD",2,2.3229,.06,21,0)
^^1^1^3130306^
"^DD",2,2.3229,.06,21,1,0)
Specifies the situation or category to which the code applies.
"^DD",2,2.3229,.06,23,0)
^^1^1^3130306^
"^DD",2,2.3229,.06,23,1,0)
Source: 271 HL7 message, ZII.5
"^DD",2,2.3229,.06,"DT")
3130306
"^DD",2,2.3229,.07,0)
NATURE OF INJURY TEXT^F^^0;7^K:$L(X)>80!($L(X)<1) X
"^DD",2,2.3229,.07,3)
Answer must be 1-80 characters in length.
"^DD",2,2.3229,.07,21,0)
^^1^1^3130306^
"^DD",2,2.3229,.07,21,1,0)
Describes the injured body part or parts.
"^DD",2,2.3229,.07,23,0)
^^1^1^3130306^
"^DD",2,2.3229,.07,23,1,0)
Source: 271 HL7 message, ZII.6
"^DD",2,2.3229,.07,"DT")
3130306
"^DD",2,2.32291,0)
SUBSCRIBER REFERENCE ID SUB-FIELD^^.04^4
"^DD",2,2.32291,0,"DT")
3090911
"^DD",2,2.32291,0,"IX","B",2.32291,.01)

"^DD",2,2.32291,0,"NM","SUBSCRIBER REFERENCE ID")

"^DD",2,2.32291,0,"UP")
2.322
"^DD",2,2.32291,.01,0)
SEQUENCE^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.32291,.01,1,0)
^.1
"^DD",2,2.32291,.01,1,1,0)
2.32291^B
"^DD",2,2.32291,.01,1,1,1)
S ^DPT(DA(3),.312,DA(2),6,DA(1),10,"B",$E(X,1,30),DA)=""
"^DD",2,2.32291,.01,1,1,2)
K ^DPT(DA(3),.312,DA(2),6,DA(1),10,"B",$E(X,1,30),DA)
"^DD",2,2.32291,.01,3)
Type a number between 1 and 99999, 0 Decimal Digits.
"^DD",2,2.32291,.01,21,0)
^^1^1^3090910^
"^DD",2,2.32291,.01,21,1,0)
Sequential number of ZRF segment.
"^DD",2,2.32291,.01,23,0)
^^1^1^3090910^
"^DD",2,2.32291,.01,23,1,0)
Sequential number 1..N, assigned automatically.
"^DD",2,2.32291,.01,"DT")
3090911
"^DD",2,2.32291,.02,0)
REFERENCE ID^F^^0;2^K:$L(X)>30!($L(X)<1) X
"^DD",2,2.32291,.02,3)
Answer must be 1-30 characters in length.
"^DD",2,2.32291,.02,21,0)
^^1^1^3090910^
"^DD",2,2.32291,.02,21,1,0)
Reference id value.
"^DD",2,2.32291,.02,23,0)
^^1^1^3090910^
"^DD",2,2.32291,.02,23,1,0)
Source: 271 HL7 message, ZRF.3.
"^DD",2,2.32291,.02,"DT")
3090910
"^DD",2,2.32291,.03,0)
REFERENCE ID QUALIFIER^P365.028^IBE(365.028,^0;3^Q
"^DD",2,2.32291,.03,3)
Select reference id qualifier.
"^DD",2,2.32291,.03,21,0)
^^1^1^3090910^
"^DD",2,2.32291,.03,21,1,0)
Code describing the type of reference id.
"^DD",2,2.32291,.03,23,0)
^^1^1^3090910^
"^DD",2,2.32291,.03,23,1,0)
Source: 271 HL7 message, ZRF.2.1.
"^DD",2,2.32291,.03,"DT")
3130306
"^DD",2,2.32291,.04,0)
DESCRIPTION^F^^0;4^K:$L(X)>80!($L(X)<1) X
"^DD",2,2.32291,.04,3)
Answer must be 1-80 characters in length.
"^DD",2,2.32291,.04,21,0)
^^1^1^3090910^
"^DD",2,2.32291,.04,21,1,0)
Short description of reference id.
"^DD",2,2.32291,.04,23,0)
^^1^1^3090910^
"^DD",2,2.32291,.04,23,1,0)
Source: 271 HL7 message, ZRF.4.
"^DD",2,2.32291,.04,"DT")
3090910
"^DD",2,2.32292,0)
SERVICE TYPES SUB-FIELD^^.01^1
"^DD",2,2.32292,0,"DT")
3101130
"^DD",2,2.32292,0,"IX","B",2.32292,.01)

"^DD",2,2.32292,0,"NM","SERVICE TYPES")

"^DD",2,2.32292,0,"UP")
2.322
"^DD",2,2.32292,.01,0)
SERVICE TYPES^P365.013^IBE(365.013,^0;1^Q
"^DD",2,2.32292,.01,1,0)
^.1
"^DD",2,2.32292,.01,1,1,0)
2.32292^B
"^DD",2,2.32292,.01,1,1,1)
S ^DPT(DA(3),.312,DA(2),6,DA(1),11,"B",$E(X,1,30),DA)=""
"^DD",2,2.32292,.01,1,1,2)
K ^DPT(DA(3),.312,DA(2),6,DA(1),11,"B",$E(X,1,30),DA)
"^DD",2,2.32292,.01,3)
Select a service type code returned from eligibility inquiry.
"^DD",2,2.32292,.01,21,0)
^^1^1^3101130^
"^DD",2,2.32292,.01,21,1,0)
This is a service type code returned from an eligibility inquiry.
"^DD",2,2.32292,.01,"DT")
3130307
"^DD",2,2.332,0)
GROUP PROVIDER INFO SUB-FIELD^^.03^3
"^DD",2,2.332,0,"DT")
3130522
"^DD",2,2.332,0,"IX","B",2.332,.01)

"^DD",2,2.332,0,"NM","GROUP PROVIDER INFO")

"^DD",2,2.332,0,"UP")
2.312
"^DD",2,2.332,.01,0)
SEQUENCE^MRNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
"^DD",2,2.332,.01,1,0)
^.1
"^DD",2,2.332,.01,1,1,0)
2.332^B
"^DD",2,2.332,.01,1,1,1)
S ^DPT(DA(2),.312,DA(1),10,"B",$E(X,1,30),DA)=""
"^DD",2,2.332,.01,1,1,2)
K ^DPT(DA(2),.312,DA(1),10,"B",$E(X,1,30),DA)
"^DD",2,2.332,.01,3)
Type a number between 1 and 99999, 0 decimal digits.
"^DD",2,2.332,.01,21,0)
^^2^2^3130610^
"^DD",2,2.332,.01,21,1,0)
This field contains a sequential number generated at the time a record is
"^DD",2,2.332,.01,21,2,0)
stored in the subfile.  
"^DD",2,2.332,.01,23,0)
^^1^1^3130522^
"^DD",2,2.332,.01,23,1,0)
Sequential number 1..N, assigned automatically.
"^DD",2,2.332,.01,"DT")
3130610
"^DD",2,2.332,.02,0)
PROVIDER CODE^P365.024^IBE(365.024,^0;2^Q
"^DD",2,2.332,.02,3)
Select the group provider code.
"^DD",2,2.332,.02,21,0)
^^1^1^3130522^
"^DD",2,2.332,.02,21,1,0)
Code that identifies the type of provider (e.g., "AD" for Admitting).
"^DD",2,2.332,.02,23,0)
^^2^2^3130522^
"^DD",2,2.332,.02,23,1,0)
Source:  X12 271 LOOPS 2100B, 2100C, 2100D. PRV01 PROVIDER CODE HL7
"^DD",2,2.332,.02,23,2,0)
message, ROL.3.1
"^DD",2,2.332,.02,"DT")
3130522
"^DD",2,2.332,.03,0)
PROV REFERENCE ID^F^^0;3^K:$L(X)>50!($L(X)<1) X
"^DD",2,2.332,.03,3)
Answer must be 1-50 characters in length.
"^DD",2,2.332,.03,21,0)
^^1^1^3130522^
"^DD",2,2.332,.03,21,1,0)
Provider specialty type identifier.
"^DD",2,2.332,.03,23,0)
^^2^2^3130522^
"^DD",2,2.332,.03,23,1,0)
Source: X12 271 LOOPS 2100B, 2100C, 2100D. PRV03 PROVIDER CODE
"^DD",2,2.332,.03,23,2,0)
HL7 message ROL.4.1
"^DD",2,2.332,.03,"DT")
3130522
"^DD",2,2.396,0)
CD STATUS DIAGNOSES SUB-FIELD^^.01^1
"^DD",2,2.396,0,"DT")
2990617
"^DD",2,2.396,0,"IX","AENR01",2.396,.01)

"^DD",2,2.396,0,"IX","B",2.396,.01)

"^DD",2,2.396,0,"NM","CD STATUS DIAGNOSES")

"^DD",2,2.396,0,"UP")
2
"^DD",2,2.396,.01,0)
CD STATUS DIAGNOSES^M*P27.17'XO^DGEN(27.17,^0;1^S DIC("S")="I $$TYPE^DGENA5(Y)="
"D""&($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(""D""))" D ^DIC K DIC S DIC=$G(D
IE),X=+Y K:Y<0 X
"^DD",2,2.396,.01,1,0)
^.1
"^DD",2,2.396,.01,1,1,0)
2.396^B
"^DD",2,2.396,.01,1,1,1)
S ^DPT(DA(1),.396,"B",$E(X,1,30),DA)=""
"^DD",2,2.396,.01,1,1,2)
K ^DPT(DA(1),.396,"B",$E(X,1,30),DA)
"^DD",2,2.396,.01,1,2,0)
2.396^AENR01^MUMPS
"^DD",2,2.396,.01,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.396,.01,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.396,.01,1,2,3)
 DO NOT DELETE
"^DD",2,2.396,.01,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.396,.01,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.396,.01,1,2,"%D",2,0)
enrollment.
"^DD",2,2.396,.01,1,2,"DT")
3050913
"^DD",2,2.396,.01,2)
S Y(0)=Y S Y=$$DISP^DGENLCD1(Y)
"^DD",2,2.396,.01,2.1)
S Y=$$DISP^DGENLCD1(Y)
"^DD",2,2.396,.01,3)
Select a CD diagnosis.
"^DD",2,2.396,.01,12)
Must specify a CD REASON that is a diagnosis and the diagnosis coding system mus
t match the value stored in the CD Reasons file. 
"^DD",2,2.396,.01,12.1)
S DIC("S")="I $$TYPE^DGENA5(Y)=""D""&($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(
""D""))"
"^DD",2,2.396,.01,21,0)
^^2^2^3130828^
"^DD",2,2.396,.01,21,1,0)
This is a diagnosis which determines that the veteran is catastrophically 
"^DD",2,2.396,.01,21,2,0)
disabled.
"^DD",2,2.396,.01,"DT")
3130828
"^DD",2,2.397,0)
CD STATUS PROCEDURES SUB-FIELD^^1^2
"^DD",2,2.397,0,"DT")
2990617
"^DD",2,2.397,0,"IX","AENR01",2.397,.01)

"^DD",2,2.397,0,"IX","AENR1",2.397,1)

"^DD",2,2.397,0,"IX","B",2.397,.01)

"^DD",2,2.397,0,"NM","CD STATUS PROCEDURES")

"^DD",2,2.397,0,"UP")
2
"^DD",2,2.397,.01,0)
CD STATUS PROCEDURES^M*P27.17'XO^DGEN(27.17,^0;1^S DIC("S")="I $$TYPE^DGENA5(Y)=
""P"" I ($P(^DGEN(27.17,+Y,0),U,3)[""ICPT"")!($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER
^DGENA5(""P""))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
"^DD",2,2.397,.01,1,0)
^.1
"^DD",2,2.397,.01,1,1,0)
2.397^B
"^DD",2,2.397,.01,1,1,1)
S ^DPT(DA(1),.397,"B",$E(X,1,30),DA)=""
"^DD",2,2.397,.01,1,1,2)
K ^DPT(DA(1),.397,"B",$E(X,1,30),DA)
"^DD",2,2.397,.01,1,2,0)
2.397^AENR01^MUMPS
"^DD",2,2.397,.01,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.397,.01,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.397,.01,1,2,3)
 DO NOT DELETE
"^DD",2,2.397,.01,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.397,.01,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.397,.01,1,2,"%D",2,0)
enrollment.
"^DD",2,2.397,.01,1,2,"DT")
3050913
"^DD",2,2.397,.01,2)
S Y(0)=Y S Y=$$DISP^DGENLCD1(Y)
"^DD",2,2.397,.01,2.1)
S Y=$$DISP^DGENLCD1(Y)
"^DD",2,2.397,.01,3)
The status procedure must be a valid procedure in the CD Reasons File (#27.17).
"^DD",2,2.397,.01,12)
Must specify a CD REASON that is a procedure. The code must be a CPT code or the
 procedure coding system must match the value stored in the CD Reasons file.
"^DD",2,2.397,.01,12.1)
S DIC("S")="I $$TYPE^DGENA5(Y)=""P"" I ($P(^DGEN(27.17,+Y,0),U,3)[""ICPT"")!($P(
^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(""P""))"
"^DD",2,2.397,.01,21,0)
^^3^3^3130828^
"^DD",2,2.397,.01,21,1,0)
This is for storage of either CPT procedure or ICD procedure codes.  ICD 
"^DD",2,2.397,.01,21,2,0)
codes must be for the correct coding system, as determined by procedure 
"^DD",2,2.397,.01,21,3,0)
date and stored in file 27.17 piece 9.
"^DD",2,2.397,.01,"DT")
3130828
"^DD",2,2.397,1,0)
AFFECTED EXTREMITY^R*S^RUE:Right Upper Extremity;LUE:Left Upper Extremity;RLE:Ri
ght Lower Extremity;LLE:Left Lower Extremity;BLE:Bilateral Lower Extremity;BUE:B
ilateral Upper Extremity;^0;2^Q
"^DD",2,2.397,1,1,0)
^.1
"^DD",2,2.397,1,1,1,0)
2.397^AENR1^MUMPS
"^DD",2,2.397,1,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.397,1,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.397,1,1,1,3)
 DO NOT DELETE
"^DD",2,2.397,1,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.397,1,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.397,1,1,1,"%D",2,0)
enrollment.
"^DD",2,2.397,1,1,1,"DT")
3050913
"^DD",2,2.397,1,3)
Choose the affected extremity.
"^DD",2,2.397,1,12)
Must select an affected extremity that is valid for the procedure.
"^DD",2,2.397,1,12.1)
S DIC("S")="I $$LSCREEN^DGENA5(Y)"
"^DD",2,2.397,1,21,0)
^^1^1^3130828^
"^DD",2,2.397,1,21,1,0)
This is the affected extremity for this procedure.
"^DD",2,2.397,1,"DT")
3130828
"^DD",2,2.398,0)
CD STATUS CONDITIONS SUB-FIELD^^2^3
"^DD",2,2.398,0,"DT")
2990617
"^DD",2,2.398,0,"IX","AENR01",2.398,.01)

"^DD",2,2.398,0,"IX","AENR1",2.398,1)

"^DD",2,2.398,0,"IX","AENR2",2.398,2)

"^DD",2,2.398,0,"IX","B",2.398,.01)

"^DD",2,2.398,0,"NM","CD STATUS CONDITIONS")

"^DD",2,2.398,0,"UP")
2
"^DD",2,2.398,.01,0)
CD STATUS CONDITIONS^M*P27.17'^DGEN(27.17,^0;1^S DIC("S")="I $$TYPE^DGENA5(Y)=""
C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.398,.01,1,0)
^.1
"^DD",2,2.398,.01,1,1,0)
2.398^B
"^DD",2,2.398,.01,1,1,1)
S ^DPT(DA(1),.398,"B",$E(X,1,30),DA)=""
"^DD",2,2.398,.01,1,1,2)
K ^DPT(DA(1),.398,"B",$E(X,1,30),DA)
"^DD",2,2.398,.01,1,2,0)
2.398^AENR01^MUMPS
"^DD",2,2.398,.01,1,2,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.398,.01,1,2,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.398,.01,1,2,3)
 DO NOT DELETE
"^DD",2,2.398,.01,1,2,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.398,.01,1,2,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.398,.01,1,2,"%D",2,0)
enrollment.
"^DD",2,2.398,.01,1,2,"DT")
3050913
"^DD",2,2.398,.01,12)
Must specify a CD REASON that is a condition.
"^DD",2,2.398,.01,12.1)
S DIC("S")="I $$TYPE^DGENA5(Y)=""C"""
"^DD",2,2.398,.01,21,0)
^^10^10^2990617^^
"^DD",2,2.398,.01,21,1,0)
The veteran shall be determined Catastrophically Disabled if 
"^DD",2,2.398,.01,21,2,0)
he/she has one of the following conditions:
"^DD",2,2.398,.01,21,3,0)
 - Dependent in three or more ADLs, with at least three of the
"^DD",2,2.398,.01,21,4,0)
   dependencies being permanent, using the Katz Scale.
"^DD",2,2.398,.01,21,5,0)
 - A score of 10 or lower using the Folstein Mini-Mental State 
"^DD",2,2.398,.01,21,6,0)
   Examination.
"^DD",2,2.398,.01,21,7,0)
 - A score of 2 or lower on at least 4 of the 13 motor items 
"^DD",2,2.398,.01,21,8,0)
   using the Functional Independence Measure (FIM)
"^DD",2,2.398,.01,21,9,0)
 - A score of 30 or lower using the Global Assessment of Functions 
"^DD",2,2.398,.01,21,10,0)
   in (GAF)
"^DD",2,2.398,.01,"DT")
2990617
"^DD",2,2.398,1,0)
SCORE^RNJ3,0X^^0;2^K:'$$CONDINP^DGENA5($G(D0),$G(D1),X) X
"^DD",2,2.398,1,1,0)
^.1
"^DD",2,2.398,1,1,1,0)
2.398^AENR1^MUMPS
"^DD",2,2.398,1,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.398,1,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.398,1,1,1,3)
 DO NOT DELETE
"^DD",2,2.398,1,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.398,1,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.398,1,1,1,"%D",2,0)
enrollment.
"^DD",2,2.398,1,1,1,"DT")
3050913
"^DD",2,2.398,1,3)

"^DD",2,2.398,1,4)
D CONDHELP^DGENA5($G(D0),$G(D1))
"^DD",2,2.398,1,21,0)
^^4^4^2990520^^^^
"^DD",2,2.398,1,21,1,0)
NOTE:  This field does not always contain the veteran's raw test
"^DD",2,2.398,1,21,2,0)
score.  Sometimes you must enter specific information about the
"^DD",2,2.398,1,21,3,0)
score that may apply to the determination of Catastrophic Disability.
"^DD",2,2.398,1,21,4,0)
See the help text above for more details.
"^DD",2,2.398,1,23,0)
^^3^3^2990520^
"^DD",2,2.398,1,23,1,0)
The exact criteria for the score are determined by the CATASTROPHIC
"^DD",2,2.398,1,23,2,0)
DISABILITY REASONS file (#27.17).  That file also contains the help
"^DD",2,2.398,1,23,3,0)
text for responding to SCORE.
"^DD",2,2.398,1,"DT")
2990525
"^DD",2,2.398,2,0)
PERMANENT INDICATOR^RS^1:PERMANENT;2:NOT PERMANENT;3:UNKNOWN;^0;3^Q
"^DD",2,2.398,2,1,0)
^.1
"^DD",2,2.398,2,1,1,0)
2.398^AENR2^MUMPS
"^DD",2,2.398,2,1,1,1)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.398,2,1,1,2)
D EVENT^IVMPLOG($G(DA(1)))
"^DD",2,2.398,2,1,1,3)
 DO NOT DELETE
"^DD",2,2.398,2,1,1,"%D",0)
^.101^2^2^3050913^^^^
"^DD",2,2.398,2,1,1,"%D",1,0)
This cross-reference is used to notify HEC of changes that may affect
"^DD",2,2.398,2,1,1,"%D",2,0)
enrollment.
"^DD",2,2.398,2,1,1,"DT")
3050913
"^DD",2,2.398,2,"DT")
2990519
"^DD",2,2.399,0)
CD HISTORY DATE SUB-FIELD^^.396^11
"^DD",2,2.399,0,"DT")
2990525
"^DD",2,2.399,0,"IX","B",2.399,.01)

"^DD",2,2.399,0,"NM","CD HISTORY DATE")

"^DD",2,2.399,0,"UP")
2
"^DD",2,2.399,.01,0)
CD HISTORY DATE^D^^0;1^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.399,.01,1,0)
^.1
"^DD",2,2.399,.01,1,1,0)
2.399^B
"^DD",2,2.399,.01,1,1,1)
S ^DPT(DA(1),.399,"B",$E(X,1,30),DA)=""
"^DD",2,2.399,.01,1,1,2)
K ^DPT(DA(1),.399,"B",$E(X,1,30),DA)
"^DD",2,2.399,.01,3)
THIS SHOULD NOT BE ENTERED BY HAND!
"^DD",2,2.399,.01,21,0)
^^2^2^2990524^
"^DD",2,2.399,.01,21,1,0)
This sub-file stores the history of the PATIENT's Catastrophic Disability
"^DD",2,2.399,.01,21,2,0)
Eligibility information.
"^DD",2,2.399,.01,"DT")
2990524
"^DD",2,2.399,.39,0)
VETERAN CATASTROPHICALLY DISABLED?^RS^Y:YES;N:NO;^0;7^Q
"^DD",2,2.399,.39,"DT")
2990525
"^DD",2,2.399,.391,0)
DECIDED BY^F^^0;2^K:$L(X)>35!($L(X)<3) X
"^DD",2,2.399,.391,3)
Answer must be 3-35 characters in length.
"^DD",2,2.399,.391,21,0)
^^1^1^2990524^
"^DD",2,2.399,.391,21,1,0)
Captures a historical value of DECIDED BY (#.391) field in PATIENT file.
"^DD",2,2.399,.391,"DT")
2990524
"^DD",2,2.399,.392,0)
DATE OF DECISION^D^^0;3^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.399,.392,3)
Date the decision was made.
"^DD",2,2.399,.392,21,0)
^^1^1^2990524^
"^DD",2,2.399,.392,21,1,0)
Captures historical value of PATIENT field #.392 DATE OF DECISION.
"^DD",2,2.399,.392,"DT")
2990524
"^DD",2,2.399,.393,0)
FACILITY MAKING DETERMINATION^P4'^DIC(4,^0;4^Q
"^DD",2,2.399,.393,21,0)
^^2^2^2990524^
"^DD",2,2.399,.393,21,1,0)
Captures a historical value of the FACILITY MAKING DETERMINATION field
"^DD",2,2.399,.393,21,2,0)
(#.393) of the PATIENT file.
"^DD",2,2.399,.393,"DT")
2990524
"^DD",2,2.399,.394,0)
REVIEW DATE^D^^0;5^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.399,.394,21,0)
^^2^2^2990524^
"^DD",2,2.399,.394,21,1,0)
Captures a historical value of the PATIENT file's REVIEW DATE field
"^DD",2,2.399,.394,21,2,0)
(#.394).
"^DD",2,2.399,.394,"DT")
2990524
"^DD",2,2.399,.395,0)
METHOD OF DETERMINATION^S^1:AUTOMATED RECORD REVIEW;2:MEDICAL RECORD REVIEW;3:PH
YSICAL EXAMINATION;^0;6^Q
"^DD",2,2.399,.395,21,0)
^^2^2^2990524^
"^DD",2,2.399,.395,21,1,0)
This sub-field stores the historical value of the PATIENT file's METHOD
"^DD",2,2.399,.395,21,2,0)
OF DETERMINATION field (#.395).
"^DD",2,2.399,.395,"DT")
2990524
"^DD",2,2.399,.3951,0)
DATE VETERAN REQUESTED CD EVAL^D^^0;8^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.399,.3951,"DT")
3050915
"^DD",2,2.399,.3952,0)
DATE FACILITY INITIATED REVIEW^D^^0;9^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.399,.3952,"DT")
3050915
"^DD",2,2.399,.3953,0)
DATE VETERAN WAS NOTIFIED^D^^0;10^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.399,.3953,"DT")
3050915
"^DD",2,2.399,.396,0)
CD REASON^2.409PA^^1;0
"^DD",2,2.409,0)
CD REASON SUB-FIELD^^3^4
"^DD",2,2.409,0,"DT")
2990524
"^DD",2,2.409,0,"IX","B",2.409,.01)

"^DD",2,2.409,0,"NM","CD REASON")

"^DD",2,2.409,0,"UP")
2.399
"^DD",2,2.409,.01,0)
CD REASON^P27.17'^DGEN(27.17,^0;1^Q
"^DD",2,2.409,.01,1,0)
^.1
"^DD",2,2.409,.01,1,1,0)
2.409^B
"^DD",2,2.409,.01,1,1,1)
S ^DPT(DA(2),.399,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",2,2.409,.01,1,1,2)
K ^DPT(DA(2),.399,DA(1),1,"B",$E(X,1,30),DA)
"^DD",2,2.409,.01,21,0)
^^3^3^2990524^
"^DD",2,2.409,.01,21,1,0)
This sub-field will contain pointers to the CD REASONS file (#27.17),
"^DD",2,2.409,.01,21,2,0)
as well as the supporting data stored in the CD STATUS DIAGNOSES (#.396),
"^DD",2,2.409,.01,21,3,0)
PROCEDURES (#.397) and CONDITIONS (#.398) fields.
"^DD",2,2.409,.01,"DT")
2990524
"^DD",2,2.409,1,0)
AFFECTED EXTREMITY^S^RUE:RIGHT UPPER EXTREMITY;LUE:LEFT UPPER EXTREMITY;RLE:RIGH
T LOWER EXTREMITY;LLE:LEFT LOWER EXTREMITY;BLE:Bilateral Lower Extremity;BLU:Bil
ateral Upper Extremity;^0;2^Q
"^DD",2,2.409,1,3)
Choose the affected extremity.
"^DD",2,2.409,1,21,0)
^^1^1^3130828^
"^DD",2,2.409,1,21,1,0)
This is the extremity affected by the CD.
"^DD",2,2.409,1,"DT")
3130828
"^DD",2,2.409,2,0)
SCORE^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
"^DD",2,2.409,2,3)
Type a Number between 0 and 100, 0 Decimal Digits
"^DD",2,2.409,2,21,0)
^^2^2^2990524^
"^DD",2,2.409,2,21,1,0)
This field stores a historical value for the SCORE subfield (#1) of the
"^DD",2,2.409,2,21,2,0)
CD STATUS CONDITIONS field (#.398) of the PATIENT file (#2).
"^DD",2,2.409,2,"DT")
2990524
"^DD",2,2.409,3,0)
PERMANENT INDICATOR^S^1:PERMANENT;2:NOT PERMANENT;3:UNKNOWN;^0;4^Q
"^DD",2,2.409,3,21,0)
^^2^2^2990524^
"^DD",2,2.409,3,21,1,0)
This subfield stores a historical value of the PERMANENT INDICATOR subfield
"^DD",2,2.409,3,21,2,0)
(#2) of the CD STATUS CONDITIONS field (#.398) of the PATIENT file (#2).
"^DD",2,2.409,3,"DT")
2990524
"^DD",2,2.5370262,0)
SOCIALIZATION ACTIONS SUB-FIELD^^.01^1
"^DD",2,2.5370262,0,"DT")
3140915
"^DD",2,2.5370262,0,"IX","B",2.5370262,.01)

"^DD",2,2.5370262,0,"NM","SOCIALIZATION ACTIONS")

"^DD",2,2.5370262,0,"UP")
2.0537026
"^DD",2,2.5370262,.01,0)
SOCIALIZATION ACTIONS^P390.02'^DGMHV(390.02,^0;1^Q
"^DD",2,2.5370262,.01,1,0)
^.1
"^DD",2,2.5370262,.01,1,1,0)
2.5370262^B
"^DD",2,2.5370262,.01,1,1,1)
S ^DPT(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",2,2.5370262,.01,1,1,2)
K ^DPT(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
"^DD",2,2.5370262,.01,"DT")
3140915
"^DD",2,2.98,0)
APPOINTMENT SUB-FIELD^NL^100^33
"^DD",2,2.98,0,"DT")
2930922
"^DD",2,2.98,0,"NM","APPOINTMENT")

"^DD",2,2.98,0,"UP")
2
"^DD",2,2.98,.001,0)
APPOINTMENT DATE/TIME^D^^ ^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,.001,21,0)
^^3^3^2930127^^
"^DD",2,2.98,.001,21,1,0)
This displays date/time function as defined in file manager.  The
"^DD",2,2.98,.001,21,2,0)
date/time of the appointment.
"^DD",2,2.98,.001,21,3,0)
|
"^DD",2,2.98,.001,22)

"^DD",2,2.98,.001,"DT")
2870505
"^DD",2,2.98,.01,0)
CLINIC^MP44'X^SC(^0;1^Q
"^DD",2,2.98,.01,1,0)
^.1^^0
"^DD",2,2.98,.01,3)

"^DD",2,2.98,.01,"DEL",1,0)
I '$D(SDSCHED) W !,*7,"No deletion of this node allowed through fileman"
"^DD",2,2.98,.01,"DT")
2870323
"^DD",2,2.98,.02,0)
TELEPHONE OF CLINIC^CJ14^^ ; ^X ^DD(2.98,.02,9.2) S X=$P(Y(.02,101),U,1) S D0=Y(
.02,2)
"^DD",2,2.98,.02,9)
^
"^DD",2,2.98,.02,9.01)
44^99;2.98^.01
"^DD",2,2.98,.02,9.1)
#.01:TELEPHONE
"^DD",2,2.98,.02,9.2)
S Y(.02,2)=$S($D(D0):D0,1:""),Y(.02,1)=$S($D(^DPT(D0,"S",D1,0)):^(0),1:""),D0=$P
(Y(.02,1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S Y(.02,101)=$S($D(^SC(D0,99)):^(99),1:""
)
"^DD",2,2.98,.02,21,0)
^^3^3^2911214^^
"^DD",2,2.98,.02,21,1,0)
This is a computed field which returns the telephone number for the clinic
"^DD",2,2.98,.02,21,2,0)
at which this patient has an appointment.  This information is stored in
"^DD",2,2.98,.02,21,3,0)
the HOSPITAL LOCATION file.
"^DD",2,2.98,.02,"DT")
2830406
"^DD",2,2.98,3,0)
STATUS^S^N:NO-SHOW;C:CANCELLED BY CLINIC;NA:NO-SHOW & AUTO RE-BOOK;CA:CANCELLED 
BY CLINIC & AUTO RE-BOOK;I:INPATIENT APPOINTMENT;PC:CANCELLED BY PATIENT;PCA:CAN
CELLED BY PATIENT & AUTO-REBOOK;NT:NO ACTION TAKEN;^0;2^Q
"^DD",2,2.98,3,1,0)
^.1
"^DD",2,2.98,3,1,1,0)
2^ASDCN^MUMPS
"^DD",2,2.98,3,1,1,1)
D:X["C" ^SDCAN
"^DD",2,2.98,3,1,1,2)
K ^DPT("ASDCN",$P(^(0),"^"),DA,DA(1))
"^DD",2,2.98,3,21,0)
^^5^5^2930617^^
"^DD",2,2.98,3,21,1,0)
This field contains the current status of the patient's appointment.  If
"^DD",2,2.98,3,21,2,0)
the field is blank, it means the appointment has not been no-showed or
"^DD",2,2.98,3,21,3,0)
cancelled and the patient was not an inpatient at the time of the
"^DD",2,2.98,3,21,4,0)
appointment.  This field is set automatically by the scheduling module and
"^DD",2,2.98,3,21,5,0)
must NOT be edited.
"^DD",2,2.98,3,"DT")
2911127
"^DD",2,2.98,4,0)
REAL APPOINTMENT^BC^^ ; ^S Y(4,1)=$S($D(^DPT(D0,"S",D1,0)):^(0),1:"") S X=$P(Y(4
,1),U,2)=""
"^DD",2,2.98,4,9)
^
"^DD",2,2.98,4,9.1)
STATUS=""
"^DD",2,2.98,4,21,0)
^^4^4^2911214^
"^DD",2,2.98,4,21,1,0)
This is a computed field which determines whether the appointment is
"^DD",2,2.98,4,21,2,0)
considered real (kept).  This field checks to see that the status is null
"^DD",2,2.98,4,21,3,0)
(this means the appointment is not no-showed or cancelled and the patient
"^DD",2,2.98,4,21,4,0)
was not an inpatient at the time of the appointment).
"^DD",2,2.98,5,0)
LAB DATE/TIME^D^^0;3^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,5,21,0)
^^3^3^2911214^
"^DD",2,2.98,5,21,1,0)
If this patient is scheduled for laboratory tests in conjunction with this
"^DD",2,2.98,5,21,2,0)
appointment, enter the date/time the patient should report to the lab for
"^DD",2,2.98,5,21,3,0)
these tests.
"^DD",2,2.98,5,"DT")
2870505
"^DD",2,2.98,6,0)
X-RAY DATE/TIME^D^^0;4^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,6,21,0)
^^3^3^2911214^
"^DD",2,2.98,6,21,1,0)
If this patient is scheduled for x-rays in conjunction with this
"^DD",2,2.98,6,21,2,0)
appointment, enter the date/time the patient should report to radiology
"^DD",2,2.98,6,21,3,0)
for these x-rays.
"^DD",2,2.98,6,"DT")
2870505
"^DD",2,2.98,7,0)
EKG DATE/TIME^D^^0;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,7,21,0)
^^2^2^2911214^
"^DD",2,2.98,7,21,1,0)
If this patient is scheduled for EKG tests in conjuction with this clinic
"^DD",2,2.98,7,21,2,0)
appointment, enter the date/time the patient should report for these tests.
"^DD",2,2.98,7,"DT")
2870505
"^DD",2,2.98,8,0)
ROUTING SLIP PRINTED^S^Y:YES;^0;6^Q
"^DD",2,2.98,8,21,0)
^^3^3^2911214^
"^DD",2,2.98,8,21,1,0)
If a routing sheet was printed for this appointment, this field will
"^DD",2,2.98,8,21,2,0)
contain a yes.  Otherwise this field will contain a no.  This is created
"^DD",2,2.98,8,21,3,0)
automatically by the scheduling module.
"^DD",2,2.98,8,"DT")
2831230
"^DD",2,2.98,8.5,0)
ROUTING SLIP PRINT DATE^D^^0;13^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,8.5,3)
The date the routing slip was printed.
"^DD",2,2.98,8.5,21,0)
^^2^2^2911214^
"^DD",2,2.98,8.5,21,1,0)
If a routing sheet was printed for this visit, the date it was printed will
"^DD",2,2.98,8.5,21,2,0)
be stored here.  This is stored automatically by the MAS module.
"^DD",2,2.98,8.5,"DT")
2860317
"^DD",2,2.98,9,0)
PURPOSE OF VISIT^RS^1:C&P;2:10-10;3:SCHEDULED VISIT;4:UNSCHED. VISIT;^0;7^Q
"^DD",2,2.98,9,3)
Enter the reason for this appointment.  Choose from the available choices.
"^DD",2,2.98,9,21,0)
^^6^6^2911214^
"^DD",2,2.98,9,21,1,0)
Choose from the list of available choices the reason this patient has
"^DD",2,2.98,9,21,2,0)
this clinic appointment.  Enter 1010 if this patient was sent to the
"^DD",2,2.98,9,21,3,0)
clinic after a 1010 application (registration).  Enter C&P if this patient
"^DD",2,2.98,9,21,4,0)
is being seen for a comp and pension exam.  Enter scheduled visit if this
"^DD",2,2.98,9,21,5,0)
patient is being seen for a previously scheduled appointment or unsched.
"^DD",2,2.98,9,21,6,0)
visit if the patient is a walk-in.
"^DD",2,2.98,9,"DT")
2841030
"^DD",2,2.98,9.5,0)
APPOINTMENT TYPE^P409.1'^SD(409.1,^0;16^Q
"^DD",2,2.98,9.5,1,0)
^.1
"^DD",2,2.98,9.5,1,1,0)
^^TRIGGER^409.68^.1
"^DD",2,2.98,9.5,1,1,1)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.98,9.5,1,1,89.2) S Y(101)=$S($D(^
SCE(D0,0)):^(0),1:"") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"",1:$P(^(0),U,1
)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(2.98,9.5,1,1,1.4)
"^DD",2,2.98,9.5,1,1,1.4)
S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=
409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.98,9.5,1,1,2)
K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.98,9.5,1,1,89.2) S Y(101)=$S($D(^
SCE(D0,0)):^(0),1:"") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"",1:$P(^(0),U,1
)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X="" X ^DD(2.98,9.5,1,1,2.4)
"^DD",2,2.98,9.5,1,1,2.4)
S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=
409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
"^DD",2,2.98,9.5,1,1,89.2)
S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DPT(D0,"S",D1,
0)):^(0),1:""),D0=$P(Y(1),U,20) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0
"^DD",2,2.98,9.5,1,1,"CREATE VALUE")
S X=X
"^DD",2,2.98,9.5,1,1,"DELETE VALUE")
@
"^DD",2,2.98,9.5,1,1,"FIELD")
OUTPATIENT ENCOUNTER:#.1
"^DD",2,2.98,9.5,3)
Enter from the available choices the type of appointment this patient has.
"^DD",2,2.98,9.5,21,0)
^^2^2^2911214^
"^DD",2,2.98,9.5,21,1,0)
Enter from the available choices the type of appointment this patient is
"^DD",2,2.98,9.5,21,2,0)
scheduled for.  This is a pointer to the APPOINTMENT TYPE file.
"^DD",2,2.98,9.5,"DT")
2930407
"^DD",2,2.98,10,0)
SPECIAL SURVEY DISPOSITION^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
"^DD",2,2.98,10,3)
TYPE A WHOLE NUMBER BETWEEN 0 AND 9
"^DD",2,2.98,10,21,0)
^^3^3^2911224^
"^DD",2,2.98,10,21,1,0)
If this patinet is claiming exposure to agent orange or ionizing radiation,
"^DD",2,2.98,10,21,2,0)
enter the special survey disposition, indicating whether his treatment was
"^DD",2,2.98,10,21,3,0)
related to that exposure, here.
"^DD",2,2.98,10,"DT")
2840924
"^DD",2,2.98,11,0)
NUMBER OF COLLATERAL SEEN^NJ1,0^^0;9^K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
"^DD",2,2.98,11,3)
TYPE A WHOLE NUMBER BETWEEN 1 AND 9
"^DD",2,2.98,11,21,0)
^^2^2^2911224^
"^DD",2,2.98,11,21,1,0)
If this patient is a collateral, enter the number assigned to that
"^DD",2,2.98,11,21,2,0)
collateral.
"^DD",2,2.98,11,"DT")
2840228
"^DD",2,2.98,12,0)
AUTO-REBOOKED APPT. DATE/TIME^D^^0;10^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,12,21,0)
^^4^4^2911214^
"^DD",2,2.98,12,21,1,0)
If this appointment was cancelled and automatically rebooked for a future
"^DD",2,2.98,12,21,2,0)
date, this field will contain the date/time for which this appointment
"^DD",2,2.98,12,21,3,0)
was rescheduled.  This field is created automatically by the scheduling
"^DD",2,2.98,12,21,4,0)
module and should not be edited.
"^DD",2,2.98,12,"DT")
2870505
"^DD",2,2.98,13,0)
COLLATERAL VISIT^S^1:YES;^0;11^Q
"^DD",2,2.98,13,21,0)
^^2^2^2911214^
"^DD",2,2.98,13,21,1,0)
If this patient was seen as a collateral for another patient, enter YES
"^DD",2,2.98,13,21,2,0)
in this field.  Otherwise, enter NO.
"^DD",2,2.98,13,"DT")
2840913
"^DD",2,2.98,14,0)
NO-SHOW/CANCELLED BY^P200'^VA(200,^0;12^Q
"^DD",2,2.98,14,21,0)
^^4^4^2911214^
"^DD",2,2.98,14,21,1,0)
If this appointment was listed as a no-show and was that no-show was
"^DD",2,2.98,14,21,2,0)
subsequently cancelled, this field will contain the user that cancelled
"^DD",2,2.98,14,21,3,0)
the no-show.  This field is set automatically by the MAS module and should
"^DD",2,2.98,14,21,4,0)
not be edited.
"^DD",2,2.98,14,"DT")
2901017
"^DD",2,2.98,15,0)
NO-SHOW/CANCEL DATE/TIME^D^^0;14^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,15,21,0)
^^4^4^2911214^
"^DD",2,2.98,15,21,1,0)
If this appointment was listed as a no-show and that no-show was
"^DD",2,2.98,15,21,2,0)
subsequently cancelled, this field will contain the date/time the no-show
"^DD",2,2.98,15,21,3,0)
was cancelled.  This field is set automatically by the scheduling module
"^DD",2,2.98,15,21,4,0)
and should not be edited.
"^DD",2,2.98,15,"DT")
2860909
"^DD",2,2.98,16,0)
CANCELLATION REASON^R*P409.2'^SD(409.2,^0;15^S DIC("S")="I '$P(^(0),U,4)" D ^DIC
 K DIC S DIC=DIE,X=+Y K:Y<0 X
"^DD",2,2.98,16,12)
CHOOSE FROM ACTIVE REASONS ONLY
"^DD",2,2.98,16,12.1)
S DIC("S")="I '$P(^(0),U,4)"
"^DD",2,2.98,16,21,0)
^^3^3^2911214^
"^DD",2,2.98,16,21,1,0)
If this appointment was cancelled, this field will contain the reason the
"^DD",2,2.98,16,21,2,0)
appointment was cancelled.  Choose from the available entries in the
"^DD",2,2.98,16,21,3,0)
CANCELLATION REASONS file.
"^DD",2,2.98,16,"DT")
2880412
"^DD",2,2.98,17,0)
CANCELLATION REMARKS^F^^R;1^K:$L(X)>160!($L(X)<3) X
"^DD",2,2.98,17,3)
ANSWER MUST BE 3-160 CHARACTERS IN LENGTH
"^DD",2,2.98,17,21,0)
^^2^2^2911214^
"^DD",2,2.98,17,21,1,0)
If thsi appointment was cancelled, additional remarks as to the reason
"^DD",2,2.98,17,21,2,0)
the appointment was cancelled can be entered.  This is optional.
"^DD",2,2.98,17,"DT")
2880329
"^DD",2,2.98,18,0)
APPT. CANCELLED^P44'^SC(^0;17^Q
"^DD",2,2.98,18,21,0)
^^4^4^2880623^^
"^DD",2,2.98,18,21,1,0)
Field is set when user cancels another appointment set at the same time
"^DD",2,2.98,18,21,2,0)
in another clinic for the same patient. This field reflects the clinic
"^DD",2,2.98,18,21,3,0)
in which the patient had a scheduled appointment which was cancelled to
"^DD",2,2.98,18,21,4,0)
set this appointment.
"^DD",2,2.98,18,"DT")
2880401
"^DD",2,2.98,19,0)
DATA ENTRY CLERK^P200'^VA(200,^0;18^Q
"^DD",2,2.98,19,21,0)
^^3^3^2911214^^
"^DD",2,2.98,19,21,1,0)
This field contains the name of the user that entered the appointment
"^DD",2,2.98,19,21,2,0)
into the scheduling system.  This field is created automatically by the
"^DD",2,2.98,19,21,3,0)
scheduling module and should not be edited.
"^DD",2,2.98,19,"DT")
2901017
"^DD",2,2.98,20,0)
DATE APPT. MADE^D^^0;19^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,20,1,0)
^.1
"^DD",2,2.98,20,1,1,0)
2^ASADM^MUMPS
"^DD",2,2.98,20,1,1,1)
S ^DPT("ASADM",$E(X,1,30),DA(1),DA)=""
"^DD",2,2.98,20,1,1,2)
K ^DPT("ASADM",$E(X,1,30),DA(1),DA)
"^DD",2,2.98,20,1,1,"DT")
2991105
"^DD",2,2.98,20,21,0)
^^3^3^2911214^
"^DD",2,2.98,20,21,1,0)
This field contains the date the appointment was entered into sheduling
"^DD",2,2.98,20,21,2,0)
system.  This field is creatd automatically by the scheduling module and
"^DD",2,2.98,20,21,3,0)
should not be edited.
"^DD",2,2.98,20,"DT")
2991105
"^DD",2,2.98,21,0)
OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;20^Q
"^DD",2,2.98,21,"DT")
2930209
"^DD",2,2.98,22,0)
ENCOUNTER FORMS PRINTED^S^0:NO;1:YES;^0;21^Q
"^DD",2,2.98,22,3)
Enter YES if the required encounter forms and reports have been printed for the 
appointment.
"^DD",2,2.98,22,21,0)
^^3^3^2930924^
"^DD",2,2.98,22,21,1,0)
Used by the Print Manager to indicate that it has printed
"^DD",2,2.98,22,21,2,0)
the encounter forms and other reports required by the division and
"^DD",2,2.98,22,21,3,0)
clinic for the appointment.
"^DD",2,2.98,22,23,0)
^^2^2^2930924^^^
"^DD",2,2.98,22,23,1,0)
Used by IB to indicate whether or not encounter forms have been printed
"^DD",2,2.98,22,23,2,0)
for the patient.
"^DD",2,2.98,22,"DT")
2930922
"^DD",2,2.98,23,0)
ENCOUNTER FORMS AS ADD-ONS^S^0:NO;1:YES;^0;22^Q
"^DD",2,2.98,23,3)
Enter YES if the required encounter forms and reports have been printed for the 
appointment as an add-on.
"^DD",2,2.98,23,21,0)
^^3^3^2930924^
"^DD",2,2.98,23,21,1,0)
Used by the Print Manager to indicate that it has printed
"^DD",2,2.98,23,21,2,0)
the encounter forms and other reports required by the division and
"^DD",2,2.98,23,21,3,0)
clinic for the appointment and they were printed as an add-on.
"^DD",2,2.98,23,23,0)
^^2^2^2930924^^^
"^DD",2,2.98,23,23,1,0)
Used by IB to indicate that encounter forms & reports were printed as an
"^DD",2,2.98,23,23,2,0)
add-on.
"^DD",2,2.98,23,"DT")
2930922
"^DD",2,2.98,23.1,0)
ENCOUNTER CONVERSION STATUS^S^0:NOT CONVERTED;1:CONVERTED;^0;23^Q
"^DD",2,2.98,23.1,3)

"^DD",2,2.98,23.1,21,0)
^^5^5^2991228^
"^DD",2,2.98,23.1,21,1,0)
This field indicates whether or not this appointment was converted  
"^DD",2,2.98,23.1,21,2,0)
during the ACRP Database Conversion (SD*5.3*211).
"^DD",2,2.98,23.1,21,3,0)
 
"^DD",2,2.98,23.1,21,4,0)
The field is set to '1' after the appointment has been converted
"^DD",2,2.98,23.1,21,5,0)
by the conversion software.                                         
"^DD",2,2.98,23.1,"DT")
2980114
"^DD",2,2.98,24,0)
APPOINTMENT TYPE SUB-CATEGORY^P35.2'^DG(35.2,^0;24^Q
"^DD",2,2.98,24,3)
Please enter the sub-category associated with this appointment.
"^DD",2,2.98,24,21,0)
^^1^1^2970305^
"^DD",2,2.98,24,21,1,0)
This field contains the sub-category associated with this appoitment.
"^DD",2,2.98,24,"DT")
2970305
"^DD",2,2.98,25,0)
SCHEDULING REQUEST TYPE^RS^N:'NEXT AVAILABLE' APPT.;C:OTHER THAN 'NEXT AVA.' (CL
INICIAN REQ.);P:OTHER THAN 'NEXT AVA.' (PATIENT REQ.);W:WALKIN APPT.;M:MULTIPLE 
APPT. BOOKING;A:AUTO REBOOK;O:OTHER THAN 'NEXT AVA.' APPT.;^0;25^Q
"^DD",2,2.98,25,3)
Enter the type of request that initiated the scheduling of this appointment.
"^DD",2,2.98,25,"DT")
3001107
"^DD",2,2.98,26,0)
NEXT AVA. APPT. INDICATOR^RS^0:NOT INDICATED TO BE A 'NEXT AVA.' APPT.;1:'NEXT A
VA.' APPT. INDICATED BY USER;2:'NEXT AVA.' APPT. INDICATED BY CALCULATION;3:'NEX
T AVA.' APPT. INDICATED BY USER & CALCULATION;^0;26^Q
"^DD",2,2.98,26,3)
Specify if this appointment was indicated by the user or by calculation to be a 
'next available' appointment scheduling request.
"^DD",2,2.98,26,"DT")
2991105
"^DD",2,2.98,27,0)
DESIRED DATE OF APPOINTMENT^D^^1;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
"^DD",2,2.98,27,3)
This is the date the clinician or patient desired for the scheduling of this app
ointment.
"^DD",2,2.98,27,"DT")
3001107
"^DD",2,2.98,28,0)
FOLLOW-UP VISIT^S^1:YES;0:NO;^1;2^Q
"^DD",2,2.98,28,3)
Indicate if this is a follow-up visit for conditions already being treated by th
is clinician or clinic.
"^DD",2,2.98,28,"DT")
3001107
"^DD",2,2.98,100,0)
CURRENT STATUS^CJ35^^ ; ^D CURRENT^SDAMU
"^DD",2,2.98,100,9)
^
"^DD",2,2.98,100,9.01)

"^DD",2,2.98,100,9.1)
D CURRENT^SDAMU
"^DD",2,2.98,100,21,0)
^^12^12^2920715^^^
"^DD",2,2.98,100,21,1,0)
This computed field determines the current status for the
"^DD",2,2.98,100,21,2,0)
appointment. The difference between this field and the STATUS 
"^DD",2,2.98,100,21,3,0)
field is that appointments with a blank STATUS are further defined 
"^DD",2,2.98,100,21,4,0)
in this CURRENT STATUS field. 
"^DD",2,2.98,100,21,5,0)
 
"^DD",2,2.98,100,21,6,0)
Appointments with a blank STATUS may have a CURRENT STATUS of any
"^DD",2,2.98,100,21,7,0)
one of the following:
"^DD",2,2.98,100,21,8,0)
          o FUTURE
"^DD",2,2.98,100,21,9,0)
          o NO ACTION TAKEN
"^DD",2,2.98,100,21,10,0)
          o CHECKED IN
"^DD",2,2.98,100,21,11,0)
          o CHECKED OUT
"^DD",2,2.98,100,21,12,0)
          o NON-COUNT
"^DD",2,2.98,100,"DT")
2920212
"^DD",390.01,390.01,0)
FIELD^^3^6
"^DD",390.01,390.01,0,"DT")
3140916
"^DD",390.01,390.01,0,"IX","B",390.01,.01)

"^DD",390.01,390.01,0,"IX","C",390.01,1)

"^DD",390.01,390.01,0,"NM","MHV SOCIALIZATION")

"^DD",390.01,390.01,0,"PT",2.0537026,1)

"^DD",390.01,390.01,.001,0)
NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X
"^DD",390.01,390.01,.001,3)
Type a number between 1 and 99, 0 decimal digits.
"^DD",390.01,390.01,.001,"DT")
3140915
"^DD",390.01,390.01,.01,0)
NAME^RF^^0;1^K:$L(X)>60!($L(X)<3) X
"^DD",390.01,390.01,.01,1,0)
^.1
"^DD",390.01,390.01,.01,1,1,0)
390.01^B
"^DD",390.01,390.01,.01,1,1,1)
S ^DGMHV(390.01,"B",$E(X,1,30),DA)=""
"^DD",390.01,390.01,.01,1,1,2)
K ^DGMHV(390.01,"B",$E(X,1,30),DA)
"^DD",390.01,390.01,.01,3)
Answer must be 3-60 characters in length.
"^DD",390.01,390.01,.01,"DT")
3140915
"^DD",390.01,390.01,1,0)
DISPLAY SEQUENCE^NJ5,0^^1;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
"^DD",390.01,390.01,1,1,0)
^.1
"^DD",390.01,390.01,1,1,1,0)
390.01^C
"^DD",390.01,390.01,1,1,1,1)
S ^DGMHV(390.01,"C",$E(X,1,30),DA)=""
"^DD",390.01,390.01,1,1,1,2)
K ^DGMHV(390.01,"C",$E(X,1,30),DA)
"^DD",390.01,390.01,1,1,1,"DT")
3140915
"^DD",390.01,390.01,1,3)
Type a number between 0 and 99999, 0 decimal digits.
"^DD",390.01,390.01,1,"DT")
3140915
"^DD",390.01,390.01,1.5,0)
DISPLAY TEXT^RF^^3;1^K:$L(X)>250!($L(X)<3) X
"^DD",390.01,390.01,1.5,3)
Answer must be 3-250 characters in length.
"^DD",390.01,390.01,1.5,"DT")
3140915
"^DD",390.01,390.01,2,0)
PATIENT TEXT^390.12^^2;0
"^DD",390.01,390.01,3,0)
FOLLOWUP ACTION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
"^DD",390.01,390.01,3,3)
This is Standard MUMPS code.
"^DD",390.01,390.01,3,9)
@
"^DD",390.01,390.01,3,"DT")
3140916
"^DD",390.01,390.12,0)
PATIENT TEXT SUB-FIELD^^.01^1
"^DD",390.01,390.12,0,"DT")
3140915
"^DD",390.01,390.12,0,"NM","PATIENT TEXT")

"^DD",390.01,390.12,0,"UP")
390.01
"^DD",390.01,390.12,.01,0)
PATIENT TEXT^Wx^^0;1^Q
"^DD",390.01,390.12,.01,"DT")
3140915
"^DD",390.02,390.02,0)
FIELD^^.01^2
"^DD",390.02,390.02,0,"DT")
3140916
"^DD",390.02,390.02,0,"IX","B",390.02,.01)

"^DD",390.02,390.02,0,"NM","MHV SOCIALIZATION ACTIONS")

"^DD",390.02,390.02,0,"PT",2.5370262,.01)

"^DD",390.02,390.02,.001,0)
NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
"^DD",390.02,390.02,.001,3)
Type a number between 1 and 99, 0 decimal digits.
"^DD",390.02,390.02,.001,"DT")
3140915
"^DD",390.02,390.02,.01,0)
ACTION^RF^^0;1^K:$L(X)>120!($L(X)<3)!'(X'?1P.E) X
"^DD",390.02,390.02,.01,1,0)
^.1
"^DD",390.02,390.02,.01,1,1,0)
390.02^B
"^DD",390.02,390.02,.01,1,1,1)
S ^DGMHV(390.02,"B",$E(X,1,30),DA)=""
"^DD",390.02,390.02,.01,1,1,2)
K ^DGMHV(390.02,"B",$E(X,1,30),DA)
"^DD",390.02,390.02,.01,3)
Answer must be 3-120 characters in length.
"^DD",390.02,390.02,.01,"DT")
3140915
"^DIC",2,2,0)
PATIENT^2I
"^DIC",2,2,0,"GL")
^DPT(
"^DIC",2,2,"%",0)
^1.005^7^7
"^DIC",2,2,"%",1,0)
LR
"^DIC",2,2,"%",2,0)
RA
"^DIC",2,2,"%",3,0)
PS
"^DIC",2,2,"%",4,0)
DG
"^DIC",2,2,"%",5,0)
SD
"^DIC",2,2,"%",6,0)
RT
"^DIC",2,2,"%",7,0)
QAM
"^DIC",2,2,"%","B","DG",4)

"^DIC",2,2,"%","B","LR",1)

"^DIC",2,2,"%","B","PS",3)

"^DIC",2,2,"%","B","QAM",7)

"^DIC",2,2,"%","B","RA",2)

"^DIC",2,2,"%","B","RT",6)

"^DIC",2,2,"%","B","SD",5)

"^DIC",2,2,"%D",0)
^^16^16^2960510^^^^
"^DIC",2,2,"%D",1,0)
The PATIENT file contains all the patients followed by the medical center/
"^DIC",2,2,"%D",2,0)
Outpatient clinic.  At a minimum each patient entry must have a NAME, DATE
"^DIC",2,2,"%D",3,0)
OF BIRTH and SOCIAL SECURITY NUMBER.  In order to add a new patient to the
"^DIC",2,2,"%D",4,0)
PATIENT file the user must also indicate whether or not the patient is
"^DIC",2,2,"%D",5,0)
requesting to receive care as a VETERAN of the U.S. Armed Forces and
"^DIC",2,2,"%D",6,0)
specify the TYPE of patient being added to the system.  For the most
"^DIC",2,2,"%D",7,0)
part the information contained in this file is demographic in nature,
"^DIC",2,2,"%D",8,0)
i.e., address, employment, service history, etc., however data
"^DIC",2,2,"%D",9,0)
concerning admissions, appointments,etc., is also stored in this file.
"^DIC",2,2,"%D",10,0)
The ADMISSION sub-field is scheduled to be moved into the new PATIENT
"^DIC",2,2,"%D",11,0)
MOVEMENT file by the end of calendar year 1989.  Care should be used
"^DIC",2,2,"%D",12,0)
when removing a patient from the PATIENT file since virtually all
"^DIC",2,2,"%D",13,0)
other DHCP modules do utilize data from this file.  Of the many fields
"^DIC",2,2,"%D",14,0)
in the file you will note that many are preceeded by an asterisk.
"^DIC",2,2,"%D",15,0)
Those fields are scheduled to be removed from the file due to either
"^DIC",2,2,"%D",16,0)
lack of use or replacement by another field/file in the next release.
"^DIC",2,"B","PATIENT",2)

"^DIC",390.01,390.01,0)
MHV SOCIALIZATION^390.01
"^DIC",390.01,390.01,0,"GL")
^DGMHV(390.01,
"^DIC",390.01,"B","MHV SOCIALIZATION",390.01)

"^DIC",390.02,390.02,0)
MHV SOCIALIZATION ACTIONS^390.02
"^DIC",390.02,390.02,0,"GL")
^DGMHV(390.02,
"^DIC",390.02,"B","MHV SOCIALIZATION ACTIONS",390.02)

**END**
**END**