Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRSDSET

PRSDSET.m

Go to the documentation of this file.
  1. PRSDSET ;HISC/MGD-PAID DOWNLOAD SET LOGIC ;09/13/2003
  1. ;;4.0;PAID;**48,78,82**;Sep 21, 1995
  1. LDSET ;Initial download processor
  1. S DATA=$P(RCD,":",CC),DBNAME=$P(FLD,";",3)
  1. I (DBNAME="MAPRVAST")!(DBNAME="MAPRVAOT")!(DBNAME="MXSSN") Q
  1. I (DBNAME="MBSTATFR")!(DBNAME="MBSACODE")!(DBNAME="MBSADATE")!(DBNAME="MBSANOAC"),DATA="" Q
  1. I (DBNAME="MXFTAXEX")!(DBNAME["EXEMPTION")!(DBNAME="MXNORMHR")!(DBNAME="MXFTEEAJ"),DATA="" S DATA=0
  1. S NODE=$P(FLD,";",5),PIECE=$P(FLD,";",6),FLDNUM=$P(FLD,";",12)
  1. X:(DATA'="")&($P(FLD,";",7)'="") $P(FLD,";",7)
  1. I (NODE="LD"),(DATA=""),($P(FLD,";",7)'="") X $P(FLD,";",7)
  1. Q:(NODE="")!(PIECE="")
  1. I FLDNUM'="",$D(^DD(450,"IX",FLDNUM)) S:$D(^PRSPC(IEN,NODE)) X=$P(^PRSPC(IEN,NODE),U,PIECE),DA=IEN D KILL^PRSDXREF
  1. I NODE'="LD" S $P(^PRSPC(IEN,NODE),U,PIECE)=DATA
  1. I NODE="LD",(MULT) D LD
  1. I FLDNUM'="",$D(^DD(450,"IX",FLDNUM)) S X=DATA D SET^PRSDXREF
  1. K MFLD,MULT
  1. Q
  1. EPTSET ;Edit & Update, Payrun and Transfer download processor
  1. S DBNAME=$P(FLD,";",3)
  1. Q:(DBNAME="MAPRVAST and MAPRVAOT")!(DBNAME="MXSSN")
  1. S E1=$P(FLD,";",5),E2=$P(FLD,";",6)
  1. S NODE=$P(FLD,";",7),PIECE=$P(FLD,";",8),DATA=$E(GRPVAL,E1,E2)
  1. ; Patch 48 - prevent overwriting FEGLI code if AAC does not implement
  1. ; their change before patch is installed.
  1. Q:DBNAME="MXFEGLI"&(DATA="")
  1. S NODE459=$P(FLD,";",10),PIECE459=$P(FLD,";",11),FLDNUM=$P(FLD,";",12)
  1. S ADDFLG=$P(FLD,";",13) D RTS^PRSDUTIL
  1. X:$P(FLD,";",9)'="" $P(FLD,";",9)
  1. Q:(NODE="")!(PIECE="")
  1. I FLDNUM'="",$D(^DD(450,"IX",FLDNUM)) S:$D(^PRSPC(IEN,NODE)) X=$P(^PRSPC(IEN,NODE),U,PIECE),DA=IEN D KILL^PRSDXREF
  1. I NODE'="LD" S $P(^PRSPC(IEN,NODE),U,PIECE)=DATA
  1. I NODE="LD",(MULT) D LD
  1. I FLDNUM'="",$D(^DD(450,"IX",FLDNUM)) S X=DATA D SET^PRSDXREF
  1. I TYPE="P",DATA'="",PP'="",NODE459'="",PIECE459'="" D SET459
  1. K MFLD,MULT
  1. Q
  1. SET459 I (ADDFLG="O")!('$D(^PRST(459,PPIEN,"P",IEN,NODE459))) S $P(^PRST(459,PPIEN,"P",IEN,NODE459),U,PIECE459)=DATA Q
  1. I $P(^PRST(459,PPIEN,"P",IEN,NODE459),U,PIECE459)="" S $P(^PRST(459,PPIEN,"P",IEN,NODE459),U,PIECE459)=DATA Q
  1. S SUM=$P(^PRST(459,PPIEN,"P",IEN,NODE459),U,PIECE459)+DATA
  1. I DATA["." S NOD=$L($P(DATA,".",2)),SUM=$J(SUM,0,NOD)
  1. S:+SUM=0 SUM=""
  1. I FLDNUM'="",$D(^DD(450,"IX",FLDNUM)) S:$D(^PRSPC(IEN,NODE)) X=$P(^PRSPC(IEN,NODE),U,PIECE),DA=IEN D KILL^PRSDXREF
  1. I NODE'="LD" D
  1. . S $P(^PRST(459,PPIEN,"P",IEN,NODE459),U,PIECE459)=SUM
  1. . S $P(^PRSPC(IEN,NODE),U,PIECE)=SUM
  1. I NODE="LD",(MULT) D
  1. . K PRSFDA
  1. . S IENS="?+"_MULT_","_IEN_","_PPIEN_","
  1. . S PRSFDA(459.11054,IENS,.01)=MULT
  1. . S PRSFDA(459.11054,IENS,FLD)=DATA
  1. . D UPDATE^DIE("","PRSFDA","IENS","MGD")
  1. . K PRSFDA
  1. . D LD
  1. I FLDNUM'="",$D(^DD(450,"IX",FLDNUM)) S X=SUM D SET^PRSDXREF
  1. K MFLD,MFLD,NOD
  1. Q
  1. LD ; Update LABOR DISTRIBUTION Multiple (450.0757)
  1. K PRSFDA
  1. S IENS="?+"_MULT_","_IEN_","
  1. S PRSFDA(450.0757,IENS,.01)=MULT
  1. S PRSFDA(450.0757,IENS,MFLD)=DATA
  1. D UPDATE^DIE("","PRSFDA","IENS")
  1. Q