Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
633 bytes
|
Line | |
---|
1 | EASEZF1A ;ALB/ma-Filing 1010EZ Data to Patient Database(AO) ;11/09/04 13:07
|
---|
2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Nov 9, 2004
|
---|
3 | ;
|
---|
4 | Q
|
---|
5 | ; File value "V(ietnam)" in Patient File #2
|
---|
6 | ; in field "Agent Orange Location" #3213
|
---|
7 | ; if answer is "Y(es)" in the field "Agent Orange exposure"
|
---|
8 | ; and File NULL if "N(o)"
|
---|
9 | F32102(EASAPP,EASDFN,EASDATA) ; File Value to Patient File #2
|
---|
10 | ;input EASAPP = ien to file #712
|
---|
11 | ; EASDFN = ien to #2
|
---|
12 | ; EASDATA = Agent Orange Exposure ("Y/N")
|
---|
13 | ;
|
---|
14 | N EZAOL,EZIENS
|
---|
15 | S EZIENS=EASDFN_","
|
---|
16 | S EZAOL(EASAPP,2,EZIENS,.3213)=$S(EASDATA["Y":"V",1:"")
|
---|
17 | D FILE^DIE("","EZAOL("_EASAPP_")","ERR")
|
---|
18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.