source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDPRNT.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1PRSDPRNT ;HISC/GWB-FILEMAN PRINT AND SEARCH CALLS ;6/14/93 09:34
2 ;;4.0;PAID;;Sep 21, 1995
3PRNT05 ;Personnel Print Option
4 S PRSDUZ=DUZ(0),ASKFLG="P"
5PRNT05A 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
10SRCH05 ;Personnel Search Option
11 S PRSDUZ=DUZ(0),ASKFLG="S"
12SRCH05A 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
17PRNT04 ;Fiscal Print Option
18 S PRSDUZ=DUZ(0),ASKFLG="P"
19PRNT04A 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
26SRCH04 ;Fiscal Search Option
27 S PRSDUZ=DUZ(0),ASKFLG="S"
28SRCH04A 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
35EXIT S DUZ(0)=PRSDUZ
36 K %,ASKFLG,DIC,DICS,L,PRSDUZ,Y,DIS(0) W @IOF Q
37ASK 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
Note: See TracBrowser for help on using the repository browser.