source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZF1A.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 633 bytes
Line 
1EASEZF1A ;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)"
9F32102(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.