|
Last change
on this file since 841 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
633 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
