EASEZF1A.m

EASEZF1A ;ALB/ma-Filing 1010EZ Data to Patient Database(AO) ;11/09/04  13:07

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Nov 9, 2004

 ;

 Q

 ; File value "V(ietnam)" in Patient File #2

 ;  in field "Agent Orange Location" #3213

 ;  if answer is "Y(es)" in the field "Agent Orange exposure"

 ;  and File NULL if "N(o)"

F32102(EASAPP,EASDFN,EASDATA) ; File Value to Patient File #2

 ;input  EASAPP = ien to file #712

 ;       EASDFN = ien to #2

 ;       EASDATA = Agent Orange Exposure ("Y/N")

 ;

 N EZAOL,EZIENS

 S EZIENS=EASDFN_","

 S EZAOL(EASAPP,2,EZIENS,.3213)=$S(EASDATA["Y":"V",1:"")

 D FILE^DIE("","EZAOL("_EASAPP_")","ERR")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EASEZF1A   651     printed  Apr 09, 2024@20:58:36                                                                                                                                                                                                     Page 2

EASEZF1A  ;ALB/ma-Filing 1010EZ Data to Patient Database(AO) ;11/09/04  13:07

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**57**;Nov 9, 2004

 +2       ;

 +3        QUIT 

 +4       ; File value "V(ietnam)" in Patient File #2

 +5       ;  in field "Agent Orange Location" #3213

 +6       ;  if answer is "Y(es)" in the field "Agent Orange exposure"

 +7       ;  and File NULL if "N(o)"

F32102(EASAPP,EASDFN,EASDATA) ; File Value to Patient File #2

 +1       ;input  EASAPP = ien to file #712

 +2       ;       EASDFN = ien to #2

 +3       ;       EASDATA = Agent Orange Exposure ("Y/N")

 +4       ;

 +5        NEW EZAOL,EZIENS

 +6        SET EZIENS=EASDFN_","

 +7        SET EZAOL(EASAPP,2,EZIENS,.3213)=$SELECT(EASDATA["Y":"V",1:"")

 +8        DO FILE^DIE("","EZAOL("_EASAPP_")","ERR")

 +9        QUIT