'PROGRAM: MODEL FOR LACTATIONAL TRANSFER                            '
'****DATA AND COMMANDS FOR RUN-TIME***                              '

'NOTE: Will run under SIMUSOLV or early versions of ACSL.           '
'For ACSL 11 + this file should be reformated.                      '
  
'      ******* LACTMAN.CMD *******                                  '
'      ******* PART 2 0F 2 OF MODEL LACTMAN *******                 '
'-------------------------------------------------------------------'

'PCE AND RISK ASSESSMENT                                            '
'PBPK MODEL FOR WOMAN WITH INFANT                                   '

'Originally posted at PBPK-L Source Code Listing,                   '
'URL: http://www.navy.al.wpafb.af.mil/new.htm                       '
 
'DISCLAIMER: By using this PBPK source code you, the user,          '
' implicitly agrees with the conditions and rules stated in this    '
' source code disclaimer. If you have not read                      '
' this yet, please read it now. If you do not agree with the        '
' conditions and rules stated in it, please dispose of all contents '
' of the PBPK source file and all related files now in your         '
' possession. The PBPK computer modeling programs are placed here by'
' their authors for the convenience of others interested in PBPK    '
' modeling. No representation of their suitability or correctness is'
' implied. Please understand that PBPK models are complex entities  '
' whose value is minimal when taken out of context. With that       '
' understanding, you are welcome to use this code for teaching and  '
' further development of the ideas that they represent. The         '
' information and/or opinions presented here are those of the       '
' authors and are not endorsed by the US Air Force, US Navy, US     '
' Army, Tri-Service Toxicology Consortium, Department of Defense, or'
' the US Government. The US Air Force, US Navy, US Army, Tri-Service'
' Toxicology Consortium, Department of Defense, or the US Government'
' and the authors of this PBPK source code accept no responsibility '
' for damages resulting from the use of the code and make no        '
' warranty or representation, either express or implied, including  '
' but not limited to, any implied warranty of merchantability or    '
' fitness for a particular purpose. PBPK source code is provided *as'
' is*, and you, its user, assume all risks when using it.           '

' Description of this program has been published: Byczkowski,J.Z.,  '
' and Fisher,J.W. (1995) A computer program linking physiologically '
' based pharmacokinetic model with cancer risk assessment for       '
' breast-fed infants. Computer Methods Progr. Biomed. 46, 155-163.  '
' Reprints of this article are indicated as AL/OE-TR-1995-0014 by   '
' Armstrong Aerospace Medical Research Laboratory, Wright Patterson '
' Air Force Base, OH.                                               '
' Results of simulation have been published: Byczkowski,J.Z. (1996) '
' A linked pharmacokinetic model and cancer risk assessment for     '
' breast-fed infants. Drug Information J. 30, 401-412.              '
' Reprints of this article are indicated as AL/OE-TR-1996-0007 by   '
' Armstrong Aerospace Medical Research Laboratory, Wright Patterson '
' Air Force Base, OH.                                               '


'Key words: Physiologically based pharmacokinetic model, PBPK,      '
'           Tetrachloroethylene, PERC, PCE, Cancer risk assessment, '
'           Breast-fed infant, Toxicology.                          '

'     Please send comments to the authors E-mail address:           '
'                  JANUSZ.BYCZKOWSKI@USA.NET                        '
'^^^^^^^^^^^^^^^Please do not delete this message^^^^^^^^^^^^^^^^^^^'

'-------------------------------------------------------------------'
PROCED ScenA1 $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING MOTHER SCEN.A, Schreiber [16]'
SET CONC=50,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., TCHNG=8, INFEX=1.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      CV
.0   1.32
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT CV, 'XHIGH'=1440., 'hi'=3.,
END

PROCED ScenA2 $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING MOTHER SCEN.A, Schreiber [16]'
SET CONC=50,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., INFEX=1.
SET TCHNG=8.0, BCK=0.0041
PREPAR T, CGIT, CVP, DOSEP, CV, CMAT, CTP, CPUPT, IDM, CF

DATA
T      CMAT
.0   8.44
END  $'END OF DATA'

SET WESITG=.F.
START
PLOT CMAT, 'XHIGH'=1440.,
END

'--------------------------------------------------------'
PROCED ScenA3  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.A, Schreiber [16]'
SET CONC=50,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., INFEX=0.
SET TCHNG=8.0, BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,IDI,CF,TOTINF

DATA
T      IDM
.0   0.82
END  $'END OF DATA'

SET WESITG=.F.
START
PLOT IDM, 'xlo'=25.,'xhi'=1440., 'HI'=1.,
END

PROCED ScenB1  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.B, Schreiber [16]'
SET CONC=25,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., TCHNG=8, INFEX=0.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      IDM
.0   0.34
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT IDM, 'xlo'=25., 'XHIGH'=1440., 'lo'=0., 'hi'=0.5,
END

PROCED ScenC1  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.C, Schreiber [16]'
SET CONC=5.9,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., TCHNG=8, INFEX=0.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      IDM
.0   0.08
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT IDM, 'xlo'=25., 'XHIGH'=1440., 'hi'=0.1,
END

PROCED ScenD1  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.D, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=0.
SET BCK=6.7
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      IDM
.0   0.3
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT IDM, 'xlo'=25., 'XHIGH'=1440., 'hi'=0.4,
END

PROCED ScenE1  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.E, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=0.
SET BCK=1.1
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      IDM
.0   0.05
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT IDM, 'xlo'=25., 'XHIGH'=1440., 'lo'=0.,'hi'=0.060,
END


PROCED ScenF1  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.F, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=0.
SET BCK=0.037
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      IDM
.0   0.0015
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT IDM, 'xlo'=25., 'XHIGH'=1440., 'lo'=0., 'hi'=0.002,
END

PROCED ScenG1  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.G, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=0.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      IDM
.0   0.0001
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT IDM, 'xlo'=25., 'XHIGH'=1440., 'lo'=0., 'hi'=0.00012,
END

'---------------------------------------------------------'
PROCED ScenA4  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.A, Schreiber [16]'
SET CONC=50,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., INFEX=1.
SET TCHNG=8.0, BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,IDI,CF,TOTINF

DATA
T      TOTINF
.0   0.82
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25.,'xhi'=1440., 'lo'=0.,'HI'=1.,
END

PROCED ScenB2  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.B, Schreiber [16]'
SET CONC=25,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., TCHNG=8, INFEX=1.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      TOTINF
.0   0.35
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25., 'XHIGH'=1440.,'lo'=0., 'hi'=0.4,
END

PROCED ScenC2  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.C, Schreiber [16]'
SET CONC=5.9,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.04375, outi=0.04375
SET DAYS=60., TCHNG=8, INFEX=1.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      TOTINF
.0   0.088
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25., 'XHIGH'=1440., 'lo'=0., 'hi'=0.1,
END

PROCED ScenD2  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.D, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=1.
SET BCK=6.7
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      TOTINF
.0   7.9
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25., 'XHIGH'=1440., 'lo'=0.,'hi'=20.
END

PROCED ScenE2  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.E, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=1.
SET BCK=1.1
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      TOTINF
.0   1.3
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25., 'XHIGH'=1440., 'lo'=0.,'hi'=3.0,
END


PROCED ScenF2  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.F, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=1.
SET BCK=0.037
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      TOTINF
.0   0.043
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25., 'XHIGH'=1440., 'lo'=0.,'hi'=0.1,
END

PROCED ScenG2  $'INHALATION MODEL WOMAN--INFANT'
SET TITLE='NURSING INFANT SCEN.G, Schreiber [16]'
SET CONC=0.,IVDOSE=0.,PDOSE=0.,BWPI=7.2,BWA=60.
SET CINT=.5, pmilk=2.8, vmilk=0.02917, outi=0.02917
SET DAYS=60., TCHNG=0., INFEX=1.
SET BCK=0.0041
PREPAR T,CGIT,CVP,DOSEP,CV,CMAT,CTP,CPUPT,IDM,CF,TOTINF

DATA
T      TOTINF
.0   0.0046
END  $'END OF DATA'

SET WESITG=.F.
START
DISP ECRI, TCRI
PLOT TOTINF, 'xlo'=25., 'XHIGH'=1440., 'lo'=0.,'hi'=0.012,
END
'              END OF LACTMAN.CMD                         '
'---------------------------------------------------------'
'       ***** END OF PART 2 0F 2 OF MODEL LACTMAN*****    '