| [613] | 1 | PRSDPRNT ;HISC/GWB-FILEMAN PRINT AND SEARCH CALLS ;6/14/93 09:34
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | PRNT05 ;Personnel Print Option
|
|---|
| 4 | S PRSDUZ=DUZ(0),ASKFLG="P"
|
|---|
| 5 | PRNT05A S DUZ(0)=DUZ(0)_"P",DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""P"""
|
|---|
| 6 | D ASK G:%=-1 EXIT
|
|---|
| 7 | S L=1,DIC=450 D EN1^DIP
|
|---|
| 8 | I $D(X),(X=U)!(X="") G EXIT
|
|---|
| 9 | W !! G PRNT05A
|
|---|
| 10 | SRCH05 ;Personnel Search Option
|
|---|
| 11 | S PRSDUZ=DUZ(0),ASKFLG="S"
|
|---|
| 12 | SRCH05A S DUZ(0)=DUZ(0)_"P",DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""P"""
|
|---|
| 13 | D ASK G:%=-1 EXIT
|
|---|
| 14 | S DIC=450 D EN^DIS
|
|---|
| 15 | I $D(X),(X=U)!(X="") G EXIT
|
|---|
| 16 | W !! G SRCH05A
|
|---|
| 17 | PRNT04 ;Fiscal Print Option
|
|---|
| 18 | S PRSDUZ=DUZ(0),ASKFLG="P"
|
|---|
| 19 | PRNT04A S DIC="^DIC(",DIC(0)="AQEI",DIC("B")=450
|
|---|
| 20 | S DIC("S")="I (Y=450)!(Y=458)!(Y=459)" D ^DIC
|
|---|
| 21 | G:Y=-1 EXIT
|
|---|
| 22 | I +Y=450 S DUZ(0)=DUZ(0)_"F",DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""F""" D ASK G:%=-1 EXIT
|
|---|
| 23 | S L=1,DIC=+Y D EN1^DIP
|
|---|
| 24 | I $D(X),(X=U)!(X="") G EXIT
|
|---|
| 25 | W !! G PRNT04A
|
|---|
| 26 | SRCH04 ;Fiscal Search Option
|
|---|
| 27 | S PRSDUZ=DUZ(0),ASKFLG="S"
|
|---|
| 28 | SRCH04A S DIC="^DIC(",DIC(0)="AQEI",DIC("B")=450
|
|---|
| 29 | S DIC("S")="I (Y=450)!(Y=458)!(Y=459)" D ^DIC
|
|---|
| 30 | G:Y=-1 EXIT
|
|---|
| 31 | I +Y=450 S DUZ(0)=DUZ(0)_"F",DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""F""" D ASK G:%=-1 EXIT
|
|---|
| 32 | S DIC=+Y D EN^DIS
|
|---|
| 33 | I $D(X),(X=U)!(X="") G EXIT
|
|---|
| 34 | W !! G SRCH04A
|
|---|
| 35 | EXIT S DUZ(0)=PRSDUZ
|
|---|
| 36 | K %,ASKFLG,DIC,DICS,L,PRSDUZ,Y,DIS(0) W @IOF Q
|
|---|
| 37 | ASK S %=2 W !!,"Include separated employees" D YN^DICN
|
|---|
| 38 | Q:%=-1
|
|---|
| 39 | I %=0 W !!,"Answer NO if you wish your output to EXCLUDE separated employees.",!,"Answer YES if you wish your output to INCLUDE separated employees." G ASK
|
|---|
| 40 | I %=2,ASKFLG="P" S DIS(1)="I $D(^PRSPC(D0,1)),$P(^PRSPC(D0,1),U,33)=""N"""
|
|---|
| 41 | I %=2,ASKFLG="S" S DIS(0)="I $D(^PRSPC(D0,1)),$P(^PRSPC(D0,1),U,33)=""N"""
|
|---|
| 42 | W:%=1 !!,"Separated employees will be included.",!
|
|---|
| 43 | W:%=2 !!,"Separated employees will not be included.",!
|
|---|
| 44 | Q
|
|---|
