ANSUAD.m

ANSUAD ;IHS/OIRM/DSD/CSC - SELECT PRIOR ADMISSION; [ 02/25/98  10:32 AM ]

 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 ;;SELECT PRIOR ADMISSION

Z K ANSADM,A

A1 S DIC="^ANSR(",DIC(0)="AEMQZ",DIC("A")="Admission Date or Patient Name: "

 D DIC^ANSDIC

 Q:$D(DTOUT)!$D(DUOUT)!($G(Y)<1)

 S ANSADM=+Y

 Q

ANSUAD    ;IHS/OIRM/DSD/CSC - SELECT PRIOR ADMISSION; [ 02/25/98  10:32 AM ]

 +1       ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 +2       ;;SELECT PRIOR ADMISSION

Z          KILL ANSADM,A

A1         SET DIC="^ANSR("

           SET DIC(0)="AEMQZ"

           SET DIC("A")="Admission Date or Patient Name: "

 +1        DO DIC^ANSDIC

 +2        IF $DATA(DTOUT)!$DATA(DUOUT)!($GET(Y)<1)

               QUIT 

 +3        SET ANSADM=+Y

 +4        QUIT