Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (14 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASEZPF.m

    r628 r636  
    1 EASEZPF ;ALB/SCK/GAH - Print 1010EZ Enrollment form ; 10/19/2000
    2  ;;1.0;ENROLLMENT APPLICATION SYSTEM;**44,51,84**;Sep 5, 2006;Build 2
     1EASEZPF ;ALB/SCK - Print 1010EZ Enrollment form ; 10/19/2000
     2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**44,51**;Mar 15, 2001
    33 ;
    44 ; These routines print a version of the OMB approved VA10-10EZ form.
    … …  
    2525 ;
    2626 S EASAPP=$G(EASAPP),EASDFN=$G(EASDFN)
    27  ; Can't be a slave
     27 ;
    2828 S %ZIS="Q",%ZIS("S")="I $P($G(^(1)),U)'[""SLAVE""&($P($G(^(0)),U)'[""SLAVE"")"
    2929 D ^%ZIS
    3030 ;
    3131 G:POP EXIT
     32 S ZUSR=DUZ,ZTRTN="EN^EASEZPF",ZTDESC="1010EZ PRINT"
    3233 ;EAS*1*51 -- if version # 6 or greater, use new print format
    33  S ZTRTN="EN^EASEZPF"
    3434 I '$G(EASVRSN) S EASVRSN=$$VERSION^EASEZU4(EASAPP)
    3535 I '(EASVRSN<6) S ZTRTN="EN^EASEZP6F"
    36  ; Either queue for print or print manually by user choice (EAS*1.0*84)
    37  I $D(IO("Q")) D  G EXIT ;Queued print chosen
    38  . S ZUSR=DUZ,ZTDESC="1010EZ PRINT"
    39  . F X="ZUSR","EASAPP","EASDFN" S ZTSAVE(X)=""
    40  . D ^%ZTLOAD
    41  . D HOME^%ZIS
    4236 ;
    43  ;Manual print chosen
    44  D @ZTRTN
    45  D ^%ZISC
    46  G EXIT
     37 F X="ZUSR","EASAPP","EASDFN" S ZTSAVE(X)=""
     38 D ^%ZTLOAD
     39 D HOME^%ZIS
    4740 ;
    4841EXIT Q +$G(ZTSK)
Note: See TracChangeset for help on using the changeset viewer.