PRSDPRNT ;HISC/GWB-FILEMAN PRINT AND SEARCH CALLS ;6/14/93 09:34
;;4.0;PAID;;Sep 21, 1995
PRNT05 ;Personnel Print Option
S PRSDUZ=DUZ(0),ASKFLG="P"
PRNT05A S DUZ(0)=DUZ(0)_"P",DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""P"""
D ASK G:%=-1 EXIT
S L=1,DIC=450 D EN1^DIP
I $D(X),(X=U)!(X="") G EXIT
W !! G PRNT05A
SRCH05 ;Personnel Search Option
S PRSDUZ=DUZ(0),ASKFLG="S"
SRCH05A S DUZ(0)=DUZ(0)_"P",DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""P"""
D ASK G:%=-1 EXIT
S DIC=450 D EN^DIS
I $D(X),(X=U)!(X="") G EXIT
W !! G SRCH05A
PRNT04 ;Fiscal Print Option
S PRSDUZ=DUZ(0),ASKFLG="P"
PRNT04A S DIC="^DIC(",DIC(0)="AQEI",DIC("B")=450
S DIC("S")="I (Y=450)!(Y=458)!(Y=459)" D ^DIC
G:Y=-1 EXIT
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
S L=1,DIC=+Y D EN1^DIP
I $D(X),(X=U)!(X="") G EXIT
W !! G PRNT04A
SRCH04 ;Fiscal Search Option
S PRSDUZ=DUZ(0),ASKFLG="S"
SRCH04A S DIC="^DIC(",DIC(0)="AQEI",DIC("B")=450
S DIC("S")="I (Y=450)!(Y=458)!(Y=459)" D ^DIC
G:Y=-1 EXIT
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
S DIC=+Y D EN^DIS
I $D(X),(X=U)!(X="") G EXIT
W !! G SRCH04A
EXIT S DUZ(0)=PRSDUZ
K %,ASKFLG,DIC,DICS,L,PRSDUZ,Y,DIS(0) W @IOF Q
ASK S %=2 W !!,"Include separated employees" D YN^DICN
Q:%=-1
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
I %=2,ASKFLG="P" S DIS(1)="I $D(^PRSPC(D0,1)),$P(^PRSPC(D0,1),U,33)=""N"""
I %=2,ASKFLG="S" S DIS(0)="I $D(^PRSPC(D0,1)),$P(^PRSPC(D0,1),U,33)=""N"""
W:%=1 !!,"Separated employees will be included.",!
W:%=2 !!,"Separated employees will not be included.",!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDPRNT 1777 printed Nov 22, 2024@17:35:59 Page 2
PRSDPRNT ;HISC/GWB-FILEMAN PRINT AND SEARCH CALLS ;6/14/93 09:34
+1 ;;4.0;PAID;;Sep 21, 1995
PRNT05 ;Personnel Print Option
+1 SET PRSDUZ=DUZ(0)
SET ASKFLG="P"
PRNT05A SET DUZ(0)=DUZ(0)_"P"
SET DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""P"""
+1 DO ASK
if %=-1
GOTO EXIT
+2 SET L=1
SET DIC=450
DO EN1^DIP
+3 IF $DATA(X)
IF (X=U)!(X="")
GOTO EXIT
+4 WRITE !!
GOTO PRNT05A
SRCH05 ;Personnel Search Option
+1 SET PRSDUZ=DUZ(0)
SET ASKFLG="S"
SRCH05A SET DUZ(0)=DUZ(0)_"P"
SET DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""P"""
+1 DO ASK
if %=-1
GOTO EXIT
+2 SET DIC=450
DO EN^DIS
+3 IF $DATA(X)
IF (X=U)!(X="")
GOTO EXIT
+4 WRITE !!
GOTO SRCH05A
PRNT04 ;Fiscal Print Option
+1 SET PRSDUZ=DUZ(0)
SET ASKFLG="P"
PRNT04A SET DIC="^DIC("
SET DIC(0)="AQEI"
SET DIC("B")=450
+1 SET DIC("S")="I (Y=450)!(Y=458)!(Y=459)"
DO ^DIC
+2 if Y=-1
GOTO EXIT
+3 IF +Y=450
SET DUZ(0)=DUZ(0)_"F"
SET DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""F"""
DO ASK
if %=-1
GOTO EXIT
+4 SET L=1
SET DIC=+Y
DO EN1^DIP
+5 IF $DATA(X)
IF (X=U)!(X="")
GOTO EXIT
+6 WRITE !!
GOTO PRNT04A
SRCH04 ;Fiscal Search Option
+1 SET PRSDUZ=DUZ(0)
SET ASKFLG="S"
SRCH04A SET DIC="^DIC("
SET DIC(0)="AQEI"
SET DIC("B")=450
+1 SET DIC("S")="I (Y=450)!(Y=458)!(Y=459)"
DO ^DIC
+2 if Y=-1
GOTO EXIT
+3 IF +Y=450
SET DUZ(0)=DUZ(0)_"F"
SET DICS="I $D(^DD(450,Y,8)),^DD(450,Y,8)[""F"""
DO ASK
if %=-1
GOTO EXIT
+4 SET DIC=+Y
DO EN^DIS
+5 IF $DATA(X)
IF (X=U)!(X="")
GOTO EXIT
+6 WRITE !!
GOTO SRCH04A
EXIT SET DUZ(0)=PRSDUZ
+1 KILL %,ASKFLG,DIC,DICS,L,PRSDUZ,Y,DIS(0)
WRITE @IOF
QUIT
ASK SET %=2
WRITE !!,"Include separated employees"
DO YN^DICN
+1 if %=-1
QUIT
+2 IF %=0
WRITE !!,"Answer NO if you wish your output to EXCLUDE separated employees.",!,"Answer YES if you wish your output to INCLUDE separated employees."
GOTO ASK
+3 IF %=2
IF ASKFLG="P"
SET DIS(1)="I $D(^PRSPC(D0,1)),$P(^PRSPC(D0,1),U,33)=""N"""
+4 IF %=2
IF ASKFLG="S"
SET DIS(0)="I $D(^PRSPC(D0,1)),$P(^PRSPC(D0,1),U,33)=""N"""
+5 if %=1
WRITE !!,"Separated employees will be included.",!
+6 if %=2
WRITE !!,"Separated employees will not be included.",!
+7 QUIT
