| [613] | 1 | PRSAPEM ; HISC/REL-Post Miscellaneous ;3/10/93 12:50
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | K DIC S DIC="^PRST(458,",DIC(0)="AEQM",DIC("A")="Select PAY PERIOD: " W ! D ^DIC K DIC G:Y<1 EX
|
|---|
| 4 | S PPI=+Y,PPE=$P($G(^PRST(458,PPI,0)),"^",1)
|
|---|
| 5 | NME K DIC S DIC("A")="Select EMPLOYEE: ",DIC("S")="I $D(^PRST(458,PPI,""E"",+Y))",DIC(0)="AEQM",DIC="^PRSPC(" W ! D ^DIC S DFN=+Y K DIC
|
|---|
| 6 | I DFN<1 G EX
|
|---|
| 7 | I $P($G(^PRST(458,PPI,"E",DFN,0)),"^",2)="X" W *7,!!,"This Employee has already been transmitted by Payroll." G NME
|
|---|
| 8 | P3 K DDSFILE,DA,DR S DDSFILE=458,DDSFILE(1)=458.01,DA(1)=PPI,DA=DFN
|
|---|
| 9 | S DR="[PRSA PM POST]" D ^DDS K DS
|
|---|
| 10 | I $P($G(^PRST(458,PPI,"E",DFN,0)),"^",2)="P" K ^(5) D ONE^PRS8 S ^PRST(458,PPI,"E",DFN,5)=VAL
|
|---|
| 11 | EX G KILL^XUSCLEAN
|
|---|
