AHIPAS05        ;NC/RLP Print Patient Statements by Ward and Type    18-Nov-02
        ;;v1.0
        ;
EN      D END
        ;
        ;
V       W !!,"REMEMBER, this option requires a printer with a line length of at"
        W !,"least 132 Characters and a Page Length of at least 62 lines.",!
        ;
        ;
        S DIC=42,DIC(0)="AEMQ",DIC("A")="Select Patient Ward: "
        S DIC("S")="N D0,X S D0=+Y D WIN^DGPMDDCF I 'X"
        D ^DIC I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) G END
        I Y'>0 G END
        S WARD=$P(Y,U,2)
        ;
        ;
TYPE    S DIR(0)="S^R:RESTRICTED;U:UNRESTRICTED"
        S DIR("A")="Select Type of Account"
        D ^DIR K DIR I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) G END
        S PATTYPE=Y(0)
        ;
        ;
DATE    D DATE^PRPFNQ
        I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) G END
        ;
        ;
PRNT    S DIC=470,BY="52,2",(TO,FR)=""_WARD_","_PATTYPE_""
        S FLDS="[PRPF CARD]",L=0
        D EN1^DIP
        ;
        ;
END     K BDATE,BDATE1,BY,DIC,DIR,DIROUT,DTOUT,DUOUT,DFN,DOA,FLDS,FR,L
        K PATTYPE,TO,WARD,Y
        Q