| PERSRNDC.KEEP |
| IF PERSRNDC=EMPTY THEN |
| PERSRNDC:=PreloadSP.PERSRNDC |
| ENDIF |
|
| AFHIST.keep |
| IF AFHIST=EMPTY THEN |
| AFHIST:=PreloadSP.AFHIST |
| ENDIF |
|
|
| SEX.KEEP |
| IF SEX=EMPTY THEN |
| SEX:=PreloadSP.SEX |
| ENDIF |
|
| MCAIDFLG.KEEP |
| IF MCAIDFLG=EMPTY THEN |
| MCAIDFLG:=PreloadSP.MCAIDFLG |
| ENDIF |
|
| XCAIDFLG.KEEP |
| IF XCAIDFLG=EMPTY THEN |
| XCAIDFLG:=PreloadSP.XCAIDFLG |
| ENDIF |
|
| ECAIDNUM.KEEP |
| IF ECAIDNUM=EMPTY THEN |
| ECAIDNUM:=PreloadSP.ECAIDNUM |
| ENDIF |
|
| HCAIDNM.KEEP |
| IF HCAIDNM=EMPTY THEN |
| HCAIDNM:=PreloadSP.HCAIDNM |
| ENDIF |
|
| INCAID.KEEP |
| IF INCAID=EMPTY THEN |
| INCAID:=PreloadSP.INCAID |
| ENDIF |
|
| SUPPTYPE.KEEP |
| IF SUPPTYPE=EMPTY THEN |
| SUPPTYPE:=PreloadSP.SUPPTYPE |
| ENDIF |
|
| CURRTYPE.KEEP |
| IF CURRTYPE=EMPTY THEN |
| CURRTYPE:=PreloadSP.CURRTYPE |
| ENDIF |
|
| RAD.KEEP |
| IF RAD=EMPTY THEN |
| RAD:= PreloadSP.RAD |
| ENDIF |
|
| DOBYY.KEEP |
| IF DOBYY=EMPTY THEN |
| DOBYY:=PreloadSP.DOBYY |
| ENDIF |
|
| DOBMM.KEEP |
| IF DOBMM=EMPTY THEN |
| DOBMM:=PreloadSP.DOBMM |
| ENDIF |
|
| DOBDD.KEEP |
| IF DOBDD=EMPTY THEN |
| DOBDD:=PreloadSP.DOBDD |
| ENDIF |
|
| DOB.KEEP |
| IF DOB=EMPTY THEN |
| DOB:=TODATE(DOBYY,DOBMM,DOBDD) |
| ENDIF |
|
| STAYLAST.KEEP |
| IF STAYLAST=EMPTY THEN |
| STAYLAST:=PreloadSP.STAYLAST |
| ENDIF |
|
| LASTSTAY.KEEP |
| IF LASTSTAY=EMPTY THEN |
| LASTSTAY:=PreloadSP.LASTSTAY |
| ENDIF |
|
| HEDULEV.KEEP |
| IF HEDULEV=EMPTY THEN |
| HEDULEV:=PreloadSP.HEDULEV |
| ENDIF |
| WRITEBAS.KEEP |
| IF WRITEBAS =EMPTY THEN |
| WRITEBAS := PreloadSP.WRITEBAS |
| ENDIF |
| WRITEANC.KEEP |
| IF WRITEANC = EMPTY THEN |
| WRITEANC := PreloadSP.WRITEANC |
| ENDIF |
| EXFCAID.KEEP |
| IF EXFCAID = EMPTY THEN |
| EXFCAID := PreloadSP.EXFCAID |
| ENDIF |
| EXFCARE.KEEP |
| IF EXFCARE = EMPTY THEN |
| EXFCARE := PreloadSP.EXFCARE |
| ENDIF |
| EXSPCAID.KEEP |
| IF EXSPCAID = EMPTY THEN |
| EXSPCAID := PreloadSP.EXSPCAID |
| ENDIF |
| BAS10FLG.KEEP |
| IF BAS10FLG = EMPTY THEN |
| BAS10FLG := PreloadSP.BAS10FLG |
| ENDIF |
| ANC10FLG.KEEP |
| IF ANC10FLG = EMPTY THEN |
| ANC10FLG := PreloadSP.ANC10FLG |
| ENDIF |
| FRSTBPER.KEEP |
| IF FRSTBPER = EMPTY THEN |
| IF PreloadSP.FRSTBPER = EMPTY THEN |
| FRSTBPER := 1 |
| ELSE |
| FRSTBPER := VAL(PreloadSP.FRSTBPER) |
| ENDIF |
| ENDIF |
|
| EXS1MDVF.KEEP |
| EXS1MRVF.KEEP |
| EXS1MCDF.KEEP |
| EXS2MDVF.KEEP |
| EXS2MRVF.KEEP |
| EXS2MCDF.KEEP |
| EXA1MDVF.KEEP |
| EXA1MRVF.KEEP |
| EXA1MCDF.KEEP |
| EXA2MDVF.KEEP |
| EXA2MRVF.KEEP |
| EXA2MCDF.KEEP |
| EXB1MDVF.KEEP |
| EXB1MRVF.KEEP |
| EXB1MCDF.KEEP |
| EXB2MDVF.KEEP |
| EXB2MRVF.KEEP |
| EXB2MCDF.KEEP |
|
| IF EXS1MDVF = EMPTY THEN |
| EXS1MDVF := NotIndicated |
| ENDIF |
| IF EXS1MRVF = EMPTY THEN |
| EXS1MRVF := NotIndicated |
| ENDIF |
| IF EXS1MCDF = EMPTY THEN |
| EXS1MCDF := NotIndicated |
| ENDIF |
| IF EXS2MDVF = EMPTY THEN |
| EXS2MDVF := NotIndicated |
| ENDIF |
| IF EXS2MRVF = EMPTY THEN |
| EXS2MRVF := NotIndicated |
| ENDIF |
| IF EXS2MCDF = EMPTY THEN |
| EXS2MCDF := NotIndicated |
| ENDIF |
| IF EXA1MDVF = EMPTY THEN |
| EXA1MDVF := NotIndicated |
| ENDIF |
| IF EXA1MRVF = EMPTY THEN |
| EXA1MRVF := NotIndicated |
| ENDIF |
| IF EXA1MCDF = EMPTY THEN |
| EXA1MCDF := NotIndicated |
| ENDIF |
| IF EXA2MDVF = EMPTY THEN |
| EXA2MDVF := NotIndicated |
| ENDIF |
| IF EXA2MRVF = EMPTY THEN |
| EXA2MRVF := NotIndicated |
| ENDIF |
| IF EXA2MCDF = EMPTY THEN |
| EXA2MCDF := NotIndicated |
| ENDIF |
| IF EXB1MDVF = EMPTY THEN |
| EXB1MDVF := NotIndicated |
| ENDIF |
| IF EXB1MRVF = EMPTY THEN |
| EXB1MRVF := NotIndicated |
| ENDIF |
| IF EXB1MCDF = EMPTY THEN |
| EXB1MCDF := NotIndicated |
| ENDIF |
| IF EXB2MDVF = EMPTY THEN |
| EXB2MDVF := NotIndicated |
| ENDIF |
| IF EXB2MRVF = EMPTY THEN |
| EXB2MRVF := NotIndicated |
| ENDIF |
| IF EXB2MCDF = EMPTY THEN |
| EXB2MCDF := NotIndicated |
| ENDIF |
|
| RHREFBEG.KEEP |
| RHREFEND.KEEP |
| PREVADMT.KEEP |
| PMREFBEG.KEEP |
| PMREFEND.KEEP |
| USREFBEG.KEEP |
| USREFEMM.KEEP |
| USREFEDD.KEEP |
| USREFEYY.KEEP |
| ONEBPDONE.KEEP |
| EXREFBEG.KEEP |
| EXREFEND.KEEP |
|
| PreviouseRound.KEEP |
| IF PreloadSP.HOLDOVER=Indicated THEN |
| PreviouseRound:=STR(VAL(PreloadSP.CurrentRound)-2) |
| ELSE |
| PreviouseRound:=STR(VAL(PreloadSP.CurrentRound)-1) |
| ENDIF |
|
| HSFORMS.KEEP |
| CCVAD.KEEP |
| BCVAD.KEEP |
| HSCDOI.KEEP |
| HS1DOI.KEEP |
| HS2DOI.KEEP |