| 1 | PRSAXSR ; HISC/REL-Generate 8B Stub Record ;9/18/92 15:07
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | ;; DFN = Employee # PPE = Pay Period (e.g., 92-18) PPI= Internal PayPer #
|
|---|
| 4 | S C0=$G(^PRSPC(DFN,0)),STA=$P(C0,"^",7) S:STA'?3N STA=" "
|
|---|
| 5 | S SSN=$P(C0,"^",9) S:SSN'?9N SSN=999999999
|
|---|
| 6 | S NCODE=$E($P(C0,"^",1),1,3) S:$L(NCODE)'=3 NCODE=" "
|
|---|
| 7 | S TLB=$P(C0,"^",8) S:$L(TLB)'=3 TLB=" "
|
|---|
| 8 | S LVGP=$P(C0,"^",15) S:LVGP="" LVGP=" "
|
|---|
| 9 | S NH=$P(C0,"^",16),NH=$S(NH="":" ",NH<10:"0"_NH,NH<100:NH,1:$E("+ABCDEF",$E(NH,1,2)-9)_$E(NH,3))
|
|---|
| 10 | S PYPL=$P(C0,"^",21) S:PYPL="" PYPL=" "
|
|---|
| 11 | S DB=$P(C0,"^",10) S:DB="" DB=" "
|
|---|
| 12 | S DAYNO=" " I $D(^PRST(458,PPI,"E",DFN,3)) S %=$P(^(3),"^",9) S:%?3N DAYNO=%
|
|---|
| 13 | S PYPR=$P(PPE,"-",2) S:PYPR'?2N PYPR=" "
|
|---|
| 14 | S HDR=" "_STA_SSN_NCODE_DAYNO_"8B"_TLB_LVGP_NH_PYPL_DB_PYPR Q
|
|---|
